Schieb • Thrun • Wrobel 



COMMODORE 


intern 


EIN DATA BECKER BUCH 






DAS STEHT DRIN: 

Ein Standardwerk zum COMMODORE 128, das für jeden 
unentbehrlich ist, der tiefer in den COMMODORE 128 ein¬ 
steigen will. Das gesamte Betriebssystem ist ausführlich 
und gründlich kommentiert, Grafik, Soundbausteine, Pro¬ 
zessor und Peripherieanschlüsse sind genauestens 
beschrieben. Ein Buch, das für den professionellen Pro¬ 
grammierer sehr schnell unentbehrlich wird. 

Aus dem Inhalt: 

- DerVIC-Chip 
Registerbelegung 
Betriebsarten 

Zeichendarstellung, Graphik, Sprites und Soft-Scrolling 

- Ein- und Ausgabesteuerung 
Die CI As im COMMODORE 128 
Echtzeituhr 

Der serielle lEC-Bus des COMMODORE 128 

- Der Sound-Chip SID 

- Der 8563-VDC-Chip 
Pinbelegung 

Nutzung der VDC-Register 
Hires-Graphik mit 640x200 Punkten 

- Das Memory-Management, die MMU 

- Assemblerprogrammierung (Nutzung der Kernal- 
Routinen) 

- Einbinden neuer BASIC-Befehle 

- BASIC-Tokens 

- Die CPU 8502 

- Zeilenweise dokumentiertes Kernal-ROM 

- ausführlich dokumentiertes BASIC 7.0 

- Z-80-ROM dokumentiert (Boot-Sektor) 

- Betriebssystem und Monitorlisting 

- Die Hardware 

UND GESCHRIEBEN HABEN DIESES BUCH: 

Engagierte Mitarbeiter des DATA BECKER-Teams. Frank 
Thrun, Programmierer in der Softwareabteilung, Jörg 
Schieb, erfahrener Maschinenspracheprogrammierer, und 
Heinz Wrobel kennen den COMMODORE 128 in- und aus¬ 
wendig. 


ISBN 3-89011-098-3 






Schieb • Thrnn • Wobei 


k fl fl I 













ISBN 3-89011-098-3 

Copyright'« 1986 DATA BECKER GmbH 
Merowingerstraße 30 
4000 Düsseldorf 

Alle Rechte Vorbehalten. Kein Teil dieses Programms darf in irgendeiner Form 
(Druck, Fotokopie oder einem anderen Verfahren) ohne schriftliche Genehmi¬ 
gung der DATA BECKER GmbH reproduziert oder unter Verwendung elektro¬ 
nischer Systeme verarbeitet, vervielfältigt oder verbreitet werden.* 



Wichtiger Hinweis: 

Die in diesem Buch wiedergegebenen Schaltungen, Verfahren und Pro¬ 
gramme werden ohne Rücksicht auf die Patentlage mitgeteilt. Sie sind aus¬ 
schließlich für Amateur- und Lehrzwecke bestimmt und dürfen nicht gewerb¬ 
lich genutzt werden. 

Alle Schaltungen, technischen Angaben und Programme in diesem Buch 
wurden von dem Autoren mit größter Sorgfalt erarbeitet bzw. zusammenge¬ 
stellt und unter Einschaltung wirksamer Kontrollmaßnahmen reproduziert. 
Trotzdem sind Fehler nicht ganz auszuschließen. DATA BECKER sieht sich 
deshalb gezwungen, darauf hinzuweisen, daß weder eine Garantie noch die 
juristische Verantwortung oder irgendeine Haftung für Folgen, die auf fehler¬ 
hafte Angaben zurückgehen, übernommen werden kann. Für die Mitteilung 
eventueller Fehler ist der Autor jederzeit dankbar. 




Inhaltsverzeichnis 


1. Grundsätzliches zum C128. 13 

1.1 Einführung zum Commodore 128.13 

1.2 Der Datasetten-Anschluß.15 

1.3 Der Userport.16 

1.4 Die RS232-Schnittstelle.20 

1.4.1 Programmierung von Baudraten.24 

1.4.2 Die Status-Abfrage.25 

1.5 Der Cartridge-Port.26 


2. Der VIC-Chip.27 

2.1 Registerbelegung des VIC-Chip.30 

2.2 Die Betriebsarten des VIC.33 

2.3 Sprites.34 

2.3.1 Adresse der Sprites.36 

2.3.2 Einschalten.37 

2.3.3 Farbe. 38 

2.3.4 Die Position.38 

2.3.5 Vergrößern.39 

2.3.6 Hintergrund.40 

2.3.7 Kollision: Sprite-Sprite.41 

2.3.8 Kollision: Sprite-Hintergrund.42 

2.3.9 Multi-Color-Sprites.42 

2.3.10 Interrupt durch den VIC-Chip.45 


























2.4 Normale Zeichendarstellung.46 

2.4.1 Verschieben des Video-RAMs.47 

2.4.2 Verschieben des Zeichengenerators.49 

2.4.3 Das Farb-RAM.49 

2.5 Programmierung von Farbe und Grafik.50 

2.5.1 Der Hi-Res-Modus.51 

2.5.2 Der Multi-Color-Modus.60 

2.5.3 Der Multi-Color-Modus (Text).61 

2.5.4 Der Extended-Color-Modus.62 

2.6 Soft-Scrolling (Smooth-Scrolling).63 


3. Ein- und Ausgabesteuerung.67 

3.1 Allgemeines über den CIA 6526.67 

3.1.1 Pinbelegung des 40poligen Gehäuses.67 

3.2 Registerbeschreibung der CIA.68 

3.3 E/A-Ports.71 

3.4 Die Timer.73 

3.5 Die Echtzeituhr.74 

3.5.1 Echtzeit in BASIC.75 

3.6 Die CIAs im Commodore 128.76 

3.7 Der Joystickport.78 

3.7.1 Der Joystick.78 

3.7.2 Die 1350-Maus.79 

3.7.3 Der Lightpen. 79 

3.8 Der serielle IEC-Bus des C128.80 

3.8.1 Schneller und langsamer Modus.82 

3.8.2 Die Geräteadressen.83 

3.8.3 Die Sekundäradressen.84 

3.8.4 Die Systemvariable ST.85 































4. Der Sound-Chip SID.87 

4.1 Der Sound-Controller 6581 .87 

4.1.1 Allgemeines zum SID.87 

4.1.2 Pinbelegung des 28poligen Gehäuses.89 

4.1.3 Registerbeschreibung des SID.91 

4.1.4 Der Analog/Digitalwandler.94 

4.1.4.1 Die Handhabung des A/D-Wandlers.95 

4.1.4.2 Die Verwendung von Paddies.95 

4.1.5 Programmierung des SID.97 

4.2 Die Filter.103 

4.3 Synchronisation und Ring-Modulation.104 


5. Der 8563-VDC-Chip.107 

5.1 Allgemeines über den VDC-Chip.107 

5.2 Die Pinbelegung.108 

5.3 Die Register des VDC-Chips.109 

5.4 Allgemeines zu den VDC-Registern.114 

5.4.1 Der Zeichensatz.122 

5.4.2 Das Attribut.123 

5.5 Die Nutzung der VDC-Register.125 

5.5.1 Smooth-Scrolling.126 

5.5.2 Blockweises Kopieren.127 

5.5.3 Vorder- und Hintergrundfarbe.129 

5.5.4 Der Cursormodus.129 

5.5.5 Die Zeichenlänge und -breite.130 

5.5.6 Mehr als 25 Zeilen auf dem Bildschirm.131 

5.5.7 Die Hi-Res-Grafik.137 





























6. Das Memory-Management - Die MMU.147 

6.1 Einführung in die MMU.147 

6.2 Das Konfigurationsregister.149 

6.2.1 Die Präkonfigurationsregister.151 

6.3 Das Mode Configuration Register.151 

6.4 Das RAM Configuration Register.153 

6.5 Die Seitenzeiger.155 

6.6 Das Version Register.159 

7. Die Assembler-Programmierung.161 

7.1 Einführung in die Assembler-Programmierung.161 

7.2 Die CPU - die 8502.161 

7.3 Die Kernal-Routinen und wie man sie nutzt.162 

7.3.1 FETCH, STASH und CMPARE.162 

7.3.1.1 FETCH.163 

7.3.1.2 STASH.164 

7.3.1.3 CMPARE.165 

7.3.2 GETCONF.,.165 

7.3.3 JSRFAR und JMPFAR.166 

7.4 Die wichtigsten Kernal-Routinen.169 

7.4.1 Kernal-Routinen mit Vektoren ab $FF4D.169 























8. Das Kernal-ROM.199 

8.1 Einführung.199 

8.2 Das Kernal-ROM-Listing.200 


9. Das BASIC-ROM.371 

9.1 Allgemeines.371 

9.2 Nicht vorhandene Befehle.372 

9.3 Die Variablen.372 

9.4 Die Speicheraufteilung.373 

9.5 Datenformate des BASIC 7.0.374 

9.5.1 Das Programmzeilenformat.374 

9.5.2 Das Format von Realzahlen.375 

9.5.3 Das Format von Integerzahlen.375 

9.5.4 Das Format der Variablennamen.376 

9.5.5 Das Format der Realvariablen.376 

9.5.6 Das Format von Funktionen.377 

9.5.7 Das Format von Stringvariablen.377 

9.5.8 Das Format von Integervariablen.378 

9.5.9 Das Format von Feldern.379 

9.6 Die Garbage Collection.379 

9.7 Die Stacks.380 

9.8 Interrupts im BASIC 7.0.381 
























9.9 Nutzung der BASIC-ROM-Routinen.381 

9.9.1 Das Sprungmodul.381 

9.10 Interessante BASIC-ROM-Routinen.385 

9.11 Das BASIC-ROM-Listing.404 

9.12 Die Zeropage.718 

9.13 Einbinden eigener Befehle.719 

9.13.1 Das Befehlsmodul.719 


10. Das Z-80-ROM-Listing.731 

10.1 Einführung zur Z-80.731 

10.2 Das Z-80-ROM-Listing.736 


11. Tips und Tricks.789 

11.1 STOP-Taste sperren.789 

11.2 STOP-RESTORE-Kombination sperren.790 

11.3 Der IRQ-Vektor.791 

11.4 Ausschalten des BASIC-lnterrupts.792 

11.5 Positionieren des Cursors.793 

11.6 Bootsektor und -routine.795 




















Anhang 


799 


Die Zeichensätze.799 

Die Tastaturmatrix.812 

Die verschiedenen Rechnermodi.815 

Die verschiedenen Einschaltmodi.819 

VIC-Register.821 

Die Assemblerbefehle.824 

Umrechnungstabelle.827 

Stichwortverzeichnis .833 













Grundsätzliches zum CI 28 


13 


1. Grundsätzliches zum C128 


1.1 Einführung zum Commodore 128 

Nach dem Commodore-Erfolgsschlager C64 folgten einige 
Versuche wie der Plus 4, C16 und CI 16, die der Markt 
zunächst nicht so recht annehmen wollte. 

Diese Nachfolger des C64 boten aber nichts eigentlich Neues; 
ganz anders der Commodore 128. Er vereint praktisch drei 
Rechner in sich: Den wohlbekannten C64, für den ein Berg an 
Software und Literatur existiert, der bestimmt schon größer als 
der europäische Butterberg ist. Dann beinhaltet er, basierend auf 
den Erfolgschips 6510 (6502), VIC, SID, 6526 etc., den 
eigentlich neuen Rechner - den Commodore 128. Hier wurde er 
sinnvollerweise um einen 80-Zeichen-Video-Controller berei¬ 
chert, der den C128 zur professionellen Maschine werden läßt. 
Man hat den VIC-Chip und die 6510 ein wenig verändert - 
jedoch haben sie nicht ihr eigentliches Gesicht verloren. 
Unverständlich ist vielleicht, warum man nicht als Mikropro¬ 
zessor den 65C02 gewählt hat, der ebenfalls schneller arbeitet, 
zur 6502 kompatibel ist und noch einige nützliche Kommandos 
zusätzlich hinzubekommen hat. Dies hätte den C64-Modus 
überhaupt nicht beeinflußt. Man hat sich aber für den 8500 
entschieden, der doppelt so schnell arbeiten kann wie sein Vor¬ 
gänger, die 6510. Ferner ist der C128 auch ein CP/M-Rechner, 
der unter CP/M 3.0+ arbeitet. CP/M 3.0 ist die gängige Version 
für 128-KByte-Rechner. Hierzu ist noch ein Z80 eingebaut, der 
sogar mit 4 MHz gefahren wird. Allerdings wird die Geschwin¬ 
digkeit gedämpft, wenn auf den Bus zugegriffen wird, da dieser 
nicht für diese Geschwindigkeit konzipiert worden ist. 

Wir wollen uns mit den beiden Modi C64 und C128 gleicher¬ 
maßen beschäftigen, da sie - das ist unsere persönliche Meinung 
- gleichberechtigt und ebenso gleichermaßen interessant sind. 
Schwerpunkt ist natürlich aber der C128-Modus, gerade was das 
ROM-Listing und die Zeropage betrifft. Einige Dinge lassen 
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sich aber besser im C64-Modus erläutern, beispielsweise der 
VIC-Chip, den wir im entsprechenden Kapitel noch genauer 
erläutern. 

Das Buch 128 Intern reiht sich in die Folge der INTERN-Werke 
von DATA BECKER ein und verfolgt das Ziel, dem Leser alle 
wichtigen Möglichkeiten des Rechners zu vermitteln. Deswegen 
wird auf jeden Baustein einzeln und ausführlich eingegangen, 
wobei der BASIC-Programmierer, ob Anfänger oder Profi, 
gleichermaßen tiefen Einblick gewinnen soll; der Assembler- 
Programmierer wird wohl den größten Nutzen davon tragen. 
Natürlich können nicht alle Möglichkeiten erschöpfend behan¬ 
delt werden, auch soll dieses Buch keine BASIC-Einführung 
sein, jedoch werden die vorhandenen Möglichkeiten zumindest 
erwähnt. Die Realisierung obliegt dann dem Leser. 

Im Commodore 128 befindet sich eine Vielzahl von modernen 
Bausteinen; die Platine ist reichlich bestückt. Um all dieses 
Innenleben koordinieren zu können, ist schon ein nicht 
unerheblicher hard- und softwaremäßiger Aufwand nötig. Dazu 
kommt noch das sehr komfortable und umfangreiche BASIC 7.0. 
Wichtige Eigenschaften des Commodore 128 sind die folgenden: 


* 128 KByte dynamisches RAM 

* 2 mal 4 KByte Zeichengenerator 

* Farbvideocontroller (VIC) mit Hi-Res-Grafik 

* 80-Zeichen-Videocontroller (VDC) mit RGB-Ausgang 

* Auch auf dem 80-Zeichen-Monilor Hi-Res-Grafik 

* Synthesizer mit drei unabhängigen Stimmen (polyphon) 

* 32 KByte BASIC-ROM! 

* 16 KByte Betriebsystem 

* 2 Parallel-I/Os 

* 2 Bildschirme gleichzeitig 


Wir wollen nun auf die verschiedenen Ein- und Ausgänge des 
Commodore 128 eingehen. Die Ausgänge für die Monitore 
werden dabei nicht berücksichtigt, da ihnen bzw. den Chips, die 
sie versorgen, je ein spezielles Kapitel gewidmet ist. 
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1.2 Der Datasetten-Anschluß 

Der Commodore 128 wäre der erste Commodore-Rechner, der 
diesen Anschluß nicht hätte. Die Datasette hat zwar immer mehr 
an Bedeutung verloren, da die Floppy-Disk-Stationen immer 
preiswerter geworden sind, jedoch hat alles mit dem legendären 
PET begonnen, der ja bekanntlich ein eingebautes 
Kassettengerät besessen hat - genau dies ist die Datasette. An 
diesenm Anschluß kann man ausschließlich Commodore-Kasset- 
tenlaufwerke anschließen; es sei denn, man ist der Bastelei ver¬ 
fallen. Ist dies vielleicht noch ein Grund zur Ärgernis, so muß 
man doch erwähnen, daß die Commodore-Kassettenlaufwerke 
seit je her eine sehr hohe Genauigkeit aufweisen, was man von 
anderen Rechnern zumindestens anfangs nicht behaupten konnte. 

Die Datasette wird über ihren Anschluß sowohl mit Daten als 
auch mit ihrer Betriebsspannung versorgt. Die Daten flitzen bit¬ 
seriell durchs Kabel (also wie beim IEC-Bus). Neben den 
Leitungen für Schreib- und Lesedaten gibt es noch eine Leitung, 
um den Laufwerksmotor ein- und auszuschalten, sowie eine 
Leitung, die dazu dient, die PLAY-Taste abzufragen. 

Wie die einzelnen Leitungen genau belegt sind, können Sie den 
folgenden Abbildungen entnehmen: 


Cassette 


12 3 4 5 6 



A B C D E F 


PIN 

SIGNAL 

A-1 

GND 

B-2 

+5V 

C-3 

CASSETTE MOTOR 

D-4 

CASSETTE READ 

E-5 

CASSETTE YRITE 

F-6 

CASSETTE SENSE 


Abb. 1 
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1.3 Der Userport 

Roboter durch den Commodore 128 gesteuert durchs Wohn¬ 
zimmer wandern lassen? Kein großes Problem, denn der 
Commodore 128 verfügt, fast schon ebenso traditionell wie beim 
Datasetten-Anschluß, natürlich über den Userport. 


Der Userport ist eine 8-Bit-Parallelschnittstelle, wobei der 
Benutzer frei definieren kann, welche Bits zur Ein- und welche 
zur Ausgabe benutzt werden sollen. Für Bastler und Hardware- 
Freaks ist diese Schnittstelle sehr willkommen, da flexibel. Hinzu 
kommt noch, daß man den Userport auch vom BASIC her 
mittels PEEK- und POKE-Kommandos programmieren kann. 
Zur Ablaufsteuerung verfügt man noch über zwei Handshake- 
Leitungen. 


Die Belegung der Userport-Leitungen: 


1 GND 

2 +5V; mit maximal 100 mA belastbar 

3 -RESET; mit der gleichnamigen Prosessorleitung verbunden 

4 CNT1; verbunden mit CNT von CIA1 

5 SP1; mit SP von CIA1 verbunden 

6 CNT2; Leitung CNT von CIA2 

7 SP2; verbunden mit SP von CIA2 

8 -PC2; Handshake-Ausgang von CIA2 

9 ATN OUT; Steuerleitung des seriellen lEC-Bus, stammt von PA3 der CIA2 

10 9V AC; Wechselspannung; mit maximal 100 mA belastbar 

11 Gegenpol zu 10 

12 GND 

A GND 

B -FLAG2; Handshake-Eingang von C1A2 

C-L PB0-PB7; I/O-Lines von CIA2 

M PA2; I/O-Line von CIA2. 

N GND 


Um Ihnen vorzuführen, wie Sie den Userport programmieren 
können, haben wir uns ein kleines Beispiel ausgedacht. 

Unsere Beispielschaltung besteht lediglich aus vier Schaltern, 
vier Leuchtdioden, acht Widerständen und einem IC. Sie werden 
damit die Grundbegriffe der Datenein- und -ausgabe über den 
Userport sicherlich verstehen lernen. Die Schaltung finden Sie 
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am Ende dieses Abschnittes abgedruckt. Sie ist sehr einfach, 
daher haben wir sie hier nicht dokumentiert. 

Wegen der Vielzahl der belegten Anschlüsse des Userports muß 
zunächst geklärt werden, welche Anschlüsse dem Benutzer nun 
überhaupt zur Verfügung stehen. Falls Sie nicht gerade eine 
RS232-Cartridge betreiben, können Sie die folgenden Anschlüsse 
ohne Rückwirkung auf die übrigen Funktionen des Rechners 
benutzen: 


7-2, 4-8, 10-12, A-N 


Auf unser Beispiel bezogen: Die Datenleitungen PB0-PB7 lassen 
sich individuell auf Eingabe oder Ausgabe programmieren. Wir 
benutzen die Leitungen PB0-PB3 als Eingabe und die Leitungen 
PB4-PB7 als Ausgabe. Die Festlegung der Datenrichtung 
geschieht einfach durch das Laden des Datenrichtungsregisters 
für den Datenport B auf der Adresse 56579. Ein gesetztes Bit 
bedeutet Ausgabe auf dem korrespondierenden Bit des Daten¬ 
ports B (Adresse 56577), ein gelöschtes Bit bedeutet entspre¬ 
chend Eingabe. Um für unser Beispiel die Datenrichtungen 
festzulegen, d.h. Bits 0-3 als Eingabe, 4-7 als Ausgabe, benutzen 
Sie folgendes Kommando: 

POKE 56579,240 

Damit sind die oberen Bits gesetzt und die korrespondierenden 
Bits des Datenports B stehen auf Ausgabe, die restlichen auf 
Eingabe. 

Wie handhaben wir aber nun unsere kleine Schaltung weiterhin? 
Nichts leichter als das! 

PRINT PEEK(56577) AND 15 

signalisiert Ihnen den Zustand der vier Schalter, und mit dem 
Kommando 

POKE 56577,X 

können Sie die Leuchtdioden ein- und auch wieder ausschalten, 
wobei der Wert X sich nur aus den Werten 16, 32, 64 und 128 
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zusammensetzen darf - die unteren Bits sind ja nur zum 
Auslesen. 

Sollten Sie bereits Eigenes planen - Sie wollen Ihre Familie 
entlasten, indem Sie die Waschmaschine an den Commdore 128 
hängen u.ä. so beachten Sie unbedingt folgendes, wenn Sie 
Ihren Rechner dabei nicht beschädigen wollen: 

Bei Verwendung des Userports als Eingang darf die Eingangs¬ 
spannung nur im Bereich 0 bis 5 Volt liegen. Eine Spannung von 
0 bis 0,6 Volt wird als Null interpretiert, eine Spannung von 1,6 
bis 5 Volt als Eins. Alle Spannungen zwischen 0,7 und 1,5 Volt 
können zufällig als Null oder als Eins interpretiert werden. 

Verwenden Sie den Userport als Ausgang, so beachten Sie bitte, 
daß die Ausgänge nur die Belastung eines TTL-Einganges 
aushalten. Sie könnten also keinesfalls eine Leuchtdiode direkt 
anschließen - dies würde nämlich langfristig zur Zerstörung der 
CIA führen. Es empfiehlt sich in jedem Fall immer eine Puf¬ 
ferstufe, wie auch in unserem Beispiel. 

Vermeiden Sie unbedingt, ein auf Ausgabe programmiertes 
Portbit mit einer Fremdspannung von außen zu beaufschlagen, 
dies würde wohl zur unmittelbaren Zerstörung führen. Überle¬ 
gen Sie sich deshalb gut, welche Werte Sie in das 
Datenrichtungsregister laden, damit Sie nicht versehentlich ein 
auf Eingabe vorgesehenes Bit auf Ausgabe programmieren. 

Wenn Sie die Stromversorgung für Ihr Projekt entnehmen 
wollen, beachten Sie bitte, daß Sie die beiden zur Verfügung 
stehenden Spannungen nicht mit mehr als je 100 mA belasten. 
Bei leichten Übertretungen wird wohl zunächst der Kassetten¬ 
recorder streiken - danach verabschiedet sich die Sicherung im 
Inneren des Commodore 128 und evtl, auch die Primärsicherung 
im Trafogehäuse. Zerstört wird dabei (gottlob) jedoch nichts 
weiter. 

Dies sollte nur eine kleine Anleitung zur Bedienung des 
Userports in einem einfachen Anwendungsfall sein. Wollen Sie 
für komplexere Aufgaben auch die anderen Leitungen benutzen, 
so orientieren Sie sich über ihre Handhabung bitte im Kapitel 3 
(CIA). 
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USER-Port 



Abb. 2 


4 Leuchtdioden 
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1.4 Die RS232-Schnittstelle 

Die RS232 - in Europa auch bekannt unter der Bezeichnung 
V24 - öffnet dem Commodore Tür und Tor. Die meisten 
Peripherie-Geräte haben einen RS232-Anschluß; beispielsweise 
der Laserdrucker, mit dem dieses Buch ausgedruckt worden ist. 

Aber auch sonst ist die RS232 in aller Munde - wir befinden 
uns ja bekanntlich im Hacker-Zeitalter, und Telefon-Modems 
laufen eben genau über diese Schnittstelle. 

RS232 ist die Bezeichnung für eine Schnittstelle zur seriellen 
Datenübertragung - parallele Datenübertragung per Telefon ist 
beispielsweise nicht möglich. 

Bei der seriellen Übertragung werden die acht Bits eines Bytes 
nicht parallel, sondern Bit für Bit über die Leitung geschoben. 
Dies hat den Vorteil, daß man mit weniger Leitungen auskommt. 
Der Nachteil ist, daß dieses Verfahren langsamer ist - dafür 
wiederum eignet es sich zur Übertragung von Daten via 
Telefonleitung. Sie sehen, so hat alles seine zwei Seiten. 

Das Betriebssystem des Commodore 128 enthält bereits die 
komplette Software zur Bedienung einer seriellen RS232- 
Schnittstelle - übrigens auch im 64er-Modus. Die Schnittstelle 
selbst ist als RS232-Steckmodul erhältlich, das man auf den 
Userport aufsteckt. Vom Modul wird die erforderliche Pegel¬ 
umwandlung auf +/- 12 Volt selbsttätig übernommen. 

Das Betriebssystem (im folgenden sind beide gleichermaßen 
gemeint) hat der RS232-Schnittstelle die Geräteadresse 2 
zugeordnet. Wird ein logisches File mit dieser Geräteadresse 
eröffnet, so werden zwei Buffer mit der Länge von 256 Byte 
angelegt: ein Ein- und ein Ausgabebuffer. Im 128er-Modus sind 
diese Buffer an den Adressen SOCOO und $0D00 festgelegt. Im 
64er-Modus zeigen zwei Pointer auf diese Buffer: $F7/F8 zeigt 
auf den RS232-Eingabebuffer und $F9/FA zeigt entsprechend 
auf den RS232-Ausgabebuffer. Ferner müssen Sie folgendes im 
64er-Modus beachten: 

Der angelegte Bufferbereich liegt meist im oberen Bereich des 
RAM. Wird in einem BASIC-Programm die RS232 verwendet, 
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sollte das Programm mit dem OPEN-Kommando beginnen, da 
dabei alle Variablen gelöscht werden. Ferner wird nicht geprüft, 
ob noch ausreichend Speicherplatz vorhanden ist. Beim CLOSE- 
Befehl wird dieser Buffer wieder freigegeben, allerdings werden 
hierbei wieder alle Variablen gelöscht, da ein CLR-Kommando 
ausgeführt wird (andere Dateien werden "vergessen"!) Darum 
sollte man erst am Ende des Programmes die Datei wieder 
schließen. Man kann immer nur eine RS232-Datei offen haben. 

Beim Schließen eines RS232-Datenkanals wird eine eventuell 
laufende Übertragung abgebrochen und die Pufferanzeige 
zurückgesetzt. Wünschen Sie dies nicht, so können Sie durch das 
Kommando 

sys 61604 (jsr $F0A4) im 64er-Modus und 
sys 59372 (jsr $E7EC) im 128er-Modus 

warten, bis der komplette Pufferinhalt übertragen worden ist. 
Darum sollten Sie dieses Kommando unbedingt vor dem 
CLOSE-Kommando ausführen. 

Die Parameter für die Datenübertragung werden durch ein 
Kontrollregister und ein Befehlsregister festgelegt. Diese beiden 
Register werden beim Öffnen des Files mit dem Filenamen 
zusammen übergeben. 

Das Kontrollregister dient der Definition der Baudrate und 
bestimmt die Anzahl der zu übertragenden Daten- und Stopp- 
Bits. Die Baudrate bestimmt die Geschwindigkeit der Daten¬ 
übertragung. 1000 Baud bedeutet beispielsweise 1000 Bits in der 
Sekunde. Die Stoppbits werden nach jedem übertragenen 
Datenwort (5-8 Bits) gesendet. 

Das Befehlsregister bestimmt die Übertragungsart, die Paritäts¬ 
prüfung und die Art des Handshakes. 

Beim Kontrollregister bestimmen die untersten 4 Bits die 
Baudrate nach folgender Tabelle: 
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Bit 3 

2 

1 

0 

dezimal 

Baudrate 

0 

0 

0 

0 

0 Anwender-Baudrate, s.u. 

0 

0 

0 

1 

1 

50 


0 

0 

1 

0 

2 

75 


0 

0 

1 

1 

3 

110 


0 

1 

0 

0 

4 

134 

.5 

0 

1 

0 

1 

5 

150 


0 

1 

1 

0 

6 

300 


0 

1 

1 

1 

7 

600 


1 

0 

0 

0 

8 

1200 


1 

0 

0 

1 

9 

1800 


1 

0 

1 

0 

10 

2400 


1 

0 

1 

1 

11 

3600 

(n.i.) 

1 

1 

0 

0 

12 

4800 

<n.i.) 

1 

1 

0 

1 

13 

7200 

(n.i.) 

1 

1 

1 

0 

14 

9600 

(n.i.) 

1 

1 

1 

1 

15 

19200 

(n.i.) 

(N.i.) 

bedeutet 

nicht implementiert - 

- diese Geschwindigkeiten 

können von 

Ihrem Commdore nicht erreicht werden. Wir können 

also nur 

Baudraten zwischen 

50 und 

2400 programmieren. Die 

Anzahl der Datenbits wird durch Bit 5 und 6 bestimmt: 

Bit 6 

5 



dezimal 

Anzahl < 

der Datenbits 

0 

0 



0 

8 1 

Bits 

0 

1 



32 

7 1 

Bits 

1 

0 



64 

6 1 

3 i ts 

1 

1 



96 

5 1 

3 i ts 


Im ersten Byte bestimmt noch Bit 7 die Anzahl der Stoppbits: 

Bit 7 dezimal Anzahl der Stoppbits 

0 0 1 Stoppbit 

1 1 2 Stoppbits 

Nachdem wir das erste Byte definiert haben, müssen wir noch 
das zweite Byte, das Befehlsregister, definieren. 

Bit 0 dezimal Handshake 


0 

1 


0 

1 


3-Draht-Handshake 
X-Draht-Handshake 
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Bit 4 



dezimal 

Übertragungsart 

0 



0 

VolIduplex 

1 



16 

Halbduplex 

1 

Bit 7 

6 

5 

dezimal 

1 

Paritätsprüfung 

X 

X 

0 

0 

Keine Paritätsprüfung 
kein 8. Datenbit 

0 

0 

1 

32 

ungerade Parität 

0 

1 

1 

96 

gerade Parität 

1 

0 

1 

160 

8. Datenbit immer 1 

Keine Paritätsprüfung 

1 

1 

1 

224 

8. Datenbit immer 0 


Noch eine kleine Bemerkung zum Handshake: Haben Sie 3- 
Draht-Handshake gewählt, so werden die Steuerleitungen CTS 
(Clear To Send) und DSR (Data Set Ready) beim Senden und 
Empfangen nicht ausgewertet; dies aber genau bedeutet, daß der 
Rechner die Daten sendet, beispielsweise an einen Drucker, 
unabhängig davon, ob der Drucker die Daten schon verarbeiten 
kann oder nicht. Wollen Sie dies nicht, was bedeutet, das Gerät 
muß in der Lage sein, die Datenübertragung anzuhalten, so 
müssen Sie den X-Draht-Handshake auswählen. Dazu müssen 
die oben erwähnten Steuerleitungen verdrahtet werden; 
Voraussetzung ist, daß der Drucker überhaupt in der Lage ist, 
diese Leitungen bedienen zu können. Wenn man zwei Rechner 
miteinander verbindet, so reicht zumeist der 3-Draht-Handshake 
aus. 

Lassen Sie uns zunächst einmal ein Beispiel durchgehen: Wir 
wollen einen RS232-Datenkanal mit folgenden Parametern 
eröffnen: 

* Übertragungsrate 2400 Baud 

* 7 Datenbits (ASCII) 

* 2 Stoppbits 

* keine Paritätsprüfung 

* 8. Datenbit immer 0 

* Vollduplex 

* 3-Draht-Handshake 
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Nachdem Sie die Bits aus obigen Tabellen zusammengesucht 
haben, eröffnen Sie den Datenkanal mit folgender OPEN- 
Anweisung: 

OPEN 1, 2, 0, CHR$( 10+0+128) + CHR$(0+0+224) 

Zumeist ist das zweite Byte in der OPEN-Anweisung allerdings 
CHR$(0). 

1.4.1 Programmierung eigener Baudraten 

Die verschiedenen Baudraten werden durch die Timer in den 
CIAs realisiert. Man kann aber auch Baudraten programmieren, 
die nicht in der Tabelle zu finden sind, beispielsweise 111 Baud. 
Allerdings kann man dabei nicht die angegebenen 2400 Baud 
überschreiten - hierzu ist die eingebaute Software zu langsam. 
Die CIAs (bzw. die Timer) lösen nach einer von der Baudrate 
abhängigen Zeit einen nicht maskierbaren Interrupt (NM1) aus, 
der die einzelnen zu empfangenen und zu sendenden Bits 
voneinander trennt. Wollen Sie nun eine eigene Baudrate 
verwenden, so können Sie die entsprechenden Timer-Werte als 
drittes und viertes Zeichen des Filenamens beim OPEN- 
Kommando übergeben. Die Timer-Werte lassen sich nach 
folgender kleiner Formel ermitteln: 

T = 492662/BAUD - 101 

Den Wert, den wir bei dieser Formel erhalten, müssen wir in 
Low- und in High-Byte trennen und dann als drittes und viertes 
Zeichen im Filenamen übergeben, ln das Kontrollregister müssen 
wir anstelle der Baudrate dann eine Null definieren (Anwender- 
Baudrate), damit das Betriebssystem weiß, daß wir eine eigene 
Baudrate verwenden wollen. 

Das nun folgende Beispiel verwendet dieselben Parameter wie 
oben, jedoch bei einer Baudrate von 1000. 
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100 BAUD=1000 

110 T =492662/BAUD - 101 

120 TH=INT(T/256): TL=T AKIO 255 

130 OPEN 1,2,0,CHR$(128)+CHR$(224)+CHR$(TL)+CHR$(TH) 

Man kann global sagen, daß man bei eigener Baudraten- 
Programmierung Baudraten von 8 bis 2400 erreichen kann. 


1.4.2 Die Status-Abfrage 

Will man bei der Übermittlung von Daten via RS232 feststellen, 
ob Fehler aufgetreten sind, so kann man sich, wie beim IEC- 
Bus, der Statusvariablen ST bedienen. Allerdings ist die 
Bedeutung von ST bei der RS232 etwas anders. Auch wird die 
Variable ST nach dem Auslesen durch BASIC gelöscht. Soll der 
Statuswert also für mehre Abfragen vorhanden sein, so ist ein 
Abspeichern in eine Zwischenvariable nötig. 

Hier ist nun die bitweise Aufschlüsselung der Statusvariablen 
ST. Ein gesetztes Bit bedeutet, daß dieses Ereignis zutreffend 
ist. 


Bit Beschreibung 


0 Paritätsfehler 

1 Rahmen fehler 

2 Empfängerbuffer voll 

3 Empfängerbuffer leer 

4 CTS (Clcar To Send) Signal fehlt 

5 unbenutzt 

6 DSR (Data Set Ready) Signal fehlt 

7 Break-Signal empfangen 

Im 64er-Modus können Sie bei Programmierung in Maschinen¬ 
sprache angeben, wo die RS232-Ein- und Ausgabebuffer liegen 
sollen. Im 128er-Modus sind diese Buffer ja bereits recht 
praktisch angeordnet. Die Pointer für die Buffer liegen an den 
Adressen $F7-$FA (s.o.). 
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1.5 Der Cartridge-Port 

Der Cartridge-Port - auch bekannt als Expansion-Bus - ist eine 
sinnvolle Einrichtung des Commodore. In diesen Port kann man 
ROM-Module einstecken, seien sie nun mit Spielen oder mit 
BASIC-Erweiterungen o.ä. bestückt. An dieser Schnittstelle 
stehen sowohl Adreß- als auch Datenbus des Rechners zur 
Verfügung (der Rechner ist an dieser Stelle deshalb auch sehr 
empfindlich). 

Doch hier zunächst die Pinbelegung des 44poligen-Steckplatzes: 

I GND 

2-3 +5V 

4 -IRQ; mit der IRQ-Leitung des Prozessors verbunden 

5 CR/-W; mit R/-W des Prozessors verbunden 

6 DOT CLOCK; Punktrastertakt für den VIC; ca. 7,83 MHz 

7 -I/Ol; gewöhnlich =0 im Adreßsbereich $DEOO bis $DEFF 

8 -GAME; Eingang zum AM (Address-Manager) 

9 -EXROM; wie oben 

10 -1/02; gewöhnlich =0 um Bereich $DF00 bis $DFFF 

II -ROML; Ausgang vom AM 

12 BA; Signal vom VIC, welches die Gültigkeit von Lesedaten anzeigt 

13 -DMA; Eingang. 0=Bussystem für den externen Zugriff reservieren 

14-21 CD7-CD0; Datenbus 

22 GND 

A GND 

B -ROMH; Ausgang vom AM 

C -RESET 

D -NMI 

E 02; Systemtakt Ausgang 

F-Y CA15-CA0; Adreßbus 

Z GND 

Sowohl im 64er- als auch im 128er-Modus wird beim Einschal¬ 
ten des Rechners bzw. beim RESET getestet, ob der Cartridge- 
Slot belegt ist. Ist dies der Fall, so wird die Speicherkonfigura¬ 
tion im Adreß-Manager entsprechend darauf eingestellt, und die 
Leitung des Rechners übernimmt dann nicht das eingebaute 
ROM, sondern die Cartridge. Dies ist eine sehr bedienerfreund¬ 
liche Lösung, da der Benutzer nur die Cartridge einschieben und 
den Rechner einschalten muß. 
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2. Der VlC-Chip 


Wie Sie bereits wissen, verfügt der Commodore 128 über drei 
Buchsen zum Anschluß von Bildschirmen. Theoretisch können 
Sie drei Bildschirme gleichzeitig an Ihren Rechner anschließen, 
dies wäre aber unsinnig, weil Sie dann auf zwei Bildschirmen 
denselben Inhalt vorfänden. 

Zwei dieser drei Anschlußbuchsen werden vom VIC-Chip ver¬ 
sorgt. Der VIC-Chip hat sich schon millionenfach im 
Commodore 64 bewährt und ist wegen seiner vielen positiven 
Eigenschaften wie beispielsweise der Möglichkeit, Sprites sehr 
einfach zu programmieren und anzuzeigen, sehr beliebt. Der 
VIC-Chip im Commodore 128 hat allerdings zwei weitere 
Register erhalten, die wir später beschreiben wollen. Er über¬ 
nimmt sowohl die Darstellung des 40-Zeichen-Zeichen-Modus 
als auch die Darstellung von Grafiken. 

Am HF-Anschluß kann jedes Fernsehgerät über den Anten¬ 
neneingang angeschlossen werden - der Computer spielt 
praktisch alternativer Fernsehsender. Dies ist eine relativ 
beliebte - da preiswerte - Lösung, muß man doch lediglich das 
entsprechende Kabel erwerben. Je nach Fernsehgerät ist die 
Bildqualität auch befriedigend, allerdings nicht für längeres 
Arbeiten am Gerät geeignet. Das liegt daran, daß die Trägerfre¬ 
quenz erst vom Rechner aufmoduliert (es muß ja gesendet wer¬ 
den) und dann im Fernsehgerät wieder demoduliert werden muß 
(das Fernsehgerät verhält sich ja genauso, wie bei jedem anderen 
Sender auch - ob Dallas oder Commodore 128 ist egal). Unter 
dieser Mehrfachbehandlung des Bildes leidet die Auflösung dann 
entsprechend stark. 

Hat sich das Portemonnaie vom Kauf des Commodore 128 
wieder erholt, kommt eventuell ein Farbmonitor in Betracht, 
etwa der Commodore 1902. Vielleicht ist man ja auch 
Umsteiger, dann kann man natürlich sofort vom zweiten 
Anschluß fleißig Gebrauch machen: dem Composite-Video- 
Ausgang. Hier muß weder moduliert noch demoduliert werden, 
es ist die reine Bildinformation plus der Synchronimpulse ver¬ 
fügbar. Diese Monitore sind zwar ein wenig teurer, bieten dafür 
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aber eine erheblich bessere Bildqualität, da die Bildauflösung um 
einiges besser ist. Nachteil: Beim abendlichen Streit, ob Fußball 
oder Hobbythek gesehen wird, kann man nicht auf den Monitor 
als Fernsehempfängeralternative zurückgreifen. 

Der VIC-Chip liegt im Commodore 128 an derselben Adresse 
wie im 64er - logischerweise, schließlich wird er im 64er-Modus 
auch angesprochen und muß der Kompatibilität wegen dieselben 
Adressen aufweisen. 

Startadresse: SD000 


Allerdings muß der VIC-II-Chip (wir wollen ihn VIC-II nen¬ 
nen, da er ja nicht 100%-ig identisch mit seinem Vorgänger ist) 
bei 2 MHz Taktfrequenz (Fast-Modus) die Waffen strecken. Der 
VIC-II-Chip ist im Commodore 128 - wie auch in seinem Vor¬ 
gänger - für die Taktversorgung zuständig. Wie Sie vielleicht 
wissen, nutzten die VIC-Chips die Taktlücken (Zeiten, in denen 
der Prozessor nicht auf den Speicher zugreift) aus, um sich zur 
Auffrischung des Videobildes ein Zeichen aus dem Video-RAM 
zu holen. Dies wird gemacht, um die Arbeitsgeschwindigkeit des 
Prozessors nicht zu beschneiden. Wenn der Prozessor nun mit 2 
MHz getaktet wird, wird sowohl die Arbeitsgeschwindigkeit 
verdoppelt als auch die Taktlücke (logischerweise) halbiert. Es 
reicht nun die Taktlücke für den VIC nicht mehr aus, um auf 
den Speicher zuzugreifen. Der VIC-II-Chip schaltet die 
Videoausgabe ab; Sie erhalten ein einfarbiges Bild (wie es einige 
von Ihnen vom Laden von Kassette kennen). Der Videocon¬ 
troller - für die Darstellung des 80-Zeichen-Bildschirmes 
zuständig - ist davon nicht betroffen. Er stellt weiterhin fleißig 
seine 80 Zeichen pro Zeile dar. Das Umschalten von 1 auf 2 
MHz funktioniert übrigens auch im 64er-Modusü Dazu muß 
man Bit 0 des Registers 48 setzen. 

POKE 53296,1 entspricht dem Kommando FAST 

POKE 53296,0 entspricht dem Kommando SLOW 

Diese zwei POKEs lassen sich also auch vom 64er-Modus aus 
anwenden. Allerdings unterscheidet sich das Kommando FAST 
doch ein wenig von o.g. POKE-Kommando: Beim BASIC-Befehl 
FAST wird zusätzlich automatisch der 40-Zeichen-Bildschirm 
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abgeschaltet, so daß man das durch den 2-MHz-Modus 
entstehende bunte Wirrwarr auf dem Bildschirm nicht 
mitansehen muß. 

Der VIC-Chip erfüllt nicht nur alle zur Erzeugung eines Bildes 
notwendigen Aufgaben, sondern kümmert sich zusätzlich um das 
gesamte Timing für den dynamischen Speicher, was den 
Prozessor nicht unwesentlich entlastet. 

Doch hier erst einmal einige Features zum VIC-Chip: 

* 16 Farben 

* 40 Zeichen und 25 Zeilen 

* Grafikfähig mit 320 x 200 Punkten (Hi-Res-Modus) 

* Vierfarbengrafik mit 160 x 200 Punkten ( Multi-Color- 
Modus) 

* Multi-Color-Modus im Textmodus möglich 

* Darstellung und Verwaltung von 8 Sprites 

* Raster- und Spritekollisionsinterrupt 

* Erzeugung eines normgerechten PAL-Signals 

* Verschiebbarer Video-RAM und Zeichengenerator 

* Selbständiges Handling von 16 KByte dynamischen RAM 


Die Pinbelegung des VIC-Chip: 

1-7 D6-D0; Prozessordatenbus. 

8 -IRQ; 0 wenn ein Bit des IMR und des IRR Ubereinstimmen. 

9 -LP; Eingang, Light-Pen-Strobe. 

10 -CS; Prozessorbusaktionen finden nur während CS=0 statt. 

11 R/-W; 0=Übernahme der Daten vom Bus. 

12 BA; =0 wenn Daten bei einem Lesezugriff noch nicht bereitstehen. 

13 VDD; +12V 

14 COLOR; Farbinformation Ausgang 

15 SYNC; Zeilen- und Bildsynchronisationsimpulse 

16 AEC; 0= VIC benutzt Systembus, 1= Bus frei 

17 OOUT; Ausgang Systemtakt 

18 -RAS; dyn. RAM Steuersignal 

19 -CAS; wie oben 

20 GND 

21 OCOLOR; Eingang Farbfrequenz 

22 OIN; Eingang Dotfrequenz 

23 All; Prozessoradressbus 

24-29 A0/A8-A5/A13; gemultiplexter (Video-) RAM-Adreßbus 





30-31 A6-A7; (Video-) RAM-Adreßbus 
32-34 A8-A10; Prozessoradreßbus 
35-38 D11-D8; Daten aus Farbram 

39 D7; Prozessordatenbus 

40 VCC; +5V 

41-44 K0-K3; Keyboard-Interface-Leitungen. Diese Leitungen gehen direkt an 
die erweiterte Tastatur. 


2.1 Registerbelegung des VIC-Chip 

Der VIC-lI-Chip verfügt über 49 Register, die an der Adresse 
$D000 + Registernummer liegen und angesprochen werden kön¬ 
nen. Diese Register sind hier im einzelnen beschrieben: 

REG 0 Sprite-Register 0: X-Koordinate 

Hier sind 8 Bits der X-Bildschirmkoordinate des Sprite 0 enthalten. Bit 
9 befindet sich im Register 16 des VIC-Chip. 

REG 1 Sprite-Register 0: Y-Koordinate 

In diesem Register befindet sich die Y-Position des Sprite 0. Allerdings 
braucht die Y-Koordinate keinen Übertrag (9. Bit), da die Y-Koordi- 
nate maximal den Wert 199 annehmen kann. 

Es folgen an dieser Stelle die Register 2 bis 15 ent¬ 
sprechend für die Sprites Nr. 1 bis 7. Jedes Sprite hat 
ein Registerpaar im VIC-Chip: Sprite 0 hat das 
Registerpaar 0/1. Sprite I das Paar 2/3 ... Sprite 7 das 
Paar 14/15. 

REG 16 MSB der X-Koordinaten 

In diesem Register werden die Überträge der X-Koordinaten der Sprites 
abgelegt. Gesetztes Bit bedeutet MSB (9. Bit) des entsprechenden 
Sprites gesetzt, 0 bedeutet nicht gesetzt. Das MSB von Sprite 0 ist 
durch Bit 0 repräsentiert, das MSB von Sprite 7 entsprechend durch Bit 
7. 

REG 17 Steuerregister 1 

Bit 0-2 : Offset des oberen Bildrandes in Rasterzeilen, 

Bit 3 : 0= 24 Zeilen, 1= 25 Zeilen, 

Bit 4 : 0= Bildschirm aus, 

Bit 5 : 1= Standard Bit-Map-Mode (Grafik), 

Bit 6 : 1= Extended Color Mode (Text), 

Bit 7 : Übertrag aus REG 18. 
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REG 18 Raster-IRQ 

Nummer der Rasterzeile, bei deren Strahldurchlauf ein Raster-IRQ 
ausgelöst werden soll. Das 8. Bit der Rasterzeile befindet sich im REG 
17. 

REG 19 X-Anteil der Bildschirmposition, an der sich der Strahl gerade befand, 
als ein Strobe ausgelöst wurde. 

REG 20 Wie REG 19, jedoch Y-Anteil. 

REG 21 Sprite Enable 

In diesem Register wird angegeben, ob ein Sprite eingeschaltet ist (Bit 
1) oder nicht (Bit 0). Sprite 0 wird durch Bitposition 0 repräsentiert, 
Sprite 7 durch Bit 7 des Registers. 

REG 22 Steuerregister 2 

Bit 0-2 : Offset vom linken Bildrand in Rasterpunkten, 

Bit 3 : 0=38 Zeichen, 1=40 Zeichen (horizontal), 

Bit 4 : Multi-Color-Modus (Grafik). 

REG 23 Sprite Expand X 

Die Sprites können in X-Richtung durch Setzen des entsprechenden 
Bits verdoppelt werden. 

REG 24 Basisadresse von Zeichengenerator und Video-RAM 
Bit 1-3 : Adreßbits 11-13 für Zeichenbasis, 

Bit 4-7 : Adreßbits 10-13 für Video-RAM. 

REG 25 IRR: Interrupt Request Register 

In diesem Register wird angegeben, welche Register als Interrupt-Aus¬ 
löser in Frage kommen sollen. 

Bit 0 : Auslöser ist REG 18, 

Bit 1 : Auslöser ist REG 31, 

Bit 2 : Auslöser ist REG 30. 

Bit 3 : Auslöser ist Pin LP 

Bit 7 : =1 wenn mindestens ein anderes Bit 1 ist. 

REG 26 IMR: Interrupt Mask Register 

Belegung wie REG 25. Bei Übereinstimmung mindestens eines Bits aus 
IRR und IMR (IRR AND IMRoO) wird ein Interrupt ausgelöst (Pin 
IRQ=0). 

REG 27 Prioritätsregister (Sprites) 

Ist das entsprechende Bit gesetzt, so hat das Hintergrundzeichen Vor¬ 
rang vor dem Sprite. 
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REG 28 


REG 29 


REG 30 


REG 31 


REG 32 


REG 33 

biB 

REG 36 


REG 37 
und 

REG 38 


REG 39 
bis 

REG 46 
REG 47 


REG 48 


Multi-Color-Register (Sprites) 

Ist das für ein Sprite repräsentative Bit gesetzt, so ist dieses Sprite in 
Multicolor dargestellt. 

Sprite-Expand Y 

Die Sprites können durch Setzen des entsprechenden Bits in Y-Rich- 
tung doppelt so groß dargestellt werden. 

Sprite/Sprite-Kollision 

Jedem Sprite ist ein Bit zugeordnet. Berühren sich zwei Sprites.so wer¬ 
den die beiden entsprechenden Bits gesetzt. Diese Bits bleiben gesetzt, 
bis man sie ausdrücklich löscht! Gleichzeitig wird im IRR Bit 2 gesetzt. 
Ist auch im IMR Bit 2 gesetzt, so wird ein Interrupt ausgelöst. 

Sprite/Background-Kollision 

Jedem Sprite ist ein Bit zugeordnet. Berührt ein Sprite den Hintergrund 
(Background), so wird das entsprechende Bit gesetzt. Die Bits bleiben 
gesetzt, bis sie ausdrücklich rückgesetzt werden! Im IRR wird Bit 3 
gesetzt; ist auch Bit 3 im IMR gesetzt, so wird ein Interrupt ausgelöst. 

Exterior Color (Rahmenfarbe) 

In diesem Register wird die Rahmenfarbe gesetzt (0-15). 

Background-Color-Register 0-3 (Hintergrundfarben) 
Hintergrundfarbregister 0 bestimmt die Hintergrundfarbe 
im "normalen" Textmodus. Ist der Multi-Color-Modus eingeschaltet, so 
wird ebenfalls auf die Register 1-3 zugegriffen. 

Sprite Multi-Color-Farbe 0/1 

Sprites, die in Multi-Color dargestellt werden, können 

die Hintergrundfarbe annehmen, die Spritefarbe oder die Multi-Color- 

Farbe 0 und 1. 

Color Sprite 0-7 

In diesen Registern werden die Farben der einzelnen Sprites 
abgelegt. 

Key board-Control-Register 

Dieses Register beinhaltet den Status der vier Keyboard-Interface-Pins 
K0 bis K3. Bits 0 bis drei sind dafür zuständig. Bits 4-7 sind unbenutzt 
und werden beim Lesen auf 1 sein. 

2-MHz-Bit 

Bit 0 dieses Registers gibt an, ob mit einem oder mit zwei Megahertz 
gefahren wird. Bits 1-7 sind unbenutzt. Bei gesetztem Bit werden alle 
Zugriffe vom VIC-II-Chip auf den Speicher abgebrochen, ausgenommen 
ist der Refresh des dynamischen RAMs. 
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Folgendes muß unbedingt vorweggenommen werden: Alle nun 
folgenden Beispielprogramme geben Sie bitte im 64er-Modus 
ein, den Sie durch GO 64 erreichen. Dies ist nötig, weil der 
BASIC-Interpreter Eingaben praktisch unwirksam macht. Schal¬ 
ten Sie beispielsweise die Grafik durch die nötigen POKE- 
Anweisungen ein, so werden Sie lediglich ein Aufblitzen auf 
Ihrem Bildschirm sehen. Dasselbe gilt für die Programmierung 
der Sprites etc. Das liegt daran, daß der Interpreter durch 
Interrupts gesteuert seinen Willen durchsetzen will (und muß). 
Beispielsweise können Sie durch das MOVSPR-Kommando eine 
gleitende Bewegung eines Sprites erzeugen; dies geht nur mit der 
Interrupt-Technik. Wir sagen Ihnen im Tips-und-Tricks-Teil 
aber noch, wie man diese Steuerung umgehen kann. 

Aber selbst die Koordinaten der Sprites, die Farbregister und 
vieles mehr wird vom Interpreter stets korrigiert. Sehr hinderlich 
ist dies, will man die Register des VIC direkt programmieren 
und nicht die "Kopien" des BASIC. 

Wie bereits erwähnt, geben Sie die Beispielprogramme entwt er 
im 64er-Modus ein, oder Sie schreiben als erste Zeile in alle 
folgenden Programme das folgende Kommando: 

0 POKE 216, 255 

Mit dieser POKE-Anweisung wird der BASIC-Interrupt auf¬ 
gefordert, seine Korrekturen zu unterlassen. 

Alle folgenden Beispielprogramme bedienen sich keiner speziel¬ 
len BASIC-7.0-Kommandos, damit die Programme auch im 
64er-Modus benutzt werden können, und um eine möglichst 
große Maschinennähe zu erlangen. POKE-Anweisungen eignen 
sich hier besonders, da sie leicht in Maschinensprache zu über¬ 
setzen sind. 

2.2 Die Betriebsarten des VIC 

Wie Sie vielleicht schon wissen und wie man den Registern ent¬ 
nehmen kann, gibt es einige Möglichkeiten der Bildschirmge¬ 
staltung mit dem VIC. Im 128er-Modus haben Sie dank der 
komfortablen BASIC-Kommandos nicht soviel Mühe, diese 
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Möglichkeiten auszuschöpfen, wie im 64er-Modus. Im letzteren 
müssen Sie mittels langer und komplizierter POKE-Befehle die 
verschiedenen Modi umschalten, was nebenbei auch nicht gerade 
der Übersichtlichkeit der Programme dienlich ist. Auch die 
Programmierung der Sprites ist im 64er-Modus bei weitem nicht 
so komfortabel wie im 128er-Modus, in dem man ja Sprites 
fließend durch das Kommando MOVSPR bewegen kann. Sollten 
Sie sich sagen: "Dann interessiert mich der nähere Aufbau des 
VIC-Chips nicht, denn ich will ohnehin nicht im 64er-Modus 
programmieren", so haben Sie nur bedingt recht. Wollen Sie 
nämlich in Maschinensprache programmieren, so kommen Sie 
nicht drum herum, sich mit der Registerbelegung etwas näher zu 
befassen, was wir nun tun wollen: 


2.3 Sprites 

Sprites sind bewegliche, frei definierbare Figuren mit einer 
Auflösung von 24 mal 21 Punkten. Sie können Sprites entweder 
zweifarbig (Spritefarbe und Hintergrundfarbe) oder im Multi- 
Color-Modus (4 Farben, dafür aber nur halbe Auflösung mit 12 
mal 21 Punkten) darstellen. Im VIC-Chip sind 8 Sprites vorge¬ 
sehen, die gleichzeitig über den Bildschirm bewegt werden kön¬ 
nen. Die Sprites können ihre Positionen im Rahmen von 512 mal 
256 Rasterpunkten einnehmen, was bedeutet, daß man Sprites 
durchaus auch außerhalb des Bildschirmes bewegen kann. 

Ist ein Sprite im Zweifarbenmodus definiert, so bedeutet 
gesetztes Bit einen gesetzten Punkt in der für dieses Sprite 
definierten Farbe. Ein nicht gesetztes Bit bedeutet transparent, 
also Hintergrundfarbe wird dargestellt. Im Multi-Color-Modus 
werden je zwei Bits zu einem Punkt zusammengefaßt, was 
bedeutet, daß man 4 Farben definieren kann. Die möglichen 
Bitkombinationen bedeuten im einzelnen folgende Farbe: 

00: Transparent, Hintergrund färbe (REG 33) 

01: Multi-Color-Register 0 (REG 37) 

11: Multi-Color-Register 1 (REG 38) 

10: Sprite-Farbregisler (REG 39-46) 

Sie sehen, daß zwei Farben (Multi-Color-Register 0 und 1) 
jeweils für alle Sprites gleichzeitig definiert werden. Die Sprites 
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können sich höchstens in einer Farbe unterscheiden. Lassen Sie 
uns aber einmal ein Sprite zu Fuji definieren, d.h. wir bedienen 
uns nicht der bequemeren BASIC-Kommandos, sondern 
programmieren alles in BASIC, das sowohl im 128er- als auch 
im 64er-Modus ausgeführt werden kann. Zuerst müssen wir ein 
Sprite mittels DATA-Zeilen definieren (der Sprite-Editor 
existiert jetzt für uns nicht). Diese DATA-Zeilen sollen wie 


folgt aussehen: 


1000 

DATA 

000,000,000 

1010 

DATA 

000,000,000 

1020 

DATA 

000,000,000 

1030 

DATA 

000,000,000 

1040 

DATA 

000,000,000 

1050 

DATA 

000,000,000 

1060 

DATA 

000,000,000 

1070 

DATA 

003,255,255 

1080 

DATA 

000,002,000 

1090 

DATA 

192,170,128 

1100 

DATA 

194,150,080 

1110 

DATA 

234,150,080 

1120 

DATA 

194,170,168 

1130 

DATA 

192,170,168 

1140 

DATA 

000,032,128 

1150 

DATA 

000,170,160 

1160 

DATA 

000,000,000 

1170 

DATA 

000,000,000 

1180 

DATA 

000,000,000 

1190 

DATA 

000,000,000 

1200 

DATA 

000,000,000 


Im Normalfall malt man sich vor der Programmierung eines 
Sprites die Figur, die man darzustellen wünscht, auf einem Blatt 
Papier auf und unterteilt diese dann in die genannten 24 mal 21 
Punkte. Es ergeben sich 21 Zeilen zu je 24 Punkten. Diese 24 
Punkte teilt man in drei 8er-Päckchen ab, die man bekanntlich 
als ein Byte abspeichern kann. Jedes ausgefüllte Kästchen 
bedeutet gesetztes Bit, ein leeres Kästchen bedeutet ungesetztes 
Bit. Bei den Multi-Color-Sprites sieht es etwas schwieriger aus: 
Da müssen Sie anhand einer selbstdefinierten Farbentabelle eine 
der vier Bitkombinationen einsetzen. Achtung: Sie müssen sich 
vorher genau überlegen, welche Farbe Sie als gemeinsame für 
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alle Sprites definieren und welche Sie als individuelle Farbe für 
das einzelne Sprite haben wollen. Nach getaner Arbeit können 
Sie die einzelnen Bytes ausrechnen und aufschreiben. Diese 
notierten Werte ergeben dann eine DATA-Zeilen-Kolonne, wie 
in unserem Beispiel. Unser Beispiel-Sprite stellt einen 
Hubschrauber dar, so viel vorweg. Sie können es auf dem Papier 
natürlich nicht erkennen (oder Sie sind schon so sehr Insider, 
daß es bereits gefährliche Ausmaße angenommen hat). Natürlich 
ist die Erstellung von Sprites mit Spritegeneartoren einfacher; 
ein solcher ist om 128er-Modus enthalten. 


2.3.1 Adresse des Sprites 

Nun gut: Wir haben unsere Daten und müssen diese irgendwo im 
Speicher ablegen. Es gibt für jedes Sprite einen Pointer, der dem 
VIC-Chip mitteilt, wo er das jeweilige Sprite vorfindet. Diese 
Pointer befinden sich an den Adressen 2040 bis 2047, schließen 
also unmittelbar an das Video-RAM an. Pro Sprite benötigen 
wir 3 x 21 = 63 Bytes. Sie haben schon richtig erkannt, daß der 
Pointer lediglich aus einem Byte besteht und somit also keine 
absolute Adresse angeben kann. Es wird vielmehr die Position in 
Pointer mal 64 angegeben, was für exakt 16 KByte ausreicht, 
mehr kann der VIC-Chip ohnehin nicht auf einmal adressieren. 
Sollten Sie die Startadresse des Video-RAM verschieben, so 
verschieben sich natürlich auch die Pointer für die Sprites sowie 
deren Startadressen im entsprechenden Ausmaß! Geben wir 
beispielsweise einmal an, daß Sprite Nummer 1 an Adresse 13 * 
64 = 832 definiert ist. 

POKE 2041,13 

Adresse: 2040 2041 2042 2043 2044 2045 2046 2047 

Sprite#: 0 1 2 3 3 4 5 6 

Sie könnten natürlich durchaus auch weitere Sprites auf diese 
Speicheradresse legen, was bedeuten würde, daß mehrere Sprites 
dasselbe Aussehen hätten. Doch um unser Beispiel-Sprite dar¬ 
zustellen, müssen wir zuerst die vorhandenen Werte auch in die 
Speicheradressen POKEn: 
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10 FOR 1=0 to 62 
20 READ D 
30 POKE 13*64+1,0 
40 NEXT 

50 POKE 2041,13: REM Sprite 1 an Adresse 832 


2.3.2 Einschalten 

Wenn Sie das Programm starten, so werden Sie feststellen, daß 
unser Programm noch nicht ausreicht. Wir müssen nämlich das 
Sprite noch explizit einschalten! Dies machen wir am besten 
durch logisches ODER-Verknüpfen des entsprechenden Bits im 
Register 21, da durch direktes POKEn andere Sprites evtl, 
gelöscht würden. 

POKE 53248+21 ,PEEK(53248+21) OR 2 

schaltet Sprite 1 ein. Wollen Sie beispielsweise Sprite 0 und 7 
einschalten: POKE 53248+21 ,PEEK(53248+21) OR 1 OR 128, 
oder besser gleich: POKE 53248+21 ,PEEK(53248+21) OR 129. 
Sollten Sie wiederum Sprite 1 ausschalten wollen: 

POKE 53248+21,PEEK(53248+21) AND NOT(2) 

Wenn Sie mehrere Sprites gleichzeitig ausschalten wollen, 
beispielsweise Sprite 0 und 7: 

POKE 53248+21,PEEK(53248+21) AND NOT(l OR 128) 

so erreicht man dies durch logisches ODER-verknüpfen der zu 
löschenden Sprites, die man anschließend negiert und dann 
AND-verknüpft. Wir schalten unser Sprite im Beispielprogramm 
ein: 


60 POKE 53248+21, 2: REM Sprite 1 einschalten 

Sprite: 76543210 
Bit: 76543210 
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2.3.3 Farbe 

Wir wollen aber auch noch die Farbe des Sprites definieren, da 
man sonst unter Umständen überhaupt nichts sieht: 

70 POKE 53248+39+1, 5: REM Grüne Farbe 

Dies geschieht in den Registern 39 bis 46: Register 39 definiert 
die Farbe für Sprite Nr. 0; Register 46 definiert entsprechend 
die Farbe für Sprite Nr. 7. 

Folgende Farben stehen Ihnen zur Verfügung: 


0 

Schwarz 

8 

Orange 

1 

Weiß 

9 

Braun 

2 

Rot 

10 

Hellrot 

3 

Türkis 

11 

Grau 1 

4 

Violett 

12 

Grau 2 

5 

Grün 

13 

Hellgrün 

6 

Blau 

14 

Hellblau 

7 

Gelb 

15 

Grau 3 

2.3.4 Position 




Nachdem Sie diese Angaben gemacht und das Programm mit 
RUN gestartet haben, werden Sie immer noch nichts sehen, da 
die Position des Sprites sich außerhalb des Bildschirmes befindet. 
Um die X- und Y-Position des Sprites 1 anzugeben, müssen wir 
die Register 2 und 3 beschreiben: 

80 POKE 53248+2, 50: REM X-Koordinate 

90 POKE 53248+3, 70: REM Y-Koordinate 

Sie können Ihr Sprite durch Schleifensteuerung etc. nun über 
den gesamten Bildschirm bewegen. Viele Leser stöhnen nun 
vielleicht schon auf: Sie erkennen, was BASIC 7.0 Ihnen alles an 
Arbeit bei der Programmierung von Sprites abnimmt. Es kommt 
aber noch "dicker": Wollen Sie beispielsweise Ihr Sprite an der 
X-Koordinate 310 positionieren, so reichen 8 Bits leider nicht 
mehr aus. Hierzu müssen Sie das neunte Bit des entsprechenden 
Sprites im Register 16 setzen (bzw. rücksetzen, wenn das Sprite 
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sich von rechts nach links bewegen soll). Wir positionieren unser 
Sprite an X-Koordinate 310: 

POKE 53248+16, 2: REM Sprite 1 - 8. Bit setzen 

Wollen Sie vermeiden, daß andere Sprites von diesem Kom¬ 
mando in Mitleidenschaft gezogen werden, so müssen Sie wieder 
explizit das entsprechende Bit ansprechen: 

POKE 53248+16, PEEK(53248+16) OR 2 

Lassen Sie unser Sprite einmal von links nach rechts über den 
Bildschirm wandern: 

FOR 1=0 TO 400 

POKE 53248+2, I AND 255:REM Unteren 8 Bit ausmaskieren 
POKE 53248+16, PEEKC53248+16) AND NOT 2 OR 2*ABS(I>255) 

NEXT I 

Etwas komplizierter ist die vorletzte Zeile: Es wird das MSB des 
Sprites 1 durch AND NOT 2 auf alle Fälle erst einmal rückge¬ 
setzt. Durch das Anhängsel OR 2*ABS(I>255) wird das ent¬ 
sprechende Bit allerdings wieder gesetzt, wenn es nötig sein 
sollte (X-Koordinate ist größer 255). Dies alles geschieht sogar, 
ohne die anderen Bits zu beeinflussen. 

2.3.5 Vergrößern 

Eine weitere wichtige und teilweise recht nützliche Möglichkeit 
ist, die Sprites in horizontaler und/oder vertikaler Richtung in 
der Größe zu verdoppeln. Der VIC-Chip stellt für diesen Zweck 
zwei Register zur Verfügung: X-Expand und Y-Expand. Auch 
hier wird wieder jedes Sprite durch ein Bit repräsentiert. Durch 
Setzen dieses Bits wird das entsprechende Sprite in X- oder Y- 
Richtung vergrößert. Wir wollen unser Sprite nun sowohl in X- 
als auch in Y-Richtung verdoppeln: 


POKE 53248+23,2: REM Verdopple Sprite 1 in Y-Richtung 
POKE 53248+29,2: REM Verdopple Sprite 1 in X-Richtung 
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Da wir unsere Sprites sowohl in X- als auch in Y-Richtung 
verdoppeln können, besteht also die Möglichkeit, die Sprites um 
den Faktor Vier zu vergrößern. Sicherlich eine interessante 
Sache bei der Realisierung einer Laufschrift. 


2.3.6 Hintergrund 

Sicherlich haben Sie beim Eingeben des einen oder anderen 
Beispiels bemerkt, daß beim Scrollen des Bildschirmes die 
Sprites nicht mitgescrollt wurden. Auch bleiben die Sprites beim 
Löschen des Bildschirmes weiterhin sichtbar. Die Sprites sind 
also ausschließlich durch ihre Position bestimmt. Wollen Sie ein 
Sprite aus dem Bildschirm haben, so können Sie es 

a) ausschalten und 

b) außerhalb des Bildschirmes positionieren. 


Sprites haben noch eine weitere bemerkenswerte Eigenschaft: 
Wenn Sie mit dem Textcursor über ein Sprite fahren und Text 
darüber schreiben, so verdeckt das Sprite die Buchstaben - die 
Buchstaben sind nur an den Stellen sichtbar, an denen das Sprite 
transparent ist. Es entsteht fast der Eindruck eines 3- 
dimensionalen Bildes, da man sich Sprites und Hintergrund (so 
wollen wir die Nicht-Sprites einmal nennen) als zwei verschie¬ 
dene Schichten vorstellen kann, die auch vollkommen anders 
behandelt werden. Es ist möglich, dem VIC-Chip mitzuteilen, 
daß wir einzelne Sprites nun aber nicht im Vordergrund haben 
wollen. Es gibt für jedes Sprite eine Prioritätsstufe, die dem VIC 
mitteilt, ob das Sprite oder der Hintergrund Vorrang hat. In 
unserem Beispiel würden die Buchstaben sich durchsetzen und 
das Sprite überdecken. Um ein Sprite hinter den Hintergrund zu 
bewegen, muß das entsprechende Bit im Register 27 gesetzt 
werden. Wir wollen unserem Hubschrauber einmal keine 
Priorität geben: 

PORE 53248+27,2 

Und schon hat sich der Hubschrauber hinter den Buchstaben 
versteckt. Um ihn wieder hervorzuholen, müssen wir lediglich 
das Bit wieder rücksetzen: 
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POKE 53248+27,0 
Register 27: Hintergrund Priorität 

Bit: 76543210 

Sprite: 76543210 

Sie haben sicherlich schon festgestellt, daß alle Register auf 
dieselbe Art und Weise aufgebaut sind: Ein Byte reicht aus, um 
alle 8 möglichen Sprites zu repräsentieren. Dabei steht Bit 0, das 
niederwertigste Bit, immer für Sprite 0 (Bit 7 entsprechend für 
Sprite 7). 

Sie fragen sich, was wohl passiert, wenn mehrere Sprites über¬ 
einander liegen? Auch hierfür gibt es feste Regeln, allerdings 
können wir hierauf keinerlei Einfluß nehmen. Sollten sich zwei 
oder mehr Sprites überlagern, so liegt das Sprite mit der 
niedrigsten Nummer oben. Sollten sich also zum Beispiel Sprite 0 
und Sprite 6 überlagern, so würde man von Sprite 0 alles sehen, 
während man von Sprite 6 bestenfalls die Silhouette sieht. Sprite 
6 liegt also auf Sprite 7, Sprite 5 auf Sprite 6 ... bis dann Sprite 
0 auf Sprite 1 thront. Je niedriger also die Spritenummer, desto 
höher die Priorität! 


2.3.7 Kollision: Sprite-Sprite 

Es ist auch möglich, daß sich zwei Sprites überlagern, d.h. daß 
sie wenigstens einen gemeinsamen Punkt besitzen. Oft ist es von 
Vorteil, wenn man von einer solchen Berührung erfahren kann, 
beispielsweise bei Spielen. Der VIC-Chip hat auch hier ein 
Register parat: Das Register 30 gibt uns Auskunft, ob und 
welche Sprites kollidiert sind. Wenn beispielsweise Sprite 0 und 
Sprite 6 kollidierten, so werden Bit 6 und Bit 0 im Register 30 
gesetzt. Treffen mehr als zwei Sprites aufeinander, so werden 
entsprechend mehr Bits gesetzt. In unserem Beispiel - Sprite 0 
und Sprite 6 treffen aufeinander - würden wir folgendes 
Ergebnis erhalten: 


PRINT PEEK(53248+30) 
65 
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Die Zahl 65 setzt sich zusammen aus gesetztem Bit 0 und 
gesetztem Bit 6: 64 + 1 = 65. Nachdem Sie das Register 30 
ausgelesen haben, sollten Sie es unbedingt wieder auf Null 
zurücksetzen, da dies nicht automatisch geschieht. Die Folge 
wäre, daß Sie eine weitere Kollision nicht von der erkannten 
unterscheiden könnten - also folgt unserem o.g. Beispiel: 

POKE 53248+30,0 


2.3.8 Kollision: Sprite-Hintergrund 

Sprites können natürlich auch Hintergrundzeichen berühren. So 
ist es dann auch möglich abzufragen, ob unser Hubschrauber 
den Cursor berührt oder nicht. Diese Abfrage ist davon unab¬ 
hängig, ob jetzt das Sprite oder das Hintergrundzeichen Vorrang 
hat. Sollte ein Sprite ein Hintergrundzeichen berühren, so wird 
das entsprechende Bit im Register 31 gesetzt. Es gilt hier sonst 
dasselbe wie für Register 30: Löschen des Registers nach dem 
Auslesen ist oberstes Gebot. Sie wissen allerdings lediglich, daß 
ein Sprite ein Hintergrundzeichen berührt. Sie wissen nicht, 
welches Hintergrundzeichen betroffen ist, doch das ist zumeist 
egal. Allerdings besteht die Möglichkeit, dies anhand der Posi¬ 
tion zu bestimmen. 


2.3.9 Multi-Color-Sprites 

Sicherlich ein "Sahnehäubchen" auf die Möglichkeiten der 
Spriteprogrammierung ist die Möglichkeit der Definition von 
Sprites in Multi-Color. Multi-Color bedeutet nichts anderes als 
vierfarbig. Eine dieser Farbe ist die Hintergrundfarbe, zwei 
weitere Farben sind für alle acht Sprites identisch. Nur eine 
Farbe ist für jedes Sprite frei definierbar. Wollen Sie mehrere 
Sprites in Multi-Color darstellen, so ist vorher sorgsam zu 
überlegen, welche Farben in allen Sprites Vorkommen sollen. 
Diese müssen Sie dann als die zwei fixen Sprite-Farbregister 
definieren. Ein kleines Manko haben Multi-Color-Sprites aller¬ 
dings: Die Auflösung halbiert sich. Doch ist dies kaum als 
Manko zu bezeichnen, da die Auflösung in aller Regel mehr als 
ausreicht. Sie haben nun also eine Auflösung von 12 mal 21 
Punkten. Die Größe des Sprites bleibt allerdings erhalten, da die 
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Punkte doppelt so breit werden - zwei Bits definieren je eine 
Farbe. Die verschiedenen Bitkombinationen haben im einzelnen 
folgende Bedeutung: 

00 Der Punkt hat die Hintergrund färbe. 

(Man sieht also keinen Punkt). 

01 Die Farbe wird aus Register 37 geholt. 

10 Die Farbe wird aus dem jeweiligen Sprite-Farbre- 
gisler geholt. 

11 Die Farbe wird aus Register 38 geholt. 

Wir müssen dem VIC-Chip allerdings auch mitteilen, welche 
Sprites Multi-Color-Sprites sind. Dies geschieht, natürlich 
wieder bitweise, in Register 28. Wir wollen unseren Hubschrau¬ 
ber einmal zum Multi-Color-Sprite befördern: 

POKE 53248 + 28, 2 

Und siehe da: Er leuchtet in schillernden Farben. (Oder nicht?) 
Jetzt können wir es ja verraten: Der Hubschrauber sah nur des¬ 
halb so häßlich aus, weil wir ein Multi-Color-Sprite definiert 
haben. Die verschiedenen Bitkombinationen haben natürlich 
beim einfarbigen Sprite einen anderen Charakter als beim MC- 
Sprite. Als kleinen Leckerbissen wollen wir Ihnen noch ein 
Beispielprogramm anbieten, das unseren Hubschrauber zum 
Leben erweckt. Sie können auch an diesem Programm erkennen, 
wie man Sprites programmieren sollte, sei es nun in BASIC oder 
entsprechend in Maschinensprache. 


10 REM SPRITE DEMONSTRATIONSPROGRAMM - DER HUBSCHRABSCHRAB 

20 V=53248: STARTADRESSE DES VIC-CHIP 

30 POKE V+32,15: POKE V+33,14: REM HINTERGRUNDFARBEN 


40 PRINT "<Ctrl-7>" 
50 POKE V+21,3 
60 POKE V+28,3 
70 POKE V+39,6 
80 POKE V+40,2 
90 POKE V+37,14 
100 POKE V+38,0 
110 POKE 2040,13 
120 POKE 2041,13 
130 FOR 1=0 TO 62 


REM BETAETIGEN SIE <Ctrl> UND 7 

REM EINSCHALTEN VON SPRITE 0 UND 1 

REM SPRITE 0 UND 1 SIND MULTI-COLOR 

REM FARBE VON SPRITE 0=BLAU 

REM FARBE VON SPRITE 1=R0T 

REM MULTI-COLOR-FARBE 1=HELLBLAU 

REM MULTI-COLOR-FARBE 2=SCHWARZ 

REM SPRITE 0 AUS BEREICH 832 BIS 895 

REM SPRITE 1 EBENSO 

REM SCHLEIFE LIEST DATEN EIN 
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HO : READ X 
150 : POKE I+832.X 
160 NEXT I 


REM EINLESEN DES WERTES 
REM SPEICHERN DES UERTES 
REM ENDE DER SCHLEIFE 


170 POKE V+0,24: POKE V+1,50: REM POSITION VON SPRITE 0 

180 POKE V+2,60: POKE V+3,50: REM POSITION VON SPRITE 1 

190 FOR D=1 TO 2000: NEXT : REM WARTESCHLEIFE 

200 FOR 1=0 TO 500: : REM SCHLEIFE 

210 : POKE V,I AND 255 : REM X-KOORDINATE SPRITE 0 

220 : POKE V+2,(500-1) AND 255: REM X-KOORDINATE SPRITE 1 
230 : POKE V+1,50+(I AND 7) : REM Y-KOORDINATE SPRITE 0 

240 : POKE V+3,50-(I AND 7) : REM Y-KOORDINATE SPRITE 1 

250 NEXT 

260 GOTO 200: REM NOCHMAL? 

1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 000,000,000 
1030 DATA 000,000,000 
1040 DATA 000,000,000 
1050 DATA 000,000,000 
1060 DATA 000,000,000 
1070 DATA 003,255,255 
1080 DATA 000,002,000 
1090 DATA 192,170,128 
1100 DATA 194,150,080 
1110 DATA 192,170,168 
1120 DATA 000,032,128 
1130 DATA 000,170,160 
1140 DATA 000,000,000 
1150 DATA 000,000,000 
1160 DATA 000,000,000 
1170 DATA 000,000,000 
1180 DATA 000,000,000 
1190 DATA 000,000,000 
1200 DATA 000,000,000 


Sicherlich ist es um einiges komplizierter, Multi-Color-Sprites 
anzufertigen als Einfarben-Sprites, bei denen ein Punkt auf dem 
Papier auch einem Punkt auf dem Bildschirm entspricht. Aber es 
gibt ja zum Glück Sprite-Editoren, die einem die Arbeit 
erheblich erleichtern. Ein solcher ist auch in BASIC 7.0 
eingebaut (SPRDEF). Man muß ja nicht immer bei Adam und 
Eva anfangen. Allerdings, das wurde ja bereits erwähnt, ist es 
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für die Maschinenprogrammierer unter Ihnen unerläßlich zu 
wissen, wie die Sprite-Programmierung ohne die komfortablen 
BASIC-Kommandos funktioniert, dazu die Beispiele. 

Die Sprites, die Sie mit dem in BASIC 7.0 eingebauten Sprite- 
Editor definieren und benutzen, werden im RAM im Speicher¬ 
bereich $0E00-$1000 abgespeichert. 

Übrigens kann man Sprites in jedem der möglichen Modi mit 
dem Hintergrund überlagern lassen, sei es nun im Text-, 
Grafik- oder Multi-Color-Grafik-Modus. 

2.3.10 Interrupts durch den VIC-Chip 

Der VIC-Chip ist auch in der Lage Interrupts auszulösen. 
Interrupts unterbrechen ein laufendes Maschinenprogramm, 
wenn ein bestimmtes Ereignis eingetreten ist. Es gibt vier 
verschiedene Interrupt-Quellen beim VIC: 

* Der Lightpen 

* Der Rasterzeilen-Interrupt 

* Eine Sprite/Sprite-Kollision 

* Eine Sprite/Hintergrund-Kollision 

Nicht zuletzt dank der Möglichkeit, Rasterzeilen-Interrupts 
auslösen zu können, ist es im BASIC 7.0 möglich geworden, Text 
und Grafik zu mischen (mittels des GRAFIK-Kommandos). 
Auch hat der Rasterzeilen-Interrupt eine Menge Spiele sehr 
verfeinert. Wenn Sie einen Interrupt programmieren wollen, so 
müssen Sie im IMR-Register durch Setzen der entsprechenden 
Bits angeben, welche Interrupt-Quelle(n) gewünscht ist (sind). 
Ferner müssen Sie den Interrupt-Vektor auf Ihre eigene 
Interrupt-Routine verbiegen - damit Sie auch auf den Interrupt 
reagieren können. Sollte der Interrupt vom CIA1 kommen, so 
müssen Sie entsprechend in die Kernal-Routine verzweigen. Der 
CIA1 löst alle 1/60 Sekunden einen Interrupt aus, um die 
Tastatur abzufragen. Es wird dann ebenfalls in Ihre Interrupt- 
Routine verzweigt. Durch Abfragen des Registers 13 ICR des 
C1A1 können Sie feststellen, ob der Interrupt vom CIA1 kam. 
Sollte der Interrupt vom VIC-Chip kommen, so ist das 7. Bit des 
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Registers IRR (Interrupt Request Register) des VIC-Chips 
gesetzt, sowie das Bit des Auslösers. 

Das Bit des Auslösers brauchen Sie natürlich nur dann abzufra¬ 
gen, wenn mehrere Auslöser in Frage kommen sollten. Wenn Sie 
lediglich den Rasterzeilen-Interrupt benutzen, so reicht die 
Abfrage des Bit 7 voll aus. Im IMR (Interrupt Mask Register) 
können Sie angeben, welche Interrupt-Quellen in Frage 
kommen. In Register 18 und 17 (Übertrag) können Sie die 
Rasterzeile programmieren, bei der ein Interrupt ausgelöst 
werden soll. Wird diese Zeile beim Bildschirmaufbau durch¬ 
laufen, so wird ein Interrupt ausgelöst. Wenn die Routine darauf 
reagiert, befindet sich der Kathodenstrahl allerdings 
erfahrungsgemäß schon einige Zeilen tiefer. Diese Zeitver¬ 
zögerung muß man in seine Berechnungen einkalkulieren. 

Die Möglichkeiten, die sich durch Interrupt-Programmierung 
bieten, sowie die Flut an Programmierkniffen zu erwähnen bzw. 
zu erläutern, würde allerdings an dieser Stelle den Rahmen 
sprengen. Erlauben Sie uns. Sie an entsprechende Literatur zu 
verweisen. 


2.4 Normale Zeichemlarstellung 

Unter diesem Begriff dürfen Sie den "normalsten" aller Modi 
verstehen: die Textdarstellung. Dieser Modus ist auch nach dem 
Einschalten des Gerätes automatisch gesetzt. Es werden 1000 
Zeichen aus dem Video-RAM als Textseite dargestellt; dafür 
wird Zeichen für Zeichen aus dem Video-RAM gelesen. Jedes 
Zeichen hat einen Code, der als Zeiger im Zeichengenerator 
verwendet wird, um das im Zeichengenerator unter diesem Code 
abgespeicherte Bitmuster an der aktuellen Position darzustellen. 
Auf diese Art und Weise kann man 256 verschiedene Zeichen 
auf dem Bildschirm darstellen. Im Commodore 128 sind vier 
dieser Zeichensätze gespeichert: Sie können mittels 

Shift/Commodore zwischen Groß-/Kleinschrift und Groß- 
/Grafikmodus umschalten. Dies sind schon einmal zwei 
Zeichensätze. Weiterhin können Sie aber noch zwischen Ascii- 
und DIN-Tastatur auswählen, wodurch noch zwei weitere 
Zeichensätze verfügbar sind. 
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Für jedes Zeichen auf dem Bildschirm gibt es noch eine separate 
Speicherstelle im Farb-RAM, die die Farbe des Zeichens 
definiert. Bei der Darstellung der Zeichen wird bei gesetztem Bit 
im Zeichenmuster (das aus dem Zeichengenerator geholt wird) 
die Farbe aus dem unteren Nibble des Farb-RAMs geholt. Hier 
können 16 Farben definiert werden. Ist ein Bit nicht gesetzt, so 
wird die Farbe aus dem Hintergrundfarbregister 0 geholt; der 
Punkt ist also transparent. 


2.4.1 Verschieben des Video-RAMs 

Eine nützliche Eigenschaft des VIC-Chips ist die Möglichkeit, 
Video-RAM und/oder Zeichengenerator zu verschieben. Auf 
diese Weise kann man beispielsweise zwei oder mehr Textseiten 
realisieren: Während man die eine anzeigt, kann man die andere 
schon im Hintergrund aufbauen. Dies gilt in gleicher Weise auch 
für den Grafikmodus. Allerdings muß man beachten, daß das 
Farb-RAM unverschiebbar ist. 

Wie bereits erwähnt, kann der VIC-Chip lediglich 16 KByte 
adressieren. Normalerweise werden die ersten 16 KByte der 
Bank 0 adressiert - das Video-RAM befindet sich an Adresse 
S0400-07FF. Um dieses Video-RAM in 1-KByte-Schritten zu 
verschieben, dient das Register 24 des VIC-Chips. Die Bits 4-7 
dieses Registers repräsentieren die Adreßbits 10-13 des Video- 
RAM. Die Adresse $0400 sieht bitweise wie folgt aus: 

0000 1000 0000 0000 = S0400 

Das ganz linke Bit ist Adreßbit 15, das ganz rechte Bit nennt 
man Adreßbit 0. Die Adreßbits 10-13 lauten also: 0010. Diese 
Bitkombination muß sich auch in Register 24, Bits 4-7, 
befinden. Wollen Sie nun das Video-RAM um ein KByte 
verschieben, so wäre die Adresse des Video-RAM $0800. 


0001 0000 0000 0000 = S0800 
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Die Adreßbits 10-13 lauten nun 0100. Um beispielsweise diese 
Adresse in Register 24 zu schreiben, muß man Bits 4-7 erst 
einmal ausmaskieren (=löschen), dann kann man die Bitkombi¬ 
nation durch logische ODER-Verknüpfung definieren: 

P=PEEK(53248+24): REM Alter Inhalt 
POKE 53248+24,(P AND 240) OR 64 

Dies ist nötig, um die restlichen Bits des Registers nicht zu 
"stören", da sie die Adresse des Zeichengenerators definieren. 

Die Grenze ist also erreicht, wenn man das Video-RAM um 
mehr als 16 KByte verschieben will. Das Register 24 stellt die 
Adreßbits 10-13 des Video-RAM zur Verfügung, vollkommen 
ausreichend für Verschiebungen innerhalb eines Rahmens von 
16 KByte. Da im VIC-Chip die Adreßbits 14 und 15 nicht 
definiert werden können, müssen diese Bits von außerhalb zu 
Hilfe genommen werden. Diese beiden Bits befinden sich im 
Register 0 des CIA2 (Adresse $DD00), Bits 0 und 1. Beachten 
Sie unbedingt, daß diese Bits low-aktiv sind, d.h. daß sich die 
Werte umkehren. Um die untersten 16 KByte zu adressieren 
(Adreßbits 14 und 15 sind 0), müssen die Bits 0 und 1 des 
Registers 0 im CIA2 gesetzt sein. 

Wichtig! - Wichtig! - Wichtig! 

Wenn Sie die Bits 0 und 1 im CIA2 ändern, so verschiebt sich 
nicht nur das Video-RAM um 16 KByte, sondern auch auch die 
Basis des Zeichengenerators. Beachten Sie dies auch besonders 
bei der Grafik-Programmierung! 

Folgende Werte stehen für die jeweiligen Speicherbereiche: 

X Bits Bereich _ 

0 00 $C000-$FFFF 

1 01 $8000-$BFFF 

2 10 $4000-$7FFF 

3 11 $0000-$3FFF (Einschaltzustand) 


POKE 56576, A: REM Auswahl der 16-K-Seite 
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2.4.2 Verschieben des Zeichengenerators 

Die CIA2-Bits definieren also gleichzeitig die 16-KByte-Seite 
von Video-RAM und Zeichengenerator. Aber auch den 
Zeichengenerator kann man verschieben, wenn auch nicht in 1- 
KByte-Schritten, so doch in 2-KByte-Schritten. Die Bits 1-3 im 
Register 24 des VIC-Chips repräsentieren die Adreßsbits 11-13 
des Zeichengenerators. 

Normalerweise zeigt dieser Pointer auf das Character-ROM, 
welches für die Gestaltung der Zeichen auf dem Bildschirm 
verantwortlich ist. Gerade im Grafikmodus muß man aber 
diesen Zeichengenerator verschieben, um die Basis der Grafik zu 
definieren. (Das Video-RAM wird ja zum Farb-RAM!) Das 
Character-ROM befindet sich rein physikalisch allerdings 
außerhalb des Lesebereichs des VIC-Chips, da die Adresse 
$D000 beispielsweise bei unterster eingeschalteter Seite nicht 
ansprechbar ist. Dieses Character-ROM besitzt aber dank des 
Adreß-Managers einen Sonderstatus: Werden die relativen 
Adressen $1000-$1FFF oder $9000-$9FFF angesprochen, so 
wird automatisch auf das Character-ROM ($D000-$DFFF) 
zugegriffen. Sollte Sie dies beispielsweise bei der Program¬ 
mierung im Grafikmodus stören, so müssen Sie entweder die 
Seiten 1 oder 3 verwenden oder den Bereich für den Zeichen¬ 
generator verschieben. 

Wenn Sie beispielsweise ein paar selbstdefinierte Zeichen pro¬ 
grammieren und verwenden wollen, so kopieren Sie sich 
zunächst den Originalzeichensatz aus dem Character-ROM ins 
RAM. Dann können Sie einzelne Zeichen umdefinieren oder gar 
ganz neu definieren (z.B. mathematische Symbole?), Sie müssen 
den VIC-Chip lediglich von Ihrem Vorhaben in Kenntnis setzen 
und die Adresse angeben, an der sich der neue Zeichensatz 
befindet. 


2.4.3 Das Farb-RAM 

Das Farb-RAM ist wohl das einzige, was man beim VIC nicht 
umdefinieren kann. Das ist aber kein Grund betrübt zu sein, es 
ist ganz gut, das Farb-RAM immer am gleichen Platz zu wissen. 
Das Farb-RAM dient bei der Textdarstellung als Farbpalette, 
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der VIC holt sich hier für jedes Zeichen die entsprechende 
Farbe. Wenn Sie im Hi-Res-Modus arbeiten, so liegt das Farb- 
RAM brach. Sie können den Speicher dann anderweitig ver¬ 
wenden. Im Multi-Color-Modus hingegen tritt das Farb-RAM 
wieder in Aktion - es liefert Farbwerte für ganz bestimmte 
Bereiche des Bildes (s.u.). 

Das Farb-RAM beginnt an der Adresse $D800 und endet an 
Adresse SD800+999. 


2.5 Programmierung von Farbe und Grafik 

Wir wollen die "graue Theorie" anhand kleiner Beispiele ver¬ 
deutlichen. 

Immer wenn Sie in die Verlegenheit kommen, eine Farbe zu 
definieren, sei es nun im Farb-RAM für ein Zeichen auf Ihrem 
Textschirm oder eine Farbe für ein Sprite, gelten folgende 
Codes für die jeweiligen Farben: 


Taste Farbe Kennzahl 


Clrl-1 

Schwarz 

0 

Ctrl-2 

Weiß 

1 

Ctrl-3 

Rot 

2 

Ctrl-4 

Türkis 

3 

Ctrl-5 

Violett 

4 

Ctrl-6 

Grün 

5 

Ctrl-7 

Blau 

6 

Ctrl-8 

Gelb 

7 

C=-l 

Orange 

8 

C=-2 

Braun 

9 

C=-3 

Hellrot 

10 

C=-4 

Grau 1 

11 

C=-5 

Grau 2 

12 

C=-6 

Hellgrün 

13 

C=-7 

Hellblau 

14 

C=-8 

Grau 3 

15 
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Um beispielsweise den Hintergrund und den Rahmen in Schwarz 
erscheinen zu lassen, sind folgende Anweisungen notwendig: 

PORE 53280,0 
POKE 53281,0 

Wir wollen nun den Bildschirm (der jetzt schwarz ist) mit 
weißen A’s auffüllen. Dazu müssen wir das Video-RAM ab 
Adresse $0400 bis Adresse $0400+999 mit dem Code 1 auffüllen. 
Zusätzlich müssen wir gleichzeitig das Farb-RAM an Adresse 
$D800 bis $D800+999 ebenfalls mit 1 (für weiß) belegen: 

10 PRINT CHR$(147);: REM LÖSCHE BILDSCHIRM 
20 FOR 1=0 TO 999: REM 1000 ZEICHEN 

30 POKE 55296+1,1: REM UEISS 

40 POKE 1+1024,1 : REM EIN A 

50 NEXT I 

60 GET A$: IF A$="" THEN 60 

Die Zeile 60 soll verhindern, daß der Bildschirm gescrollt wird. 
Bei Tastendruck wird das Programm abgebrochen. Sollte Ihnen 
dies zu langweilig sein, so probieren Sie folgendes aus: 

30 POKE 55296+1,RND(0)*16: REM FARBE 
40 POKE 1024+1,RND(0)*255: REM ZEICHEN 

Was passieren wird, sollen Sie erst beim Ausprobieren sehen. Da 
die Programmierung des Textbildschirmes aber ebenso einfach 
wie langweilig ist, wollen wir uns nun der Grafikprogram¬ 
mierung zuwenden: 


2.5.1 Der Ili-Res-Modus 

Da wir uns auf der niedrigsten Ebene der Programmierung 
befinden, haben wir keine Kommandos wie Linie-ziehen oder 
Kreise-zeichnen - noch nicht einmal ein Kommando zum Setzen 
eines Punktes existiert. Besonders diejenigen unter Ihnen, die im 
64er-Modus programmieren wollen, müssen sich vollkommen 
von der Vorstellung freimachen, solche Kommandos benutzen zu 
können. Wenn Sie in Maschinensprache programmieren wollen, 
so können Sie im 128er-Modus natürlich auf die im ROM 
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gespeicherten Routinen zurückgreifen. Meist ist es aber vom 
Zeitaspekt gesehen besser, wenn Sie sich selbst solche Routinen 
schreiben, da Sie diese Routinen auf Ihren individuellen Bedarf 
anpassen können. Außerdem machen die Betriebssystemroutinen 
zeitraubende Abfragen, die in Maschinensprache vollkommen 
wegfallen können. 

Hier ist nun ein Programm, das im Hi-Res-Modus eine Sinus¬ 
kurve auf den Bildschirm plottet, ohne auch nur einen einzigen 
Befehl von BASIC 7.0 zu verwenden, es wird alles "zu Fuß” er¬ 
ledigt. Man könnte dieses BASIC-Programm also praktisch direkt 
in Maschinensprache übersetzen, wobei lediglich die 
Programmierung der Sinusberechnung einige Probleme darstellen 
dürfte. 

10 REM SINUS-PLOT-PROGRAMM 

20 V=53248: REM STARTADRESSE DES V1C 

30 AD=8192: REM STARTADRESSE DER HI-RES-BIT-MAP 

40 POKE V+17,59: REM EINSCHALTEN DER GRAFIK 

50 POKE V+24,24: REM DEFINITION DES ZEICHENGENRATORS 

60 FOR 1=1024 TO 2023: REM SETZEN DES HI-RES-FARB-RAMS 

70 : POKE 1,16 : REM FARBKENNZAHLEN 1/0 

80 NEXT I 

90 FOR 1=8192 TO 16383: REM LÖSCHEN DER HI-RES-BIT-MAP 
100 : POKE 1,0 
110 NEXT I 

120 Y=100: REM POSITION DER X-ACHSE 
130 FOR X=0 TO 319: REM ZEICHNEN DER X-ACHSE 
140 : GOSUB 1000: REM PUNKT ZEICHNEN 

150 NEXT X 

160 X=160: REM POSITION DER Y-ACHSE 

170 FOR Y=0 TO 199: REM Y-ACHSE ZEICHNEN 

180 : GOSUB 1000 

190 NEXT Y 

200 X=0 

210 FOR I=-3.141592654 TO 3.141592654 STEP 0.0196349541 
220 : Y=100+99*SIN(I): REM FUNKTIONSUERT 
230 : GOSUB 1000 

240 : X=X+1: REM NÄCHSTER FUNKTIONSWERT 
250 NEXT I 

260 GET A$: IF A$="" THEN 260 
270 END 
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1000 OY=320*INT(Y/8)+(Y AND 7): REM Y-OFFSET 
1010 0X=8MNT(X/8> : REM X-OFFSET 

1020 MA=2 A (7-(X AND 7)) 

1030 AV=AD+OX+OY 

1040 POKE AV.PEEK(AV) OR MA: REM SETZEN DES PUNKTES DURCH OR 
1050 RETURN 

Wenn Sie das Programm starten, werden Sie von der 
Ausführungsgeschwindigkeit nicht gerade begeistert sein. Das 
liegt an den aufwendigen Berechnungen und den REM-Kom- 
mandos. Eine sehr zeitintensive Berechnung ist die 2 A -Berech- 
nung, die man sowohl in BASIC als auch in Maschinensprache 
sehr gut durch eine Tabelle ersetzen kann. Natürlich ließe sich 
dies alles in BASIC 7.0 viel effektiver und kürzer program¬ 
mieren, dann aber könnten Sie nicht erkennen, wie das Setzen 
eines einzelnen Punktes intern funktioniert. 

Wir wollen uns nun näher mit dem Programm befassen, um 
herauszufinden, wie wir die Grafik auf den Bildschirm gezau¬ 
bert haben. 

Um uns die Berechnungen im Programm bezüglich des VIC- 
Chips zu erleichtern, haben wir einmal die Startadresse des 
Chips definiert. Außerdem kann man dann auch deutlicher 
erkennen, welche Register angesprochen werden. Als erstes wird 
das Register 17 geändert, es wird der Wert 59 hineingeschrieben. 
Hauptsächlich wird allerdings das Bit 5 gesetzt, um VIC 
mitzuteilen, daß wir uns nun im Grafikmodus befinden. Im Re¬ 
gister 24 werden die Startadressen von Video-RAM und 
Zeichengenerator abgelegt. Wir schreiben in dieses Register eine 
24. 


24 = $18 = %0001 1000 

Die Bits 4-7 des Registers bestimmen die Adreßregister 10-13 
des Video-RAM (s.o.) - wir erhalten also als Startadresse $0400, 
den Normalwert des Bildschirmes. Weiterhin bestimmen die Bits 
1-3 die Adreßbits 11-13 der Zeichenbasis: 


%0010 0000 0000 0000 = $2000 = 8192 
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Wir haben also mit einem POKE-Kommando sowohl die Adresse 
des Video-RAM als auch die Adresse der Bit-Map definiert. 
Erfahrungsgemäß schleichen sich bei der Umrechnung dieser 
zwei Adressen die meisten Fehler ein. Darum sollte man sich 
ähnlich ausführlich wie in unserem Beispiel die zwei Adressen 
aufschreiben und die Bits, die benötigt werden, unterstreichen 
und dann zusammenfassen. 

Wenn Sie das Programm starten, so kommen Sie durch Betätigen 
einer Taste zwar wieder ins BASIC zurück; Sie sehen aber 
nichts, da der Grafikmodus nicht ausgeschaltet wird - Sie 
erkennen lediglich, daß Ihre Kurve recht farbig wird. Dies liegt 
daran, daß das Video-RAM nun mit Werten gefüllt wird, die 
diese Farben hervorrufen. Darum sollte man, bevor die Register 
17 und 24 überschrieben werden, die Inhalte dieser Register 
Zwischenspeichern, damit man sie später wieder rekonstruieren 
kann. Fügen Sie folgende Zeilen ein: 

35 Al=PEEK(V+17): A2=PEEK(V+24) 

270 POKE V+17, AI: POKE V+24, A2: END 

Jetzt wird nach Betätigen einer Taste wieder in den Textmodus 
zurückgeschaltet. 

Wir befinden uns also im sogenannten HI-RES-MODUS, in dem 
wir eine Auflösung von 320 x 200 Punkten haben. Das sind 
genau 64.000 Punkte, über die wir frei verfügen können. Da 8 
Punkte = 8 Bits zu je einem Byte zusammengefaßt werden, 
benötigen wir einen Speicherplatz von exakt 8.000 Bytes, um 
unsere Grafik darzustellen. In einer Zeile lassen sich 320 Punkte 
darstellen, also 40 Bytes (320/8), so wie wir es aus dem 
Textmodus kennen. Weiterhin verfügen wir über 25 Zeilen zu je 
8 Punkten. Sie bemerken sicherlich schon die Parallelen zum 
Textmodus! 

Ein Zeichen im Textmodus besteht aus 8 x 8 = 64 Punkten, die 
unabhängig voneinander gesetzt oder gelöscht werden können. 
Die Farbe für die gesetzten Punkte wird dem Farb-RAM ent¬ 
nommen, die Farbe für die nicht gesetzten Punkte wird dem 
Hintergrundfarbregister 0 entnommen. Ähnlich verhält sich dies 
im Grafikmodus. Es werden auch hier immer 8x8 Punkte zu 
einer Einheit zusammengefaßt. In diesem Kästchen von 64 
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Punkten kann man dann zwei Farben darstellen lassen. Würde 
man für jedes Bit extra einen Speicherplatz vorsehen, der die 
Farbe definiert, so brauchte man allein für die Farbdefinition 
64 KByte! Durch das Zusammenfassen von je 8 x 8 Punkten 
benötigt man lediglich einen Speicherplatz von 1.000 Bytes für 
die Farbdefinition. Wir wollen nun einmal eine solche 8x8- 
Einheit näher betrachten: 


Eine solche Einheit nennt man auch Matrix oder Zeichenmatrix. 
In dieser Matrix sind also auch alle unsere Buchstaben und 
Sonderzeichen definiert, die wir im Textmodus auf dem Bild¬ 
schirm sehen können. Im Hi-Res-Modus können wir jetzt alle 
Matrizen selbst bestimmen und haben nicht mehr nur eine 
"Zeigertabelle" auf fertige Matrizen (Zeichengenerator) - etwas 
anderes ist unser Textspeicher ja nicht. Das klingt jetzt vielleicht 
alles noch ein wenig kompliziert, ist es aber eigentlich nicht. 

Sie sehen, daß es ohne größeren Programmieraufwand auch 
möglich sein muß, Text und Grafik zu mischen bzw. den Text 
in die restliche Grafiklandschaft zu "malen". In den Grafik¬ 
speicher hineinzuschreiben, geht natürlich nicht. Wie wird aber 
jetzt die Grafik genau auf dem Bildschirm gebracht? Welche 
Speicherstelle in unserem Grafikspeicher definiert welche 8 
Punkte in unserer Grafik? Diese Fragen soll folgendes Schaubild 
verdeutlichen: 
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8192: . 8200: . 

8193: . 8201: . 

8194: . 8202: . 

8195: . 8203: . 

8196: . 8204: . 

8197: . 8205: . 

8198: . 8206: . 

8199: . 8207: . 

8224: . 8527: . usw. 


Dieses Schaubild ist vollkommen ausreichend, um sowohl den 
Wechsel zwischen Spalten und den Wechsel zwischen Zeilen zu 
verdeutlichen, zumindest, was die Adressierung betrifft. Jeder 
Punkt repräsentiert ein Bit. Unser Grafikspeicher beginnt an 
Adresse 8192 und definiert mit seinem ersten Byte die ersten 8 
Punkte unserer Grafik. Wollten wir allerdings den neunten Punkt 
in der ersten Zeile ansprechen, so müßten wir uns an die 
Adresse 8200 wenden, dort wohnt dieser Punkt nämlich. Sie 
erkennen sicherlich das Schema der Darstellung: Es wird wie im 
Textmodus verfahren, es wird Zeichen für Zeichen und Zeile 
für Zeile dargestellt. Aber wie spricht man nun einen ganz 
bestimmten Punkt an? Wir müssen zuerst die Adresse berechnen, 
in der er haust. Um einen solchen Algorithmus aufzustellen, 
beginnt man meist, indem man die Bedingungen vereinfacht. 
Wir wollen also zuerst einmal nur einen Punkt in der ersten 
Zeile ansprechen: 

AD=8 192 + INT(X/8) 

Wir wollen den Term INT( X / 8) * 8 der Einfachheit halber 
OX = Offset der X-Position nennen. Das ist schon alles, was wir 
bezüglich der X-Koordinate bedenken müssen. Wir haben also 
jetzt die Adresse des Punktes, allerdings wissen wir noch nicht, 
welches Bit angesprochen wird. Wir wollen ja keinen der 
Nachbarn wecken: 


BIT = X - INT(X / 8) * 8 
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Wir müssen also den Rest von X / 8 ermitteln. Dies geht aber 
auch einfacher, indem man durch logisches UND-Verknüpfen 
die untersten 3 Bits ausmaskiert. 

BIT = X AND 7 

Probieren Sie es ruhig aus, es funktioniert und ist viel schneller 
als die Division, besonders in Maschinensprache. Jetzt müssen 
wir aber noch bedenken, daß das am weitesten links wohnende 
Bit nicht den Namen 0 trägt (was ja die Restfunktion ergäbe), 
sondern den Namen 7. Entsprechend verhält sich das mit dem 
ganz rechts wohnenden Bit. Wir müssen dieses Verhältnis also 
noch umkehren: 

BIT = 7 - (X AND 7) 

Jetzt stimmt die Anrede. Um einen solchen Punkt in BASIC 
oder Assembler zu setzen, müssen wir die angesprochene 
Speicherstelle mit logischer ODER-Verknüpfung setzen. Dazu 
müssen wir die Zweier-Potenz errechnen, also 

2 A (7-(X AND 7)) 

Jetzt können wir schon jeden beliebigen Punkt in der ersten 
Zeile setzen: 

POKE 8192+OX,PEEK(8192+OX) OR 2 A (7-(X AND 7)) 

Um die ersten acht Zeilen anzusprechen, brauchen wir lediglich 
die Y-Koordinate hinzuzuaddieren. Wenn wir die neunte Zeile 
ansprechen wollen, so müssen wir 320 Bytes überspringen. 
Daraus ergibt sich folgende Addition bezüglich der Y-Position: 

OY=INT(Y/8)*320 + (Y AND 7) 

Um nun einen Punkt anzusprechen, müssen wir den Offset von 
X- und Y-Position zu der Basisadresse des Grafikspeichers 
hinzuaddieren. Es ergibt sich also für die Adressenberechnung 
folgende Formel: 


AD = OX + OY + 8192 
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In der Formel sind unsere Terme zur Berechnung des X- und 
Y-Offsets integriert. Um einen beliebigen Punkt zu setzen, 
haben wir nun also alle nötigen Berechnungen hergeleitet. Es 
ergibt sich (in BASIC) die folgende Kommandofolge: 

OY = 320*INT(Y/8) + (Y AND 7) 

OX = 8 *INT(X/8) 

BI = 2 A (X AND 7) 

AD = 8192 + OX + OY 
POKE AV, PEEK(AV) OR BI 

Dies ist jetzt sehr ausführlich. Wollen wir einen Punkt löschen, 
so ändert sich natürlich an der Adressenberechnung nichts, 
lediglich das POKE-Kommando müssen wir ändern: 

POKE AV, PEEK(AV) AND NOT BI 

Wir maskieren also das errechnete Bit aus; das ist alles, was wir 
zu tun haben. 

Wir wissen nun, wie wir Punkte setzen und wieder löschen kön¬ 
nen. Allerdings wissen wir noch nicht, wie wir die Farben 
bestimmen können, die bei gesetztem und gelöschtem Bit 
angezeigt werden sollen. In unserem Beispielprogramm befindet 
sich die Bit-Map (praktisch der Zeichengenerator) an der 
Adresse 8192 bis 16192. Sie erinnern sich bestimmt auch noch, 
daß wir das normale Video-RAM zum Farb-RAM degradiert 
haben. Das heißt nichts anderes, als daß die Informationen zur 
Farbgestaltung unserer Grafik aus genau diesem Speicher geholt 
werden, in dem sich sonst der Inhalt des Bildschirmes befindet. 
Dieser Speicher befindet sich an der Adresse 1024 bis 2023. 

Da wir mit einem Bit zwei Farben definieren können, müssen 
wir diese zwei Farben auch im Video-RAM unterbringen 
können. Sie erinnern sich bestimmt noch an den Aufbau des 
Grafikbildschirmes. Wir hatten immer Päckchen zu 8 Byte - acht 
aufeinanderfolgende Byte in unserer Bit-Map. Ein solches 
Päckchen hat also auch genau die Größe eines normalen 
Zeichens auf dem Bildschirm. Die Farben für unser erstes 
Päckchen an der Adresse 8192 - 8199 werden im ersten Byte des 
Video-RAM definiert - also an der Adresse 1024. Für alle 64 
Punkte in diesem Päckchen gelten also diese beiden Farben. Für 



Der V IC-Chip 


59 


das zweite Päckchen von Adresse 8200 bis 8207 werden die 
Farben entsprechend in Adresse 1025 festgelegt. Die Frage 
bleibt: Wie werden die Farben definiert? 


Dazu sehen wir einmal in unserem Beispielprogramm nach, in 
dem wir mittels einer FOR-NEXT-Schleife den Bereich von 
1024 bis 2023 mit dem Wert 16 aufgefüllt haben. Wie sieht die 
Zahl 16 in Binärschreibweise aus? 

16 = $10 = %00010000 


Wenn wir das obere und das untere Nibble (Einheit von vier 
Bits) voneinander trennen, so erhalten wir zwei Werte zwischen 
0 und 15 - ausreichend also, um die verfügbaren Farben zu 
definieren. In diesem Beispiel erhalten wir die Werte 1 und 0. 
Wenn wir in der Farbtabelle nachsehen, so stellen wir fest, daß 
wir die Farben Weiß und Schwarz definiert haben. Gerade im 
HI-RES-Modus muß man mit sehr viel Vorbehalt die Farben 
definieren, damit man auch genügend Kontrast erhält. Nicht 
selten muß man zwei nebeneinanderliegende Punkte setzen, 
damit man überhaupt die Farbe erkennen kann. Dies ist aber 
von Monitor zu Monitor verschieden. Der Kontrast zwischen 
Weiß und Schwarz ist sicherlich einer der besten (umgekehrt 
vielleicht sogar noch besser!), Rot und Blau beispielsweise sieht 
hingegen chaotisch aus. Die Farbe, die im oberen Nibble des 
Farb-RAMs definiert wird, wird bei gesetztem Bit angezeigt - 
in unserem Beispiel bedeutet das, daß der Hintergrund schwarz 
(0) ist und mit weiß (1) gemalt wird. Um das Farb-RAM zu 
setzen, gilt folgende Regel: 

POKE <Farbram>,«Vordergrund»* 16 + «Hintergrund» 

Natürlich können Sie über den gesamten Grafikbildschirm ver¬ 
streut weit mehr als zwei Farben definieren: Es gibt 256 
mögliche Kombinationen innerhalb eines Päckchens, Schwarz- 
Weiß ist nur eine davon. Die Programmierung im HI-RES- 
Modus erlernt man am besten, indem man sich einfach der 
Methode Try-And-Error bedient, d.h. probieren und Fehler 
erkennen. 
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2.5.2 Der Multi-Color-Nlodus 

Neben dem Hi-Res-Modus gibt es noch eine zweite Möglichkeit, 
Grafiken auf dem Bildschirm darzustellen: Es ist der sogenannte 
Multi-Color-Modus. Wir kennen das Wort Multi-Color ja bereits 
von den Sprites. Im Multi-Color-Modus verfügen Sie über 4 
Farben pro Päckchen - allerdings zu Lasten der Auflösung: Die 
Auflösung im Multi-Color-Modus beträgt "nur" noch 160 x 200 
Punkte - also exakt die Hälfte. In einem Byte werden jetzt auch 
nicht mehr acht Punkte definiert, sondern lediglich noch vier. 
Um den Multi-Color-Modus einzuschalten, muß man im 
Register 17 das Bit 5 setzen (genauso, wie im Hi-Res-Modus). 
Zusätzlich muß im Register 22 das 4. Bit gesetzt werden. Dies 
geschieht durch die Anweisung: 

POKE 53248+22,PEEK(53248+22) OR 16 

Die Adressen für Bit-Map und Farb-RAM werden auf dieselbe 
Weise programmiert wie im Hi-Res-Modus. In Adresse 8192 
(das erste Byte in der Bit-Map) soll sich folgender Inhalt 
befinden: 

PEEK(8192)= %000l 1011 = $1B = 27 

In diesem Byte werden also die ersten vier Punkte der ersten 
Zeile definiert. Da je zwei Bits zusammengefaßt werden, erhal¬ 
ten wir die Bitpaare 00, 01, 10 und II - alle vier möglichen 
Kombinationen also. 


Bits Farbinformation kommt von _ 

00 Hintergrundfarbregister 0 

01 Oberen vier Bits des Video-RAM 

10 Unteren vier Bits des Video-RAM 

11 Farb-RAM 

Hier ist lediglich die Bitkombination 00 auf dem gesamten 
Grafikbildschirm gleich. Die Bitkombinationen 01 und 10 ver¬ 
halten sich genauso, wie für dem Hi-Res-Modus beschrieben. 
Das Farb-RAM beginnt an Adresse $D800 und stellt je eine 
Farbe zur Verfügung. Die Programmierung im Multi-Color- 
Modus empfiehlt sich eigentlich in den meisten Fällen, da die 
Farbenvielfalt eine Menge interessanter Möglichkeiten bietet. 
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Natürlich muß man bei der Berechnung der Adressen bedenken, 
daß pro Byte lediglich vier Punkte definiert werden. Es ändert 
sich also die Formel für den X-Offset, sie muß im MULTI- 
COLOR-Modus wie folgt lauten: 

OX = 8 * INT(X/4) 

MA = 2 A (6-2*(X AND 3)) 

POKE AV, PEEK(AV) OR MA*<Bitmuster> 

Sie sehen, daß sich auch die Formel für die Bitbestimmung 
etwas gewandelt hat. Man muß bedenken, daß man ein Bitpaar 
mit dem vorhandenen Inhalt logisch ODER-verknüpfen muß 
und somit die Zweierpotenzen nur in Zweierschritten durchge¬ 
hen darf. Das <Bilmuster> wird durch die Multiplikation mit 
MA dann entsprechend weit nach links geschoben, in der 
Maschinensprache sagt man geshifted. Da der Multi-Color- 
Modus der wohl meist verwandte gerade bei Spielen ist, sollte 
man sich mit den Programmierkniffen in diesem Modus beson¬ 
ders vertraut machen. 


2.5.3 Der Multi-Color-Modus (Text) 

(Register 22 Bit 4=1) 

Weitesgehend unbekannt, aber dennoch möglich ist der Multi- 
Color-Modus des Textbildschirmes, ln diesem Modus können die 
Zeichen auf dem Bildschirm ebenfalls in mehr als einer Farbe 
erscheinen. Beispielsweise könnte man eine 0 definieren, die aus 
einem weißen Kreis mit blauem Querstrich besteht. Ist der 
Multi-Color-Modus eingeschaltet, dann überprüft VIC, ob Bit 3 
des Farbregisters gesetzt ist. Das bedeutet nichts anderes, als daß 
die Farbe für das entsprechende Zeichen größer als 7 ist (8 - 
15). Ist dies der Fall, so wird das Zeichen im Multi-Color- 
Modus dargestellt. Das Zeichen hat nun keine 8 x 8-Matrix 
mehr, sondern lediglich eine 4 x 8-Matrix mit folgenden 
möglichen Bitkombinationen: 
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Bits 

Farbreqister 

Wird an Adresse X definiert 

00 

Hintergrundfarbe 0 

$0021 (53281) 

01 

Hintergrundfarbe 1 

$0022 (53282) 

10 

Hintergrundfarbe 2 

SD023 (53283) 

11 

Durch Farbregister 

Farb-RAM $D800-$D800+1000 

Sollte die 

Bitkombination 11 

lauten, so wird die Farbe 


unteren drei Bits des Farbregisters ermittelt. Sollte Bit 3 im 
Farbregister nicht gesetzt sein (Farbe 0-7), so wird eine normale 
einfarbige 8x8-Matrix dargestellt. Dieser Modus erhält nur dann 
einen tiefergreifenden Sinn, wenn man sich selber einen 
Zeichensatz definiert, ln einigen Spielen wird von diesem Modus 
Gebrauch gemacht, da er leichter zu programmieren ist als der 
Hi-Res-Modus. Schalten Sie ruhig einmal in diesen Modus: Da 
diese Zeichen nicht auf den Multi-Color-Modus ausgelegt sind, 
ergibt sich ein farbiges Spektakel: 

POKE 53248+22,PEEK(53248+22) OR 16 
Um diesen Modus wieder abzuschalten, reicht das Kommando: 

POKE 53248+22,PEEK(53248+22) AND 239 


2.5.4 Extended-Color-Modus 

(Register 17 Bit 6=1) 

Doch das reichte den Herstellern des VIC-Chips immer noch 
nicht. Man kreierte noch einen weiteren Modus: den 
EXTENDED-COLOR-Modus. Dieser Modus ähnelt dem 
normalen Textmodus sehr. Auch hier kann ein Zeichen aus nur 
zwei Farben bestehen, jedoch ist die Hintergrundfarbe nicht 
notwendigerweise immer die gleiche. Man kann unter drei 
verschiedenen Hintergrundfarben wählen (für die O-Bits), die 1- 
Bits beziehen ihre Farbe aus dem Farbregister. Die Hinter¬ 
grundfarbe wird aus den höchstwertigen zwei Bits aus dem 
Video-RAM bestimmt: 
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Bits _ Hintergrundfarbregister ff 

00 0 

01 1 

10 2 

11 3 

Da im Video-RAM zwei Bits abgezwackt werden, verbleiben 
nur noch sechs Bits, um das darzustellende Zeichen zu 
definieren. Daraus wiederum folgt, daß wir nur noch 64 Zeichen 
darstellen können - dies sind die untersten 64 Zeichen. So hat 
jede Medaille zwei Seiten... 


2.6 Soft-Scrolling (Smooth Scrolling) 

Vielleicht hat der eine oder andere von Ihnen dieses Wort schon 
einmal in der Fachpresse oder -literatur gelesen und sich 
gefragt, was man darunter zu verstehen hat. 

Soft-Scrolling ist so schön, wie es klingt: Mittels dieser 
Möglichkeit kann man den Bildschirm horizontal oder vertikal 
um einen Pixel verschieben. Scrollen nennt man das Verschieben 
des Bildschirmes; ein Pixel ist ein anderes Wort für Punkt. 
Dadurch kann man dann, wieder einmal besonders bei Spielen, 
gleitende Bewegungsabläufe erreichen, so daß man ein weiches 
Scrolling erhält. (Also tatsächlich soft!) Dieses Verschieben kann 
in eine der vier Himmelsrichtungen (rechts, links, oben oder 
unten) erfolgen. Beim Verschieben in eine dieser Richtungen 
wird eine Punktreihe abgedeckt, dafür erscheint am anderen 
Ende eine Punktreihe neu auf dem Bildschirm. Durch dieses 
Scrollen kann man den Bildschirm in acht verschiedene Positio¬ 
nen bringen, also vollkommen ausreichend, um ein Zeichen 
langsam erscheinen zu lassen. Wenn man vom Soft-Scrolling 
Gebrauch machen will, so muß man den Bildschirm verkleinern. 
Der VIC-Chip stellt einem hierzu zwei Bits zur Verfügung, in 
denen man angeben kann, ob man einen 38/40-Zeichen/Zeile- 
Modus wünscht bzw. einen 24/25-Zeilen-Modus. Der Rahmen 
vergrößert sich dann entsprechend. Wollen wir vertikal ver¬ 
schieben, so müssen wir eine Zeile opfern, wollen wir hingegen 
horizontal scrollen, so fallen zwei Zeichen pro Zeile weg. 




128 Intern 


_64 

Um in den 38-Zeichen-Modus zu schalten, muß das Bit 3 des 
Registers 22 rückgesetzt werden: 

POKE 53248+22,PEEK(53248+22) AND 247 

Nachdem Sie diese Zeile eingegeben haben, verkleinert sich der 
eigentliche Bildschirm. Um wieder auf Normalmodus zu schal¬ 
ten, müssen wir das Bit 3 wieder setzen: 

POKE 53248+22,PEEK(53248+22) OR 8 

Dasselbe gilt für den 24-Zeilen-Modus, hier muß das Bit 3 im 
Register 17 rückgesetzt werden, wenn wir 24 Zeilen haben 
wollen: 

POKE 53248+17,PEEK(53248+17) AND 247 sowie 
POKE 53248+17,PEEK(53248+17) OR 8 

Im Register 22 wird schließlich in den Bits 0-2 angegeben, 
welchen Offset der linke Bildrand besitzt. Durch Variieren 
dieser drei Bits erreicht man das eigentliche Soft-Scrolling in 
horizontaler Richtung. Will man vertikal scrollen, so muß man 
den Offset im Register 17 entsprechend ändern. 

Doch wir wollen Sie nicht länger auf die Folter spannen. Hier ist 
ein Demo-Programm, um zu veranschaulichen, welchen Effekt 
man durch Soft-Scrolling erzielt. 

10 PRINT CHR$(147) : REM CLR SCREEN 
20 POKE 53248+17,PEEK(53248+17) AND 247 
30 FOR 1=1 TO 24 
40 : PRINT 11 HALLO I!» 

50 NEXT 1: PRINT " HALLO !!"; : REM KEIN SCROLLEN 
60 POKE 53248+17,PEEK(53248+17) AND 248 OR 7 : REM SETZE ERSTE PO¬ 
SITION 

70 FOR 1=6 TO 0 STEP -1 

80 POKE 53248+17,PEEK(53248+17) AND 248 OR P 
90 FOR 11=1 TO 60: NEXT II: REM WARTESCHLEIFE 
100 NEXT: REM SCHLEIFENENDE 

110 GOTO 60: REM NOCHMAL 
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Natürlich funktioniert dieses Soft-Scrolling auch im Grafikmo¬ 
dus. Gerade hier lassen sich die raffiniertesten Effekte erzielen 
- beispielsweise kann man ein Raumschiff lautlos durch das 
unendliche Weltall gleiten lassen. Nachdem man alle 8 Punktrei¬ 
hen durchgescrollt hat, muß man dann eine Grafikspalte oder - 
zeile mit neuen Werten auffüllen. 

Sie sehen, was der VIC-ll-Chip Ihnen so alles bietet. Nicht alles 
wird von den BASIC-7.0-Kommandos abgedeckt, so daß einiges 
an Möglichkeiten trockengelegt wurde. Diese Möglichkeiten aber 
wurden in diesem Kapitel erwähnt und die Anwendung näher 
erläutert, so daß Sie auf nichts, was der VIC-II-Chip in seiner 
Trickkiste verbirgt, in Zukunft verzichten müssen. 
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3. Ein- und Ausgabesteuerung 


3.1 Allgemeines über den CIA 6526 

CIA steht für Central Intelligence Agency, doch das gehört hier 
eigentlich weniger hin. CIA steht nämlich auch für Complex 
Interface Adapter, und das sollte uns dann schon mehr interes¬ 
sieren. Es handelt sich im Commodore 128 um den CIA 6526. 
Seine Leistungsmerkmale in Stichpunkten: 


* 16 einzeln programmierbare Ein-/Ausgabeleitungen 

* 8- oder 16-Bil-Handshake sowohl bei der Ein- als auch 
bei der Ausgabe 

* 2 unabhängige kaskadierbare 16-Bit-Intervalllimer 

* 24-Stunden-(AM/PM)-Uhr mit programmierbarer 

Alarmzeit 

* 8-Bit-Schieberegister für die serielle Ein-/Ausgabe 


3.1.1 Pinbelegung des 40poligen Gehäuses: 

1 Masse 

2-9 I/O-Port A; 8 Bit direktional 

10-17 I/O-Port B; 

8 Bit direktional Die Bits 6 und 7 können zur Anzeige des Unterlaufs der 
beiden Timer programmiert werden. 

18 -PC(Port Control); nur Ausgang; 

signalisiert die Verfügbarkeit von Daten am Port B oder an beiden Ports. 

19 TOD(Time of Day); nur Eingang 50/60 Hz; triggert die Echtzeituhr 

20 +5V; Betriebsspannung 

21 -IRQ(Interrupt Request); nur Ausgang; 

wird 0 bei Übereinstimmung eines gesetzten Bits im ICR mit dem Ein¬ 
treffen eines zugehörigen Ereignisses. 

22 R/W(Read-Write); nur Eingang; 

0=Übernahme vom Datenbus 
l=Übergabe auf Datenbus 

23 -CS(Chip Select); nur Eingang; 

0=Datenbus gültig, 
l=Datenbus hochohmig(Tri-State) 

24 -FLAG; nur Eingang; Bedeutung wie -PC 

25 02(Systemtakt 2); nur Eingang; 

alle Datenbusaktionen finden nur bei 02=1 statt. 
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26-33 DB7-DB0(Datenbus); bidirektional; 

Schnittstelle zum Prozessor 
34 -RES(Reset); nur Eingang; 

0—Rücksetzen des CIA in den Grundzustand 
35-38 RS3 - RS0(Register Select); nur Eingang; 

dient der Auswahl eines der 16-Bit-Register; 
nur gültig mit -CS=0 

39 SP(Serial Port); bidirektional; 

dient als Eingang/Ausgang des Schieberegisters 

40 CNT(Count); bidirektional; 

Eingang/Ausgang des Schieberegistertaktes oder Triggereingang für die 
Intervalltimer 


3.2 Registerbeschreibung der CIA 

REG 0 PRA (Port Register A) 

Zugriff: Read/Write 

Bits 0-7: Dieses Register entspricht dem Zustand der Pins 
PAO-7. 

REG 1 PRB (Port Register B) 

Zugriff: Read/Write 

Bits 0-7: Dieses Register entspricht dem Zustand der Pins 
PBO-7. 

REG 2 DDRA (Datenrichtung Register A) 

Zugriff: Read/Write 

Bits 0-7: Diese Bits bestimmen die Datenrichtung der kor¬ 
respondierenden Datenbits des Ports A. 

0=Eingang, 1=Ausgang 

REG 3 DDRB (Datenrichtung Register B) 

Zugriff: Read/Write 

Bits 0-7: Diese Bits bestimmen die Datenrichtung der 
entsprechenden Datenbits des Ports B. 

0=Eingang, 1=Ausgang 
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REG 4 TA LO (Timer A, Low-Byte) 

Zugriff: Read 

Bits 0-7: Dieses Register gibt den augenblicklichen Zustand 
des niederwertigen Bytes von Timer A wieder. 
Zugriff: Write 

Bits 0-7: ln dieses Register wird das niederwertige Byte des 
Wertes geladen, von dem der Timer bis auf Null 
zählen soll. 

REG 5 TA HI (Timer A, High-Byte) 

Zugriff: Read 

Bits 0-7: Dieses Register gibt den augenblicklichen Zustand 
des höherwertigen Bytes von Timer A wieder. 

Zugriff: Write 

Bits 0-7: In dieses Register wird das höherwertige Byte des 
Wertes geladen, von dem der Timer bis auf Null 
zählen soll. 

REG 6 TB LO (Timer B, Low-Byte) 

Siehe Register 4! 

REG 7 TB HI (Timer B, High-Byte) 

Siehe Register 5! 

REG 8 TOD 10THS (Uhr 1/10 Sekunden) 

Zugriff: Read 

Bits 0-3: Zehntelsekunden der Echtzeituhr im BCD- Format 
Bits 4-7: Immer 0 
Zugriff: Write und CRB Bit 7=0 

Bits 0-3: Zehntelsekunden im BCD-Format 
Bits 4-7: Müssen Null sein! 

Zugriff: Write und CRB Bit 7=1 

Bits 0-3: Vorwahl der Zehntelsekunden der Alarm zeit im 
BCD-Format 

Bits 4-7: Müssen Null sein! 

REG 9 TOD SEC (Uhr Sekunden) 

Zugriff: Read 

Bits 0-3: Einersekunden im BCD-Format 
Bits 4-6: Zehnersekunden im BCD-Format 
Bit 7: Immer Null 

Weitere Zugriffsarten analog zu REG 8. 
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REG 10 TOD MIN (Uhr Minuten) 

Zugriff: Read 

Bits 0-3: Einerminuten im BCD-Format 
Bits 4-6: Zehnerminuten im BCD-Format 
Bit 7: Immer Null 

Ueitere Zugriffsarten analog zu REG 8. 

REG 11 TOD HR (Uhr Stunden) 

Zugriff: Read 

Bits 0-3: Einerstunden im BCD-Format 
Bit 4: Zehnerstunde der Uhr 

Bits 5-6: Immer Null 

Bit 7: 0= Vormittag (AM), 1= Nachmittag (PM) 

Weitere Zugriffsarten analog zu REG 8. 

REG 12 SDR (Serial Data Register) 

Zugriff: Read/Write 

Bits 0-7: Aus diesem Register werden die Daten bitweise zum 
Pin SP hinausgeschoben bzw. vom Pin SP in dieses 
Register hineingeschoben. 

REG 13 ICR (Interrupt Control Register) 

Zugriff: Read (INT DATA) 

Bit 0: 1= Unterlauf Timer A 

Bit 1: 1= Unterlauf Timer B 

Bit 2: 1= Gleichheit von Uhrzeit und gewählter Alarmzeit 

Bit 3: 1= SDR voll/leer (abhängig von der Betriebsart) 

Bit 4: 1= Signal am Pin FLAG aufgetreten 

Bits 5-6: Immer Nul l 

Bit 7: Übereinstimmung mindestens eines Bits von INT MASK 

und INT DATA aufgetreten 

Achtung: Beim Lesen dieses Registers werden alle Bits 
gelöscht! 

Zugriff: Write (INT MASK) 

Bedeutung der Bits wie oben, ausgenommen Bit 7: 

Bit 7: 1= Jedes 1-Bit setzt das korrespondierende Masken¬ 

bit. Die anderen bleiben unberührt. 0= Jedes 1-Bit 
löscht das korrespondierende Maskenbit. Die anderen 
bleiben unberührt. 

REG 14 CRA (Control Register A) 

Zugriff: Read/Write 

Bit 0: 1= Timer A Start, 0= Stop 

Bit 1: 1= Unterlauf von Timer A wird an Pin PB6 signali¬ 

siert. 
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Bit 2: 1=Jeder Unterlauf von Timer A kippt PB6 in die 

jeweils andere Lage. 

0= Jeder Unterlauf von Timer A erzeugt an PB6 einen 
Hl-lmpuls mit der Länge eines Systemtaktes. 

Bit 3: 1= Timer A zählt nur einmal vom Ausgangswert auf 

Null und hält dann an. 

0= Timer A zählt fortlaufend vom Ausgangswert auf 
nul l. 

Bit 4: 1= Unbedingtes Laden eines neuen Startwertes in 

Timer A. Dieses Bit fungiert als Strobe. Es muß bei 
jedem unbedingten Laden neu gesetzt werden. 

Bit 5: Dieses Bit bestimmt die Quelle des Timer-Triggers. 

1= Timer zählt steigende CNT-Flanken, 0= Timer 
zählt Systemtaktpulse. 

Bit 6: 1=SP ist Ausgang, 0=SP ist Eingang. 

Bit 7: 1=Echtzeituhr-Trigger beträgt 50Hz, 

0= Echtzeituhr-Trigger beträgt 60Hz. 

REG 15 CRB (Control Register B) 

Zugriff: Read/Write 

Bits 0-4: Diese Bits haben die gleiche Bedeutung wie in REG 
14, allerdings bezogen auf Timer B und Pin PB7. 

Bits 5-6: Diese Bits bestimmen die Quelle des Triggers für 
Timer B. 00= Timer zählt Systemtakte, 01= Timer 
zählt steigende CNT-Flanken, 10= Timer zählt Unter¬ 
laufe von Timer A, 11= Timer zählt Unterläufe von 
Timer A, wenn CNT=1 ist. 

Bit 7: 1=Alarm setzen, 0=Uhrzeit setzen. 


3.3 E/A-I’orts 

Die Ports A und B bestehen je aus einem 8-Bit-Datenregister 
PR und einem 8-Bit-Datenrichtungsregister DDR. Wenn ein Bit 
im DDR gesetzt ist, arbeitet das korrespondierende Bit im PR 
als Ausgang. Ist ein Bit im DDR=0, so ist das entsprechende Bit 
im PR als Eingang definiert. 

Während des Lesezugriffs gibt das PR den augenblicklichen 
Zustand der entsprechenden Pins (PAO-7, PBO-7) wieder; dies 
sowohl für die Eingangs- als auch für die Ausgangsbits. Darüber 
hinaus können PB6 und PB7 noch Ausgangsfunktionen für die 
beiden Timer übernehmen. 
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Der Datentransfer zwischen der CIA und der an PA/PB ange¬ 
schlossenen "Außenwelt" kann durch einen Quittungsbetrieb 
erreicht werden. Hierzu dienen PC und FLAG. 

PC wird für die Dauer eines Taktes 0, wenn ein Lese- oder 
Schreibzugriff auf PRB vorangegangen ist. Dieses Signal kann so 
die Verfügbarkeit von Daten an PB bzw. die Annahme von 
Daten von PB anzeigen. FLAG ist ein negativ flanken¬ 
getriggerter Eingang, der beispielsweise mit PC einer anderen 
CIA verbunden werden könnte. Eine fallende Flanke an FLAG 
setzt auch das FLAG-Interrupt-Bit. 

Der serielle Datenport SDR ist ein synchrones 8-Bit-Schiebe- 
register. Bit 6 der CRA bestimmt Ein- oder Ausgabemodus. Im 
Eingabemodus werden die Daten an SP mit der steigenden 
Flanke eines an CNT liegenden Signales in ein Schieberegister 
übernommen. Nach 8 CNT-Pulsen wird der Inhalt des Schiebe¬ 
registers nach SDR gebracht und das SP-Bit im ICR gesetzt. 

Im Ausgabemodus fungiert Timer A als Baudratengenerator. Die 
Daten aus SDR werden mit der halben Unterlauffrequenz von 
Timer A nach SP hinausgeschoben. Die theoretisch höchste 
Baudrate beträgt demnach 1/4 des Systemtaktes. 

Die Übertragung beginnt, nachdem Daten ins SDR geschrieben 
wurden, vorausgesetzt Timer A läuft und befindet sich im 
Continous-Modus (CRA Bit 0=1 und Bit 3=0). Der von Timer A 
abgeleitete Takt erscheint an CNT. Die Daten aus SDR werden 
in das Schieberegister geladen und dann mit jeder fallenden 
Flanke an CNT aus SP hinausgeschoben. 

Nach 8 CNT-Impulsen wird der SP-Interrupt erzeugt. Wird 
jedoch SDR vor diesem Ereignis mit neuen Daten geladen, so 
werden diese nun automatisch ins Schieberegister geladen und 
hinausgeschoben. In diesem Falle wird kein Interrupt ausgelöst. 
Die Daten aus SDR werden mit dem höchstwertigen Bit voran 
hinausgeschoben. Eingehende Daten sollten dasselbe Format 
aufweisen. 
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3.4 Die Timer 

Beide Timer haben einen 16-Bit-Zähler (Read-Only) und einen 
16-Bit-Zwischenspeicher (Write-Only). Wird ein Timer ausge¬ 
lesen, so wird der augenblickliche Zustand des Zählers wieder¬ 
gegeben. Beim Schreiben werden die Daten erst im Zwischen¬ 
speicher geladen. Die beiden Timer können sowohl unabhängig 
voneinander als auch im Zusammenhang benutzt werden. Die 
verschiedenen Betriebsarten erlauben lange Zeitverzögerungen, 
variable Pulslängen und Impulsketten. Bei Benutzung des CNT- 
Einganges können die Timer externe Impulse zählen oder auch 
Frequenzen messen. 

Jeder Timer hat ein ihm fest zugeordnetes Steuerregister (CRA 
und CRB), welches die folgenden Funktionen erlaubt: 


Start/Stop ( Bit 0) 

Dieses Bit läßt den Timer jederzeit starten oder anhalten. 
PB ON/OFF (Bit 1) 

Hiermit wird der Timer-Unterlauf nach PB geleitet (PB6 
für Timer A, PB7 für Timer B). Diese Funktion hat Vor¬ 
rang vor der in DDRB festgelegten Datenrichtung. 

Toggle/Pulse (Bit 2) 

Mit diesem Bit wird die Art des an PB erscheinenden 
Unterlaufpulses bestimmt. Entweder wird PB bei jedem 
Unterlauf in die jeweils andere Lage gekippt, oder es wird 
ein positiver Puls mit der Dauer eines Taktes erzeugt. 

One-Shot/Conlinous (Bit 3) 

Im One-Shot-Betrieb zählt der Timer vom Zwischen¬ 
speicherwert nach Null, setzt das IRC-Bit, lädt den Zähler 
erneut mit dem Zwischenspeicherwert und hält dann an. 
Im Continous-Betrieb läuft der oben beschriebene Vorgang 
zyklisch ab. 

Force-Load (Bit 4) 

Dieses Bit erlaubt, den Timer jederzeit zu laden, unab¬ 
hängig davon, ob er gerade läuft oder nicht. 
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Input-Mode (Bit 5 CRA, Bit 5-6 CRB) 

Diese Bits erlauben die Wahl des Taktes, mit dem der 
Timer heruntergezählt wird. Timer A kann entweder mit 
dem Systemtakt oder mit einem auf CNT gegebenen Takt 
versorgt werden. Timer B kann darüber hinaus noch mit 
den Unterlaufpulsen des Timers A gespeist werden, ent¬ 
weder unbedingt oder in Abhängigkeit von CNT=1. 


3.5 Die Echtzeituhr 

Im CIA befindet sich eine 24-Stunden-Echtzeituhr (TOD) mit 
einer Auflösung von 1/10 Sekunden. Sie besteht aus den vier 
Registern: Stunden, Minuten, Sekunden und 1/10-Sekunden. Im 
Stunden-Register bestimmt das höchstwertige Bit (Bit 7) ob 
Vormittag (AM) oder Nachmittag (PM). Alle Register werden 
im BCD-Format angegeben, so daß man ohne größeren Rechen¬ 
aufwand, gerade in Maschinensprache, davon Gebrauch machen 
kann. 

Als Takt dient ein 50/60 Hertz-Signal am Pin TOD, der sich im 
CRA-Bit 7 programmieren läßt. 

Ferner gibt es noch ein Alarmregister, mit dem man zu jeder 
beliebigen Zeit einen Interrupt auslösen kann. Das Alarmregister 
belegt dieselbe Adresse wie das TOD-Register, deshalb wird der 
Zugriff unter Zuhilfenahme des CRB Bit 7 gesteuert. Beachten 
Sie, daß das Alarmregister Read-Only ist! Jeder Lese-Zugriff 
gibt das TOD-Register wieder, vollkommen unabhängig von 
CRB Bit 7. 

Um die Uhrzeit richtig setzen und lesen zu können, muß man 
eine bestimmte Reihenfolge einhalten: 

Wird das Stundenregister beschrieben, so hält die Uhr automa¬ 
tisch an - beim Schreiben ins 1/10-Sekunden-Register beginnt 
die Uhr zu laufen. Auf diese Weise kann man das Starten der 
Uhr sehr genau steuern. 



Ein- und Aussahesteueruns 


75 


Da beim Lesen der Uhr ein Übertrag in ein bereits gelesenes 
Register auftreten kann, werden die Register in einen 
Zwischenspeicher übertragen. Dieser Zwischenspeicher wird erst 
dann wieder freigegeben, wenn man die 1/10-Sekunden gelesen 
hat. 


3.5.1 Echtzeit in BASIC 

Jeder kennt wahrscheinlich die von BASIC abrufbare Uhr TIS 
und TI. Leider läßt die Langzeitgenauigkeit dieser Uhr stark zu 
wünschen übrig; die Abweichung kann ca. i Stunde pro Tag 
betragen. 

Legt man auf eine genauere Zeitangabe Wert, so kann man von 
der im CIA eingebauten Echtzeituhr durchaus Gebrauch 
machen. Diese erhält ihren Takt aus der Netzfrequenz, welche 
eine hervorragende Langzeitkonstanz aufweist. 

Hier nun zwei BASIC-Programme, das eine zum Setzen der 
Uhrzeit und das andere zum Auslesen der Echtzeituhr. Da es 
unsinnig wäre, die Zehntelsekunden abzufragen, wird dieses 
Register immer auf Null gesetzt. 

10 C=56328: REM BASISADRESSE DER UHR IM CI AI 
20 REM C=56584 FÜR DIE UHR IM CIA2 
30 POKE C+7,PEEK(C+7) AND 127: REM UHRZEIT SETZEN 
40 POKE C+6,PEEK(C+6) OR 128 : REM NETZFREQUENZ=50 Hz 
50 INPUT "BITTE ZEIT IM FORMAT HHMMSS EINGEBEN: ";AS 
60 H=VAL(LEFT$(A$,2)) 

70 M=VAL(MID$(A$,3,2)) 

80 S=VAL(MID$(A$,5)) 

90 IF H>23 THEN 40 : REM FEHLER 

100 IF H>11 THEN H=H+68 : REM SETZE NÖTIGENFALLS PM-FLAG 

110 POKE C+3,16*INT(H/10)+H-INT(H/10)*10 

120 IF M>59 THEN 40 : REM FEHLER 

130 POKE C+2,16*INT(M/10)+M-INT(M/10)*10 

140 IF S>59 THEN 40 : REM FEHLER 

150 POKE C+1,16*INT(S/59)+S-INT(S/59)*10 

160 POKE C,0 : REM ZEHNTELSEKUNDEN •• UHR LOS 
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In den Zeilen 110, 130 und 150 werden die Werte in BCD-For- 
mat umgewandelt. Um die gesetzte Uhr dann auch wieder aus- 
lesen zu können, verwendet man folgendes kleines Programm: 

10 C=56328 : REM BASISADRESSE DER UHR IM CIA1 
20 PRINT CHR$(147) : REM C=56328 FÜR UHR IM CIA2 
30 H=PEEK(C+3):M=PEEK(C+2):S=PEEK(C+1):T=PEEK(C) 

40 F L=1 

50 IF H>32 THEN H=H AND 127: FL=0: REM FLAG FÜR PM 
60 H=INT(H/16)*10+H-INT(H/16)*16:ON FL GOTO 80 
70 IF H=12 THEN 90:ELSE H=H+12 
80 IF H=12 THEN H=0 
90 M=INT(M/16)*10+M- INT(M/16)*16 
100 S=INT(S/16)*10+S-INT(S/16)*16 
110 T$=MID$(STR$(T),2) 

120 H$=RIGHT$("0"+MID$(STR$(H),2),2) 

130 M$=RIGHTS("0"+MID$(STR$(M),2),2) 

140 S$=R1GHT$("0"+M1D$(STR$(S),2),2) 

150 PRINT "<Home>"; 

160 PRINT ... 

170 GOTO 30 : REM SCHLEIFE 

Sollten Sie die STOP/RESTORE-Taste drücken, so muß die Uhr 
allerdings neu gesetzt werden, da das Betriebssystem alle 
Register auf den Ausgangswert setzt. Leider ist hiervon auch das 
für den Takt (50/60 Hz) verantwortliche Bit betroffen; die Uhr 
würde stark Zurückbleiben! 


3.6 Die CI As im Conunodore 128 

Wenn Sie von den CIAs im Commodore 128 Gebrauch machen 
wollen, so beachten Sie bitte, daß die CIAs fest zugeordnete 
Aufgaben zu erfüllen haben. Insbesonders gilt das für die 
Interrupts, die das Betriebssystem für eine Reihe von Routinen 
benötigt. Ändern Sie also möglichst nie das Register ICR. 
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CIA 1: Basisadresse $DCOO (56320) 

REG 0 (PRA) 

Bits 0-7: Im normalen Betrieb wird hier die Reihenauswahl der 
Tastaturmatrix getroffen. Allerdings sind einige Bits mit 
dem Controllerport 1 außen am Rechner verbunden. 
Dieser dient tum Anschluß von Joysticks oder Paddies, 

Bits 0-4: Joystick 0, Reihenfolge: Oben, Unten, (links, rechts und 
Feuertaste), 

Bits 6-7: Auswahl Paddle-Set A/B. Es darf nur eines der beiden 
Bits = X sein. 

REG 1 (PRB) 

Bits 0-7: Im normalen Betrieb erfolgt hier die Spaltenrückmeldung 
der Tastaturmatrix, falls eine Taste gedrückt wurde, 

Bits 0-4: Dieselbe Funktion wie REG 0, allerdings für Controlport 2 
(Joystick 1). 

REG 13 (ICR) 

Bit 4: Eingabedaten vom Kassettenport. 

Timer A & CRA werden für den Diskettenbetrieb benötigt, 

Timer B c£ CRB für den Kassettenbetrieb. 

CIA 2: Basisadresse $DD00 (56576) 

REG 0 (PRA) 

Bits 0-1: VA 14-15 (höchstwertige Adreßbits des Video-RAM), 

Bit 2: TXD (in Verbindung mit RS232-Cartridge, sonst frei), 

Bit 3: ATN (Ausgang serieller Bus), 

Bit 4: CLOCK (Ausgang serieller Bus), 

Bit 5: DATA (Ausgang serieller Bus), 

Bit 6: CLOCK (Eingang serieller Bus), 

Bit 7: DATA (Eingang serieller Bus). 

REG 1 (PRB) 

Bits 0-7: User-Port/RS232. Bei Aufstecken einer RS232-Cartridge 
erhalten die Bits die folgende Bedeutung: 

Bit 0: RXD (Receive Data), 

Bit 1: RTS (Request To Send), 

Bit 2: DTR (Data Terminal Ready), 

Bit 3: RI (Ring Indicator), 

Bit 4: DCD (Data Carrier Detect), 

Bit 6: CTS (Clear To Send), 

Bit 7: DSR (Data Set Ready). 
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REG 13 (ICR) 

Bit 4: RXD (nur bei RS232-Betrieb, sonst frei). 


Timer A & CRA werden für die RS232-Baudrate benötigt, 
Timer B & CRB für die RS232-Bitüberprüfung. 


3.7 Der Joystickport 


3.7.1 Der Joystick 

Wollen Sie nicht die in BASIC 7.0 implementierten Kommandos 
zur Joystickabfrage verwenden, oder wollen Sie eine 
Joystickabfrage in Maschinensprache realisieren, so können Sie 
folgendes kleines BASIC-Programm zur Interpretation der anfal¬ 
lenden Daten zur Hilfe nehmen: 

10 J0=56320 : REM JOYSTICK-PORT-1 
20 J1=56321 : REM J0YSTICK-P0RT-2 
30 J=PEEK(JO) : REM AUSLESEN DES PORTS 
40 IF (J AND 1)=0 THEN PRINT "OBEN »; 

50 IF (J AND 2)=0 THEN PRINT "UNTEN 

60 IF (J AND 4)=0 THEN PRINT "LINKS 

70 IF (J AND 8)=0 THEN PRINT "RECHTS 

80 IF (J AND 16)=0 THEN PRINT "FEUER"; 

90 PRINT: GOTO 30 

Das Programm liest nun den Joystick-Port-1 aus; wollen Sie Port 
2 auslesen, so brauchen Sie lediglich in Zeile 30 J0 durch J1 zu 
ersetzen. 

Sollten Sie in zwei Richtungen gleichzeitig steuern wollen, bei¬ 
spielsweise nach oben und rechts, so ist auch diese Abfrage 
möglich - in unserem Beispiel werden Ihnen beide Richtungen 
auf dem Bildschirm angezeigt. Auf diese Weise erhöht sich die 
Anzahl der Richtungen von 4 auf 8! Lesen Sie aber auch die 
Verwendung von Paddies in Kapitel 4.1.4.2. 
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3.7.2 Die 1350-Maus 

Auch auf die mittlerweile mehr oder weniger modern gewordene 
Maus braucht der Commodore-128-Besitzer nicht mehr länger 
zu verzichten. Mit der Maus können Sie Programmfunktionen 
auswählen und ausführen ohne von der Tastatur Gebrauch 
machen zu müssen, sofern dies vom Treiberprogramm 
unterstützt wird. 

Genauso wie der Joystick, der Light Pen oder die Paddies wird 
die Maus an den Joystickport angeschlossen. Dabei hat die linke 
Maustaste dieselbe Auswirkung wie die Feuertaste des Joysticks; 
die rechte Taste hat softwarebedingte Zusatzfunktionen. 

Jetzt das angenehmste: Die Maus kann genauso abgefragt werden 
wie ein Joystick. So funktionieren alle Programme mit 
Joystickabfrage auch mit der Maus; selbst im 64er-Modus! Unter 
BASIC 7.0 können Sie hier von dem JOY-Kommando Gebrauch 
machen. Benutzen Sie doch aber einfach mal das hier 
abgedruckte Joystickprogramm. 

3.7.3 Der Light Pen 

Auch den Light Pen schließt man am Joystickport an. Mittels 
des Light Pen kann man softwaremäßig feststellen, auf welche 
Stelle im Bildschirm der Stift zeigt. Hierfür wird der VIC-Chip 
benötigt, der die nötigen Informationen der aktuellen Kathoden¬ 
strahlposition mitteilt. Die Position des Light Pen wird an 
Adresse $D013 (X-Position) übergeben. Da die X-Koordinate 
des Kathodenstrahl bis 512 betragen kann (9 Bits), ist die 
Auflösung des Light Pen auf 256 Punkte herunterdividiert wor¬ 
den (2 horizontale Punkte = 1 Light-Pen-Punkt). Entsprechend 
finden Sie die Y-Koordinate des Light Pen an SD014 vor, mit 
voller Auflösung übrigens. 

Die Auflösung des Light Pen ist von Modell zu Modell 
verschieden und auch vom Monitor abhängig. Deswegen 
verlangen die meisten Programme, die mit Light Pen arbeiten, 
daß man den Light Pen erst einmal herumbewegt, das Programm 
stellt sich dann auf den Light Pen ein. BASIC-Programmierer 
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haben es bei der Light-Pen-Abfrage sehr leicht, sie können das 
PEN-Kommando verwenden. 


10 REM ** Light-Pen-Abfrage *** 

20 GRAPHIC 1,1 

30 COLOR 4,2 : COLOR 0,2 : COLOR 1,0 
40 DO 

50 : X = PEN(O) 

60 : Y = PEN(0) 

70 : DRAU 1, X, Y 
80 LOOP 


3.8 Der serielle lEC-Bus des Commodore 128 

Am IEC-Bus werden Peripherie-Geräte an den Rechner ange¬ 
schlossen. Dies können beispielsweise Drucker oder Floppy- 
Laufwerke sein. Sie dürfen sich den Bus tatsächlich als einen 
solchen vorstellen: Es werden Daten vom Rechner über den Bus 
an bestimmte Haltestellen (Peripherie) transportiert, und sie 
kommen auf demselben Weg auch wieder zurück. Der im 
Commodore 64 und Commodore 128 eingebaute IEC-Bus ist eine 
abgespeckte Version der in den "größeren" CBM-Anlagen 
eingebauten lEC-Busse. Der große lEC-Bus hat 24 Leitungen, 
der kleinere Bus hat lediglich 6 Leitungen. Diese Verkleinerung 
mag aus Kosten- oder Platzgründen geschehen sein, auf jeden 
Fall trug dieser lEC-Bus für Rechner (es gibt auch einen IEC- 
Bus für Meßgeräte) nicht unwesentlich zum großen Erfolg der 
Commodore-Rechner bei. (Manche behaupten sogar, er sei das 
Geheimrezept von Commodore). 

Doch hier erst einmal die Belegung der einzelnen Leitungen: 

1 SRQ; Service ReQuest. Hat ein Gerät irgendeine Aufgabe erledigt und 

braucht nun neue Daten oder hat welche abzugeben oder verlangt sonst 
irgendeine Aktion, so kann es das dem Controller durch dieses Signal mit- 
teilen. (Wie im Krankenhaus, wo Sie nach der Schwester klingeln können.) 
Dieser wird daraufhin einen Identify-Zyklus (mittels EOI oder ATN) ein¬ 
leiten, um festzustellen, um welches Gerät es sich handelt. Diese Funktion 
wird bei Commodore nicht verwendet. 
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2 GND; Masseleitung. 

3 ATN; (In) ATteNtion. Immer dann, wenn der Controller einen Befehl 
übermitteln will, aktiviert er diese Leitung. Dadurch soll erreicht werden, 
daß alle am Bus angeschlossenen Geräte diesen Befehl mitbekommen (sie 
sollen "lauschen”), da ja von vorneherein noch nicht feststeht, welches 
Gerät gemeint ist. Dies stellt sich erst bei der Übermittlung der Geräte¬ 
adresse heraus, weshalb diese auch immer zuerst übermittelt wird, damit 
sich die anderen Geräte wieder vom Bus trennen können. 

4 CLK; (In/Out) CLocK. Da die Daten nicht byteweise, sondern bitseriell 
über den Bus wandern, gibt der TALKER jedem Bit einen Taktimpuls auf 
der Leitung CLK mit auf dem Weg, womit die Gültigkeit der Datenleitung 
angezeigt wird. 

5 DATA (In/Out) ist die einzige Datenleitung, über die ein Datenbyte mit 
dem niederwertigsten Bit voran seriell geschoben wird. 

6 RESET; Gibt einen Reset auf die angeschlossenen Geräte. 



Abb. 3 


Alle auf dem größeren IEC-Bus vorhandenen zusätzlichen 
Leitungen, wie etwa EOI, NDAC etc. werden durch die beiden 
Leitungen CLK und DATA simuliert oder besser ersetzt. Die 
Zeit zwischen den Pegelsprüngen der beiden Leitungen gibt 
Auskunft über das jeweilige Signal. 
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3.8.1 Schneller und langsamer Modus 

Sicherlich meinen Sie auch, daß es eine sträfliche Verschwen¬ 
dung ist, eine Leitung auf dem ohnehin mickrigen Bus unbe¬ 
nutzt zu lassen. Doch leider ist dies so - zumindest im normalen 
Modus. 

Wenn es einen normalen Modus gibt, so schließen Sie, dann gibt 
es auch einen anderen, nicht normalen Modus. Dies ist genau 
richtig! Wie Sie wissen, ist die 1541 nicht gerade als schnelle 
Floppy verschrien (ganz im Gegenteil). Das liegt schon allein 
daran, daß jedes Byte zerpflückt werden muß und dann Bit für 
Bit über den Bus geschickt wird. Dieser Mißstand mußte natür¬ 
lich behoben werden - was nutzt einem die Supermaschine 
Commodore 128, wenn man einen solchen Klotz am Bein hat? 
Schließlich und endlich schläft die Konkurrenz auch nicht, 
sprich die Konkurrenzprodukte werden auch nicht langsamer. 
Commodore hat hier die Floppy 1571 entwickelt, die beim 
Ladevorgang im 128er-Modus bis zu achtmal (!) schneller ist. Im 
CP/M-Modus wird dann sogar noch einiges zugelegt. Diesen 
Geschwindigkeitsvorteil hat man allerdings nur im 128er-Modus, 
nicht im 64er-Modus. Die 1541 kann man allerdings nach wie 
vor im 128er-Modus betreiben. Die Floppy erkennt soweit 
selbständig, welcher Modus eingeschaltet werden muß; dies aber 
nur in Kooperation mit dem Betriebssystem des Rechners. 

Sie können sich bestimmt schon denken, wie man diesen 
Geschwindigkeitsvorteil realisiert hat: unter Zuhilfenahme der 
brachliegenden Leitung SRQ. Im schnellen seriellen Modus wird 
diese Leitung praktisch als eine zweite CLK-Leitung benutzt, als 
bidirektionale schnelle CLOCK-Leitung. 

Im Einschaltzustand ist die 1571 immer im langsameren Modus, 
weshalb man sie auch ohne weiteres am C-64 anschließen kann. 
Der Benutzer kann nun den schnellen Modus anmelden, der 
dann beibehalten wird, bis er wieder explizit aufgehoben wird. 
Die existierenden Kernal-Routinen sind geändert worden, um 
den langsamen und schnellen Modus zu realisieren. Es gibt ein 
spezielles Flag im Kernal, um anzuzeigen, ob das aktuelle Peri¬ 
pheriegerät ein schnelles oder ein langsames ist. 
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Um die 1571 als schnelles Gerät anzumelden, muß der Benutzer 
ein HRF-Signal senden (Host Request Fast = Host erbittet 
schnellen Modus). Dies wird durch Senden von acht CLOCK- 
Impulsen über die SRQ-Leitung realisiert. Der 6526 auf der 
Controller-Platine des Laufwerkes erkennt dieses Signal und löst 
einen Interrupt aus. Im Laufwerk wird dann ein Flag gesetzt, 
das den schnellen Modus anzeigt. Wenn die Floppy nun 
LISTENER ist und Daten empfängt, sendet sie das ein DRF- 
Signal (Device Request Fast = Gerät erbittet schnellen Modus). 
Anhand dieses Signals erkennt dann der Rechner, daß die 
Floppy in der Lage ist, Daten schnell zu empfangen und zu 
senden; eine 1541 würde dieses DRF-Signal natürlich nicht sen¬ 
den können. Das rechnerinterne Schnell-Modus-Flag kann durch 
folgende Ereignisse wieder rückgesetzt werden: UNLISTEN, 
UNTALK, Fehler auf Bus sowie <RUN/STOP>-<RESTORE>. 


3.8.2 Die Geräteadressen 

Es besteht die Möglichkeit, eine Reihe von Geräten an den 
seriellen IEC-Bus anzuschließen, bespielsweise zwei Floppies 
und einen Drucker. Dies macht es notwendig, die verschiedenen 
Geräte auch unterscheiden zu können, damit die Daten wissen, 
wo sie "aussteigen" müssen. Sie können sich die Geräteadresse 
also praktisch als Hausnummer vorstellen. Als Geräteadresse sind 
die Werte 0-30 möglich. 


Geräteadresse Gerät 


0-3 Interne Geräte (Tastatur, Bildschirm, User Port, Kassettenport). 

4-7 Normalerweise CBM-Drucker. 

8-11 Normalerweise CBM-Floppies. 

12-30 Noch unbenutzt. 

Die Geräteadresse enthält allerdings außer der eigentlichen 
Gerätenummer noch eine weitere Information: die Aktion, die 
ausgeführt werden soll. Die möglichen Aktionen sind die 
folgenden: 
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32 Das Gerät wird als LISTENER adressiert, d.h. es soll Daten empfangen. 
Diese Aktion wird beispielsweise durch das BASIC-Kommando PRINT# 
oder DSAVE hervorgerufen. 

64 Das Gerät soll TALKER sein, also Daten senden. Hier könnten beispiels¬ 
weise die BASIC-Kommandos INPUT# oder DLOAD als Ursache dienen. 

48 Die Betriebsart LISTEN wird beendet (UNLISTEN). Das niederwertige 
Halbbyte (Gerät) ist hierbei immer 15. 

80 Die Betriebsart TALK wird beendet (UNTALK). Das niederwertige Byte ist 
auch hier immer 15. 

Wollen Sie beispielsweise einen Drucker mit der Geräteadresse 4 
zum Drucken adressieren, so setzt sich die gesamte Geräteadresse 
zusammen aus: 32 + 4 = 36 ($24). 


3.8.3 Die Sekundäradressen 

Die Sekundäradresse dient nicht der Auswahl eines Gerätes am 
IEC-Bus - sie dient vielmehr der Auswahl eines Modus im an¬ 
gesprochenen Gerät. So kann man beispielsweise bei den meisten 
Druckern durch Angabe der Sekundäradresse einen ganz 
bestimmten Druckmodus wählen. Bei den CBM-Druckern kann 
man beispielsweise durch die Sekundäradresse 0 den Groß- 
/Grafik-Modus anwählen, die Sekundäradresse 7 wählt den 
Groß-/K.leinschrift-Modus aus. Auch beim Floppy-Laufwerk 
kann man durch Angabe der Sekundäradresse einen Datenkanal 
ansprechen. 

Auch die Sekundäradresse setzt sich zusammen aus der eigent¬ 
lichen Sekundäradresse und dem Zusammenhang, in dem die 
Sekundäradresse auf tritt. 

96 PRINT, IN PUT oder GET 
224 CLOSE 
240 OPEN 

Als nützlich wird sich auch diese Tabelle erweisen, die Ihnen in 
Bitmustern anzeigt, wie sich die einzelnen Geräte- und 
Sekundäradressen zusammensetzen. 
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Kommando 

Abkürzung 

Binärer Wert 

Host Request Fast 

HRF 

%1111 1111 

Device Request Fast 

DRF 

%0000 0000 

Talk Adresse 

(TA) 

%010x xxxx 

Listen Adresse 

(LA) 

%001x xxxx 

UNTALK 

(UNTLK) 

%0101 1111 

UNLISTEN 

(UNLSN) 

%0011 1111 

SA OPEN 

(SA(O)) 

%1111 yyyy 

SA CLOSE 

(SA(C)) 

%1110 yyyy 

SA Normal 

(SA) 

%01 lz zzzz 


Die normale Sekundäradresse darf einen Wert zwischen 0 und 31 
haben (z zzzz). Die Kanaladresse (yyyy) darf einen Wert 
zwischen 0 und 15 haben. Als Beispiel die Sekundäradressen und 
deren Bedeutung für die 154x-Laufwerke: 


00 - PRG-Type (Read Data Channel) 
01 - PRG-Type (Write Data Channel) 
02-14 - Kanäle für alle Filetypen 
15 - Kommandokanal 


3.8.4 Die Systemvariable ST 

Wo Peripheriegeräte angeschlossen sind, können natürlich auch 
Fehler auftreten. Die Systemvariable ST gibt Auskunft darüber, 
ob die letzte Aktion auf dem IEC-Bus erfolgreich verlaufen ist 
oder nicht; ist sie nicht erfolgreich verlaufen, so kann man den 
Fehler anhand des in ST übergebenen Fehlercodes analysieren. 
ST kann nun folgende Werte annehmen: 

1 Kann nach OPEN oder PRINT auftreten. Nach der Übergabe eines 

Datenbytes wurde dieses nicht innerhalb von 64 ms durch Zurücknahme 
von NDAC quittiert, es ist also wahrscheinlich nicht angekommen. 


2 


Kann bei INPUT oder GET auftreten. Wird ein Gerät als TALKER 
angesprochen und sendet nicht innerhalb von 64 ms ein Datenbyte, so 
beinhaltet ST diesen Wert. 




86 


128 Intern 


64 Das zuletzt übergebene Datenbyte wurde in Verbindung mit einem EOI 
übergeben, was bei einer Floppy auf Dateiende hindeutet (EOF). 

-128 Ein Adressierungsversuch zeigte keinerlei Reaktion auf dem Bus. In 
diesem Falle wird ein BASIC-Programm die Fehlermeldung DEVICE 
NOT PRESENT ausgeben, in Maschinensprache können Sie hierauf 
reagieren. 


Es kann auch Vorkommen, daß eine Kombination der oben 
genannten Werte auftritt. Hier ist es ratsam, in einem BASIC- 
Programm nicht den absoluten Wert abzufragen, sondern das 
entsprechende Bit, also: 

1000 IF (ST AND 64) THEN PRINT "<EOF>” 

Um in Maschinensprache das Statuswort ST abzufragen, ist es 
notwendig, sich dieses aus der Zeropage zu holen. Erfreu¬ 
licherweise liegt es sowohl im 64er- als auch im 128er-Modus an 
derselben Adresse: $90 (144). Ein Abfragen in Maschinensprache 
sähe dann so aus: 

IDA $90 ;Hole Statusvariable 

AND #$40 ;Bit 6 gesetzt? 

BNE EOF ;EOF erreicht 
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4. Der Soundchip SID 


4.1 Der Soundcontroller 6581 

4.1.1 Allgmeines zum SID 

Auch die Musik ist - neben der Grafik - ein interessantes An¬ 
wendungsgebiet in der Computerei. Sie können sich glücklich 
schätzen, da ein überaus leistungsstarker Synthesizer - etwas 
anderes ist der SID nicht - in Ihrem Commodore schlummert. Es 
handelt sich um denselben Baustein, wie er sich schon im 
Commodore 64 bewährt hat. Kaum ein Spiel verzichtet auf die 
Möglichkeiten, die sich durch den SID bieten, aber keines er¬ 
reicht wohl die Leistungsgrenzen dieses Chips. Nicht selten 
ertönen die bekanntesten Melodien in allen möglichen und 
unmöglichen Klangfarben - Sprechen kann er mittlerweile auch, 
der Commodore, natürlich dank des SIDs, ohne jeglichen 
weiteren Hardware-Aufwand. Benötigt wird lediglich ein 
entsprechendes Programm. 

Hier die wesentlichen Merkmale des SID 6581 in Stichpunkten: 

* 3 unabhängige, frei programmierbare Stimmen 

* 4 mischbare Schwingungsarten für jede Stimme 

* 3 mischbare Filler (Hoch-, Tief-, Bandpassfilter) 

* Hüllkurvengenerator (ASDR-Konlrolle) für jede Stimme 

* 2 kaskadierbare Ringmodulatoren 

* Verfremdungsmöglichkeit für externe Signalquelle 

* Zwei 8-Bil-A/D-Wandler 
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Abb. 4 (Blockschaltbild SID) 
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4.1.2 Pinbelegung des 28 poligen Gehäuses: 


1-2 CAP1A, CAP1B; Anschluß des Kondensators für die programmierbaren 

Filter. Empfohlene Kapazität: 2200pF. 

3-4 CAP2A, CAP2B; wie 1-2. 

5 -RES (Reset); =0 bringt den SID in den Grundzustand. 

6 02 (Systemtakt); alle Datenbusaktionen finden nur während 02=1 statt. 

7 R/W (Read/Write); 0=Schreibzugriff, l=Lesezugriff. 

8 -CS (Chip Select); 0=Datenbus gültig, l=Datenbus hochohmig (Tri- 
State). 

9-13 A0-A4 (Adreßbits 0-4); dienen zur Auswahl eines der 29 Register des 

SID. 

14 GND (Masse); Achtung: Der SID sollte eine eigene Masseleitung zur 

Stromversorgung besitzen, um gegenseitige Beeinflussungen mit anderen 
Systemkomponenten zu vermeiden! 

15-22 D0-D7; Datenleitungen von und zum Prozessorsystem. 

23 A2IN (Analog Input 2); Handhabung unbedingt unter 4.1.4 nachlesenl 

24 A1IN; Wie 23, allerdings für A/D-Wandler 1. 

25 VCC; Versorgungsspannung +5V. 

26 EXT IN (External Input); Eingang für externe Audiosignale, die durch 
SID verfremdet werden sollen. 

27 AUDIO OUT; Summenausgang aller im SID erzeugten oder behandelten 
Signale. 

28 VDD; Versorgungsspannung +12V. 

SID steht für Sound Interface Device. Während handelsübliche 
Synthesizer meist nur über eine Stimme verfügen, man nennt sie 
dann monophon , so verfügt der SID gleich über drei voneinander 
unabhängige, frei programmierbare Stimmen (polyphon). Viele 
Konkurenzrechner haben sich auf dieses leistungsstarke Element 
eingestellt und ebenfalls mehrstimmige Synthesizer eingebaut. 

Wie bereits erwähnt, verfügt der SID 6581 über drei frei 
programmierbare Stimmen, die sowohl unabhängig voneinander 
als auch in Verbindung miteinander benutzt werden können. 

Einige der Leser haben mit Sicherheit schon Töne oder Tonfol¬ 
gen unter BASIC 7.0 programmiert. Auch bei der Produktion 
von Tönen müssen Sie sich von diesem Standard lösen, der Ihnen 
durch BASIC 7.0 geboten wird: Der SID ist zwar komfortabel, 
aber Dinge wie Warteschlangen (Queues) etc. müssen Sie in 
Maschinensprache selbst durch Interrupts lösen. Im 64er-Modus 
stehen Ihnen die komfortableren Kommandos auch nicht zur 
Verfügung - was aber kein Grund zur Resignation ist, denn man 
kann auch durch entsprechende POKE-Kommandos eine Menge 
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aus dem SID herausholen; im Prinzip macht der Interpreter bei 
der Ausführung Ihrer BASIC-Kommandos ja nichts anderes. 

Wer also schon einmal unter BASIC Töne programmiert hat oder 
wer Synthesizer-Freak ist, für den sind Begriffe wie Hüllkurve 
und AmpliLudenmodulator nichts Unbekanntes mehr. Wir wollen 
diese so notwendigen Begriffe aber auf jeden Fall erläutern, da 
sie zur Programmierung des SID sehr wichtig sind. 

Jede Stimme besteht aus: Oszillator , Hüllkurvengenerator , 
Amplitudenmodulator und einem Schwingungsformgenerator. Der 
Oszillator erzeugt bei einer Taktfrequenz von 1 MHz eine 
Grundfrequenz im Bereich 0 - 8200 Hz mit einer Auflösung von 
16 Bit. Es sind vier verschiedene Schwingungsformen möglich: 
Sägezahn, Rechteck (mit variablem Puls-/Pauseverhältnis), 
Dreieck und das jedem eingefleischten HiFi-Freak bekannte 
"rosa Rauschen". Die Schwingungsform ist ein wichtiges 
Kriterium für das Klangbild des zu erzeugenden Tones, da jede 
Schwingungsform ihren eigentümlichen Gehalt an Oberwellen 
hat. So hört sich die Dreiecksschwingung sehr weich an, etwa 
wie eine Holzflöte. Die Sägezahnschwingung klingt eher 
blechern, einer Trompete sehr ähnlich. Einer Klarinette gleicht 
die Rechteckschwingung, die sehr hohl klingt. Bleibt noch das 
Rauschen übrig, das weniger einem Instrument ähnelt, obwohl 
man ein Schlagzeug recht gut simulieren kann. Geräuscheffekte 
beispielsweise können am besten durch das Rauschen, eventuell 
durch Überlagerung einer weiteren Welle, erzeugt werden. Das 
Rauschen wird durch Überlagerung einer Vielzahl aufeinan¬ 
derfolgender, zufälliger Frequenzen erreicht. 

Der Amplitudenmodulator beeinflußt den Verlauf der Lautstärke 
während der Erzeugung eines Tones. Der Modulator wird durch 
den Hüllkurvengenerator gesteuert, den Sie wiederum direkt 
programmieren können. Um die Programmierung des 
Hüllkurvengenerators kümmern wir uns später noch. Ferner 
können die Ausgänge aller Stimmen weiterhin noch über 
programmierbare Filter geschickt werden, wodurch Sie die 
Klangfarbe noch einmal beeinflussen können. Für SID-Fäns gibt 
es dann noch einige Möglichkeiten: Es können die Stimmen 1 
und 2 noch von der Stimme 3 ringmoduliert werden, d.h. es 
entstehen außer der Grundstimme noch Summe und Differenz 
mit der Stimme 3. Bei der Stimme 3 kann man während des 
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Verlaufes eines Tones den Augenblickswert des Hüllkurven¬ 
generators auslesen und dann anhand dieser Daten beispielsweise 
einen Filter verändern. 

4.1.3 Registerbeschreibung des SID 

Die Basisadresse des SID 6581 ist $D400 (54272). 

REG 0 Oszillatorfrequenz niederwertiges Byte für Stimme 1. 

REG 1 Oszillatorfrequenz höherwertiges Byte für Stimme 1. 

REG 2 Pulsbreits niederwertiges Byte für Stimme 1. 

REG 3 Pulsbreite höherwertiges Byte für Stimme 1. 

Die Register 2 und 3 bestimmen das Puls-/Pauseverhältnis des Rechteck¬ 
ausganges von Stimme 1. Von Register 3 werden lediglich die Bits 0-3 
benutzt. 

REG 4 Steuerregister für Stimme 1 

Bit 0: KEY; Steuerbit für den Ablauf des Hüllkurvengenerators. Beim 
Wechsel von 0 nach 1 steigt die Lautstärke von Stimme 1 
innerhalb der in REG 5 programmierten "Attack"-Zeit von Null 
auf den Maximalwert (REG 24) an und fällt dann in der 
ebenfalls in REG 5 angegebenen "Decay"-Zeit auf den in REG 6 
programmierten "Sustain"-Pegel ab, auf dem sie bleibt, bis das 
Steuerbit wieder Null wird. Dann fällt die Lautstärke innerhalb 
der in REG 6 ausgewählten "Release"-Zeit wieder auf Null ab. 

Bit 1: SYNC; 1= Oszillator 1 wird mit Oszillator 3 synchronisiert. 
Dieses Bit hat auch dann Wirkung, wenn die Stimme 3 
stummgeschaltet sein sollte. 

Bit 2: RING; 1= Der Dreieckschwingungsausgang von Oszillator 1 
wird durch ein Frequenzgemisch (Summe und Differenz der 
Frequenzen von Stimme 1 und 3) ersetzt. Dieser Effekt tritt 
auch dann ein, wenn Stimme 3 stummgeschaltet ist. 

Bit 3: TEST; Wenn zusammen mit dem Rauschgenerator noch eine 
weitere Schwingungsform desselben Oszillators ausgewählt 
wurde, kann es Vorkommen,daß der Rauschgenerator blockiert. 
Die Blockade kann durch dieses Bit wieder aufgehoben werden. 

Bit 4: TRI; 1= Dreieckschwingung ausgewählt. 

Bit 5: SAW; 1= Sägezahnschwingung ausgewählt. 

Bit 6: PUL; 1= Rechteckschwingung ausgewählt. Das Puls- 
/Pauseverhältnis dieser Schwingung wird in REG 2 und REG 3 
eingestellt. 

Bit 7: NSE; 1= Rauschgenerator ausgewählt. 
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Anmerkung zu den Bits 4-7: Es ist praktisch möglich, mehrere 
Schwingungsformen gleichzeitig auszuwählen. Zu beachten ist jedoch, 
außer dem zu Bit 3 Gesagten, daß das Ergebnis nicht etwa die Summe 
aller Formen darstellt sondern vielmehr eine logische UND-Verknüpfung 
der Komponenten. 

REG 5 ATTACK/DECAY 

Bits 0-3: Diese Bits bestimmen die Zeit, die verstreicht, bis die Laut¬ 
stärke vom Maximalwert auf den Sustain-Pegel abfällt. Der 
einstellbare Bereich beträgt 6 ms bis 24 Sekunden. 

Bits 4-7: Hiermit wird die Zeit definiert, in der die Lautstärke nach 
dem Setzen des KEY-Bits von Null auf Maximalwert 
ansteigt. Der einstellbare Bereich liegt hier bei 2 ms bis 8 
Sekunden. 

REG 6 SUSTAIN/RELEASE 

Bits 0-3: Mit diesen Bits wird die Zeit eingestellt, innerhalb der die 
Lautstärke nach Rücksetzen des KEY-Bits (Ende des 
Tones) vom Sustain-Pegel auf Null abfällt. Der einstellbare 
Bereich ist 6 ms bis 24 Sekunden. 

Bits 4-7: Diese Bits geben den Sustain-Pegel an, also die Lautstärke, 
die nach dem Ansteigen auf Maximalwert und folgendem 
Abfallen gehalten werden soll. 

REG 7 Diese Register steuern die Stimme 2 analog zu den Registern 

bis 0-6, allerdings mit folgenden Ausnahmen: 

REG 13 SYNC synchronisiert Oszillator 2 mit Oszillator 3. 

RING ersetzt den Dreieckausgang von Oszillator 3 durch das Frequenz¬ 
gemisch aus den Oszillatoren 2 und 3. 

REG 14 Diese Register steuern die Stimme 3 analog zu den Registern 0-6 

bis mit folgenden Ausnahmen: 

REG 20 SYNC synchronisiert Oszillator 3 mit Oszillator 2. 

RING ersetzt die Dreieckschwingung von Oszillator 3 durch das 
Frequenzgemisch aus den Oszillatoren 2 und 3. 

REG 21 Filterfrequenz niederwertiges Byte 
Es werden nur die Bits 0-2 benutzt. 

REG 22 Filterfrequenz höherwertiges Byte 

Die 11-Bit-Zahl der Register 21 und 22 bestimmt die Filtereckfrequenz 
bzw. -mittenfrequenz. 

Im Commodore 128 errechnet sich diese Frequenz folgendermaßen: 
F=(30+W*5.8) Hz, wobei W die 11-Bit-Zahl darstellt. 




REG 23 Filterresonanz und -Schalter 

Bit 0: 1= Stimme 1 wird über den Filter geleitet. 

Bit 1: 1= Stimme 2 wird über den Filter geleitet. 

Bit 2: 1= Stimme 3 wird über den Filter geleitet. 

Bit 3: 1= Die externe Quelle wird über den Filter geleitet. 

Bits 4-7: Diese Bits bestimmen die Resonanzfrequenz des Filters. 

Diese benutzt man dazu, bestimmte Ausschnitte des 
Frequenzspektrums hervorzuheben. Die Wirkung kann 
besonders gut bei der Sägezahnschwingung beobachtet 
werden. 

REG 24 Dieses Register hat folgende Bedeutungen: 

Bits 0-3: Gesamtlautstärke. 

Bit 4: Schaltet den Tiefpaßzweig des Filters ein. 

Bit 6: Schaltet den Bandpaßzweig des Filters ein. 

Bit 6: Schaltet den Hochpaßzweig des Filters ein. 

Hoch- und Tiefpaßfilter haben eine Flankensteilheit von 12 db/Oktave. 
Der Bandpaßfilter hat eine solche von 6 db/Oktave. Es kann mehr als ein 
Filter eingeschaltet sein. Sind beispielsweise Hoch- und Tiefpaß ein¬ 
geschaltet, resultiert daraus eine Bandsperre. Um den Einfluß der Filter 
zu Gehör zu bringen, muß wenigstens ein Filter eingeschaltet sein und 
wenigstens eine Stimme über den Filter geleitet werden. Allgemein 
gesehen wird das Filter dazu benutzt, bestimmte Bereiche aus einem 
Frequenzspektrum herauszufiltern. Daher erlaubt die Filterung eine viel 
feinfühligere und ausgeklügeltere Beeinflussung des Klangbildes, als es 
durch die bloße Auswahl der Schwingungsform möglich wäre. 

Verändert man die Filterfrequenz während des Ablaufes eines Tones (bei 
kurzen Tönen nur in Maschinensprache möglich), so lassen sich die 
verschiedensten Instrumente perfekt nachbilden. 

Bit 7: l=Stimme 3 unhörbar. Von dieser Möglichkeit sollte man 

dann Gebrauch machen, wenn der Verlauf der Stimme 3 
lediglich zur Parametergewinnung der anderen Stimmen 
"mißbraucht" wird. 

Auf alle zuvor aufgeführten Register kann nur ein Schreib¬ 
zugriff erfolgen. Ein Lesezugriff bringt keinerlei Aussage. Auf 
alle folgenden Register kann nur lesend zugegriffen werden: 

REG 25 A/D-Wandler 1 


REG 26 A/D-Wandler 2 
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REG 27 Rauschgenerator der Stimme 3 

Dieses Register liefert eine Zufallszahl, die dem augenblicklichen Stand 
des Rauschgenerators 3 entspricht. Der Generator muß hierzu einge¬ 
schaltet sein, jedoch kann die Stimme 3 unhörbar sein (Bit 7 in REG 24 
= 1 ). 

REG 28 Hüllkurvengenerator der Stimme 3 

Aus diesem Register kann man den augenblicklichen Stand der relativen 
Lautstärke von Stimme 3 entnehmen. So könnte man entsprechend dem 
Lautstärkeverlauf die Frequenz oder die Filterparameter variieren. Ein 
Beispiel hierzu finden Sie im Abschnitt 4.2.2. 

Nachdem wir eine Tabelle der Register haben, wollen wir 
anhand kurzer Beispiele auch die Verwendung dieser Register 
erläutern. Wir setzen den Schwerpunkt allerdings auf die 
tonerzeugenden Register, nicht auf die A/D-Wandler etc. 


4.1.4 Der Analog/Digitalwandler 

Die Worte analog und digital dürften weitläufig bekannt sein, 
beispielsweise nennt man bei Quarzuhren die Uhren mit den 
guten alten Zeigern analog, während die Uhren mit LCD- 
Anzeige digital genannt werden. Diese Bezeichnungen rühren 
von der Art und Weise her, wie die Zeit angezeigt wird. 

Ein A/D-Wandler (so nennt man ihn kurz) ist eine Einrichtung 
zur Umwandlung eines analogen Signales, beispielsweise einer 
Spannung, in einen digitalen Wert. Das Problem ist, daß man 
einen analogen Wert mit theoretisch unendlich feiner Abstufung 
in einen endlich, durch feste Intervalle abgestuften digitalen 
Wert umwandeln muß. Es entsteht bei dieser Umwandlung ein 
maximaler Fehler von ± einem kleinsten digitalen Schritt. 

Wie Sie den Registern entnehmen können, enthält der S1D 6581 
zwei A/D-Wandler. Hierbei handelt es sich um eine Anordnung 
mit einer intern erzeugten Referenzspannung von ca. 2.5 V. 
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Der Meßvorgang besteht darin, daß eine externe Kapazität 
zunächst entladen wird und dann anschließend ein Wert in 
Register 25 bzw. Register 26 übernommen wird, der der 
benötigten Zeit für eine erneute Aufladung der Kapazität auf 
die Referenzspannung entspricht. Dieser Vorgang wiederholt 
sich zyklisch. 


4.1.4.1 Die Handhabung des A/D-Wandlers 

Wir schließen aus dem Erwähnten, daß nur eine potentio- 
metrische Beschaltung des Wandlers in Frage kommt. Als 
Meßwertaufnehmer eignen sich dann dementsprechend nur 
veränderliche Widerstände in irgendeiner Form, beispielsweise 
Photowiderstände, Heiß- und Kaltleiter etc. 

Sollen Spannungen gemessen werden, so müssen diese zuvor in 
eine geeignete Form umgewandelt werden, z.B. mit Hilfe eines 
Unijunction-Transistors. 

Die Meßanordnung sieht einfach so aus, daß an das eine Ende 
des Meßwiderstandes +5V angelegt werden (an den Controlports 
des C128 verfügbar) und das andere Ende mit dem Analo¬ 
geingang des SID (ebenfalls an den Controlports verfügbar, die 
Bezeichnungen lauten POTX und POTY) verbunden wird. Der 
aus den Registern 25 und 26 ausgelesene Wert ist ein Maß für 
den Widerstand. 

Um die gesamte Skala von 8 Bits ausnutzen zu können, muß sich 
der Widerstand im Bereich von 200 Ohm (nicht kleiner bitte!) 
bis 200 Kiloohm bewegen. Die programmtechnische Handhabung 
der A/D-Wandler wird im nächsten Abschnitt behandelt. 


4.1.4.2 Die Verwendung von Paddies 

Paddies sind nichts anderes als Potentiometer in handgreiflicher 
Form und eignen sich also somit hervorragend zum Anschluß an 
die A/D-Wandler. An den Commodore 128 können handeis- 
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übliche Paddies angeschlossen werden. Man schließt sie einfach 
an die Controlports 1 oder 2 an, wo Sie sonst den Joystick 
anschließen können. 

Da einige Bits im CIA 1 und 2 sowohl für die Tastatur als auch 
für die Paddle-Abfrage verantwortlich sind, ist die programm¬ 
technische Lösung der Paddle-Abfrage nicht ganz einfach. Um 
nun nicht unsinnige Ergebnisse zu erlangen, schaltet man die 
Tastatur am besten ab, und zwar genau während des Zugriffs, 
da sonst die Tastatur überhaupt nicht mehr zu bedienen wäre. 

Wir wollen Ihnen hier ein kleines Maschinenprogramm anbieten, 
daß eine komfortable Paddle-Abfrage ermöglicht. Als BASIC- 
Loader in Ihr Programm eingebunden wird es Ihnen gute 
Dienste leisten. Das Programm liegt im Bereich SCFBE bis 
$CFFF. Dieser Bereich wurde gewählt, da er sowohl im ^Ser- 
Modus als auch im 64er-Modus frei ist. Sie können es natürlich 
beliebig verschieben. Sie müssen dann lediglich die zwei Unter¬ 
programmaufrufe an den Adressen $CFC1 und $CFD4 ent- 


sprechend 

ändern. 


CFBE 

SEI 


.•TASTATURABFRAGE VERHINDERN 

CFBF 

LDA 

#$80 

.•PARAMETER FÜR PADDLESATZ A 

CFC1 

JSR 

SCFEC 

,-A/D-WERTE Al UND A2 HOLEN 

CFC4 

STX 

$0201 

;UND SICHERSTELLEN 

CFC7 

STY 

$0202 


CFCA 

LDA 

$DC00 

.•TASTEN A AUS CIA 1 HOLEN 

CF CD 

AND 

#$0C 

.•BENÖTIGTE BITS FILTERN 

CFCF 

STA 

$0200 

;UND SICHERSTELLEN 

CFD2 

LDA 

#$40 

.•PARAMETER FÜR PADDLESATZ B 

CFD4 

JSR 

SCFEC 

;A/D-WERTE Bl UND B2 HOLEN 

CFD7 

STX 

$0203 

;UND SICHERSTELLEN 

CFDA 

STY 

$0204 


CFDD 

LDA 

$DC01 

.•TASTEN B AUS CIA 2 HOLEN 

CFEO 

AND 

#$0C 

.•BENÖTIGTE BITS FILTERN 

CFE2 

STA 

$0205 

;UND SICHERRSTELLEN 

CFE5 

LDA 

#$FF 

,-ALLE BITS AUSGANG IN CIA 1 

CFE7 

STA 

SDC92 

;UM TASTATURABFRAGE WIEDER 

CFEA 

CLI 


;ZU ERLAUBEN 

CFEB 

RTS 


.■RÜCKKEHR INS BASIC-PROGRAMM 

CFEC 

STA 

$DC00 

.•PADDLESATZ AUSWAHLEN 

CFEF 

ORA 

#$C0 

;UND ENTSPRECHENDE BITS 
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CFF2 

STA 

SDC02 

;AUF AUSGANG SETZEN 

CFF4 

LDX 

#$00 

.-VERZÖGERUNGSSCHLEIFE ZUR 

CFF6 

DEX 


.-BERUHIGUNG DES 

CFF7 

BNE 

SCFF6 

;A/D-EINGANGS 

CFF9 

LDX 

$D419 

;A/D 1 HOLEN 

CFFC 

LDY 

$D41A 

;A/D 2 HOLEN 

CFFF 

RTS 


;RÜCKKEHR INS HAUPTPROGRAMM 


Hier nun der BASIC-Loader mit Beispielprogramm. Schließen 
Sie Ihre Paddies an und starten Sie das Programm. Schauen Sie, 
was geschieht. 

10 DATA 120,169,128,32,236,207,142,1,2,140,61,3,173 
20 DATA 0,220,41,12,141,0,2,169,64,32,236,207,142 
30 DATA 3,2,140,4,2,173,1,220,41,12,141,5,2,169 
40 DATA 255,141,2,220,88,96,141,0,220,9,192,141,2 
50 DATA 220,162,0,202,208,253,174,25,212,172,26,212,96 
60 FOR M=53182 TO 53247 

70 READ A: P0KE M,A: NEXT: REM Maschinenprogramm einiesen 

80 AX=515: REM Paddle 1 am Controlport 1 

90 AY=516: REM Paddle 2 am Controlport 1 

100 BA=517: REM Tasten an Paddlepaar A 

110 BX=513: REM Paddle 1 am Controlport 2 

120 BY=514: REM Paddle 2 am Controlport 2 

130 BB=512: REM Tasten von Paddlepaar B 

140 SYS 53182: REM Alle Werte holen 

150 PRINT PEEK(AX)" "PEEK(AY)" "PEEK(BA); 

160 PRINT PEEK(BX)" "PEEK(BY)" "PEEK(BB) 

170 GOTO 140 


4.1.5 Programmierung des SID 

Wir haben bereits Begriffe wie Hüllkurve und ADSR-Kontrolle 
angeschnitten; lassen Sie uns nun näher darauf eingehen, um 
Ihnen auch in Maschinensprache zu ermöglichen, den SID direkt 
zu programmieren. 

Die Klangfarbe wird durch die Auswahl der Schwingungsform 
bestimmt; Filter können weiteres zur Veränderung des Klang- 
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bildes beitragen. Die Hüllkurve bestimmt den Tonverlauf, also 
die Lautstärke, die Dauer des Anschwellens etc. Folgendes 
Schaubild verdeutlicht die einzelnen Stadien, die ein Ton 
durchläuft: 



Abb. 5 (Hüllkurvenbeispiel) 


Wir können auf dem Schaubild erkennen, daß ein Ton sich in 
vier Grundstufen unterteilen läßt: Anschwellen (Attack), 
Abfallen auf mittlere Laustärke ( Decay ), Halten ( Sustain ) und 
Abschwellen auf Null (Release). Die Dauer der einzelnen Stadien 
können Sie für jede Stimme einzeln bestimmen. Durch Setzen 
des KEY-Bits (Bit 0, Register 4 für Stimme 1) beginnt das 
Anschwellen des Tones, dessen Frequenz Sie zuvor definiert 
haben. Auch alle anderen Werte, wie Attack, Decay, Sustain und 
Release, müssen unbedingt vor Setzen des KEY-Bits definiert 
worden sein! Der Ton schwillt nun von Lautstärke Null bis auf 
Maximallautstärke (REG 14) innerhalb des in Attack (REG 5, 
Bits 4-7) definierten Zeitrahmens an. Nachdem die 
Maximallautstärke erreicht worden ist, fällt die Lautstärke 
innerhalb von Decay (REG 5, Bits 0-3) auf die zu haltende 
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Lautstärke Sustain (REG 6, Bits 4-7) wieder ab. Diese Laut¬ 
stärke wird solange gehalten, bis das KEY-Bit wieder gesetzt 
wird. Ist dies geschehen, so fällt die Lautstärke innerhalb von 
Release (REG 6, Bits 0-3) auf Null ab. Die in Klammern ange¬ 
gebenen Registernummern beziehen sich auf Stimme 1, für 
Stimme 2 müssen Sie 7, für die Stimme 3 sogar 14 hinzuad¬ 
dieren. 

Die Dauer des Anschlages Attack können Sie in einem zeitlichen 
Rahmen von 2 ms bis 8 Sekunden definieren. Die Werte für 
Decay und Release liegen in einem Bereich von 6 ms bis 24 
Sekunden. Diese zeitlichen Rahmen sind in 16 Stufen unterteilt 
worden, die Sie dieser Tabelle entnehmen können: 


Wert 

! Attack 

! Decay / Rel 


' 


' 


0 

! 2 

ms 

! 6 

ms 

1 

! 8 

ms 

! 24 

ms 

2 

! 16 

ms 

! 48 

ms 

3 

! 24 

ms 

! 72 

ms 

4 

! 38 

ms 

! 114 

ms 

5 

! 56 

ms 

! 168 

ms 

6 

! 68 

ms 

! 204 

ms 

7 

I 80 

ms 

1 240 

ms 

8 

! 100 

ms 

! 300 

ms 

9 

! 250 

ms 

! 750 

ms 

10 

! 500 

ms 

! 1.5 

Sek. 

11 

! 800 

ms 

! 2.4 

Sek. 

12 

! 1 

Sek. 

! 3 

Sek. 

13 

! 3 

Sek. 

! 9 

Sek. 

14 

! 5 

Sek. 

! 15 

Sek. 

15 

! 8 

Sek. 

! 24 

Sek. 


Folgendes kleines Programm soll Sie mit den Schwingungsformen 
und dem Tonumfang des SID 6581 vertraut machen: 

10 S1=54272: REM Stimme 1 
20 S2=54279: REM Stimme 2 
30 S3=54286: REM Stimme 3 
40 FL=54293: REM Filter LO-Byte 
50 FH=54294: REM Filter HI-Byte 
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60 RS=54295: REM Resonanz+Schalter 
70 PL=54296: REM Passart+Lautstärke 

80 POKE SI+4,0: POKE S2+4.0: POKE S3+4,0: REM Steuerregister = 0 
100 POKE S1+2,0: POKE S2+2,0: POKE S3+2.0: REM Pulsbreite auf 0 
110 POKE S1+5,0: POKE SI+6,240: REM Attack/Decay Stimme 1 
120 POKE RS,0: POKE PL,15: REM Keine Resonanz/Lautstärke=15 
130 PRINT "Dreieck..." 

140 T=16: GOSUB 300 
150 PRINT "Sägezahn..." 

160 T=32: GOSUB 300 
170 PRINT "Rechteck..." 

180 T=64: GOSUB 300 
190 PRINT "Rauschen..." 

200 T=128:GOSUB 300 
210 PRINT "Stille..." 

220 END 

300 POKE S1,0: POKE S1+1,0: REM Frequenz 

310 POKE S1+4,T+1: REM Ton einschalten, Schwingung definieren 
320 FOR 1=0 to 255: FOR J=0 TO 255 STEP 50 
330 POKE S1,J: POKE S1+1,I 
340 NEXT J,I 

350 POKE S1+4.T: REM Ton ausschalten 
360 RETURN 

Die Zeilen 10 bis 80 sollten Sie in jedes Programm integrieren, 
das mit Ton arbeitet, es erleichtert die Arbeit schon sehr. 
Nachdem Sie das Programm abgetippt und gestartet haben, ken¬ 
nen Sie das Frequenzspektrum und die verschiedenen 
Schwingungsformen des S1D. Wir wollen Ihnen aber auch gerne 
ein Beispiel geben, welche Auswirkungen das Verändern der 
Hüllkurve mitsichbringt. Hierzu übernehmen Sie der Einfachheit 
halber die Zeilen 10 bis 80 aus unserem Beispielprogramm und 
fügen folgende Zeilen an: 

100 A=9: D=9: S=8: R=9: H=400 

110 POKE S1+5,16*A+D: POKE S1+6,16*S+R 

120 POKE RS,0: POKE PL,15 

130 POKE S1,37: POKE SI+1,17: REM Frequenz 

140 POKE S1+4,33 : REM Ton ein und Sägezahn 

150 FOR 1=0 TO H: NEXT 

160 POKE SI+4,32: REM Ton ausschwellen lassen 
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Sie haben sicherlich schon die Bedeutung der einzelnen 
Variablen erkannt: A=Attack , D=Decay, S=Sustain und 
R=Release. Die Variable H gibt die Dauer des Haltestatus an. 
Verändern Sie die einzelnen Variablen, um ein Gefühl dafür zu 
bekommen, welche klanglichen Veränderungen Sie durch 
Ändern der Werte erreichen können. Achten Sie aber darauf, 
daß keine Variable, mit Ausnahme von H, größer als 15 werden 
darf! Wenn Sie von der Hüllkurve Gebrauch machen wollen, so 
laden Sie nach der Warteschleife, die die Dauer des Tones defi¬ 
niert, das Register 4 nicht mit dem Wert Null; unmittelbare 
Folge wäre nämlich, daß der Ton sofort verlischt. Machen Sie es 
so, wie in diesem Beipiel angegeben: Beim Einschalten des Tones 
Register 4 mit dem Wert der Schwingungsform+1 laden. Soll der 
Ton ausklingen, so laden Sie in das Register 4 nur noch den 
Wert für die Schwingungsform. 

Sicherlich erlernt man die Handhabung der Programmierung am 
besten durch Ausprobieren. Deswegen wollen wir Sie noch mit 
einigen netten Beispielen beglücken, die natürlich nicht nur so 
ausgewählt wurden. Das nächste Beispielprogramm nutzt alle 
drei Stimmen des S1D aus. Übernehmen Sie wieder die Zeilen 
10-80. 


100 A=0: 0=1: S=13: R=10: H=100 

110 POKE S1+5,16*A+D: POKE S1+6,16*S+R 

120 POKE S2+5,16*A+0: POKE S2+6,16*S+R 

130 POKE S3+5,16*A+D: POKE S3+6,16*S+R 

IAO POKE RS,0: POKE PL,15 

150 POKE S1,37: POKE Sl+1,17 

160 POKE S2,154: POKE S2+1.21 

170 POKE S3,177: POKE S3+1.25 

180 POKE S1+4,33: POKE S2H,33: POKE S3+A.33 

190 FOR 1=0 TO H: NEXT 

200 POKE SI+4,32: POKE S2+A.32: POKE S3+4.32 

Man könnte nun anhand einer Reihe von DATA-Zeilen ein 
ganzes Stück abspielen lassen, wozu Sie dann ein Menuett tanzen 
könnten, aber wir haben uns gesagt: Wer kann heutzutage noch 
Menuett? Also lassen wir es und beglücken Sie am Ende dieses 
Kapitels mit einem Stück von den Beatles. 
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Das nächste Beipiel dient dazu. Ihnen zu demonstrieren, wie die 
Frequenz eines Tones in Abhängigkeit von der Hüllkurve ver¬ 
ändert werden kann. Hierzu wird die Stimme 3 benutzt, da man 
nur hier die Hüllkurve auslesen kann. Es ist auch hier recht 
aufschlußreich, mit den Werten in der Zeile 100 rumzuexperi¬ 
mentieren. 


100 A=9: D=9: S=9: H=30 

110 POKE RS,0: POKE P,15 

120 POKE S3+5,16*A+D: POKE A3+6,16*S+R 

130 POKE S3+4.33 

140 F0R 1=0 TO H: POKE S3+1,PEEK(54300): NEXT 
150 POKE S3+4.32 

160 FOR 1=0 TO R*4: POKE S3+1,PEEK(54300): NEXT 

Wir wollen Ihnen nun noch ein Beispiel geben für einen 
Geräuscheffekt, wir lassen Raumschiff Enterprise durch unser 
Wohnzimmer sausen: 

100 A=15: 0=0: S=8: R=13: H=8000 

110 POKE RS,0: POKE PL,15 

120 POKE S1,0: POKE Sl+1,30 

130 POKE S2,0: POKE S2+1.1 

140 POKE S3,0: PKKE S3+1.100 

150 POKE S1+5,16*A+D: POKE S1+6,16*S+R 

160 POKE SI+4,129: POKE S3+4.23 

170 FOR 1=0 TO H: NEXT 

180 POKE S1+4,128: POKE S3+4.16 

Wollen Sie eine Note für den SID umsetzen, so müssen Sie die 
Frequenz dieser Note in die folgende Formel einsetzen: 

F = Fre/0.06097 

Da sich dieser Wert aus einem Low- und ein High-Wert 
zusammensetzt, müssen Sie den errechneten Wert noch 
"nachbehandeln": 


Fj=F AND 15 : F ,=INT( F/256) 



Der Soundchin SID 


103 


4.2 Die Filter 

Lassen Sie uns noch kurz einiges zu den Filtern sagen: Der SID 
verfügt über drei Filter, die Sie einzeln aber auch kombiniert 
verwenden können. Man kann den Oberwellengehalt einer 
Klangwelle (etwas anderes ist ein Ton ja nicht) durch Filter 
gezielt verändern. Durch den Hochpaßfilter können Sie 
Frequenzen unterhalb der definierten Grenzfrequenz dämpfen. 
Die Töne klingen dann ein wenig blechern. Das Gegenstück zum 
Hochpaßfilter ist der Tiefpaßfilter. Sie können es sich bestimmt 
schon denken. Frequenzen oberhalb der definierten 
Grenzfrequenz werden gedämpft. Schließlich gibt es noch den 
Bandpaßfilter, der lediglich ein schmales Frequenzband durch¬ 
läßt, alle anderen Frequenzen werden gedämpft. Werden 
beispielsweise Hoch- und Tiefpaßfilter gleichzeitig eingeschaltet, 
so wird nur die Grenzfrequenz gedämpft, alle anderen 
Frequenzen bleiben unberührt. Man nennt dies auch Bandsperre. 

Neben Filtertyp und Filterfrequenz kann man beim Commodore 
aber auch noch die sogenannte Filterresonanz einstellen. Um die 
Bedeutung dieses Parameters voll zu verstehen, sollte man sich 
den Filter als vierten Oszillator im Sound-Chip vorstellen. Bei 
den Filtern kann man ja ebenso wie bei den Oszillatoren eine 
Frequenz einstellen. 

Durch den Resonanz-Wert kann man angeben, in welchem Grad 
der Filter selbst als Oszillator wirkt. Wenn die Resonanz auf 
Null eingestellt ist, so tut der Filter nichts anderes, als 
Frequenzen abzuschneiden (wie bereits besprochen.) Wenn man 
aber den Resonanz-Wert schrittweise erhöht, so fängt der Filter 
bei der Filterfrequenz selbst immer mehr an zu schwingen. 

Der Maximalwert der Filterresonaz beträgt 15 - der Klang der 
durch die Filter geleiteten Oszillatoren klingt dann stark verän¬ 
dert und durch die Filterfrequenz beeinflußt. Man erkennt 
leicht, daß man mittels der Filter ein großes Spektrum an neuen 
Klängen hinzugewinnt, da die normalen Wellenformen auf 
mannigfaltige Art und Weise manipuliert werden können. 
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Aus der nun folgenden Registertabelle könenn Sie ersehen, 
welche Register des SID den Filter beeinflussen: 

Nr. Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 


21 freq 2 freq 1 freq 0 

22 freqlO freq 9 freq 8 freq 7 freq 6 freq 5 freq 4 freq 3 

23 res 3 res 2 res 1 res 0 filtex filt 3 filt 2 filt 1 

24 3 AUS Hochp. Bandp. Tiefp. Vol 3 Vol 2 Vot 1 Vol 0 


4.3 Synchronisation und Ring-Modulation 

Die Filter ermöglichen es uns, die Signale der einzelnen Oszil¬ 
latoren gezielt zu verändern. Es gibt aber noch andere Möglich¬ 
keiten, wie wir im SID Signale eines Oszillators verfremden 
können: die Synchronisation und die Ring-Modulation. 

Während beim Filter immer nur das Signal eines einzelnen 
Oszillators verfremdet werden konnte, bieten die Synchronisa¬ 
tionen und die Ring-Modulation uns die Möglichkeit, in 
Abhängigkeit vom Signal zweier Oszillatoren das Signal eines der 
beiden Oszillatoren oder auch beider zu verändern. Man muß 
sich das so vorstellen, daß ein Oszillator als Tonquelle wie bisher 
wirkt, aber sein Signal durch das Signal eines anderen Oszillators 
bestimmt wird. 

Bei der Ring-Modulation werden die digitalen Zahlenwerte der 
Schwingungen von bestimmendem Oszillator und beeinflus¬ 
sendem Oszillator innerhalb des SID miteinander multipliziert 
und durch den beeinflußten Oszillator ausgegeben. Wenn die 
Frequenzen beider Oszillatoren dicht beieinander liegen, entste¬ 
hen sehr komplexe Wellenformen, die viele unharmonische 
Obertöne enthalten, so daß sie oft metallisch oder glockenähn¬ 
lich klingen. 

Doch nun das bereits versprochene Programm zum Abspielen des 
Beatles-Song "Let it be": 

0 REM *** LET IT BE *** 

4 FOR 1=54272 TO 54296: POKE 1,0: NEXT 
10 ERSTER=54272 
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11 LAUTST=ERSTER+24 

12 AN =ERSTER+5 

13 AUS =ERSTER+6 

14 Hl =ERSTER 

15 H2 =ERSTER+1 

16 DRUECK=ERSTER+4 

20 POKE LAUTST,15 

21 POKE AN,23 

22 POKE AUS,123 

30 READ HOEHE,DAUER 
40 IF HOEHE=0 THEN END 
50 F2=HOEHE/256: F1=HOEHE AND 255 
60 POKE H2,F2: POKE Hl,Fl 
70 POKE DRUECKM33: FOR 1=0 TO DAUER*100:NEXT 
80 POKE DRUEK,32: FOR 1=0 TO DAUER*100: NEXT 
90 GOTO 30 
100 : 

110 REM *** NOTEN *** 

120 : 

130 DATA 6430,1,6430,1,6430,3,6430,1,7217,2,5407,2 
140 DATA 6430,1,6430,2,8583,3,9634,2,9634,1,10814,2 
150 DATA 10814,3,9634,2,9634,2,8583,1,8583,5,10814,1 
160 DATA 11457,3,10820,2,10814,2,9634,4,10814,1,9634,1 
170 DATA 9634,1,8583,11,10814,1,9634,2,8534,5,10814,1 
180 DATA 12860,2,14435,5,12860,1,12860,2,10814,3,6349,2 
190 DATA 6349,1,6349,2,10814,9,10814,2,11457,3,10820,2 
200 DATA 10814,2,9634,4,10814,1,9634,1,9634,1,8583,15 
210 DATA 0,0 

Das soll unser Kapitel über den SID abschließen. Wir hoffen. Sie 
haben genügend Anregungen vorgefunden, um diesen Chip nicht 
länger in Ihrem Rechner ruhen zu lassen. Dies gilt besonders 
auch für diejenigen unter Ihnen, die in Maschinensprache 
programmieren können und wollen, da gerade hier ungeahnte 
Möglichkeiten offen sind - die Maschinensprache ist schnell 
genug für die unmöglichsten Effekte. Viel Spaß! 
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5. Der 8563 VDC-Chip 

5.1 Allgemeines über den VDC-Chip 

Wie bereits in Kapitel 2 beschrieben wurde, können Sie zwei 
verschiedene Monitore an Ihren Commodore 128 anschließen. 
Der eine davon wird durch den VIC-Chip versorgt. Der andere, 
der RGB-Ausgang, wird durch den 8563 VDC versorgt; auf 
diesem Bildschirm können Sie 80 Zeichen pro Zeile darstellen. 
Der 80-Zeichen-Bildschirm eignet sich hervorragend für 
professionelle Anwendungen, die mit einem 40-Zeichen-Bild- 
schirm nicht oder nur ungenügend möglich sind. RGB steht für 
Red - Green - Blue , was bedeutet, daß Sie die Farben Rot, Grün 
und Blau auf Ihrem Bildschirm darstellen können und natürlich 
alle damit möglichen Kombinationen. Die Farbe Weiß 
beispielsweise wird durch additive Farbmischung aller drei 
Farben erzielt - die Farbe Gelb können Sie durch Mischen von 
Rot und Grün erhalten. Aber keine Angst - Sie brauchen sich 
keinerlei Gedanken zu machen, welche Farben Sie mischen 
müssen, um eine bestimmte Farbe zu erhalten. Auf die Farb- 
codes der 16 möglichen Farben kommen wir noch zurück. 

Ein wichtiger Pluspunkt des VDC-Chips ist, daß er keinen 
Speicher vom RAM abzwackt, um dort seinen Bildschirminhalt 
zu speichern. Er verfügt vielmehr über 16 KByte eigenen 
Speicher, in dem er sowohl Video-RAM als auch Attribut-RAM 
speichert. Selbst der Zeichengenerator wird in diese 16 KByte 
kopiert. Sollten Sie die Taste ASCII/DIN betätigen, so bemerken 
Sie, daß es doch einige Zeit dauert, bis der Cursor wieder voll 
aktionsbereit ist. Auf dem 40-Zeichen-Bildschirm vollzieht sich 
das Umschalten des Zeichensatzes recht schnell; auf dem 80- 
Zeichen-Bildschirm dauert es seine Zeit, bis alle Zeichen ihre 
neue Form angenommen haben. Manche Zeichen erscheinen eher 
in ihrer neuen Form als andere. Das liegt daran, daß die 
gesamten 4096 Byte aus dem ROM in das RAM des Video- 
Controllers kopiert werden. Stutzen Sie nun und denken: Wieso 
denn 4096 Byte? Es reichen doch 2048 Byte aus, um 256 
Zeichen zu definieren! Sie haben natürlich recht, jedoch werden 
in den VDC-Speicher beide möglichen Zeichensätze kopiert, die 
Sie auf dem 40-Zeichen-Monitor mittels der Commodore-Taste 
umschalten können. Auf dem 80-Zeichen-Bildschirm können 
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beide Zeichensätze gleichzeitig dargestellt werden, es gibt dafür 
ein entsprechendes Bit im Attribut-RAM, das über den ausge¬ 
wählten Zeichensatz Auskunft gibt. Da sich der Zeichensatz also 
im RAM des VDC befindet, hat man es natürlich leicht, das 
Aussehen einzelner Zeichen zu verändern, indem man einfach 
die entsprechenden Inhalte des RAMs verändert. 

Aber wie alles Schöne hat auch diese Einrichtung des eigenen 
RAM seine Kehrseite: Die Adressierung des RAMs ist recht 
umständlich - sie muß über zwei Register des VDC-Chips 
indirekt erfolgen. Doch darauf wollen wir ein wenig später 
genauer eingehen. 

Wer glaubt, es sei langweilig, diesen Chip näher zu betrachten, 
der täuscht sich. Dieser Chip bietet eine Flut von Manipu¬ 
lationsmöglichkeiten, die alle zu beschreiben, den Rahmen dieses 
Buches sprengen würde. Es sei jedoch jedem Tüftler geraten, 
diesen Chip ein wenig genauer zu betrachten, da man immer 
wieder neue Möglichkeiten findet. Wir wollen uns hier auf die 
wesentlichen, interessantesten Möglichkeiten beschränken. Die 
Erwartungen, die sich in Verbindung mit einem 80-Zeichen- 
Controller ergeben, werden sogar noch übertroffen: mit diesem 
Video-Controller läßt sich sogar hochauflösende Grafik mit 
einer Auflösung von 640 mal 200 Punkten (!!) darstellen. Hierauf 
gehen wir noch genaustens ein! 

5.2 Die Pinbelegung 

1 CCLK; Character Clock (ist auf Masse gelegt) 

2 -DCLK; Dot Clock 

3 HSYNC; Horizontale Synchronisation 

4 CS; Systemtakt 

5-6 Nicht angeschlossen 

7 -CS; Chip Select 

8 -RS; Register-Select (Adressleitung AO) 

9 -R/W; Read-Write Auswahl 

10-11 D7-D6; Datenleitungen D7-D6 

12 GND; 

13-18 D5-D0; Datenleitungen D5-D0 

19 DISPEN; Display Enable (nicht verdrahtet) 

20 VSYNC; Vertikale Synchronisation 

21 DR/-W; Display-RAM READ/WRITE 

22 -RES; Resetleitung (Ausgang) - Bedeutung unbekannt 

23 -RES; Resetleitung (Eingang) 





24 TST; Bedeutung unbekannt 

25 LPEN; Light-Pen 

26-33 DA0-DA7; Adresse Display-RAM 

34-42 DD0-DD7; Datenleitungen Display-RAM 

37 VCC; Betriebsspannung +5V 

43 I; Intensity 

44 B; Blue 

45 G; Green 

46 R; Red 

47 -RAS; Row-Address-Select 

48 -CAS; Column-Address-Select 


5.3 Die Register des VDC-Chips 

Der 8563 VDC-Chip verfügt über 37 Register, die im einzelnen 
folgende Bedeutung haben: 

REG 0 HORIZONTAL TOTAL; (126) 

In diesem Register wird die Totalanzahl der Zeichen pro Zeile minus 1 
inklusive StrahlrUcklauf angegeben. Dieses Register sollte mit einem 8- 
Bit-Wert entsprechend technischen Daten des Monitors programmiert 
werden. 

REG 1 HORIZONTAL DISPLAYED; (80) 

In diesem Register wird die Anzahl der tatsächlichen Zeichen pro Zeile 
programmiert. Es sind alle 8-Bit-Werte kleiner als REG 0 möglich. Der 
Standardwert beträgt 80. 

REG 2 HORIZONTAL SYNC POSITION; (102) 

In diesem Register wird der linke Rand synchronisiert. Es sind alle 8-Bit- 
Werte kleiner als REG 0 möglich. Wfenn das Register verkleinert wird, so 
bewegt sich der linke Rand nach rechts; wird der Inhalt vergrößert, so 
bewegt sich der linke Rand entsprechend nach links. 

REG 3 SYNC WIDTII; (73) 

Bits 0-3 bestimmen die horizontale Sync-Puls-Breite in Zeichen. Der 
Wert Null läßt sich nicht programmieren. 

Bits 4-7 bestimmen die vertikale Sync-Puls-Breite in Vielfachen einer 
Raster-Periode. Wenn Null programmiert wird, so bedeutet dies 
den Wert 16. 

REG 4 VERTICAL TOTAL; (39) 

In diesem Register wird die Anzahl der totalen Zeilen inklusive des verti¬ 
kalen Strahlrücklaufes programmiert. Dieses Register sollte nach näheren 
technischen Daten des Monitors programmiert werden. 
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REG 5 VERTICAL TOTAL ADJUST; (224) 

Bits 0-4 dienen der Feineinstellung von REG 4. Bits 5-7 sind immer 
gesetzt. Der gelesene Standardwert 224 bedeutet, daß die Bits 0-4 
gelöscht sind. 

REG 6 VERTICAL DISPLAYED; (25) 

Hier wird die Anzahl der darzustellenden Zeilen programmiert. Jeder 
Wert, der kleiner als REG 4 ist, ist möglich. 

REG 7 VERTICAL SYNC POSITION; (32) 

Dieses Register definiert den oberen Rand des Bildschirmes. Wird der 
Inhalt des Registers vergrößert, so verschiebt Bich der Bildschirm nach 
oben - entsprechend verschiebt sich der Bildschirm bei Verringerung des 
Registers nach unten. 

REG 8 INTERLACE MODE; (252) 

Bits 0-1 bestimmen den Abtastmodus. Normalerweise sind diese Bits 
gelöscht. 

00 und 10 = Non-Interlace-Mode, 

01=Interlace-Sync-Mode (Bildschirm scheint zu flackern), 
ll=Interlace-Sync- und Video-Mode. Probieren Sie dies einmal aus! 

REG 9 CHARACTER TOTAL VERTICAL; (231) 

Bits 0-4 bestimmen die Anzahl an Rasterzeilen pro Zeichen (vertikal) 
minus eins. Bits 5-7 sind immer gesetzt. Der Standardwert 231 steht für 
7, also 7+1=8 Rasterzeilen pro Zeichen. 

REG 10 CURSOR MODE/START RASTER; (160) 

Bits 5-6 bestimmen den Modus des Cursors: 

00=nicht blinken, 

01=Cur8or wird nicht angezeigt, 

10=schnell blinken, 
ll=normal blinken 

REG 11 CURSOR END SCAN LINE; (231) 

Es sind nur die Bits 0-4 relevant, die anderen sind immer gesetzt. In 
diesem Register wird die Zeile angegeben, an der der Cursor aufhören soll. 
Bei Blockcursor beispielsweise beginnt der Cursor an Zeile 0 und hört an 
Zeile 7 auf. Beim Underline-Cursor: Start und Ende bei 7. 

REG 12 DISPLAY START ADDRESS HI; (0) 

In diesem Register wird das Hi-Byte des Video-RAM-Anfangs gespei¬ 
chert. Normalerweise liegt das Video-RAM ab Adresse $0000 im speziel¬ 
len Speicher des VDC. 
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REG 13 DISPLAY START ADDRESS LO; (0) 

Hier wird entsprechend zum Register 11 das Lo-Byte des Video-RAMs 
definiert. 

REG 14 CURSOR POSITION HI; 

In diesem Register wird das Hi-Byte des Cursors definiert. Die Cursor¬ 
adresse muß angegeben werden, da der VDC den Cursor (wenn er¬ 
wünscht) selbständig blinken läßt. 

REG 15 CURSOR POSITION LO; 

Hier wird entsprechend zu Register 14 das Lo-Byte der Cursoradresse 
definiert. 

REG 16 LIGHT PEN VERTIKAL; 

Dieses und das folgende Register können ausschließlich gelesen werden. 
Die beiden höherwertigen Bits im Register 16 sind immer Null. Das Re¬ 
gister gibt die vertikale Lightpenadresse wieder. Allerdings muß der Wert 
von der Software korrigiert werden, da der Kathodenstrahl sich schon um 
einiges weiterbewegt hat, bis die Rasterzeile erkannt wird. 

REG 17 LIGHT PEN HORIZONTAL; 

Entsprechend zu Register 16 befindet sich in diesem Register die hori¬ 
zontale Adresse des Lightpens. 

REG 18 UPDATE ADRESS HI; 

In diesem Register gibt man das Hi-Byte der zu manipulierenden 
Adresse an. Dabei ist egal, ob man Video-RAM, Attribut-RAM oder 
sonst eine Speicherstelle ändern will. 

REG 19 UPDATE ADDRESS LO; 

In Verbindung mit Register 18 wird hier das Lo-Byte der zu manipulie¬ 
renden Adresse angemeldet. 

REG 20 ATTRIBUT ADDRESS HI; (4) 

In diesem Register wird das höherwertige Byte der Startadresse des 
Attributspeichers angegeben. Das Attribut-RAM definiert Farbe und 
Status aller auf dem Bildschirm befindliches Zeichen. 

REG 21 ATTRIBUT ADDRESS LO; (0) 

In Verbindung mit Register 20 wird hier das niederwertige Byte der 
Startadresse definiert. Im Normalmodus befindet sich das Attribut-RAM 
an Adresse $0400 ff. 
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REG 22 CHARACTER TOTAL & DISPLAYED; (120) 

Bits 4-7 bestimmen die Totalanzahl der dargestellten Horizontalzeilen 
minus 1! (7) 

Bits 0-3 bestimmen die dargestellte Anzahl an Zeilen (8). Es wird die 
Breite eines Zeichens definiert. 

REG 23 CHARACTER DSP(V); (232) 

Anzahl der dargestellten Vertikalzeilen (8); es wird die Länge eines 

Zeichens definiert. 

REG 24 VERTICAL SMOOTH SCROLL; (32) 

Bit 7: COPY-Bit; Wenn dieses Bit gesetzt ist, wird bei Beschreiben des 
Wordcount-Registers (REG 30) der Bereich von Block 
Start-adresse nach Update-Adresse kopiert. Ist dieses Bit 
gelöscht, wird die Update-Adresse mit Data-Register (REG 
31) aufgefüllt. 

Bit 6: RVS-Bit; Ist das Bit gesetzt, so wird der gesamte Bildschirm 
revers, d.h. umgekehrt (negiert) dargestellt. Ein gesetzter 
Punkt ist praktisch ungesetzt und umgekehrt. 

Bit 5: CBRATE; Character Blink Rate; 

Ist dieses Bit 1, so beträgt die Blinkrate bei blinkenden 
Zeichen 1/30 der Bildwiederholfrequenz, bei 0 1/16. 

Bits 0 4: Hier kann der vertikale Rand in Rasterzeilen verschoben werden 
(Smooth-Scrolling) 

REG 25 HORIZONTAL SMOOTH SCROLLING; (64) 

Bit 7: TEXT; Ist dieses Bit gelöscht, so wird Textmodus dargestellt. Die 
Informationen für die Zeichen werden aus dem CHARROM 
geholt. Ist das Bit gesetzt, so wird Einzelpunktgrafik einge¬ 
schaltet. 

Bit 6: ATR; Dieses Bit zeigt an, ob die Farbinformationen für ein Zeichen 
aus dem Attribut-RAM geholt werden sollen (gesetztes Bit) 
oder ob alle Punkte monochrom erscheinen (Farbe ist REG 
26) 

Bit 5: SEMI; Semi-Grafik-Betriebsart; 

1: der evtl, vorhandene horizontale Zwischenraum zweier 
Zeichen wird in der Farbe des zuletzt dargestellten Zeichens 
aufgefüllt. 

0: wie (1), jedoch wird der Zwischenraum mit der Hinter¬ 
grundfarbe aufgefüllt. 

Bit 4: DBL; Ist dieses Bit gesetzt, so erscheinen die Zeichen in doppelter 
Breite. 

0: Pixelgröße=l-Dot-Takt 
1: Pixelgröße=2-Dot-Takte 

Bits 0-3: Hier kann der horizontale Rand in Rasterzeilen verschoben 
werden (Smooth-Scrolling). 
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REG 26 FORGRND/BACGRND; (240) 

Bits 0-3 bestimmen die Hintergrundfarbe. 

Bits 4-7 bestimmen die Vordergrundfarbe für Grafik- oder Mono¬ 
chrommodus. 

REG 27 ADDRESS INCREMENT ROW; (0) 

Es wird definiert, wieviel Bytes zum Video-RAM bei jeder Spalte zu 
addieren sind. Normalerweise ist dies Null. Definiert man die Zeichen¬ 
breite beispielsweise um (und somit die Anzahl Zeichen/Zeile), so muß 
dieser Wert umprogrammiert werden. 

REG 28 CHARACTER BASIS ADDRESS; (47) 

Bits 5-7 bestimmen die Basis des Zeichengenerators bzw. die Adreßbits 
13 bis 15; der Zeichengenerator kann also lediglich in 8K- 
Schritten verschoben werden. 

Bit 4: RAM; Dieses Bit definiert den RAM-Typ: 

1: 4164; 0: 4416 

REG 29 UNDERLINE SCAN LINE; (231) 

Bits 0-4 geben die Zeile an, in der unterstrichen werden soll. Standard¬ 
wert ist 8. Beispielsweise könnte man durch Ändern dieses Registers aus 
dem Unterstreichen ein Über- oder Durchstreichen machen. 

REG 30 WORD COUNT; 

In dieses Register schreibt man die Anzahl der Zeichen, die an die 
Update-Adresse geschrieben werden sollen bzw. wenn das COPY-Bit 
gesetzt ist, wieviele Bytes kopiert werden sollen. 

REG 31 DATA; 

In dieses Register schreibt man die Daten, die an eine Speicherstelle 
gespeichert werden sollen. Soll eine Speicherstelle ausgelesen werden, so 
muß man sich den Wert aus diesem Register holen. 

REG 32 BLOCK START ADDRESS HI; 

In diesem Register (und dem folgenden) definiert man die Startadresse 
des Blocks, der kopiert werden soll. 

REG 33 BLOCK START ADDRESS LO; 

Entsprechend zu Register 32 wird hier das niederwertige Byte der 
Startadresse definiert. 

REG 34 DISPLAY ENABLE BEGIN; (125) 

Anzahl der Zeichen von Beginn der dargestellten Zeile bis zur positiven 
Flanke des Display-Enable-Pins. 

REG 35 DISPLAY ENABLE END; (64) 

Wie REG 34, jedoch bis zur negativen Flanke. 
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REG 36 DRAM REFRESH RATE; (245) 

Bits 0-3 geben die Rate an, in der der Speicher des VDC aufgefrischt 
werden muß (Refresh-Zyklen pro Bildschirmzeile). 


Die Werte in Klammern geben die Normalwerte an, die sich nor¬ 
malerweise (nach Warmstart) in den Registern befinden. 


5.4 Allgemeines zu den VDC-Registern 

Auf alle Register näher einzugehen, wäre ebenso nutzlos wie 
unsinnig. Am besten erkennt man, was die einzelnen Register 
alles bewirken, indem man sie einfach mit Werten beschreibt 
und sieht, was geschieht. Man darf diese Register nicht alle als 
nutzbringende Register für den Programmierer sehen, so wie es 
beispielsweise beim VIC oder S1D der Fall ist. Hier sind viel¬ 
mehr eine Menge der Register ausschließlich zur Bilddarstellung 
und -Synchronisation vorhanden, die man praktisch kaum oder 
gar nicht ändern darf oder sollte. 

Die Basisadresse des 80-Zeichen-Video-Controllers ist $D600. 
Übrigens als kleiner Tip: Zumindest bei unserem Prototyp 
konnte man den VDC auch vom 64er-Modus aus manipulieren: 
Also 80-Zeichen-Modus auch im 64er-Modus möglich! Neben 
der Möglichkeit, im 2-Mhz-Modus die Programme zu fahren, 
eine weitere kleine Lücke in der Kompatibilität des 64er-Modus. 

Jetzt kann man beim VDC allerdings nicht die verschiedenen 
Register so einfach adressieren wie beim VIC oder SID, indem 
man die Registernummer einfach zur Basisadresse addiert. Beim 
VDC erfolgt die Registermanipulation relativ, d.h. man muß 
dem Controller mitteilen, welches Register man auslesen oder 
beschreiben will, und kann dann in einem fixen Register diese 
Manipulation (Lesen oder Schreiben) vornehmen. Sicherlich eine 
recht komplizierte Methode, aber man gewöhnt sich schnell 
dran. Will man beispielsweise nur ein Byte im Video-RAM 
ändern, so muß man diese Speicheradresse relativ über die 
Register ansprechen (da sie ja keine direkt ansprechbare Adresse 
ist) und diese Register wiederum relativ auswählen. 

Doch kommen wir zur Sache: Ansprechen kann man den VDC 
ausschließlich an den Adressen $D600 und $D601. Will man 
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beispielsweise ein Register auslesen, so muß man die Register¬ 
nummer in Adresse $D600 schreiben. Der VDC holt dann den 
aktuellen Inhalt des Registers in die Adresse $D601, die man 
dann auslesen kann. Will man ein Register beschreiben, so ver¬ 
fährt man adäquat: Man teilt über Adresse $D600 die Register¬ 
nummer mit und schreibt dann an Adresse $D601 den neuen 
Registerwert. 


Adresse $D600 

(Schreiben) . R5 R4 R3 R2 RI RO 

(Lesen) Status LP VBLANK . 


Adresse $D601 

(Schr/Lesen) D7 D6 D5 D4 D3 D2 Dl DO 


Schreibt man an die Adresse $D600, so geschieht dies aus¬ 
schließlich zur Registerauswahl. Hierzu dienen die Bits 0 bis 5. 
Man kann die Adresse SD600 allerdings auch auslesen, man 
erhält dann einen Statusreport des VDC. Bit 7, das Statusbit, 
gibt an, ob der VDC bereits mit seiner letzten Aktion fertig ist. 
Ist das Bit gesetzt, so ist der Video-Controller noch nicht fertig, 
und man sollte warten, bis er einem grünes Licht gibt, da sonst 
mit Sicherheit Daten verschluckt werden. Allerdings ist diese 
Abfrage nur in Maschinensprache von Nöten, da BASIC viel zu 
langsam ist, um das Statusbit auch nur einmal nicht gesetzt zu 
erwischen. Wollen wir beispielsweise das DATA-Register des 
VDC in Maschinensprache beschreiben, so sollte dies so 
aussehen: 


LDA #$1F ;DATA-Register 
STA $D600 ;auswählen 
Uait BIT $D600 ;Teste Statusbit 

BPL Wait ;Noch gesetzt, dann nicht fertig 
LDA #$21 ;ASCII-Code für "I" 

STA $0601 ;und hineinschreiben 
RTS ;Rücksprung 

Sie sehen, wie in dieser kleinen Routine nach Beschreiben der 
Adresse $D600 gewartet wird, bis das Statusbit zurückgenommen 
wird. Erst dann wird der Wert für das DATA-Register 
übermittelt. Gegebenenfalls sollte man nach Beschreiben der 
Adresse $D601 noch einmal eine Warteroutine einbauen; jedoch 
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hängt dies stark vom Programm ab. Werden beispielsweise nach 
Beschreiben von $D601 erst irgendwelche Berechnungen ausge¬ 
führt, bevor der VDC wieder angesprochen wird, so braucht 
man nicht zu warten. 

Das Bit 6 an Adresse SD600 ist für den Lightpen reserviert und 
soll uns momentan nicht weiter interessieren. Das Bit 5 teilt uns 
mit, ob sich der Kathodenstrahl gerade im Rücklauf befindet 
(Bit ist gesetzt) oder nicht. Dies kann man sich beispielsweise 
für irgendwelche Synchronisationszwecke zu Nutze machen. Die 
restlichen Bits sind nicht belegt. 

Beim Beschreiben der Adresse $D600 wird die Registerauswahl 
vorgenommen. An Adresse $D601 werden immer nur Daten 
transferiert. 

Um beispielsweise den Wert des DATA-Registers zu erhalten, ist 
folgendes kleines Maschinenprogramm nötig: 

IDA #1F ;DATA-Register 
STA $0600 .-Register anmelden 
Wait BIT $0600 ;Statusbit noch gesetzt? 

BPL Wait ;noch nicht fertig 
LDA $0601 ;Hole aktuellen Inhalt 

Von BASIC können wir natürlich auch Manipulationen am VDC 
vornehmen. Nur soviel vorweg: Wegen der Geschwindigkeit gibt 
es dann und wann schon einmal Probleme, darum seien Sie nicht 
verärgert, wenn nicht alles sofort klappt. Das Beschreiben und 
Laden des DATA-Registers sähe in BASIC wie folgt aus: 

10 A=DEC("0600"): D=A+1: REM Basisadresse VDC 
20 POKE A,31: PRINT PEEK(D): REM Registerinhalt holen 
30 POKE A,31: POKE 0,33: REM Register beschreiben 

Sicherlich wollen Sie aber jetzt wissen, wie man eine Adresse 
auf dem Bildschirm manipulieren kann. Wir wissen, daß das 
Video-RAM an Adresse $0000 beginnt und exakt 2000 Zeichen 
umfaßt. Um eine Adresse im RAM zu manipulieren, muß man 
diese erst im Update-Register definieren, egal ob man lesen 
oder schreiben will. Am besten wird die Vorgehensweise deut- 
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lieh, indem wir uns einmal ein kleines BASIC-Programm an¬ 
schauen, das natürlich im 128er-Modus läuft! 


10 A=DEC("D600"): D=A+1 

20 POKE A,18: POKE D,0: REM Update-Adresse Hi-Byte 
30 POKE A,19: POKE D,0: REM Update-Adresse Lo-Byte 
40 POKE A,31: POKE D,1: REM Eine 1 für "A" 

50 POKE A,30: POKE 0,1: REM Zeichenzähler setzen 

Aus diesem Beispiel wird gleich mehreres deutlich: Erst einmal 
die Reihenfolge, die Sie in Ihren Programmen auch unbedingt 
einhalten sollten. Zuerst die Update-Adresse angeben, dann das 
Zeichen, das dargestellt werden soll und als letztes den 
Zeichenzähler beschreiben. Sobald das Zeichenzählregister 
beschrieben wird, beginnt der Video-Controller nämlich mit der 
Aktion. Das Ergebnis ist natürlich entsprechend unbefriedigend, 
wenn man dann die Update-Adresse noch nicht definiert hat. 

Unbefriedigend wird aber auch diese kleine Routine für Sie 
sein, unabhängig davon, ob Sie sich im FAST- oder im SLOW- 
Modus befinden. Sie können das noch mehr verdeutlichen, 
indem Sie folgende Zeilen in das Programm einbauen: 

5 PRINT CHR$(19);" " 

60 GETKEY A$: RUN 

Immer wenn Sie eine Taste drücken, werden die ersten beiden 
Stellen am Bildschirm gelöscht. Danach wird der Videocontroller 
"aufgefordert", ein "A" an die erste Bildschirmposition zu setzen. 
Auf diese Weise können wir kontrollieren, ob auch wirklich ein 
A an die richtige Stelle gesetzt wird. 

Wenn wir das Programm starten, so stellen wir fest, daß das 
Ergebnis nicht unseren Erwartungen entspricht. Das A hüpft 
von links nach rechts, es wird also nicht immer an die korrekte 
Stelle gesetzt. Manchmal wird gar ein anstatt des A’s auf 
dem Bildschirm angezeigt. 
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Leider läßt sich hier kein besseres Ergebnis erzielen - in BASIC 
ist dies, so scheint es zumindest, schier unmöglich. Wir haben 
verschiedene Verfahren ausprobiert, und keins führte zum 
Erfolg. BASIC ist hierzu einfach zu langsam. 

Doch was man nicht in BASIC lösen kann, das sollte doch 
zumindest in Maschinensprache möglich sein. Lassen Sie uns 
deshalb ein kleines Maschinenprogramm besprechen, das genau 
dasselbe tun soll, wie unser BASIC-Programm. 

Hierzu erst einmal das Assembler-Listing dieser Routine, die 
ebenfalls ein "A" auf dem Bildschirm bringen soll: 


00000 

8E 

00 

D6 

STX 

$D600 

00D03 

2C 

00 

D6 

BIT 

$D600 

00D06 

10 

FB 


BPL 

ro 

o 

Q 

O 

00D08 

8D 

01 

06 

STA 

$0601 

00D0B 

60 



RTS 


00D0C 

A2 

12 


LDX 

#$12 

00D0E 

A9 

00 


LDA 

#$00 

00D10 

20 

00 

24 

JSR 

$0D00 

00D13 

E8 



I NX 


00014 

20 

00 

24 

JSR 

$0000 

00D17 

A2 

1F 


LDX 

#$1 F 

00D19 

A9 

01 


LDA 

#$01 

0001B 

20 

00 

24 

JSR 

$0D00 

00D1E 

CA 



DEX 


0OD1F 

4C 

00 

24 

JMP 

$0D00 


Diese kleine Maschinenroutine, die Sie wohl am einfachsten mit 
dem eingebauten Monitor eingeben, testen Sie am besten, indem 
Sie folgendes BASIC-Programm verwenden: 

10 PRINT CHR$(147); 

20 SYS DECC'ODOC"): GETKEY A$: RUN 

Starten Sie einmal dieses Programm: Das Ergebnis wird wohl 
auch Sie überraschen. Die Positionierung wird nun richtig vor¬ 
genommen, allerdings werden zwei anstatt eines A’s dargestellt. 
Der VDC stellt also Wordcount + 1 mal das definierte Zeichen 
dar; dies allerdings sehr sorgsam und an der korrekten Adresse. 
Wollten wir mehr als ein A darstellen, so wären wir nun aus 
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dem Schneider. Da unser Problem aber damit begann, ein A 
darzustellen, müssen wir noch weiter nach einer Lösung 
forschen. Übrigens werden 256 Zeichen dargestellt, wenn man 
das Wordcount-Register mit dem Wert Null lädt. 

Die Lösung ist (wieder einmal?) recht einfach: Will man ein 
beliebiges Zeichen darstellen, so muß man nach der Definition 
von Update-Adresse und DATA-Register nicht das Wordcount- 
Register beschreiben, sondern lediglich die Update-Adresse mit 
einem neuen Wert laden bzw. dieses Register auslesen - dann 
klappt’s. 

Um dies einmal auszuprobieren, brauchen wir unsere 

Maschinenroutine lediglich ab Adresse $00DIE zu verändern: 

00D1E A2 12 LDX #$12 

00D20 4C 00 24 JMP $0D00 

Sie sehen, es ist egal, mit welchem Wert wir das Update- 
Register beschreiben. Die Routine liegt im Ausgabe-Buffer für 
die RS232. Jetzt ändern wir die Maschinenroutine noch leicht 
ab, dann können wir an jede beliebige Bildschirmposition jedes 
beliebige Zeichen schreiben, auch in BASIC. 

10 REM ================================================ 

20 REM BASIC-LOADER FÜR 80-ZEI CHEN-POKE-ROUT INE 
30 REM ================================================ 

40 : 

50 FOR 1=0 TO 36 
60 : READ X 

70 : POKE DEC("D00")+I,X 
80 : S=S+X 
90 NEXT 

100 IF S<>2850 THEN PRINT "*** Fehler in DATAs ***": END 
110 : 

120 DATA 142,0,214,44,0,214,16,251,141,1,214,96,162,18,169,0 
130 DATA 32,0,13,232,169,0,32,0,13,162,31,169,1,32,0,13 
140 DATA 162,18,76,0,13 
150 : 
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160 REM *** Ausprobieren *** 

170 : 

180 PRINT CHR$(147); 

190 SYS DECC'DOC“): GETKEY A$: GOTO 180 

Und endlich funktioniert das lang ersehnte Programm, auch 
wenn es nicht rein in BASIC realisierbar ist. Vielleicht jedoch 
findet ja irgendwann jemand mal einen Algorithmus, der auch 
in BASIC funktioniert und es zuläßt, auf dem 80-Zeichen- 
Bildschirm Manipulationen durchzuführen. 

Wie bereits erwähnt, können Sie mit dieser Routine an jeder 
beliebigen Stelle des Bildschirmes jedes beliebige Zeichen dar¬ 
stellen lassen. Dazu müssen Sie an Adresse $0D0F das Hi-Byte 
der Adresse POKEn, an Adresse $0D15 das Lo-Byte und an 
Adresse $0D1C das Zeichen, das hineingePOKEt werden soll. 
Probieren Sie hierzu einfach folgendes Beispielprogramm einmal 
aus: 


10 REM =================================================== 

20 REM BEISPIELPROGRAMM FUER POKE-ROUTINE 

30 REM =================================================== 

40 : 

50 LO=DEC("D15"): HI=DEC("D0F"): PO=DEC("D1C") 

60 FOR 1=0 TO 1999 

70 : POKE LO, I AND 255 : REM LO-BYTE POKEN 

80 : POKE HI, 1/256 : REM HI-BYTE POKEN 

90 : POKE PO, I AND 255 : REM BEISPIELSWEISE 

100 : SYS DECC'DOC") 

110 NEXT 
120 GETKEY A$ 

Aber wir wollen ja nicht immer nur ein Zeichen darstellen, 
manchmal wäre es recht praktisch, wenn wir beispielsweise 
(unter Zuhilfenahme des Wordcount-Registers) gleich 80 
Zeichen darstellen könnten, um eine Zeile zu löschen oder 
ähnliches. Aber auch hier kann es natürlich Vorkommen, daß der 
VDC zuschlägt und ein Zeichen zuviel darstellt; dies kann schon 
peinlich werden, nehmen Sie als Beispiel mal eine Text¬ 
verarbeitung, die diesen Fehler hätte: Sie wären sicherlich sehr 
verärgert. 
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Natürlich mußte dieser Fehler auch im Betriebssystem ausgebü¬ 
gelt werden. Man hat sich hier etwas zwar recht Einfaches aber 
umso Wirkungsvolleres einfallen lassen. Man hat die Startadresse 
des zu füllenden Bereichs, man weiß ebenfalls, wieviele Zeichen 
dargestellt werden sollen: also kann man ausrechnen, welches die 
letzte zu beschreibende Stelle ist. Lassen Sie den Video- 
Controller einfach Anzahl-1 Zeichen auffüllen. Nach der Aktion 
können wir anhand der Update-Adresse (die der Video- 
Controller selbständig inkrementiert) feststellen, ob er ein 
Zeichen zuviel dargestellt hat - dann sind wir fertig - ansonsten 
müssen wir noch ein Zeichen darstellen lassen. Diese Methode 
ist immer noch schneller, als wenn wir jedes Zeichen extra 
setzen. Lassen Sie uns auch von einer Betriebssystemroutine 
Gebrauch machen, die bei gesetzter Update-Adresse und 
gesetztem DATA-Register dieses Zeichen so oft ausgibt, wie der 
Wert im <Akku> anzeigt. Diese Routine befindet sich an der 
Adresse SC53E - die errechnete Endadresse muß man in 
SOA3C/OA3D ablegen. Wir wollen die Routine an die bereits 
bestehende anhängen: 


00D25 

A2 

12 


LDX 

#$12 

OOD27 

A9 

00 


LDA 

#$00 

00D29 

20 

00 

00 

JSR 

$0000 

00D2C 

80 

3D 

0A 

StA 

$0A3D 

00D2F 

E8 



INX 


00D30 

A9 

00 


LDA 

#$00 

00D32 

20 

00 

0D 

JSR 

$0D00 

00D35 

80 

3C 

0A 

STA 

$0A3C 

00D38 

A9 

00 


LDA 

#$00 

00D3A 

A2 

1F 


LDX 

#$1 F 

OOD3C 

20 

00 

0D 

JSR 

$0000 

00D3F 

A9 

00 


LDA 

#$00 

00D41 

18 



CLC 


00D42 

48 



PHA 


00D43 

6D 

3C 

0A 

ADC 

$0A3C 

00046 

8D 

3C 

0A 

STA 

$0A3C 

00D49 

90 

03 


BCC 

$004E 

00D4B 

EE 

30 

0A 

INC 

$0A3D 

00D4E 

68 



PLA 


OOD4F 

4C 

3E 

C5 

JMP 

$C53E 
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Sie können den BASIC-Loader (s.o.) durch folgende DATA- 
Zeilen ergänzen: 

150 DATA 162,18,169,0,32,0,13,141,61,10,232,169,0,32,0,13 
160 DATA 141,60,10,169,0,162,31,32,0,13,169,0,24,72,109,60 
170 DATA 10,144,3,238,61,10,104,76,62,197 

Ferner sollten die Zeilen 50 und 100 lauten: 

50 FOR 1=0 TO 81 

100 IF S<>5859 THEN PRINT "*** Fehler in DATAs ***": END 

Das Hi-Byte der Startadresse speichern Sie an Adresse $0D28, 
das Lo-Byte an Adresse $0D31. Das Füllzeichen müssen Sie an 
Adresse $0D39 POKEn, die Anzahl an Adresse S0D40! Beispiel: 

POKE DEC("0D28"),0: POKE DEC("0D31"),0: REM ADRESSE 
POKE DEC("0D39"),33: REM FÜLLZEICHEN 
POKE DEC("0D40"),79: REM FÜLLMENGE-1 
SYS DEC("0D25"): REM AUFRUF DER ROUTINE 

Nachdem Sie dies eingegeben haben, wird die erste Zeile mit 
Ausrufungszeichen aufgefüllt. 

Wie bereits erwähnt, können Sie genauso, wie wir jetzt den 
Bildschirminhalt geändert haben, auch das Attribut-RAM än¬ 
dern. Wollen Sie beispielsweise die erste Zeile blinkend weiß 
darstellen, so müssen wir das Attribut-RAM mit $1F = 31 fül¬ 
len. Dies wollen wir einmal tun, indem wir folgende Zeilen ein¬ 
geben: 

POKE DEC("0D28"),8: POKE DEC("0D31"),0: REM ATTRIBUT-RAM 
POKE DEC("0D39"),31: REM FÜLLZEICHEN 
POKE DEC("0D40"),80: REM FÜLLMENGE 
SYS DECC0D25"): REM AUFRUF DER ROUTINE 


5.4.1 Der Zeichensatz 

Sie können es sich bestimmt schon denken: Den Zeichensatz 
können Sie auf ähnlich einfache Art und Weise variieren. Sie 
müssen nur bedenken, daß pro Zeichen 16 Byte im RAM defi- 
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niert werden. Acht Byte werden aus dem CHARROM kopiert, 
acht weitere Nullbyte werden aus VDC-internen Gründen ange¬ 
hangen. Der Zeichensatz beginnt beim VDC an Adresse $2000. 
Wollen Sie ein Zeichen auslesen oder verändern, so finden Sie es 
also an Adresse: 

2*4096 + <Code>*16 

Anders als beim VIC können beim VDC beide duch 
<Shift>/<Commodore> umschaltbare Zeichensätze gleichzeitig 
dargestellt werden, da diese sich auch beide gleichzeitig im 
Speicher des VDC-RAMs befinden. Zusätzlich sind noch die 
reversen Zeichen definiert, obwohl dies eigentlich gar nicht 
nötig gewesen wäre, da es ein Bit im Attribut-RAM gibt, das 
ein Zeichen revers darstellen läßt. Diese beiden Möglichkeiten 
kann man ausschöpfen, wenn man sich zusätzliche Zeichen 
definieren will. Beispielsweise könnte man in einer Textverar¬ 
beitung alle möglichen mathematischen Sonderzeichen definie¬ 
ren, ohne merkliche Einbußen hinnehmen zu müssen. Voraus¬ 
setzung ist allerdings, daß man beispielsweise geschickt mit dem 
Revers-Bit programmiert, um diese Zeichen auch wirklich ein¬ 
sparen zu können; dies sind immerhin 128 Zeichen! 

Die Speicherbelegung des VDC-RAMs sieht also wie folgt aus: 

$0000-$07CF: Video-RAM 
$0800-$0FCF: Attribut-RAM 
$2000-$3FFF:CllARROM (Zeichensatz) 


5.4.2 Das Attribut 

Das Attribut eines jeden Zeichens setzt sich aus mehreren 
Kriterien zusammen: Erst einmal dem RGB-Signal, also ob Rot, 
Grün oder Blau aktiv sind (bei Weiß beispielsweise sind hier alle 
Bits gesetzt), dann dem Helligkeitssignal, das festlegt, ob die 
Farbe heller oder dunkler erscheint. Dann gibt es noch ein Bit, 
das anzeigt, ob das entsprechende Zeichen blinken soll, ein Bit 
zum Unterstreichen, ein Bit zur Reversdarstellung und ein Bit 
für den Alternate-Zeichensatz. Sie sehen schon, daß man beim 
VDC eigentlich die reversen Zeichen gar nicht hätte definieren 
müssen, da ein entsprechendes Bit im Attribut-RAM vorhanden 
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ist. Damit aber nicht unnötige Kalkulationen notwendig werden, 
hat man den reversen Zeichensatz einfach übernommen. 

Um aber wieder auf das eigentliche Attribut-RAM zurück¬ 
zukommen: Die acht Bits eines Attributbytes setzen sich wie 
folgt zusammen: 

ALT RVS UL FLASH RGB / 

ALT steht für ALTernate. Anders als beim VIC können Sie beim 
VDC alle beide Zeichensätze, die Sie durch die Tasten¬ 
kombination <Shift>/<Commodore> umschalten können, auf 
einmal darstellen. Ist der zweite Zeichensatz ausgewählt, so wird 
das ALT-Bit im Attribut-RAM gesetzt. 

RVS steht für ReVerS und bedeutet: Dieses Zeichen soll revers 
(umgekehrt) dargestellt werden. Wie bereits erwähnt, wird von 
diesem Bit direkt (leider) kein Gebrauch gemacht. Bei profes¬ 
sioneller Software wird man den Raum der reversen Zeichen 
sicherlich sinnvoller nutzen. 

UL steht für UnderLine. Ist dieses Bit gesetzt, so wird das ent¬ 
sprechende Zeichen unterstrichen, und zwar in der Rasterzeile, 
die in REG 29 definiert ist; normalerweise ist dies Zeile 7. 

FLASH steht für Blinken. Wenn man dieses Bit setzt, so blinkt 
das durch dieses Attribut-Byte definierte Zeichen. Dabei wird 
die Farbe beibehalten und ggf. unterstrichen. 

R steht für Rot, G für Grün und B für Älau. Das Farbsignal 
setzt sich aus den gesetzten und gelöschten Bits zusammen. 
Zusätzlich gibt es noch ein Luminenzsignal /, mit dem man die 
Helligkeit bestimmen kann; gesetztes Bit bedeutet hell. 

Hier nun eine Tabelle der 15 möglichen Färb- und Luminenz- 
kombinationen: 
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RGBl Farbe 


0 0 0 0 
0 0 0 1 
0 0 10 
0 0 11 
0 10 0 
0 10 1 
0 110 
0 111 
10 0 0 
10 0 1 
10 10 
10 11 
110 0 
110 1 
1110 
1111 


Schwarz 

Dunkelgrau 

Blau 

Hellblau 

Grün 

Hellgrün 

Beige-Blau 

Zynober 

Rot 

Hellrot 

Lila 

Violett 

Braun 

Gelb 

Hellgrau 

Weiß 


Zum Attribut-RAM ist sonst nichts weiteres zu sagen, da die 
Bedeutung und die Programmierung durch die acht Bits festge¬ 
legt sind. 


5.5 Die Nutzung der VDC-Register 

Wie bereits erwähnt, stehen durch die 37 VDC-Register eine 
Flut an Manipulationsmöglichkeiten am 80-Zeichen-Video- 
Controller zur Verfügung. Wir wollen Ihnen anhand einiger 
Beispielprogramme diese Nutzung nahelegen und demonstrieren. 
Für besonders sinnvoll halten wir die Möglichkeit, 28 Zeilen auf 
dem Bildschirm darzustellen (anstatt 25), sowie die Möglichkeit, 
die hochauflösende Grafik mit einer Auflösung von 640 mal 200 
Punkten zu verwenden. Wir wollen uns dann auch auf diese 
Dinge konzentrieren. 

Zuerst einmal ein Programm, das sehr dienlich ist, wenn man 
die Welt der VDC-Register ein wenig erforschen und durch¬ 
einander bringen will. Beim Ausprobieren wird es nicht selten 
Vorkommen, daß Sie auf Ihrem Bildschirm nur noch Unsinn 
sehen. Dann haben Sie den Controller so weit verwirrt, daß er 
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nicht mehr im Stande ist, ein vernünftiges Bild darzustellen. Am 
besten ist es. Sie betätigen dann die 
<RUN/STOP>/<RESTORE>-Taste. Je nachdem kann es auch 
Vorkommen, daß der Zeichengenerator überschrieben wurde. 
Dazu betätigen Sie am besten die <ASCII>/<DIN>-Taste, der 
Zeichensatz wird dann wieder zurückkopiert. 

Das Programm zeigt Ihnen immer die aktuellen Registerinhalte 
auf dem Bildschirm an und fragt Sie dann nach Registernummer 
und -inhalt. Nachdem Sie die Werte eingegeben haben, können 
Sie die Reaktion direkt auf dem Bildschirm verfolgen (sofern 
eine Reaktion erfolgt). Es werden Ihnen wieder die aktuellen 
Registerinhalte angezeigt. 

10 REM *** Austesten der VDC-Register **** 

20 : 

30 A=DEC("D600"): D=A+1 

40 PRINT CHR$(147)"Aktuelle Registerinhalte 
50 FOR 1=0 TO 37 
60 POKE A,I: C=PEEK(D) 

70 PRINT I;RIGHT$(HEX$(C),2), 

80 NEXT I 
90 PRINT: PRINT 

100 INPUT "Register, Wert ";RE,WE 
110 POKE A,RE: POKE D,UE: GOTO 40 


5.5.1 Smooth-Scrolling 

Smooth-Scrolling ist gleichbedeutend mit Soft-Scrolling. Selbst 
darauf brauchen Sie beim VDC nicht zu verzichten. Genauso 
wie beim VIC kann man auch beim VDC den Bildschirm verti¬ 
kal oder horizontal in Rasterzeilen-Einheiten verschieben. 
Hierzu dienen beim VDC die Register 24 (Bits 0-4) und 25 (Bits 
0-3). Allerdings anders als beim VIC-Chip braucht man hier 
keinerlei Einbußen bezüglich der Zeichen- oder Zeilenzahl 
hinzunehmen. Der VDC ist zwar nicht für Spiele geeignet - 
zwar hat er eine sehr gute Auflösung, aber er ist durch seine 
recht komplizierte Adressierungstechnik viel zu langsam - 
jedoch kann man mit dem Smooth-Scrolling einige andere sinn¬ 
volle Effekte erzielen. Hier ist nun ein kleines Demoprogramm, 
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das Ihnen die Wirkung des Smooth-Scrollings auch auf dem 80- 
Zeichen-Schirm demonstriert: 

10 REM *** Demoprogramm für Smooth-Scrolling *** 

20 A=DEC("D600"): D^DECrDÖOI") 

30 VE=24: HO=25 

40 PRINT CHR$(147)CHR$(27);"M"; : REM BILDSCHIRM CLR UND SCROLLEN 
AUS 

50 A$="Hal lo C128-Fans! 11 
60 FOR 1=0 TO 24 
70 PRINT A$ 

80 NEXT 
90 : 

100 FOR 10=0 TO 6 

110 POKE A,VE: V=PEEK(D) AND 240 OR 10 

120 POKE A,VE: POKE D,V 

130 FOR 11=1 TO 20: NEXT 

140 POKE A,HO: H=PEEK(D) AND 240 OR 10 

150 POKE A,HO: POKE D,H 

160 FOR 11=1 TO 20: NEXT 

170 NEXT 

180 GOTO 100 

Sollte Ihnen dies zu schnell oder nicht schnell genug gehen, so 
ändern Sie entsprechend die Warteschleifen in den Zeilen 130 
und 160. 

Ist das Bit 3 gelöscht, so werden 25 Zeilen dargestellt und das 
folgende (bzw. vorangehende) RAM in den Bildschirm gescroilt. 
Setzen Sie das Bit 3, so werden nur noch 22 Zeilen dargestellt 
und Sie können die drei letzten Zeilen des Bildschirmes mittels 
Smooth-Scrolling in den Bildschirm scrollen. 


5.5.2 Blockweises Kopieren 

Wenn der Controller so schwierig zu adressieren ist, wie klappt 
dann das Scrolling auf dem Bildschirm so schnell? Vielleicht hat 
sich das der eine oder andere Leser bereits (zu recht) gefragt. 
Die Lösung ist recht einfach: Der VDC ist so intelligent, selb¬ 
ständig ganze Blöcke in seinem Speicher zu verschieben. Wenn 
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man dies über die relative Adressierung machen müßte, so 
würde dies auch in der Tat einiges an Zeit in Anspruch nehmen. 

Will man, daß der VDC einen Speicherbereich verschiebt, so 
muß man ihm dies über das COPY-Bit (Bit 7 in REG 24) mit- 
teilen. Ist das Bit gesetzt, so wird kopiert, ansonsten wird auf¬ 
gefüllt. Die Startadresse des zu kopierenden Blocks wird in den 
Registern 32 und 33 definiert; die Zieladresse des Kopiervor¬ 
ganges muß man im Update-Register (REG 18 und 19) defi¬ 
nieren; der Kopiervorgang beginnt, wenn man das Wordcount- 
Register beschreibt. Hier wird auch die Anzahl der zu 
kopierenden Zeichen angegeben. 

Achtung! Es wird die tatsächlich zu kopierende Anzahl angege¬ 
ben! Wollen Sie beispielsweise die erste Textzeile auf dem Bild¬ 
schirm um eine Zeile nach unten kopieren und das Attribut 
beibehalten, so müssen Sie in zwei Schritten erst die Textzeile 
und dann das Attribut kopieren. Wir wollen mit unserem 
Beispielprogramm ein SCROLLEN-ABWÄRTS realisieren - in 
BASIC natürlich recht langsam, in Maschinensprache allerdings 
entsprechend schnell. 

10 REM *** Demo-Programm für Kopieren *** 

20 A=DEC("D600"): D=DEC("D601") 

30 POKE A,24: C=PEEK(D): REM *** Inhalt Register 24 
40 POKE A,24: POKE D,C OR 128: REM *** COPY-BIT setzen 
50 FOR Z=24 TO 0 STEP -1 

60 AQ=Z*80: AZ=AQ+80: REM *** Quelle und Ziel 

70 POKE A,18: POKE D,AZ/256: POKE A,19: POKE D,AZ AND 255 

80 POKE A,32: POKE D.AQ/256: POKE A,33: POKE D,AQ AND 255 

90 POKE A,30: POKE D,79: REM *** Text kopieren 
100 AQ=2048+AQ: AZ=2048+AZ: REM *** Attribut-Adresse 

110 POKE A,18: POKE D,AZ/256: POKE A,19: POKE D,AZ AND 255 

120 POKE A,32: POKE D,AQ/256: POKE A,33: POKE D,AQ AND 255 

130 POKE A,30: POKE D,79: REM *** Attribut kopiert 
140 NEXT 

150 PRINT CHR$(19);CHR$(27);"D"; : REM *** Erste Zeile löschen 
160 POKE A,24: POKE D,C: REM *** COPY-BIT wieder löschen 
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Diese Routine tut zwar nichts anderes als die ESC-Sequenz 
CHR$(27);"W", jedoch wird hierdurch die Funktionsweise des 
Blockkopierens deutlich. 


5.5.3 Vorder- und Hintergrundfarbe 

Die Hintergrundfarbe des 80-Zeichen-BiIdschirmes können Sie 
im Register 26 (Bits 0-3) definieren. Die Vordergrundfarbe hat 
im Grafikmodus Wirkung und - vorausgesetzt das ATR-Bit im 
Register 25 ist nicht gesetzt - auch im Textmodus. 

Die Definition des Registers: 

POKE DEC("D600"),26 

POKE DEC("D60I"),<Vordergrund>*16 + «Hintergrund» 


5.5.4 Der Cursorinodus 

Sie können das Aussehen des Cursors weitgehend selbst bestim¬ 
men: Sie können ihn ganz auschalten, schnell oder langsam 
blinken lassen und ihn als Block- oder als Underline-Cursor 
definieren. Sie können diese Definitionen zwar auch über die 
ESC-Sequenzen vornehmen, jedoch gibt es Situationen, wo dies 
nicht möglich ist - beispielsweise in Maschinensprache. Der 
Cursormodus wird im Register 10 bestimmt. Ferner wird im 
Register 10 noch angegeben, an welcher Rasterzeile der Block¬ 
cursor beginnen soll. Durch Anfangs- und Endzeile des Block¬ 
cursors können Sie aus dem Block beispielsweise einen breiteren 
Strich in der Mitte machen etc. (Nichts anderes wird gemacht, 
wenn der Underline-Cursor eingeschaltet wird.) Doch hier erst 
einmal die vier möglichen Bitkombinationen des Cursormodus: 

00 - nicht blinkender Cursor 

01 - Cursor ausgeschaltet 

10 - langsamer Cursor (Cursor blinkt in 1/16 der BWF) 

11 - schneller Cursor (Cursor blinkt in 1/32 der BWF) 


BWF = Bildwiederhol frequenz 
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Wie bereits erwähnt, übernimmt der VDC das Blinken des 
Cursors inklusive Negieren des Zeichens unter dem Cursor 
selbständig und entlastet somit die CPU (was zur Geschwindig¬ 
keitserhöhung führt). 

Beim Blockcursor ist die Startzeile die Zeile 0; die Endzeile - in 
Register 11 zu definieren - die Zeile 7. Um einen Underline- 
Cursor zu definieren, braucht man lediglich die Startzeile auf 7 
zu ändern. 

Um die Auswirkungen zu demonstrieren, probieren Sie einfach 
folgendes einmal aus: 

10 REM *** DEMO für Cursor *** 

20 A=DEC("D600"): D=DEC("D601") 

30 POKE A,10: POKE D,3: REM *** Nicht blinkend - Startzeile=3 
40 POKE A,11: POKE D,5: REM *** Endzeile=5 

Die Cursoradresse wird in den Registern 14 und 15 definiert; an 
dieser Adresse befindet sich dann der Cursor, der ggf. blinkt 
und das darunter befindliche Zeichen negiert. Eine andere 
Funktion haben diese beiden Register nicht. 


5.5.5 Die Zeichenlänge und -breite 

Die Matrix der im VDC-RAM gespeicherten Zeichen beträgt 
8x8 Punkte; das heißt nichts anderes, als daß die auf dem 
Bildschirm dargestellten Zeichen 8 Punkte breit und 8 Zeilen 
lang sind. Doch dies kann man ändern. In den Registern 22 und 
23 kann man die Breite und die Länge der Zeichen bestimmen. 
Folgendes kleines BASIC-Programm demonstriert dies recht 
anschaulich: 

10 REM *** DEMO-Prograum für Zeichen-Matrix *** 

20 : 

30 A=DEC("D600 1 '): D=A+1 

40 FOR 10=0 TO 8: POKE A,22: POKE D,112+10 

50 FOR 11=0 TO 8: POKE A,23: POKE D,11 
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60 FOR 12=1 TO 30: NEXT 12,11 
70 FOR 12=1 TO 30: NEXT 12 
80 NEXT 10 
90 GOTO 40 

In Register 22 müssen Sie die 112 immer hinzuaddieren, da das 
obere Nibble unbedingt immer $7 sein muß. 


5.5.6 Mehr als 25 Zeilen auf dem Bildschirm 

Doch, doch. Sie haben schon ganz richtig gelesen. Es ist 
möglich, auf Ihrem Bildschirm nicht nur 25 Zeilen mit 2000 
Zeichen darzustellen, sondern man kann durch geschickte 
Manipulation sogar 28 Zeilen mit 2240 (!!) Zeichen und mehr 
darstellen lassen. Dies ist sicherlich keine Spielerei sondern wird 
vielmehr jeden engagierten Programmierer erfreuen, der bei¬ 
spielsweise eine Text- oder Dateiverwaltung auf dem C-128 
schreiben will; es ist ja nun nicht ganz unbedeutend, ob man 
nun 2000 Zeichen oder 2240 Zeichen auf dem Bidlschirm zur 
Verfügung stehen hat. 

Die Lösung, die wir Ihnen unterbreiten wollen, beinhaltet die 
Möglichkeit, weiterhin mit dem BASIC 25 Zeilen zu verwal-ten, 
d.h. die restlichen 3 Zeilen bleiben beim Scrollen und beim 
Bildschirm-Löschen unberührt und eignen sich auf diese Weise 
vorzüglich als Status-Zeilen. Diese 3 Zeilen (inkl. Attribut) 
können Sie mittels geeigneter Maschinenprogramme verändern. 
Doch nun zunächst einmal zur Theorie: 

Im Register 6 des Video-Controllers kann man angeben, wieviele 
Zeilen auf dem Bildschirm erscheinen sollen. Hier ist der 
Normalwert 25. Ändern Sie diesen Wert beispielsweise einmal 
auf 10: 

10 A=DEC("D600"): D=A+1 
20 POKE A,6: POKE D, 10 

Sie sehen, daß der Controller nun nur noch 10 Zeilen auf dem 
Bildschirm darstellt, die restlichen Zeilen werden einfach ver¬ 
schluckt. So, wie man den Bildschirm kleiner machen kann. 
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besteht auch die Möglichkeit, die Zeilenanzahl zu erhöhen. Dies 
tun wir einfach, indem wir die Zeile 20 korrigieren: 

20 POKE A,6: POKE D,28 

Und schon, so meint man, müßten die 28 Zeilen auf dem Bild¬ 
schirm erscheinen. Man erkennt auch einige Zeilen, die zumeist 
in irgendwelchen schillernden Farben blinken - aber von drei 
Zeilen kann nicht die Rede sein, man erkennt bestenfalls 2 1/2. 
Das liegt einfach daran, daß der Bildschirm zu niedrig beginnt. 
Wir müssen den Bildschirm also nach oben verschieben, um alle 
Zeilen auch tatsächlich auf dem Bildschirm sehen zu können. 
Dazu sind die SYNC-Register sehr dienlich - wir wollen das 
Register 7 - VERT1CAL SYNC POSITION - dazu entsprechend 
verändern. Der Standardwert dieses Registers ist 32. Verändern 
Sie diesen Wert auf 37, so schiebt sich der Bildschirm langsam 
nach oben und bleibt dann da auch stehen. Wir können nun 
(wenn der Monitor entsprechend gut ist) alle 28 Zeilen auf dem 
Bildschirm erkennen - auch wenn die letzten drei Zeilen noch 
keinen sinnvollen Inhalt aufweisen. 

Noch eine kleine Anmerkung: Auf einem sehr gut eingestellten 
IBM-Farbmonitor haben wir sogar 30 Zeilen darstellen können. 
Dies auszunutzen wäre aber unsinnig, da die meisten Monitore 
dies nicht schaffen würden. Bei zwei oder drei Zusatzzeilen hat 
aber noch jeder Monitor mitgespielt, so daß man generell sagen 
kann, daß zumindestens zwei zusätzliche Zeilen möglich sein 
müßten, die man dann in der Software entsprechend als Status- 
Zeilen etc. nutzen kann. 

Wir wissen bereits, daß das Video-RAM ab Adresse $0000 liegt 
und das Attribut-RAM ab Adresse $0800. Dies müssen wir 
korrigieren, da wir nun 2400 Zeichen darzustellen haben; das 
Ende des Video-RAM lüge dann an Adresse $0960 und würde 
weite Teile des Attribut-RAMs überschreiben und umgekehrt. 
Zwischen Attribut-RAM und Zeichengenerator ist allerdings 
genügend Platz - hier brauchen wir uns keinerlei Gedanken zu 
machen. Es würde sich also die Adresse $0A00 als Startadresse 
für das Attribut-RAM anbieten. 

Wenn wir aber mit BASIC auf dem 80-Zeichen-Schirm 
schreiben wollen, dann entsteht ein kleines Problem: Der Inter- 
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preter holt sich die Basisadresse des Attribut-RAMs aus Adresse 
$0A2F der Zeropage. Nicht weiter schlimm - dann können wir 
dem BASIC-Interpreter ja die neue Basisadresse mitteilen. Dies 
ist richtig - doch sieht man sich das Kernal ein wenig genauer 
an, so stellt man fest, daß die Basisadresse nicht addiert, sondern 
logisch ODER-verknüpft wird. Dabei werden die Bits 0 und 1 
beeinflußt; diese beiden Bits dürfen also nicht relevant sein, d.h. 
sie dürfen nicht gesetzt sein. Deshalb bietet es sich an, die 
Adresse $1000 als Basisadresse des Attribut-RAMs zu 
definieren. Dies tun wir durch die beiden Anweisungen: 

POKE DEC("0A2F"),16 

PORE DEC("D600"),20: POKE DEC("D601"), 16 

Wenn dies getan ist, funktioniert alles wie gehabt. Wir fassen 
diese Erkenntnisse nun erst einmal in einem Programm zusam¬ 
men: 


10 REM *** Demo-Programm für 30-Zeilen-Bi Idschirm *** 

20 : 

30 A=DEC("D600 M ): D=DEC("D601") 

40 POKE A,20: POKE D,16: REM *** VDC erhält neue Basisadresse 
50 POKE DEC("0A2F"),16: REM *** Kernal erhält neue Basisadresse 
60 POKE A,6: POKE D,38: REM *** 28 Zeilen anmelden 
70 POKE A,7: POKE D,33: REM *** Neue Synchronisation 

Wenn Sie dieses Programm starten, so erscheinen 28 Zeilen auf 
dem Bildschirm - allerdings sind die letzten drei Zeilen noch 
ohne ernsthaften Inhalt. Diesem Punkt wollen wir uns nun 
zuwenden. 

Beschreiben können Sie diese drei Zeilen durch das PRINT- 
Kommando leider nicht - hierzu fehlen die notwendigen 
Voraussetzungen im Betriebssystem. Hieraus wird deutlich, daß 
wir Zeichen(-ketten) in den Speicher hineinPOKEn müssen. 
Diese recht aufwendige Arbeit soll Ihnen eine kleine 
Maschinenroutine abnehmen, so daß die zu druckenden Zeichen 
doch in einem String zusammengefaßt werden können. 

Diese Maschinenroutine wird die Adresse des auszugebenden 
Strings übergeben. Die Adresse einer Variablen kann man ja 
mittels dem Kommando POlNTER(Var) ermitteln. Zuvor 
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werden noch in den Speicherstellen $FA (250) und $FB (251) 
das Lo- und das Hi-Byte der Bildschirmadresse übergeben, an 
der der String dann ausgegeben werden soll. Als Farbe bzw. 
Attribut wird dann das aktuelle Attribut gesetzt. Beachten Sie 
aber bitte, daß Sie keine Kontrollzeichen in die Strings 
integrieren. Diese werden zwar ausgeführt, hinterlassen aber eine 
Lücke in der Zeichenkette. Ein ordnungsgemäßes Ausführen von 
Steuersequenzen wäre zwar auch hier möglich - jedoch haben 
wir aus Platzgründen hierauf zunächst verzichtet; wir wollen ja 
nicht, daß Sie zum "Meisterabtipper" werden. Die Routine ist 
also dazu gedacht, Zeichenketten in unserem neuen Fenster 
auszugeben, ohne daß dadurch größerer Programmieraufwand 
nötig wird. Um eine beliebige Zeichenkette an die erste Zeile in 
unserem neuen Fenster auszugeben, wären folgende Kommandos 
notwendig: 

T$="Dies ist ein Teststring!•• 

POKE 250,(2000 AND 255): POKE 251,(2000/256) 

A=POINTER(T$) 

SYS DEC("D27"),A AND 255,A/256 

Zuerst wird also die Stringvariable definiert, die die auszuge¬ 
bende Zeichenkette beinhaltet. Dann POKEn wir die 
Startadresse nach $FA und SFB, zuerst das Lo-, dann das Hi- 
Byte. Wir ermitteln dann die Adresse, an der der String T$ in 
der Bank 1 abgelegt ist. Diese Adresse wird dann, wieder in Lo- 
und in Hi-Byte getrennt, an die Ausgaberoutine an Adresse 
S0D27 übergeben. Die Routine holt sich dann jedes Zeichen und 
gibt es aus. Das ist alles. Doch hier zunächst das 
Maschinenprogramm: 

OODOO 8E 00 D6 STX $0600 ;ABSPEICHERN DES REGISTERS 
00D03 2C 00 D6 BIT $D600 ,-TESTE STATUS 

00D06 10 FB BPL $0003 ;NOCH NICHT FERTIG 

O0DO8 8D 01 D6 STA $0601 .-SPEICHERN DES UERTES 

00D0B 60 RTS ;ENDE DER UNTERROUTINE 

00D0C A2 12 LDX #$12 ,-UPDATE-REGISTER HI 

00D0E A9 00 LDA #$00 ;LADEN DES HI-UERTES 

00D10 20 00 0D JSR $0D00 ;SETZEN DER HI-ADRESSE 

00D13 E8 INX .-UPDATE-ADRESSE LO 

00D14 A9 00 LDA #$00 ,-LADEN DES LO-BYTES 

00D16 20 00 0D JSR $0000 ;UND AUCH ABSPEICHERN 
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00D19 

A2 

1F 


LDX 

#$1F 

.•DATENREGISTER DES VDC 

00D1B 

A9 

00 


LDA 

#$00 

;LADEN DES POKEWERTES 

00D1D 

20 

00 

OD 

JSR 

$0D00 

;SETZEN DES WERTES 

00020 

A2 

12 


LDX 

#$12 

.•NOCHMAL DUMMY-BESCHREIBEN 

00D22 

A9 

00 


LDA 

#$00 

;UM UPDATE-ADRESSE AUZULÖSEN 

00024 

60 



RTS 


.-DANN ENDE 

00D27 

85 

FC 


STA 

$FC 

,-MERKE LO-BYTE VON STRING 

00029 

86 

FD 


STA 

$FD 

;MERKE HI-BYTE VON STRING 

00D2B 

A0 

00 


LDY 

#$00 

;OFFSET FÜR LÄNGE STRING 

00D2D 

A2 

01 


LDX 

#$01 

.-BANK 1 FUER VARIABLEN 

00D2F 

A9 

FC 


LDA 

#$FC 

;AN ADRESSE $FC STEHT STR.-ADRESSE 

00D31 

20 

74 

FF 

JSR 

$FF74 

;UND FAR-FETCH 

00D34 

85 

FE 


STA 

$FE 

.•LÄNGE MERKEN 

00036 

AO 

01 


LDY 

#$01 

;OFFSET FUER LO-BYTE ADRESSE 

00D38 

A2 

01 


LDX 

#$01 

.-BANK 1 FUER VARIABLEN 

0003A 

A9 

FC 


LDA 

#$FC 

;AN $FC BEFINDET SICH DIE ADRESSE 

00D3C 

20 

74 

FF 

JSR 

$FF74 

;FAR-FETCH 

00D3F 

48 



PHA 


,-RETTE LO-BYTE AUF STACK 

O0D4O 

C8 



I NY 


,-ZEIGER AUF HI-BYTE 

00D43 

A9 

FC 


LDA 

#$FC 

.•ADRESSE FUER VARIABLE 

00D45 

20 

74 

FF 

JSR 

$FF74 

; FAR-FETCH 

00048 

85 

FD 


STA 

$FD 

;MERKEN DES HI-BYTES 

00D4A 

68 



PLA 


;HOLE LO-BYTE 

0004B 

85 

FC 


STA 

$FC 

.•SPEICHERN DES LO BYTES 

00D4D 

A5 

FC 


LDA 

$FC 

;HOLE LO-BYTE 

0004 F 

DO 

02 


BNE 

$0D53 

.-WENN NICHT NULL, ERNIEDRIGE NUR 

00051 

C6 

FD 


DEC 

$FD 

;DAS LO-BYTE, SONST ERNIEDRIGE 

00053 

C6 

FC 


DEC 

$FC 

.-AUCH DAS HI-BYTE 

00D55 

A5 

FA 


LDA 

$FA 

;AUCH DIE QUELLADRESSE 

00D57 

DO 

02 


BNE 

$0D5B 

.•ERNIEDRIGE NUR LO-BYTE 

00059 

C6 

FB 


DEC 

$FB 

;UM EINS ERNIEDRIGEN, EVTL. 

00D5B 

C6 

FA 


DEC 

$FA 

;AUCH DAS Hl-BYTE 

00D5D 

A5 

FA 


LDA 

$FA 

;HOLE LO-BYTE 

00D5F 

85 

EO 


STA 

$E0 

;UND ALS LO-BYTE ZIELADRESSE 

00D61 

A5 

FB 


LDA 

$FB 

;HOLE HI-BYTE 

00063 

85 

El 


STA 

$E 1 

;UND ALS HI-BYTE ZIELADRESSE 

00065 

A2 

01 


LDX 

#$01 

.-BANK 1 FUER VARIABLEN 

00D67 

A4 

FE 


LDY 

#$FE 

.-POSITION IM STRING 

00D69 

A9 

FC 


LDA 

#$FC 

.•ADRESSE IN DER ZEROPAGE 

00D6B 

20 

74 

FF 

JSR 

$FF74 

; FAR-FETCH 

00D6E 

A4 

FE 


LDY 

$FE 

;HOLE POSITION IM STRING 

00D70 

84 

EC 


STY 

$EC 

;ALS CURSORSPALTE 
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00D72 20 0C CO JSR $COOC ;UND ZEICHEN AUSGEBEN 

00D75 C6 FE DEC $FE .-ERNIEDRIGE DEN ZEIGER 

00D77 DO E4 BNE S0D5D ;ENDE DES STRINGS NOCH NICHT ERREICHT 

00D79 60 RTS .-ENDE DER UNTERROUTINE 

Die Routine erscheint Ihnen auf den ersten Blick vielleicht lang, 
das ist sie aber in Wirklichkeit gar nicht. Bedenken Sie, daß Sie 
durch diese Routine und einige kleine BASIO-Zeilen drei 
zusätzliche Zeilen zu Ihrer freien Verwendung haben. Ferner 
befindet sich am Anfang der Routine noch eine weitere kleine 
Routine (die wir ja bereits hatten), um an eine beliebige Stelle 
im VDC-Speicher ein beliebiges Zeichen zu schreiben. (Siehe 
aber auch Beispiel). Der BASIC-Loader zu dieser Rotuine 
befindet sich im Anschluß an das Beispielprogramm. Doch hier 
zunächst das Beispielprogramm, das sowohl 28 Zeilen darstellt, 
als auch beide neuen Routinen zur Hilfe nimmt. 

10 REM *** Demo-Programm für 28-Zeilen-Bitdschirm *** 

20 : 

30 A=DEC("D600"): D=DEC("D601") 

40 POKE A,20: POKE D,16: REM *** VDC erhält neue Basisadresse 
50 POKE DEC("0A2F"),16: REM *** Kernal erhält neue Basisadresse 
60 POKE A.7: POKE D,28: REM *** 28 Zeilen anmelden 
70 POKE A,6: POKE D,33: REM *** Neue Synchronisation 
80 : 

90 PRINT CHR$(147); 

100 T$=" REM 20 LEERZEICHEN 

110 FOR X=0 TO 79 STEP 20: FOR Y=0 TO 2 

120 GOSUB 1000: NEXT: NEXT 

130 INPUT "Geben Sie Ihren Namen ein: ";T$ 

140 FOR Y=0 T0 2: X=2*Y: GOSUB 1000: NEXT 
150 END 

999 : 

1000 REM *** AUSGABE VON T$ AN X,Y KOORDINATE; Y=0 BEDEUTET 1. 

ZEILE *** 

1010 AZ=2000+Y*80+X: REM ZIELADRESSE 
1020 POKE 250,AZ AND 255: REM LO-BYTE 
1030 POKE 251,AZ/256: REM HI-BYTE 
1040 T%=POINTER(T$): REM ADRESSE DES STRINGS 
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1050 SYS DEC("D27"),T% AND 255,T%/256: REM AUSGEBEN 
1060 RETURN 
1070 : 

Dieses Programm schaltet also zunächst die zusätzlichen drei 
Zeilen ein (Zeilen 30-70). Danach wird das Fenster gelöscht, 
und der von Ihnen eingegebene Name wird in jeder Zeile einmal 
ausgedruckt. 

Wenn Sie das Maschinenprogramm nicht mit dem Direct- 
Assembler eingeben wollen, so verwenden Sie folgenden BASIC- 
Loader; Sie können das Maschinenprogramm dann auch als BIN- 
File auf Diskette sichern. 

10 REM *** BASIC-LOADER FÜR PRINTSTRING *** 

20 : 

30 FOR I=DEC("D00") TO DEC("D79") 

40 READ A$ 

50 POKE I ,DEC(A$) 

60 S=S+DEC(A$) 

70 NEXT 

80 IF S<>13595 THEN PRINT "*** FEHLER IN DATAS ***" 

90 INPUT "SOLL PROGRAMM AUF DISKETTE (J/N): “;A$ 

100 IF A$<>"J“ THEN END 
110 INPUT "FILENAME:F$ 

120 BSAVE F$,Bl,P(DEC("D00")) TO P(DEC("D79“)): END 
100 : 

110 DATA 8E,00,D6,2C,00,D6,10,FB,8D,01,D6,60,A2,12,A9,00 
120 DATA 20,00,OD,E8,A9,00,20,00,0D,A2,1F,A9,00,20,00,00 
130 DATA A2,12,A9,00,4C,00,0D,85,FC,86,FD,A0,00,A2,01,A9 
140 DATA FC,20,74,FF,85,FE,A0,01,A2,01,A9,FC,A0,74,FF,48 
150 DATA C8,A2,01,A9,FC,20,74,FF,85,FD,68,85,FC,A5,FC,DO 
160 DATA 02,C6,FD,C6,FC,A5,FA,D0,02,C6,FB,C6,FA,A5,FA,85 
170 DATA EO,A5,FB,85,E1,A2,01,A4,FE,A9,FC,20,74,FF,A4,FE 
180 DATA 84,EC,20,OC,C0,C6,FE,D0,E4,60 


5.5.7 Die Hi-Res-GRAFIK 

Sicherlich haben wir Sie bereits heiß gemacht, als wir erwähnt 
haben, daß auch eine Grafikdarstellung auf dem 80-Zeichen- 
Bildschirm möglich ist. Die Auflösung dieses Grafikmodus 
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beträgt 640 x 200 Punkte und ist somit also exakt doppelt so 
hoch wie der Hi-Res-Modus des VIC-Chips. Einen Multi- 
Color-Modus gibt es hier allerdings nicht. Die Brillanz der 
Grafik ist allerdings schon beeindruckend (wenn der Monitor 
mitspielt). Hier braucht man nicht, wie beim VIC manchmal 
nötig, zwei Punkte nebeneinander einzuschalten, um überhaupt 
einen Punkt zu erkennen. Allerdings hat man nur eine Farbe zur 
Verfügung, doch für anspruchsvolle Grafiken (beispielsweise 
mathematische Kurven etc.) vollkommen ausreichend. 

Dieser Grafikmodus wird allerdings nicht von den BASIC-7.0- 
Grafik-Kommandos unterstützt. Wir bieten Ihnen hier wieder 
ein kleines Maschinensprachepaket an, mit dem Sie folgende 
elementaren Funktionen ausführen kennen: 

* Ein- und Ausschallen des Grafikmodus 

* Löschen der Grafikseite 

* Setzen und Löschen von Punkten 

Natürlich hätten wir noch mehr Möglichkeiten in das Routinen¬ 
paket integrieren können - jedoch soll das INTERN ja nicht zur 
Programmsammlung werden! 

Sicherlich ist aber auch beim Grafikmodus des VDC das WIE 
interessant: Durch Setzen des Bit 7 von Register 25 wird der 
Bit-Map-Mode eingeschaltet. Es sind dann die gesamten 16 
KByte des VDC-Speichers für die Grafik auf dem Bildschirm 
verfügbar. Löscht man dann die Grafik, so wird auch der 
Zeichengenerator gelöscht. Sollten Sie mittels <RUN/STOP>- 
<RESTORE> einmal aussteigen, so müssen Sie auch die 
<ASC1I>-<DIN>-Taste betätigen, da Sie sonst wegen des 
gelöschten Zeichensatzes gar nichts auf Ihrem Bildschirm 
erkennen. Programmgesteuert kann man natürlich den Zeichen¬ 
satz nach Umschalten von Grafik- in Textmodus wieder 
zurückkopieren. Sie können auch während eingeschaltetem 
Grafikmodus einmal die <ASCII>-<D1N>-Taste betätigen - Sie 
werden sich wundern. 

Durch Setzen des Bit 7 wird also der Grafikmodus eingeschaltet. 
Da das Attribut-RAM nun aber auch unwirksam wird, es wird 
ja ebenfalls zur Grafikdarstellung benötigt, müssen wir auch das 
ATR-Bit im Register 25 löschen. Diese zwei Aktionen können 
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wir kombinieren, indem wir das Register 25 mit 128 laden. Dies 
wäre alles, um den Grafikmodus einzuschalten. Attribut-Adresse 
und Video-RAM-Adresse können wir dort liegen lassen, wo sie 
standardmäßig definiert sind, dies spielt keinerlei Rolle. 

Die Grafik wird ab Adresse $0000 definiert. Die Logik zum 
Setzen und Löschen eines Punktes ist ähnlich der für den VIC- 
Chip beschriebenen; hier ist das Setzen und Löschen durch 
logisches ODER- und UND-Verknüpfen gemeint. Auch beim 
VDC definiert ein Byte acht Punkte (Pixels). Der erste Punkt, 
der die Koordinate 0/0 hat, befindet sich in der linken oberen 
Ecke und somit auch an Adresse $0000. Der weitere Verlauf der 
Grafik ist einfacher als beim VIC-Chip. Es wird Zeile für Zeile 
der Grafik definiert. Der Speicherauszug soll durch folgende 
kleine Grafik verdeutlicht werden: 

$0000 $0001 $0002 $0003 . $027F (639 dezimal) 

$0280 $0281 $0282 $0283 . $04FF (1279 dezimal) 


Beim VDC wird der Speicher nicht in Achter-Päckchen aufge- 
teilt, so daß die Adressierung eines Punktes weitaus einfach 
realisiert werden kann. Um einen beliebigen Punkt (X/Y) zu 
adressieren, benötigt man folgende Formel: 

AD = INT(X/8) + Y*80 

Der Punkt in diesem Byte wird genauso wie beim VIC durch die 
Formel 


2 A (7-(X AND 7)) 

angesprochen. Da diese Adressierung so einfach zu realisieren 
ist, wurde das Maschinenprogramm auch entsprechend kurz. 
Zunächst das Assembler-Listing, dann der BASIC-Loader: 


oocoo 

4C 

CD 

OC 

JMP 

$0CCD 

00CO3 

4C 

DO 

OC 

JMP 

$0CD0 

00C06 

4C 

D3 

OC 

JMP 

$0CD3 

00C09 

4C 

E0 

OC 

JMP 

$0CE0 

oococ 

4C 

DD 

OC 

JMP 

$0CDD 


;Einschalten der Grafik + Löschen 
.■Löschen der Grafik 
.•Zurück in Textmodus 
,-Setzen eines Punktes 
.•Löschen eines Punktes 
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00C0F 

8E 

00 D6 

STX 

SD600 

00C12 

2C 

00 D6 

BIT 

$D600 

00C15 

10 

FB 

BPL 

$0C12 

00C17 

8D 

01 D6 

STA 

$D601 

00C1A 

60 


RTS 


00C1B 

8E 

00 D6 

STX 

$D600 

00C1E 

2C 

00 D6 

BIT 

$0600 

00C21 

10 

FB 

BPL 

S0C1E 

00C23 

AD 

01 D6 

LDA 

SD601 

00C26 

60 


RTS 


00C27 

A2 

19 

LDX 

#$19 

00C29 

A9 

80 

LDA 

#$80 

00C2B 

20 

0F 0C 

JSR 

$0C0F 

00C2E 

A0 

40 

LDY 

#$40 

00C30 

A2 

12 

LDX 

#$12 

00C32 

98 


TYA 


00C33 

20 

0F 0C 

JSR 

$0C0F 

00C36 

A2 

1F 

LDX 

#$1F 

00C38 

A9 

00 

LDA 

#$00 

00C3A 

20 

0F 0C 

JSR 

$0C0F 

00C3D 

A2 

IE 

LDX 

#$1E 

00C3F 

20 

0F 0C 

JSR 

$0C0F 

00C42 

88 


DEY 


00C43 

10 

EB 

BPL 

$0C30 

00C45 

60 


RTS 


00C46 

08 


PHP 


00C47 

A5 

FA 

LDA 

$FA 

00C49 

85 

FE 

STA 

$FE 

00C4B 

46 

FB 

LSR 

SFB 

00C4D 

66 

FA 

ROR 

$FA 

00C4F 

46 

FB 

LSR 

SFB 

00C51 

66 

FA 

ROR 

$FA 

00C53 

46 

FB 

LSR 

SFB 

00C55 

66 

FA 

ROR 

$FA 

00C57 

A9 

00 

LDA 

#$00 

00C59 

85 

FD 

STA 

$FD 

00C5B 

A5 

FC 

LDA 

$FC 

00C5D 

06 

FC 

ASL 

$FC 

00C5F 

26 

FD 

ROL 

$FD 

00C61 

06 

FC 

ASL 

$FC 

00C63 

26 

FD 

ROL 

$FD 

00C65 

65 

FC 

ADC 

$FC 


Register übergeben 

Teste Statusbit 

noch nicht fertig 

Uert übergeben 

Rücksprung aus Unterprogramm 

Register übermitteln 

Teste Statusbit 

noch nicht fertig 

Hole aktuellen Registerwert 

Rücksprung aus Unterprogramm 

Register 25 auswählen 

Bit 7 setzen - Grafikmodus 

Register 25 setzen 

$40 Blöcke löschen 

Register 18 - Update-Hi 

Hi -Byte nach Akku 

Setze Update-Hi 

Register 31 - DATA-Register 

0, da gelöscht wird 

DATA-Register beschreiben 

WORDCOUNT-Register 

Mit Null belegen 

Erniedrige den Zähler 

nächsten Block löschen 

Rücksprung aus Löschroutine 

Carry: Zeichen für Setzen/Löschen 

Lo-Byte von X-Koordinate 

Zwischenspeichern 

Hi-Byte von X durch zwei 

Carry nach Lo-Byte übertragen 

s.o. 

s.o. 

ergibt zusammen INTCX/8) 

Hi-Byte der Adresse auf 
Null setzen 

Y-Koordinate in Akku merken 
Y mal zwei 
Carry übertragen 
nochmal mal zwei ergibt 
insgesamt mal 4, plus einmal Y 
ergibt Y*5. 
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00C67 

85 

FC 


STA 

$FC 

00C69 

90 

02 


BCC 

$0C6D 

00C6B 

E6 

FD 


INC 

$FD 

00C6D 

A2 

04 


LDX 

#$04 

00C6F 

06 

FC 


ASL 

$FC 

00C71 

26 

FD 


ROL 

$FD 

00C73 

CA 



DEX 


00C74 

DO 

F9 


BNE 

$0C6F 

00C76 

A5 

FA 


LDA 

$FA 

00C78 

65 

FC 


ADC 

$FC 

00C7A 

85 

FC 


STA 

$FC 

00C7C 

90 

02 


BCC 

o 

CO 

u 

o 

00C7E 

E6 

FD 


INC 

$FD 

OOC80 

A2 

12 


LDX 

#$12 

00C82 

A5 

FD 


LDA 

$FD 

00C84 

20 

0F 

OC 

JSR 

$0C0F 

00C87 

E8 



I NX 


00C88 

A5 

FC 


LDA 

$FC 

00C8A 

20 

0F 

OC 

JSR 

$0C0F 

00C8D 

A2 

1F 


LDX 

#$1 F 

00C8F 

20 

1B 

OC 

JSR 

$0C1B 

00C92 

48 



PHA 


00C93 

A5 

FE 


LDA 

$FE 

00C95 

29 

07 


AND 

#$07 

00C97 

AA 



TAX 


OOC98 

68 



PLA 


00C99 

28 



PLP 


00C9A 

B0 

05 


BCS 

$0CA1 

00C9C 

3D 

C5 

OC 

AND 

$0CC5 

00C9F 

90 

03 


BCC 

$0CA4 

00CA1 

10 

BD 

OC 

ORA 

$0CBD 

00CA4 

48 



PHA 


00CA5 

A2 

12 


LDX 

#$12 

00CA7 

A5 

FD 


LDA 

$FD 

00CA9 

20 

0F 

OC 

JSR 

$0C0F 

00CAC 

E8 



I NX 


00CAD 

A5 

FC 


LDA 

$FC 

00CAF 

20 

0F 

OC 

JSR 

$0C0F 

00CB2 

A2 

1F 


LDX 

#$1 F 

00CB4 

68 



PLA 


00CB5 

20 

0F 

OC 

JSR 

$0C0F 

00CB8 

A2 

12 


LDX 

#$12 


Lo-Byte 

Kein Übertrag 

Übertrag nach Hi-Byte 

Es wird jetzt noch 4 mal 

mit zwei multipliziert. Dies 

ergibt eine Multiplikation mit 16 

und 16*5 ergibt 80. Y wird also 

mit 80 multipliziert. 

INTCX/8) 

Addiere zu Y*80 

und abspeichern 

Kein Übertrag 

Übertrag berücksichtigen 

Register 18 - Update-Hi 

Hi-Byte der errechneten Adresse 

Wert setzen 

Update-Lo 

Lo-Byte der Adresse 
Setzen des Lo-Bytes 
DATA-Register 

Holen des Speicherinhaltes 
Rette Wert auf Stack 
Hole X-Koordinate (Lo) 

Nur der Rest X AND 7 ist wichtig 
als Pointer nach X 
Hole Speicherwert zurück 
Hole Carry zurück 
Setzen des Punktes 
X .-Löschen des Punktes 
.-unbedingter Sprung 
X ,-Setzen des Punktes 
,-Rette neuen Wert 
;Update-Hi 

;Hi-Byte von Zieladresse 
;Setzen des Wertes 
,-Update-Lo 

,-Lo-Byte der Adresse 

;Setzen des Lo-Bytes 

;DATA-Register 

;Hole Wert wieder von Stack 

,-Setzen des neuen Wertes 

.-Update-Adresse Hi 
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OOCBA 

4C 

1B 

OC 


JMP 

S0C1B ;und Punkt setzen 

OOCBD 

80 

40 

20 

10 

08 04 02 01 .-Tabelle zum Setzen der Punkte 

00CC5 

7F 

BF 

DF 

EF 

F7 FB FD FE .-Tabelle zum Löschen der Punkte 

OOCCD 

20 

27 

OC 


JSR 

$0C27 ;Setzen des Grafikmodus 

00CD0 

4C 

2E 

OC 


JMP 

$0C2E .-Löschen der Grafik 

00CD3 

A2 

19 



LDX 

#$19 .-Register 25 auswählen 

00CD5 

A9 

47 



LDA 

#$47 ;ATR-Bit setzen, TXT-Bit löschen 

OOCD7 

20 

0F 

OC 


JSR 

$0C0F ;Setzen des Textmodus 

OOCDA 

4C 

OC 

CE 


JMP 

$CE0C .-Kopieren des CHARROM 

OOCDD 

18 




CLC 

.-Lösche Carry für Punkt löschen 

OOCDE 

90 

01 



BCC 

$0CE1 ;unbedingter Sprung 

00CE0 

38 




SEC 

,-Setze Carry für Punkt setzen 

00CE1 

85 

FA 



STA 

$FA ,-Abspeichern X-Lo 

00CE3 

86 

FB 



STX 

$FB ;Abspeichern X-Hi 

00CE5 

84 

FC 



STY 

$FC ;Abspeichern Y-Koordinate 

00CE7 

4C 

46 

OC 


JMP 

$0C46 .-Punkt setzen/löschen 


Wie Sie sehen, stehen fünf Einsprungadressen zur Verfügung. 
Beim Einschalten des Grafikmodus wird auch automatisch die 
Grafikseite gelöscht. Wollen Sie nur die Grafikseite einschalten, 
so können Sie dies auch einfach mittels folgender BASIC- 
Kommandos tun: 

POKE DEC("D600"),25: POKE DEC("D601"),128 

Sie erreichen beim Ansprung der fünf Einsprungadressen fol¬ 
gende Unterroutinen: 

$0C00 - Einschalten des Grafiknwdus inkl. Löschen 

S0C03 - Löschen der Grafik 

$OC06 - Zurück in den Textmodus 

$0C09 - Setzen eines Punktes 

SOCOC - Löschen eines Punktes 

Bei den Routinen zum Setzen und Löschen eines Punktes können 
die Koordinaten direkt beim SYS-Kommando mit übergeben 
werden. Die Syntax sieht wie folgt aus: 


SYS <EINSPRUNG>,< X-LOW >,< X-HIGH >,<Y > 
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Um also beispielsweise den Punkt mit der Koordinate (185/191) 
zu setzen, wäre das Kommando 

SYS DEC("0CO9"),0,185,191 

nötig. Genau wie bei der Routine zum Ausdruck eines Strings 
im Statusfenster sieht auch hier der generelle Aufruf aus: 

SYS DEC("0C09"),X AND 255,X/256,Y 

Übrigens macht es sich bezahlt, so häufig wie möglich das %- 
Zeichen an die Variablennamen anzuhängen, da die Variablen 
dann als Integervariablen behandelt werden - was zu immensen 
Geschwindigkeitsgewinnen führt. Allerdings geht dies leider 
nicht bei Schleifenvariablen. Ferner sollte man die Konstanten 
255 und 256 als Integervariablen definieren - auch dies bringt 
Geschwindigkeitsgewinne, da die Werte nicht bei jedem Aufruf 
neu vom Interpreter berechnet werden müssen, ln unserem 
Beispielprogramm zur Grafik haben wir hiervon Gebrauch 
gemacht. 

Doch hier erst einmal der BASIC-Loader für das Grafikpaket: 

10 REM *** BASIC-LOADER FÜR 80-ZEICHEN - GRAF IK *** 

20 : 

30 FOR I=DEC("C00") TO DEC("CE9") 

40 : READ X$: X=DEC(X$) 

50 : POKE I,X 
60 : S=S+X 
70 NEXT 

80 IF S<>25931 THEN PRINT "*** FEHLER IN DATAS ***": END 
90 INPUT "Soll das Programm auf Diskette? CJ/N> ";A$ 

100 IF A$<>"J" THEN END 

110 PRINT: INPUT "Filename: ";F$ 

120 BSAVE F$,B0,P(DEC("C00")) TO P(DEC("CEA")) 

130 END 
140 : 

150 DATA 4C,CD,OC,4C,DO,OC,4C,D3,OC,4C,EO,OC,4C,DD,OC ( 8E 
160 DATA 00,D6,2C,00,D6,10,FB,8D,01,D6,60,8E,00,D6,2C,00 
170 DATA D6,10,FB,AD,01,D6,60,A2,19,A9,80,20,OF,OC,AO,40 
180 DATA A2,12,98,20,OF,OC,A2,1F,A9,00,20,0F,0C,A2,1E,20 
190 DATA 0F,0C,88,10,EB,60,08,A5,FA,85, FE,46,FB,66,FA,46 
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200 DATA FB,66,FA,46,F8,66,FA,A9,00,85,FD,A5,FC,06,FC,26 
210 DATA FD,06,FC,26,FD,65,FC,85,FC,90,02,E6,FD,A2,04,06 
220 DATA FC,26,FD,CA,DO,F9,A5,FA,65,FC,85,FC,90,02,E6,FD 
230 DATA A2,12,A5, FD,20,0F,0C,E8,A5,FC,20,0F,0C,A2,1F,20 
240 DATA 1B,0C,48,A5,FE,29,07,AA,68,28,BO,O5,3D,C5,0C,90 
250 DATA 03,1D,BD,0C,48,A2,12,A5,FD,20,0F,0C,E8,A5,FC,20 
260 DATA 0F,0C,A2,1 F,68,20,OF,OC,A2,12,4C,1B,OC,80,40,20 
270 DATA 10,08,04,02,01,7F,BF,DF,EF,F7, FB,FD,FE,20,27,OC 
280 DATA 4C,2E,0C,A2,19,A9,47,20,0F,0C,4C,OC,CE,18,90,01 
290 DATA 38,85,FA,86,FB,84,FC,4C,46,0C 

Übrigens befindet sich diese Routine im RS232-Eingabebuffer 
und kann also von jeder Bankkonfiguration aus aufgerufen 
werden. Es wurde dieser Speicherbereich ausgewählt, da dieser 
wohl nur recht selten benötigt wird. Sollten Sie ihn allerdings 
doch benötigen, so müssen Sie die Routine an eine für Sie 
geeignete Stelle verschieben und natürlich die nötigen 
Änderungen am Programm vornehmen. 

Zum Schluß wollen wir Sie nicht so allein mit diesen Routinen 
lassen und haben zu diesem Zweck noch ein kleines Beispiel¬ 
programm in BASIC, das Ihnen auf dem 80-Zeichen-Schirm 
eine gedämpfte Schwingung zeichnet. Wir finden, man kann mit 
der Ausführungsgeschwindigkeit durchaus zufrieden sein. Sie 
können dem Beispielprogramm auch die genauere Handhabung 
der Grafikroutinen entnehmen. Natürlich können Sie auch die zu 
zeichnende Funktion in Zeile 30 beliebig verändern und sehen, 
wie "Ihre" Funktion aussieht. 

10 REM *** BEISPIELPROGRAMM FUER GRAFIKPAKET *** 

20 : 

30 DEFFNR(X)=40*SIN(X)*EXP(-.05*X)+100 

40 FAST: TRAP 220: REM FALLS FEHLER IN FNR(X) AUFTRETEN 

50 F%=256: FF%=255: SE=DEC( I, C09"): RE=DEC("C0C") 

60 SYS DECCCOO"): REM GRAFIK EIN 
70 Y%=100: REM X-KOORDINATE ZEICHNEN 
80 FOR X=0 TO 639 STEP 3 
90 : SYS SE,X AND FF%, X/FX, Y% 

100 NEXT 

110 X%=320: REM Y-KOORDINATE ZEICHNEN 

120 FOR Y=0 TO 199 STEP 2 

130 : SYS SE,X% AND FF%, X%/F%, Y 
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HO NEXT 

150 C=-32 

160 FOR X=0 TO 639 

170 : FU%=FNR(C): IF FU%<0 OR FU%>199 THEN 190 
180 : SYS SE,X AND FF%, X/F%, FUX 
190 : C=C+.1 
200 NEXT 

210 GETKEY A$: REH **+ FERTIG, AUF TASTENDRUCK WIEDER TEXT 
220 SYS DEC("C06"): PRINT CHR$(147) 

Sicherlich gibt es für die Grafik eine Flut an Anwendungs¬ 
möglichkeiten. Wir wollen Ihrer Phantasie hier freien Lauf las¬ 
sen und wünschen Ihnen viel Erfolg beim Gebrauch der Grafik¬ 
routinen. 
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6. Das Memory-Management - Die MMU 

6.1 Einführung die MMU 

Die sogenannte MEMORY MANAGEMENT UNIT (MMU) wurde 
hergestellt, um die im C128 anfallenden komplexen Aufgaben 
der Adressierung zu lösen. Wie Sie vielleicht wissen, kann 
sowohl die 8502 als auch der Z-80 lediglich 64 KByte auf 
einmal adressieren. Sie wissen sicherlich schon von BASIC her, 
daß man die beiden verschiedenen RAM-Banks nur getrennt 
ansprechen kann. Das liegt daran, daß je 64 KByte RAM, das 
ROM und die I/O-Bausteine überlagert werden mußten. 
Beispielsweise gibt es an der Adresse $D600 sowohl zweimal 
RAM als auch I/O (der 80-Zeichen-Controller) und zusätzlich 
noch ROM. Werden Cartridges in den Expansion-Slot einge¬ 
führt, so muß hier noch weiter differenziert werden. 

Die MMU wird auch im 64er-Modus benutzt - Sie ist voll 
kompatibel zum C64. Zusätzlich kann sie dann noch die Auf¬ 
gaben erfüllen, die im C128 und CP/M-Modus anfallen. Sie 
nimmt die Rechnermodus-Auswahl vor und ihr obliegt auch die 
Auswahl, ob der Z-80 oder die 8502 arbeitet. Hier eine Liste 
ihrer Features: 

* Generierung und Verwaltung des angepaßten 
Adreßbusses (Translaled-Address-Bus TA8-TAI5) 

* Auswahl des Rechnermodus (C64, CI28, CP/M) 

* Auswahl des arbeitenden Prozessors (Z-80B. 8502) 

* Bereitstellung und Verwaltung der C AS-Auswahl- 
Leitungen für die Speicherbankumschaltung des 
RAM. 

Die MMU hat insgesamt 11 Register, die sich ab der I/O- 
Adresse $D500 befinden. Da der 1/O-Bereich nun nicht immer 
eingeschaltet ist, werden das Konfigurationsregister sowie die 
Laderegister A bis D in den Speicherbereich $FF00 bis SFF05 
kopiert. Dadurch kann man vier fest gespeicherte Konfigura¬ 
tionen, die sich in den Präkonfigurationsregistern A bis D 
befinden, durch einfaches Beschreiben eines Laderegisters in das 
Konfigurationsregister laden, ohne den I/O-Bereich einstellen zu 
müssen. Dies ist eine sehr nützliche Einrichtung und erspart 
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einiges an Zeit und Programmieraufwand. Doch hierzu später 
mehr. 

Hier zunächst eine grafische Darstellung der verfügbaren 
Register: 


$FF04 

LCRO 

Load Configuration Register D 

$FF03 

LCRC 

Load Configuration Register C 

$FF02 

LCRB 

Load Configuration Register B 

SFF01 

LCRA 

Load Configuration Register A 

$FF00 

CR 

CONFIGURATION REGISTER (Kopie von $D501) 


$D50B 

VR 

Version-Register 

$D50A 

PI H 

Page-1-Pointer-Hi 

$D509 

P1L 

Page-1-Pointer-Lo 

$0508 

P0H 

Page-O-Pointer-Hi 

$0507 

POL 

Page-O-Pointer-Lo 

$D506 

RCR 

RAM Configuration Register 

$D505 

MCR 

Mode Configuration Register 

$0504 

PCRO 

Preconfiguration Register D 

$0503 

PCRC 

Preconfiguration Register C 

$0502 

PCRB 

Preconf iguration Register B 

$D501 

PCRA 

Preconfiguration Register A 

$D500 

CR 

CONFIGURATION REGISTER (Kopie an $FF00) 
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6.2 Das Konfigurationsregister 

Wie bereits erwähnt, befindet sich ab Adresse SFFOO 
(unabhängig von der eingeschalteten RAM-Bank) eine Kopie 
einiger MMU-Register. Dies ist eigentlich nicht ganz korrekt 
ausgedrückt: In Wirklichkeit befindet sich an SFFOO lediglich die 
Kopie eines Registers; es handelt sich hier um das Konfi¬ 
gurationsregister CR. Liest man die Speicherstelle SFFOO aus, so 
erhält man den aktuellen Wert des Konfigurationsregisters. 
Beschreibt man die Adresse SFFOO, so ändert sich auch 
entsprechend augenblicklich das Konfigurationsregister an 
Adresse SD500 in der MMU. Die Register $FF01 bis SFF04 sind 
eigentlich bloß "halbe" Kopien der MMU-Register. Halb 
deshalb, weil man zwar beim Auslesen den aktuellen Wert des 
korrespondierenden Präkonfigurationsregisters erhält, beim 
Beschreiben eines dieser Register allerdings nicht die korres¬ 
pondierenden Register in der MMU ändert, sondern den Inhalt 
des Konfigurationsregisters. 

Dies ist aber kein Nachteil, ganz im Gegenteil. Beschreibt man 
ein LCRx-Register, so wird das CR (bitte erlauben Sie uns hier 
die in der Tabelle angegebenen Abkürzungen, weil sonst das 
Buch wegen der langen Bezeichnungen unnötig in die Länge 
gezogen wird) mit dem korrespondierenden PCR geladen. 
Kleines Beispiel: Wir beschreiben das LCRA an Adresse $FF01. 
Der Inhalt dieses Registers ändert sich dabei nicht, wohl aber 
der Inhalt des CRs. Es wird nämlich das PCRA (SD501) in das 
CR kopiert. Dies ist eine sehr praktische Einrichtung: Ohne den 
System-I/O-Bereich einblenden zu müssen, können wir das CR 
verändern. Dabei kann man zwischen vier in der MMU 
zwischengespeicherten Konfigurationen auswählen. Das heißt, 
der Programmierer braucht bloß zu sagen: "Wähle Konfiguration 
#1", und die MMU schaltet diese Konfiguration ein. In 
Maschinensprache sähe die Auswahl einfach so aus: 

STA $FF01 ;Akku-Inhalt ist gleichgültig - Konfig. 1 einschalten 

Am Anfang eines Programms könnte man die vier PCRs mit den 
meistbenutzten Konfigurationen vorprogrammieren. Aber auch 
eine "manuelle" Konfigurationsänderung ist nicht viel 
komplizierter. Man lädt den Akku mit dem für die Konfigura- 
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tion notwendigen Bitmuster und speichert diesen an Adresse 
$FF00 ab. Beispiel für BANK 15: 

LDA #00 ;entspricht BANK-15-Kommando 
STA $FF00 Konfiguration auswählen 

Beim Konfigurationsregister sind alle 8 Bits relevant: 

Bit 7,6 Auswahl der anzusprechenden RAM-Bank. Möglich sind in der 128-K- 
Version die Bitkombinationen 00 und 01. Da aber eine Erweiterung bis 
zu 256 KBytes RAM vorgesehen ist, existieren noch die Möglichkeiten 
10 und 11 für diese Erweiterung. Sind diese RAM-Banks noch nicht 
vorhanden, so ist 10 gleichbedeutend mit 00 und 11 mit 01. 

Bit 5,4 Auswahl, was bei der Adressierung des Speicherbereichs $C000 bis 
$FFFF angesprochen werden soll: 

00 - System ROM (Kernal) 

01 - Internal Function ROM 

10 - External Function ROM 

11 - RAM (Bank, siehe Bits 6 und 7) 

Bit 2,3 Auswahl, was bei der Adressierung des Speicherbereichs $8000 bis 
$BFFF angesprochen werden soll: 

00 - System ROM (BASIC) 

01 - Internal Function ROM 

10 - External Function ROM 

11 - RAM (Bank, siehe Bits 6 und 7) 

Bit 1 Auswahl, was bei der Adressierung des Speicherbereichs $4000 bis 

$7FFF angesprochen werden soll: 

0 - System ROM (BASIC) 

1 - RAM (Bank, siehe Bits 6 und 7) 

Bit 0 Auswahl, ob bei der Adressierung des Speicherbereichs $D000 bis 

$DFFF System-I/O oder RAM/ROM angesprochen werden soll: 

0 - System-I/O 

1 - RAM/ROM, abhängig von Bits 4 und 5 
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Zu beachten ist, daß bei eingeschaltetem ROM im Bereich 
SC000 bis $FFFF (Bits 4 und 5) immer eine Lücke im Bereich 
$D000 bis SDFFF existiert. Ist das System-I/O eingeschaltet, so 
belegen die System-I/O-Bausteine diesen Bereich. Ist Bit 0 aber 
gesetzt, so befindet sich hier der Zeichengenerator. 


6.2.1 Die Präkonfigurationsregister 

Die Präkonfigurationregister befinden sich an den Adressen 
$D501 bis $D504, die Kopien der Register an den Adressen 
$FF01 bis $FF04. Sie sind im C64-Modus ohne Bedeutung. 
Präkonfigurationregister sind Register in der MMU, die auf 
bestimmte Speicherkonfigurationen vorprogrammiert werden 
können. Diese vorprogrammierten Konfigurationen kann man 
dann mittels der "Load Configuration Register" ins Konfigura¬ 
tionsregister übertragen. Wie man sich diese Register zu Nutze 
macht, ist im vorangehenden Kapitel 6.2 beschrieben. Die Bits 
sind ebenso aufgeschlüsselt wie beim Konfigurationsregister. 
Auch die Aufschlüsselung finden Sie im Kapitel 6.2 vor. 


6.3 Das Mode-Configuration-Register 

Das Mode-Configuration-Register befindet sich an Adresse 

$D505. Es bestimmt den aktuellen Rechnermodus, also welche 

CPU arbeitet (8502 oder Z-80 B) und ob der 64er- oder der 

128er-Modus aktiv ist. 

Bit 7 Zeigt an, ob beim RESET die 40/80-Zeichen-Taste gedrückt war. 

0=80-Zeichen-, 1=40-Zeichen-Modus. 

Bit 6 In diesem Bit wird angezeigt, ob der 128er- oder der 64er-Modus aktiv 
ist; O=128er-Modus. Nach dem Einschalten oder dem RESET ist immer 
zunächst der 128er-Modus aktiv. 

Bits 4,5 Diese beiden bidirektionalen Bits zeigen an, ob die Steckmodulleitungen 
GAME- oder EXROMIN belegt sind. Ist dies der Fall, so muß der 64er- 
Modus eingeschaltet und die Kontrolle an die Cartridge übergeben 
werden. Im 128er-Modus werden diese Leitungen nicht belegt. 
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Bit 3 FSDIR-Kontrollbit. Dieses Bit wird als Ausgabebit für den schnellen 
seriellen Datenbus-Buffer sowie als Eingabebit für das Disk-Enable- 
Signal benutzt. 

Bits 1,2 Diese Bits sind (noch) ohne Bedeutung. 

Bit 0 In diesem Bit wird die Prozessorauswahl vorgenommen; 

0=Z80, 1=8502. 


Wird das Bit 0 des Registers beschrieben, so wird dieses 
zwischengespeichert, bis ein Taktzyklus zu Ende ist. Es könnte 
sonst wegen der Prozessoruinschaltung zu Komplikationen 
kommen. 

Mittels des Bit 0 können wir also bestimmen, ob die Z-80 oder 
die 8502 arbeiten soll. Das Bit wird beim Beschreiben des 
Registers bis zum Abfallen des Taktimpulses zwischen¬ 
gespeichert, um Komplikationen zu vermeiden. Ist das Bit 
gesetzt, also die Z-80 aktiv, so wird der Bereich $D000 bis 
SDFFF in den Bereich $0000 bis S0FFF gespiegelt. Hier ist auch 
das BIOS-ROM physikalisch zu finden. Das BIOS-ROM ist bei 
eingeschalteter 8502 unter gar keinen Umständen (per Software) 
auszulesen. 

Wird beispielsweise die Z-80 eingeschaltet, so wird die 8502 
gestoppt und die Z-80 macht da weiter, wo sie aufgehört hat. 
Das heißt nichts anderes, als daß an PC (Program Counter) mit 
dem Programmablauf fortgefahren wird. Genauso verhält sich 
dies natürlich beim Einschalten der 8502: Sie nimmt ihre Arbeit 
da auf, wo sie aufgehört hat; dies ist unmittelbar nach dem 
Kommando zum Einschalten der Z-80. 

Im 64er-Modus wird die Z-80-Enable-Leitung (die durch Bit 0 
definiert wird) immer auf Null gehalten, damit man die Z-80 im 
64er-Modus nicht einschalten kann. Ferner befindet sich im 
64er-Modus an den Adressen ab $FF00 keine Kopie der MMU- 
Register mehr. 
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6.4 Das RAM-Configuration-Register 

Das RAM-Konfigurationsregister befindet sich an Adresse 
$D506 der MMU. Es dient dazu, die gemeinsamen RAM- 
Bereiche zu definieren. Wozu aber überhaupt gemeinsame RAM- 
Bereiche definieren? 

Ganz einfach: Der Interpreter beispielsweise hat ja bekanntlich 
in der Zero-Page (die mittlerweile eigentlich schon gar keine 
Zero-Page im herkömlichen Sinne mehr ist) alle notwendigen 
Systemvariablen und -pointer abgespeichert. Schaltet der Inter¬ 
preter beispielsweise jetzt auf RAM-Bank 1, um Variablen zu 
lesen oder zu beschreiben, so wären diese Systemzeiger nicht 
mehr verfügbar - da sie sich in der RAM-Bank 0 befinden. Es 
wäre recht umständlich, wenn man bei jeder Änderung einer 
Zero-Page-Adresse diese Änderung in beiden RAM-Banks 
vornehmen müßte. 

Um dieses hin und her zu vermeiden, hat man sich gedacht, es 
wäre doch ganz praktisch, wenn man einen bestimmten 
Speicherbereich so definieren könnte, daß er in allen RAM- 
Banks gleich aussieht. In Wirklichkeit ist natürlich nur in einer 
RAM-Bank die Zero-Page gespeichert, und zwar in RAM-Bank 
0. Spricht man nun in RAM-Bank 1 (oder einer anderen) diesen 
Speicherbereich an, so erkennt die MMU dies und adressiert 
entsprechend die RAM-Bank 0. 

Diesen gemeinsamen Speicherbereich nennt man Common Areas. 
Die MMU bietet dem Programmierer hier aber sogar die Mög¬ 
lichkeit zu definieren, ob er eine Common Area wünscht, und 
wenn ja, wie groß diese sein soll und wo sie liegen soll. Doch 
zunächst die Registerbelegung, bevor wir auf die einzelnen Bits 
näher eingehen wollen: 

Bits 6,7 In diesen beiden Bits wird die RAM-Bank für den VIC-Chip bestimmt, 
also wo die Text- oder Grafikseite abgespeichert ist. Normalerweise be¬ 
findet sich das Video-RAM in RAM-Bank 0. 

00=Ram-Bank 0, 

01=RAM-Bank 1, 

10=RAM-Bank 2(0), 

11 = RAM-Bank 3(1) 



154 


128 Intern 


Bits4,5 Diese beiden Bits sind in der vorliegenden Version noch ohne Bedeu¬ 
tung. Sie sind für eine evtl. Erweiterung auf 1 MByte RAM vorgesehen. 
Dann selektieren diese beiden Bits den anzusprechenden 256-KByte- 
Block. 

Bits 2,3 Bits 2 und 3 zeigen an, wo ein gemeinsamer Bereich definiert ist: 

00=Kein gemeinsamer Bereich, unabhängig von Bits 0 und 1 
01=Unterer Bereich ist gemeinsam 
10=Oberer Bereich ist gemeinsam 

ll=Sowohl unterer als auch oberer Bereich sind gemeinsam 

Bits 0,1 Hier wird definiert, wieviel KBytes als Common Area verwendet werden 
sollen. Diese beiden Bits haben nur Gültigkeit, wenn Bits 2 und 3 un¬ 
gleich 00 sind. 

00=1 Kbyte gemeinsamer Bereich 
01=4 KByte gemeinsamer Bereich 
10=8 KByte gemeinsamer Bereich 
11 = 16 KByte gemeinsamer Bereich 


Wenn man eine Common Area definiert, so ist der kleinstmög- 
liehe Bereich 1 KByte. Doch ist es auch möglich, gar keinen 
Bereich als gemeinsam zu deklarieren. Dazu muß man Bit 2 und 
3 auf Null setzen. Ist nur eines der beiden Bits 0 und 1 gesetzt, 
haben die Bits 4 und 5 Wirkung. Normalerweise ist nur der 
untere Bereich mit einem KByte als Common Area definiert. Im 
64er-Modus hat dieses Register keinerlei Wirkung. 

Hat man ein KByte als Common Area definiert, so ist der 
Bereich $0000 bis $03FF in beiden RAM-Banks identisch, wenn 
der untere Bereich eingeschaltet worden ist. Schaltet man sowohl 
den unteren als auch den oberen Bereich als Common Area ein, 
so ist der Bereich $0000 bis $03FF und $FC00 bis $FFFF in 
beiden RAM-Banks identisch. Man kann also bis zu 32 KByte 
als Common Area definieren, indem man beide Bereiche und 16 
KByte als Common Area definiert. 

Übrigens wird physikalisch beim Abspeichern und Auslesen der 
Common Area immer auf RAM-Bank 0 zugegriffen. 

Die Bits 6 und 7 bestimmen, aus welcher RAM-Bank sich der 
VIC-Chip seine Informationen bezüglich des Video-RAM holen 
soll. An dieser Stelle bietet sich eine fantastische Möglichkeit: 
Man kann sehr einfach zwei 40-Zeichen-Bildschirme verwalten, 
ohne die Adresse des Video-RAM verschieben zu müssen, was 
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etwas komplizierter ist, als das Umschalten der RAM-Bank. In 
RAM-Bank 0 kann man ab Adresse $0400 Bildschirm Nr.l 
definieren und in RAM-Bank 1 an derselben Adresse den 
Bildschirm Nr. 2. Umschalten kann man dann, indem man Bit 6 
setzt oder löscht, das ist schon alles. 

LDA #00 ;System-I/O 

STA $FF00 ;einschalten 

LDA $D506 ;alter RCR-Wert 

ORA #$40 .-Bildschirm in RAM-Bank 1 

STA SD506 ;einschalten 


6.5 Die Seitenzeiger 
Higher Byte ($D508/$D50A) 

Bits 7-4 unbenutzt 

Bits 3-0 Adreßbits 16 bis 19 für Translates Address (TA) 

In der vorliegenden Version ist nur das Bit 0 interessant, die restlichen 
Bits 1-3 werden ignoriert. 

Lower Byte ($D507/$D509) 

Bits 0-7 Diese Bits stellen das Higher Byte des Seitenzeigers dar, also die 
Adreßbits 8-15. Beim Zeropage-Zeiger ist dieses Byte standardmäßig 
auf 0, beim Page-l-Zeiger auf 1. 


Es gibt gleich zwei Seitenzeiger: einen Seitenzeiger für die 
Zeropage und einen Seitenzeiger für Page 1, in der normaler¬ 
weise der System-Stack liegt. 

$D507/$D508: Page-Pointer 0 
$D509/$D50A: Page-Pointer 1 

Das Lowbyte dieser Zeiger stellt die Adreßbits 8 bis 15 dar. Das 
Highbyte bestimmt die RAM-Bank, die dafür genutzt werden 
soll, stellt also die Adreßbits 16 bis 19 dar. Die Bits 7 bis 4 
werden in den Highbytes nicht belegt. 
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Wird das Highbyte eines Seitenzeigers beschrieben, so wird dies 
so lange zwischengespeichert, bis auch das Lowbyte des Zeiger 
beschrieben worden ist. 

Wenn die Zeropage oder die Page eins an eine andere Adresse 
verlegt wird, so addiert die MMU bei Zugriffen auf die Zero¬ 
page bzw. bei Stapelaktionen automatisch die Basisadresse. 

Die Vorteile liegen klar auf der Hand: Man kann sich beispiels¬ 
weise für jede Unterroutine einen eigenen Stapel anlegen sowie 
einen eigenen Systemvariablenbereich, wenn man nicht die 
Kernal-Routinen aufruft. Was die Zeropageverschiebung 
betrifft, so hat dies zwei Vorteile: 

Die Programme werden kürzer und schneller 

Es kommt ja nun nicht gerade selten vor, daß der Assembler- 
Programmierer in der Zeropage nach freien Speicherstellen 
sucht. Beispielsweise funktioniert das LDA ($xx),Y-Kommando 
bekanntlich nur mit Zeropage-Adressen. Hierzu kann man dann 
die Zeropage in geeignete Speicherbereiche verschieben. 

Praktisch ist auch die Möglichkeit, die Page 1 zu verschieben. 
Dadurch kann man sich bei jeder Unterroutine einen eigenen 
Stapel anlegen. Dies ist eine sehr nützliche Einrichtung. Man 
braucht lediglich den Stapelzeiger zu retten und kann dann über 
einen neuen eigenen Stapel für die Unterroutine verfügen. Man 
hat dadurch 

a) mehr Platz auf dem Stapel und braucht 

h) den Stapel nicht wieder vollkommen zu rekonstruieren, 

wenn man die Routine verläßt. Man muß lediglich den Page-1- 
Pointer wieder auf Normalwert ($01) und den Stapelzeiger SP 
zurückzusetzen. Besonders für PASCAL-Compiler ist dies eine 
sehr nützliche Sache. 

Eine Verschiebung des Stapels könnte beispielsweise so aussehen: 
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LDA 

#$00 

.■System- I/O 

STA 

$FF00 

;einschalten 

LDA 

#$F0 

.•Stapel ab Adresse $F000 

STA 

$D507 

;in RAM-Bank 0 

TSX 


;und SP retten 

STX 

$FD 

;in Zeropage $FD 

LDX 

#$FF 

.•neuer Stack wird 

TXS 


.•initialisiert 


Am Ende der Routine, die den Stapel umdefiniert hat, muß man 
den Stack wieder rekonstruieren, da sonst kein Rücksprung aus 
dem Unterprogramm mittels RTS mehr möglich ist. Diese 
Rekonstruktion sieht dann entsprechend so aus: 

LDX $FD ;Hole alten Stackpointer 

TXS ;und SP rücksetzen 

LDA #$01 ;Stack wieder an Adresse $0100 

STA $0507 ;also "Normalwert" 

RTS ;Rücksprung jetzt möglich 

Wir wollen Ihnen hier eine etwas unkonventionelle Art des Bild¬ 
schirmlöschens vorstellen: Sie ist bei wirklich professionellen 
Programmierern sehr beliebt, weil sie sehr schnell ist. Man ver¬ 
wendet sie beispielsweise bei Grafikprogrammen auch zum Aus¬ 
füllen von Flächen. 

Das ganze sieht so aus, daß wir den Stackpointer zum Adres¬ 
sieren praktisch "mißbrauchen". Durch ein PHA wird der Inhalt 
des Akkus an die aktuelle Stapeladresse geschrieben und der 
Stapelzeiger automatisch erniedrigt - dies alles in einem Ein- 
Byte-Befehl und viel schneller, da dies alles hardwaremäßig 
geschieht. In "normaler" Assembler-Schreibweise sähe dies so 
aus: 

STA <$xx),Y 
DEY 

Die Adressierungsart ist komplizierter für die CPU - braucht 
also mehr Zeit. Dieselbe Aktion benötigt drei Byte - ist 
wiederum langsamer, da der Code geholt, erkannt und ausge¬ 
führt werden muß. 
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Unsere neue Löschroutine rettet den Stack-Pointer, legt ihn 
dann auf den Bildschirmstart $0400 um und pusht dann 1024 
mal den Akku in den neuen Stack. Natürlich muß man nach 
jeweils 256 Bytes das Hi-Byte entsprechend inkrementieren. Zur 
Sicherheit sollte man während der Aktion den Interrupt sperren, 
damit es nicht zu einem Stapelüberlauf kommt. 


LDA #$00 
STA $FF00 
SEI 

LDA #$04 
STA $D509 
TSX 

STX $FD 
LDX #$FF 
TXS 

LDY #$03 
LDX #$00 
LDA #$20 
NEXT PHA 
DEX 

BNE NEXT 
INC $D509 
DEY 

BNE NEXT 
LDX $FD 
TXS 

LDA #$01 
STA $D509 
CLI 
RTS 


;Bank 15 

.•Interrupts sperren 
;Neue Startadresse des SP 
;ist $0400 in RAM Bank 0 
;Stack-Pointer nach X 
;und aktuellen Zeiger retten 
;SP auf Anfang des Stacks 
;legen 

(•Viermal 256 Bytes 
;256-Byte-Zähler 
; FüllZeichen 
.•Zeichen speichern 
.•Schleife erniedrigen 
.-Nächstes Zeichenn 
.•Erhöhe Hi-Byte des SP 
;Alle vier Blöcke gefüllt? 
;Nein, noch nicht 
;alten SP holen 
;und wieder merken 
;Hi-Byte des Originalstacks 
;und setzen 

.•Interrupts wieder zulassen 
;Ende der Löschroutine 


Ich glaube nicht, daß diese Routine viel länger als eine 
"herkömmliche" Löschroutine ist. Sie ist aber in jedem Fall 
schneller. Außerdem demonstriert sie sehr schön die Möglich¬ 
keiten, die sich durch die Manipulationsmöglichkeit der Page- 
Pointer-Basisadressen eröffnen. 
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6.6 Das Version Register 

Bits 7-4 Bank Version; Diese Bits geben Auskunft über den total verfügbaren 
Speicherplatz. Wie bereits erwähnt, ist der Rechner für Ein Mega-Byte 
konzipiert. Standardbelegung dieses Registers beim 128er ist $20. Die 
"2" steht hier wohl für zwei 64-KByte-Blöcke. Eine Ein-Mega-Byte- 
Version würde also sechszehn 64-KByte-Blöcke beinhalten. Bits 7-4 
dieses Registers enthielten dann eine 0. 

Bits 3-0 MMU Version; Es wird die Versionsnummer der MMU angegeben. 


Das System-Versionsregister ist für die eigentliche Speicherver¬ 
waltung recht uninteressant. Im niederwertigen Halbbyte befin¬ 
det sich eine Angabe für vorhandene MMU-Version. Im 
höherwertigen Halbbyte ist der vorhandene Speicherausbau 
nachzulesen. Hier können Programme feststellen, auf wieviel 
Speicher zurückgegriffen werden kann und sich darauf einstel¬ 
len. Zukünftige Programme werden dies sicherlich auch tun 
(müssen). 
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7. Die Assembler-Programmierung 

7.1 Einführung in die Assembler-Programmierung 

Was Assembler bzw. Maschinensprache ist, brauchen wir Ihnen 
als INTERN-Leser wohl kaum zu erklären. Dieses Kapitel soll 
Ihnen vielmehr erläutern, wie man die Betriebssystem-Routinen 
sinnvoll in eigene Programme einbinden kann. Wozu das Rad 
immer wieder neu erfinden? Es stehen schließlich eine Reihe 
nützlicher Routinen zur Verfügung, auf die man wirklich leicht 
zurückgreifen kann. Ihre Programme werden dadurch kürzer 
und leichter zu lesen. 

Wir wollen Ihnen also die Arbeit erleichtern und Ihnen die 
nützlichsten Kernal-Routinen anhand kleiner Beispiele erläutern. 
Natürlich können wir dabei unmöglich auf alle Kernal-Routinen 
eingehen, es sind einfach zu viele. 

7.2 Die CPU - die 8502 

Herz des Rechners ist und bleibt die CPU und dies ist im 
Commodore 128, neben der Z-80B, die 8502. Sie ist software¬ 
mäßig voll kompatibel zur 6510 und deren Vorgänger 6502. Im 
Gegensatz zur 6510 ist sie allerdings im Stande, mit 2 MHz 
getaktet zu werden - sie ist also doppelt so schnell. 

Die Pinbelegung: 

1 OIN Systemtakt Eingang; wahlweise 1 oder 2 Milz (ca.) 

2 RDY Ready; 

0=Prozessor hält beim nächsten Lesezyklus an, bis RDY=1. Von dieser 
Möglichkeit macht man beispielsweise beim Betrieb langsamer Speicher 
Gebrauch. 

3 -IRQ Interrupt Request; 

0=Prozessor holt sich die nächste Befehlsadresse von $FFFE und macht 
dort weiter. Dieser Umstand tritt nur ein, wenn der Interrupt erlaubt 
war. 

i -NMI Non-Maskable Interrupt; 

0= Prozessor holt sich die nächste Befehlsadresse von SFFFA und 
macht dort weiter. Diesen Interrupt kann man nicht verhindern: des¬ 
halb auch Non-Maskable. 
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5 AEC Address Enable Control; 

0= Prozessor bringt Daten-, Adreß- und Steuerbus in den hochohmigen 
Zustand (Tri-State). Der Bus kann nun von anderen Einheiten 
betrieben werden, beispielsweise ein zweiter Prozessor. 

6 VCC Betriebsspannung +5V 

7-20 A0-A13; Adreßbus 

21 GND 

22-23 A14-A15; Adreßbus 
24-29 P5-P0; I/O-Pins 
30-37 D7-D0; Datenbus 

38 R/-W; 0=Schreibzugriff, l=Lesezugriff 

Alle Zugriffe finden nur während 02=1 statt. 

39 02OUT; Systemtakt Ausgang zur Versorgung anderer Bausteine 

40 RES Reset; 0=Prozessor geht in den Ruhezustand. Beim Übergang von 0 

nach 1 holt sich der Prozessor eine Adresse von $FFFC und beginnt 
dort mit dem Programm. 


7.3 Die Keriial-Routinen und wie mail sie nutzt 

Zuerst wollen wir uns den Routinen widmen, die sich teilweise 
in der erweiterten Zeropage befinden. Es handelt sich hierbei 
um die sehr wichtigen Routinen, die es einem ermöglichen, eine 
beliebige Speicherstelle in jeder beliebigen Bank zu lesen, zu 
beschreiben oder einen Vergleich damit durchzuführen. 


7.3.1 FETCH, STASII und CMPARE 

Diese drei Routinen dienen also dem Laden, dem Speichern und 
dem Vergleichen einer Speicherstelle in einer beliebigen Bank, 
unabhängig von der aktuellen Konfiguration. Nach dem Aufruf 
einer dieser Routinen ist die Konfiguration auch weiterhin 
unverändert. 

Beim Aufruf dieser Routinen muß man im X-Register den 
Konfigurationsindex übergeben. Das Betriebssystem hat 16 
Konfigurationen der 128 möglichen in einer Tabelle ab $F7F0 
gespeichert, hieraus wird dann die entsprechende Konfiguration 
geholt und im Konfigurationsregister abgelegt. 
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X-Reg Speicherkonfiguration 


0 nur RAM 0 

1 nur RAM 1 


2 

nur RAM 2 

(RAM 0) 



3 

nur RAM 3 

(RAM 1) 



4 

Int. ROM, 

RAM 0, 

I/O 


5 

Int. ROM, 

RAM 1, 

I/O 


6 

Int. ROM, 

RAM 2, 

I/O 


7 

Int. ROM, 

RAM 3, 

I/O 


8 

Ext. ROM, 

RAM 0, 

I/O 


9 

Ext. ROM, 

RAM 1, 

I/O 


10 

Ext. ROM, 

RAM 2, 

I/O 


11 

Ext. ROM, 

RAM 3, 

I/O 


12 

Kernal, Int (Lo), 

RAM 

0, I/O 

13 

Kernal, Ext (Lo), 

RAM 

1, I/O 

14 

Kernal, BASIC, RAM 0, 

CHARROM 

15 

Kernal, BASIC, RAM 0, 

I/O 


Entnehmen Sie die gewünschte Speicherkonfiguration dieser 
Tabelle und laden Sie das X-Register damit. 


7.3.1.1 FETCH 

Ein Teil der FETCH-Routine befindet sich an Adresse $02A2 
im RAM. Will man eine Speicherstelle auslesen, so sind folgende 
Übergabeparameter notwendig: 

Akku: Zeiger auf Zeropage-Adresse 

X-Reg: Konfigurationsindex (s.o.) 

Y-Reg: Offset für Adresse 

Bevor man diese Routine anspringt, muß man also an irgend¬ 
einer Adresse in der Zeropage die Adresse der Speicherstelle, die 
man laden will, ablegen. Diese Zeropage-Adresse wiederum muß 
man der Routine im Akku übergeben. Folgendes Beispiel¬ 
programm würde die Adresse $1000 aus RAM-Bank 1 auslesen: 


LOA #$00 ;Lo-Byte von $1000 
STA $FC ;in Zeropage 
LDA #$10 ;Hi-Byte von $1000 
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STA $FD ;in Zeropage 

LDA #$FC .-Adresse in Zeropage 

LDY #$00 ;Offset ist null 

LDX #$01 ;RAM-Bank 1 ist auszuwählen 

JSR $FF74 ;FETCH - Übergabe in Akku 

Nach dem Aufruf der Routine befindet sich im Akku der Inhalt 
der ausgelesenen Speicheradresse. Das X-Register beinhaltet die 
aktuelle Konfiguration und das Y-Register bleibt unverändert. 


7.3.1.2 ST ASM 

Die STASH-Routine ist praktisch das Gegenstück zur FETCH- 
Routine. Allerdings ist die Anwendung dieser Routine nicht 
vollkommen identisch. Da man im Akku den zu speichernden 
Wert übergeben muß, kann man nicht mehr im Akku die 
Adresse des Zeropage-Pointers übergeben. Deswegen muß man 
das, was einem die FETCH-Routine noch abgenommen hat, zu 
Fuß erledigen. Ein Beschreiben der Speicheradresse $1000 in 
RAM-Bank 1 sieht beispielsweise wie folgt aus: 

LDA #$00 ;Lo-Byte von $1000 

STA $FC ;in Zeropage 

LDA #$10 ;Hi-Byte von $1000 

STA $FD ;in Zeropage 

LDA #$FC ;Zeropage-Adresse des Zeigers 

STA $02B9 ;in STASH-Routine schreiben 

LDA #$FF ;Wert, der geschrieben wird 

LDX #$01 ;RAM-Bank 1 

LDY #$00 ,-Offset für Adresse 

JSR $FF77 ;STASH ausführen 


Nach Aufruf der STASH-Routine ist der Akku und das Y- 
Register unverändert, das X-Register beinhaltet die aktuelle 
Konfiguration. 
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Auf dieselbe Art und Weise könnte man beispielsweise die 
MMU-Register beschreiben, ohne extra die Konfiguration 
ändern zu müssen. Dies gilt natürlich für alle anderen I/O- 
Bausteine gleichermaßen. 


7.3.1.3 CMPARE 

Die CMPARE-Routine vergleicht eine beliebige Speicherstelle 
mit dem Inhalt des Akkus. Dazu muß man, wie bei der STASH- 
Routine, die Adresse der zu vergleichenden Speicherstelle 
zunächst in die CMPARE-Routine ins RAM schreiben. Ein 
Vergleichen der Speicherstelle $1000 in RAM-Bank 1000 mit 
dem Wert $22 sieht wie folgt aus: 

LDA #$00 ;Lo-Byte von $1000 
STA $FC ;in Zeropage 
LDA #$10 ;Hi-Byte von $1000 
STA $FD ;in Zeropage 

LDA #$FC .-Adresse des Pointers in der Zeropage 
STA $0208 ;der CMPARE-Routine die Adresse mitteilen 
LDA #$22 ,-Wert, mit dem verglichen wird 
LDX #$01 ;RAM-Bank 1 

LDY #$00 ;0ffset 

JSR $FF7A .-Vergleichen von ($1000) in RAM 1 mit $22 

Nachdem die Routine aufgerufen wurde, sind die Flags (Zero, 
Minus und Carry) entsprechend dem Vergleich gesetzt. Der 
Akku und das Y-Register bleiben unverändert, das X-Register 
beinhaltet die aktuelle Speicherkonfiguration. 


7.3.2 GETCONF 

Diese Routine macht nichts anderes, als das Konfigurationsbyte 
entsprechend dem Konfigurationsindex im X-Register aus der 
Tabelle ab $F7F0 zu holen. Dieser Wert wird lediglich überge¬ 
ben, nicht aber gesetzt. Da man das Kernal-ROM sowieso ein¬ 
geschaltet haben muß, um diese Routine anspringen zu können, 
empfiehlt es sich, das Konfigurationsbyte selbst aus der Tabelle 
auszulesen; es geht einfach schneller. 
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LDX #$0F ;Konfiguration 15 auswählen 

JSR $FF6B ;GETCONF 

STA $FF00 Konfiguration setzen 

wäre also gleichbedeutend mit 

LDX #$0F Konfiguration 15 auswählen 
LDA $F7F0,X K or| f igurationsbyte holen 
STA $FF00 Konfiguration setzen 

Der Speicheraufwand ist derselbe - man kann ihn sogar ver¬ 
kürzen, indem man direkt (ohne X-Register) sagt: 

LDA $F7F0+$0F 


7.3.3 JSRFAR und JMPFAR 

Hat man beispielsweise Teiie des ROMs ausgeblendet und will 
trotzdem eine Kernal-Routine anspringen, so kann man dies 
über die Routine JSRFAR tun. Hierbei dienen allerdings nicht 
mehr die CPU-Register als Parameterübergabe sondern die 
Zcropage-Adressen $02 bis $09. 

$02 Konfigurationsindex 
$03, $04 Neuer PC - also Sprungadresse 
$05 Neuer Prozessorstatus 
$06 Akku 
$07 X-Register 
$08 Y-Register 
$09 SP - Stackpointer 

Als Ausgangsparameter befinden sich ab $05 die entsprechenden 
Werte. Nehmen wir einmal an, wir haben Konfiguration 1 
eingeschaltet - also nur RAM 1. Wir wollen nun den Inhalt der 
Adresse $0400 in RAM-Bank 0, also der linken oberen Ecke des 
40-Zeichen-Bildschirmes, erfahren. Dazu müssen wir uns der 
FETCH-Routine bedienen. Dies sieht dann so aus: 


LDA #$4F ;RAM 1 & Kernal einschalten 

STA $FF00 ;ins Configuration Register 
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LOA #$0F 

Konfigurationsindex Kernal & RAM 0 

STA $02 

übergeben 

LDA #$FF 

Hi-Byte von $FF74 

STA $03 

übergeben 

LDA #$74 

Lo-Byte der Zieladresse 

STA $04 

$FF74 übergeben 

LDA #$00 

Lo-Byte von $0400 

STA $FC 

merken 

LDA #$04 

Hi-Byte von $0400 

STA $FD 

übergeben 

LDA #$FC 

Zeropage-Adresse des Pointers 

STA $06 

und übergeben 

LDA #$00 

RAM-Bank 0 adressieren 

STA $07 

Uert für X-Register für FETCH 

LDA #$00 

Wert für Y-Register für FETCH 

STA $08 

Offset speichern 

JSR $FF6E 

JSRFAR aufrufen 

LDA $06 

Hier steht der Wert von $0400 in RAM 0 


Eine Menge Parameter, die übergeben werden müssen. Es ist 
zunächst sehr wichtig, drauf zu achten, daß der Kernal-Bereich 
$C000 bis $FFFF eingeschaltet ist. Hier darf also kein RAM 
adressiert werden, die JSRFAR-Routine würde sich aufhängen, 
selbst wenn Sie die JSRFAR-Routine direkt an $02CD aufrufen 
würden - es wird nämlich zurück ins Kernal verzweigt. Darum 
sollten Sie vor dem JSRFAR-Aufruf unbedingt das beachten, 
was auch in unserer Beispielroutine als aller erstes getan wird: 
Durch das Byte $7F wird die RAM-Bank 1 eingeschaltet, und 
alle Speicherbereiche außer $C000 bis $FFFF werden auf RAM 
geschaltet. Dann wird das neue Konfigurationsregister definiert. 

Der zweite sehr wichtige Punkt ist: Der Programm-Counter PC 
wird mit Hi-Byte an Adresse $03 und Lo-Byte an Adresse $04 
definiert; es ist also nicht die übliche Assembler-Schreibweise. 

Alle Angaben, die nicht unbedingt notwendig sind, können 
weggelassen werden. Meist reicht es aus, lediglich die Speicher¬ 
konfiguration an $02 und den neuen Program Counter PC an 
$03/$04 zu definieren. Alles andere sind Optionen, die einem 
dann und wann vielleicht mal dienlich sein können. 
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Die Routine JSRFAR beschreibt auf jeden Fall die Adressen $05 
bis $09 beim Rücksprung mit den entsprechenden Werten, so 
daß sie gegebenenfalls hier zur Verfügung stehen. In unserer 
Beispielroutine wird ja auch von der Parameterübergabe im 
Akku Gebrauch gemacht. 

Wir wollen nun noch ein weiters kleines Beispiel aus der Praxis 
geben. Nehmen Sie einmal an. Sie hätten sowohl in RAM-Bank 
0 als auch in RAM-Bank 1 Programmcode. Hier zunächst die 
Unterroutine in RAM-Bank 1, die in unserem Beispiel nichts 
anderes machen soll, als Akku und X-Register zu addieren. Der 
Übertrag wird durch das Carry-Flag angezeigt. Geben Sie die 
Routine im Monitor durch A 12000 ein. Sie wählen dann RAM- 
Bank 1. 


12000 

LDA $06 

;Akku-Parameter 

12002 

CLC 

,-Lösche Carry für Addition 

12003 

ADC $07 

.•Addiere X-Register 

12005 

RTS 

;Ende der Routine 


Die Routine holt sich nun aus Adresse $06 den Inhalt des über¬ 
gebenen Akkus und addiert dann das X-Register. Damit ist die 
Routine praktisch schon zu Ende. Der Inhalt des Akkus wird an 
Adresse $06 übergeben. In diesem Beispiel ist es wichtig, daß an 
Adresse $05 der Prozessorstatus, also die Flags übergeben 
werden. Im Hauptprogramm kann man dann nach dem Aufruf 
der Routine mit BCC oder BCS das Carry-Flag abprüfen. Doch 
hier die Routine in RAM-Bank 0, die die Routine in RAM- 
Bank I mittels der JSRFAR-Routine aufruft: 


02000 

LDA 

#$3F 

02002 

STA 

o 

o 

u_ 

u. 

02005 

LDA 

#$0D 

02007 

STA 

$02 

02009 

LDA 

#$20 

0200B 

STA 

$06 

0200D 

LDA 

#$FF 

0200F 

STA 

$07 

02011 

LDA 

#$20 

02013 

STA 

$03 

02015 

LDA 

** 

9 

o 

o 

02017 

STA 

$04 


;RAM 0 und Kernal 
;ats Konfiguration setzen 
;RAM 1 und Kernal 
;neue Konfiguration 
;Akku ist $20 
;übergeben 

;Es soll $FF addiert werden 
;übergeben 
;Hi-Byte von $2000 
;als PC übergeben 
;lo-Byte von $2000 
;als PC übergeben 
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02019 

JSR 

$FF74 

020 IC 

LDA 

$05 

0201E 

PHA 


0201 F 

PLP 


02020 

LDA 

$06 

02022 

STA 

$FD 

02024 

LDA 

3 

o 

o 

02026 

STA 

$FE 

02028 

BCC 

$202C 

0202A 

INC 

$FE 

0202C 

BRK 



JSRFAR aufrufen 
Flags holen 
auf Stack und 
ins Flag-Register 
Lo-Byte der Addition 
als Lo-Byte speichern 
Hi-Byte 
speichern 

Kein Übertrag - dann Sprung 
Übertrag berücksichtigen 
in den Monitor 


Wenn Sie diese Routine eingegeben und gestartet haben, werden 
Sie an Adresse $FD/$FE das Ergebnis der Addition 
$FF + $20 = $ 11F vorfinden. Sie können anhand dieser Routine 
erkennen, wie man die Flags, die an Speicherstelle $05 überge¬ 
ben werden, auch tatsächlich in das Status-Register der CPU 
bekommt: Durch PUSHen des Akkus; man braucht dann diesen 
Wert nur noch ins Status-Flag zu POPpen. 

Die JMPFAR-Routine funktioniert genauso wie die JSRFAR- 
Routine. Allerdings gibt es hier keinen Rücksprung mittels RTS, 
aber deswegen heißt diese Routine ja auch JMPFAR. Natürlich 
können auch keine Ausgabeparameter abgefragt werden, da es 
keinen Rücksprung gibt. 


7.4 Die wichtigsten Kernal-Routinen 

7.4.1 Kernal-Routinen mit Vektoren ab $FF4D 

Wir wollen uns zunächst mit den Kernal-Routinen beschäftigen, 
die durch Sprungvektoren ab Adresse $FF4D definiert werden. 
Es handelt sich hierbei um die wohl wichtigsten Routinen, die 
von der Ein-/Ausgabe eines Zeichens bis hin zu den RS-232- 
Routinen reichen. 

Die Routinen werden in der Reihenfolge Ihrer Definition ab 
$FF4D aufgeführt. Soweit möglich, werden die Ein- 
/Ausgabeparanieter angegeben, auch eine kurze Beschreibung 
und wenn es geboten erscheint ein kleines Beispielprogramm für 





170 


128 Intern 


diese Routine. Die Einsprungadressen der Routinen sind hexa¬ 
dezimal und dezimal (in Klammern) angegeben. 

Wenn Vektoren vorhanden sind, sollten Sie immer nur über 
diese springen, Vektoren sind schließlich dazu da. Sollte sich das 
Betriebssystem einmal ändern oder sollten Ergänzungen gemacht 
werden, so sind die Vektoren nicht davon betroffen und 
gewährleisten, daß Ihr Programm nicht "abstürzt" oder verrückt 
spielt. Wenn Sie dies beachten, so haben Sie mit Sicherheit 
weniger Arbeit bei der Programmierung. 


C64MODE 

Zweck: Einschalten des 64er-Modus 

Adresse: SFF4D (65357) 

Beschreibung: Wird diese Routine angesprungen, so wird vom 
128er- in den 64er-Modus umgeschaltet. Es wird die Taktfre¬ 
quenz auf 1 MHz reduziert und die MMU verriegelt alle nötigen 
Register, damit man aus dem 64er-Modus heraus nicht mehr 
manipulieren kann. Es gibt keine Rückkehr! 

Eingabeparameter: keine 

Ausgabeparameter: -entfällt, da keine Rückkehr- 


DMA-CALL 

Zweck: Initialisiert externe RAM-Bausteine 

Adresse: SFF50 (65360) 

Beschreibung: Um einen direkten Speicherzugriff (DMA=Direct 
Memory Access) auf das externe RAM zu haben, muß dieses 
erst durch diese Routine initialisiert werden. Im X-Register 
wird die neu einzuschaltende Konfiguration übergeben. 


Eingabeparameter: .X 
Ausgabeparameter: entfällt 
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BOOTCALL 

Zweck: Es wird die Diskette gebootet. 

Adresse: SFF53 (65363) 

Beschreibung: Beim Aufruf dieser Routine wird versucht, die 
eingelegte Diskette zu booten - es passiert also dasselbe wie 
beim Einschalten des Gerätes. Kann die Routine kein Boot-File 
finden, so gibt Sie die Kontrolle zurück. Im X-Register wird die 
Geräteadresse angegeben, ob also von Floppy 8 oder 9 gebootet 
werden soll. 

Eingabeparameter: .X 
Ausgabeparameter: entfällt 


PHOENIX 

Zweck: Kaltstart 

Adresse: $FF56 (65366) 

Beschreibung: Kaltstart des 128er-Modus. Sollte sich eine 
Speicherkarte in der Expansion-Cartridge befinden, so wird die 
Kontrolle an diese Karte übergeben. Ansonsten wird auch hier 
versucht, die Diskette zu booten. Tabulatoren, KEY-Definitio- 
nen etc. werden rückgesetzt. 


LKUPLA 

Zweck: Sucht in Tabelle nach logischer Filenummer 

Adresse: $FF59 (65369) 

Beschreibung: Die Routine sucht in der Tabelle der Geräte- und 
Sekundäradressen nach der in <Akku> übergebenen logischen 
Filenummer. Die Statusvariable ST wird entsprechend dem 
Verlauf der Routine gesetzt. Wird die logische Filenummer ge¬ 
funden, so ist das CARRY gelöscht und es werden folgende 
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Parameter übergeben: A=LFN, X=Geräteadresse, Y=Sekun- 
däradresse. Bei Mißerfolg wird das CARRY gesetzt. Es können 
nur logische Filenummern gefunden werden, die auch mit OPEN 
geöffnet wurden! 

Eingabeparameter: .A enthält zu suchende LFN 
Ausgabeparameter: Status ST an $90, .A, .X, .Y, CARRY 
Zeropage-Adressen $B8 bis $BA. 


Beispiel: 

»•Suchen einer LFN 

LOA #$01 ;Es soll nach LFN 

JSR $FF59 ;1 gesucht werden. 

BCS ERROR ;Noch kein OPEN erfolgt — Fehler ausgeben 
TAX ;LFN nach X 

JSR SFFC9 ;CKOUT - Datei als Ausgabedatei setzen 


LKUPSA 

Zweck: Suchen einer Sekundäradresse 

Adresse: SFF5C (65372) 

Beschreibung: Es wird in der Tabelle der geöffneten Kanäle 
nach der im Y-Register übergebenen Sekundäradresse gesucht. 
Genauso wie bei der Routine LKUPLA wird auch hier das 
Carry bei Mißerfolg der Suche gesetzt. Bei Erfolg wird das 
Carry gelöscht, der <Akku> enthält die LFN, das X-Register die 
Geräteadresse und das Y-Register die Sekundäradresse. 

Eingabeparameter: .Y enthält zu suchende SA 
Ausgabeparamcter: Status ST an $90, .A, .X, .Y, CARRY 
Zeropage-Adressen $B8 bis $BA. 
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Beispiel: 

.-Suchen der LFN des Floppy-Befehlskanals 

LOY #$0F ;Suche LFN mit 

JSR $FF5C ;Sekundäradresse 15 

BCS ERROR ;Nicht gefunden, dann Fehler melden 

TAX ;LFN nach X 

JSR CKOUT ;und als Ausgabegerät öffnen 

JSR INITD .-Diskette initialisieren 


SVVAPPER 

Zweck: Umschalten von 40/80-Zeichen 

Adresse: $FF5F (65375) 

Beschreibung: Diese Routine tauscht den 40/80-Zeichen-Modus 
aus. Dabei müssen die Informationen in der Zeropage für den 
aktiven Bildschirm mit dem passiven Bildschirm vertauscht 
werden. Es wird der Speicherbereich $E0 bis $FA mit dem 
Bereich $0A40 bis $0A5A ausgetauscht. Es sind keine 
Eingangsparameter notwendig. 

Beispiel: 

.-Löschen beider Bildschirme 

JSR $C142 .-Bildschirm löschen 

JSR $FF5F ;40/80-Zeichen-Modus tauschen 

JSR $C142 ;passiven Bildschirm auch löschen 

JSR $C142 ,-wieder auf aktuellen Bildschirm zurück 


DLCIIR 

Zweck: Kopieren des CHARROM 

Adresse: $FF62 (65378) 

Beschreibung: Beim Betätigen der ASCII/DIN-Taste wird der 
Zeichensatz erneut ins VDC-RAM kopiert, da der 80-Zeichen- 
Controller sich die Informationen zur Zeichendarstellung nicht 
aus dem ROM holt. Von dieser Routine wird beispielsweise in 
dem Grafik-Paket Gebrauch gemacht, da bei der Grafik der 
Zeichensatz im VDC-RAM überschrieben wird. Mit dieser 
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Routine wird der mit der ASCII/DIN-Taste ausgewählte 
Zeichensatz ins VDC-RAM kopiert. Es gibt weder Ein- noch 
Ausgabeparameter. 


PFKEY 

Zweck: Umdefinieren eines KEYs 

Adresse: $FF65 (65381) 

Beschreibung: Mit dieser Routine sind Sie in der Lage, die 

Funktionstasten beliebig zu belegen. (Fl bis F10 sowie 

SHIFT/RUN-STOP und HELP). Im <Akku> wird die Adresse in 
der Zeropage angegeben, die als Pointer auf den KEY-Text 
zeigt. Ferner übergeben Sie im X-Register die Nummer der 
Funktionstaste (1 bis 12) und im Y-Register die Länge des 

Strings. Dann können Sie die Routine PFKEY aufrufen, die 

diesen String in die Tabelle einfügt. 

Eingabeparameter: Zeropage, .A, .X, .Y 

Beispiel: (An Adresse $2100) 

;Help-Taste umdefinieren 

LDA #$00 ; Lo-Byte von $2000 

STA $FC ;in Zeropage merken 

LDA #$20 ;Hi-Byte von $2000 

STA $FD ;in Zeropage merken 

LDA #$FC ;Pointer 

LDX #$0C ;Help-Taste umbelegen 

LDY #$04 ;Anzahl 

JSR $FF65 ;Taste umdefinieren 


Und an Adresse $2000: 

02000 52 55 4E 0D . 


SETUNK 

Zweck: Speicherbank für Disk-Operation definieren 

Adresse: $FF68 (65384) 
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Beschreibung: Diese Routine muß vor LOAD, SAVE, VERIFY 
und jedem OPEN-Kommando aufgerufen werden. Es werden 
der Konfigurationsindetf des Filenamens im Y-Register sowie 
der Konfigurationsindex des zu bearbeitenden Speicherbereichs 
im <Akku> übergeben. Das Y-Register wird in der Zeropage- 
Adresse $C6, der <Akku> an $C7 gespeichert. Siehe auch 
Beispiel bei SETNAM (FFBD). 

Eingabeparameter: .A, .Y 


GETCONF 

Zweck: Holen des Konfigurationsbytes 

Adresse: $FF6B (65387) 

Beschreibung: Wie Sie ja bereits wissen, existiert eine Tabelle 
von 16 für den Normalbedarf ausreichenden Konfigurations¬ 
bytes. Diese Tabelle befindet sich an Adresse SF7F0. Sie über¬ 
geben der Routine im X-Register den Konfigurationsindex und 
erhalten im Akku das Konfigurationsbyte, das man normaler¬ 
weise dann ins Konfigurationsregister an Adresse $FF00 der 
MMU schreibt. 

Eingabe parameter: .X 
Ausgabe parameter: .A 

Beispiel: 

;Setzen der RAM-Bank 1 
LDX #$01 ;nur RAM-Bank 1 
JSR $FF6B ;Hole Konfig.-Byte 
STA $FF00 ;und setzen 


JSRFAR 

Zweck: Sprung in Unterroutine in beliebiger Bank 

Adresse: $FF6E (65390) 

Beschreibung: Die Routine JSRFAR dient dazu, ein Unterpro¬ 
gramm in einer beliebigen Konfiguration anzuspringen. Die 
Parameterübergabe findet an den Zeropage-Adresssen $02 bis 
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$09 statt. Nach Abschluß der Routine wird die alte Konfigura¬ 
tion wieder hergestellt. Eine sehr genaue Beschreibung inkl. 
Beispielprogramm finden Sie in Kapitel 7.3.3. 

Eingabeparameter: Zeropage $02 bis $09 
Ausgabeparameter: Zeropage $05 bis $09 


JMPFAR 

Zweck: Sprung in beliebige Bank 

Adresse: $FF71 (65393) 

Beschreibung: Auch hier findet die Parameterübergabe an den 
Zeropage-Adressen $02 bis $09 statt. Allerdings ist JMPFAR 
kein Unterprogrammaufruf sondern lediglich ein Sprung in eine 
beliebige Bank; JMPFAR faßt also das Umschalten des Konfi¬ 
gurationsbytes und den Sprung zusammen. Da es hier keine 
Rückkehr gibt, werden auch keine Parameter zurückgegeben. 

Eingabeparameter: Zeropage $02 bis $09 


INDFET 

Zweck: Holen eines Bytes aus beliebiger Bank 

Adresse: $FF74 (65396) 

Beschreibung: Diese Routine, die sich übrigens hauptsächlich in 
der Zeropage befindet, ermöglicht Ihnen, jede beliebige Spei¬ 
cheradresse in jeder beliebigen Konfiguration auszulesen, ohne 
daß Sie Ihre aktuelle Konfiguration merklich verändern müßten. 
Dazu definieren Sie zuerst in einer Zeropage-Adresse den Zeiger 
auf den auszulesenden Speicherplatz. Im <Akku> wird dann 
diese Zeropage-Adresse übergeben, im X-Register der 
Konfigurationsindex und im Y-Register der Offset zum Zero¬ 
page-Zeiger. 

Eingabe Parameter: .A, .X, .Y, 1 Zeropage-Adresse 
Ausgabeparameler: .A 
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Beispiel: 

;Hole $1000 aus RAM-Bank 1 

LDA #$00 ;Lo-Byte von $1000 

STA $FC ;in Zeropage merken 

LOA #$10 ;Hi-Byte von $1000 

STA $FD ;in Zeropage merken 

LDA #$FC ;Zeiger in Zeropage 

LDX #$00 ;RAM 1 und Kernal 

LDY #$00 ;Offset ist Null 

JSR $FF74 ;Hole Byte aus $1000, RAM-Bank 1 


INDSTA 

Zweck: Akku in beliebiger Bank abspeichern 

Adresse: $FF77 (65399) 

Beschreibung: Ähnlich wie die INDFET-Routine speichert diese 
Routine den Akku-lnhalt in einer beliebigen Speicherkonfigu¬ 
ration ab. Dazu müssen ebenfalls die Parameter in <Akku>, X- 
und Y-Register übergeben werden. Allerdings wird im Akku das 
abzuspeichernde Zeichen übergeben! Die Zeropage-Adresse, an 
der der Zeiger gespeichert ist, müssen Sie selbst an Adresse 
$02B9 definieren. 

Eingabeparameter: .A, .X, .Y, Zeropage, S02B9 


Beispiel: 

;Abspeichern von $FF an $1000 in RAM-Bank 1 

LDA #$00 ;Lo-Byte von $1000 

STA $FC ;merken 

LOA #$10 ;Hi-Byte von $1000 

STA $FD ;auch merken 

LDA #$FC ;Adresse in Zeropage 

STA $02B9 ;INDSTA-Routine mitteilen 

LOA #$FF ;Uert, der geschrieben werden soll 

LDX #$0D ;RAM 1 und Kernal 

LDY #$00 ;Offset ist Null 

JSR $FF77 ;INDSTA aufrufen 
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INDCMP 

Zweck: Vergleich <Akku> mit <Speicher> bei. Bank 

Adresse: $FF7A (65402) 

Beschreibung: Diese Routine vergleicht den <Akku> mit einer 
beliebigen Speicherstelle in einer beliebigen Bank. Genauso wie 
bei der INDSTA-Routine müssen Sie die Adresse des Zeigers in 
der Zeropage der INDCMP-Routine mitteilen. Dies tun Sie an 
Adresse S02C8. Im <Akku> wird das zu vergleichende Zeichen 
übergeben, im X-Register der Konfigurationsindex und im Y- 
Register der Offset. Nach dem Aufruf der Routine befindet sich 
das Ergebnis des Vergleiches - also das Statusbyte des Prozessors 
- an Adresse $05. Entnehmen Sie dem Beispiel, wie Sie dann 
entsprechend auf den Vergleich reagieren können. 

Eingabeparameter: .A, .X, .Y, Zeropage, $02C8 
Ausgabeparameter: $05 (Status) 

Beispiel: 

.■Vergleiche <Akku> mit $1000 in RAM-Bank 1 

LDA #$00 ;Lo-Byte von $1000 

STA $FC .-merken 

LDA #$10 ;Hi-Byte von $1000 

STA $FD ;auch merken 

LDA #$FC ;Zeiger in Zeropoge 

STA $02C8 ;INDCMP-Routine mitteilen 

LDA #$FF ;Vergleichsoperand 

LDX #$0D ;RAM-Bank 1 und Kernal 

LDY #$00 ;Offset 

JSR $FF7A ;INDCMP aufrufen 

LDA $05 ;Status holen (Ergebnis des Vergleichs) 

PHA ;auf Stack um dann ins 

PLP ;Statusbyte des Prozesors zu holen 

BEQ EQUAL ;Uenn gleich, dann Sprung 
;**• Ungleich — 
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PRIMM 

Zweck: Ausgabe eines Textes 

Adresse: $FF7D (65402) 

Beschreibung: Diese Routine ist sehr praktisch, da einfach 
anzuwenden. Es brauchen keinerlei Parameter übergeben zu 
werden. Alle Zeichen, die dem Aufruf folgen, werden auf das 
aktuelle Ausgabegerät über BSOUT ausgegeben. Als Endezeichen 
wird ein Nullbyte verwendet. Mit der Ausführung des 
Programmes wird dann an der Stelle fortgefahren, die dem 
Nullbyte unmittelbar folgt. Einziger Nachteil dieser Routine: 
Beim Disassemblieren wird das Programm unübersichtlich. 

Beispiel: 

;Beispiel für PRIMM-Routine 

JSR $FF7D .‘Nachfolgende Zeichen ausgeben 

.ASC "Dies ist ein Text !!!" 

.BYT $0D,$OA,$OD,$OO 

LDA #$00 ;Hier wird mit dem Programm fortgefahren 

Siehe auch Beispiel im ROM-Listing an SF908 


CIN1T 

Zweck: Video-Controller und Editor initialisieren 

Adresse: SFF8I (65409) 

Beschreibung: Es werden die Funktionstasten auf Standard 
gelegt, beide Video-Controller initialisiert und der 40/80- 
Zeichen-Modus in Abhängigkeit der 40/80-Zeichen-Taste 
eingeschaltet. Weiterhin werden der Tastaturbuffer gelöscht 
sowie alle Flags rückgesetzt und ein CLRCH ausgeführt. 


lOlNIT 

Zweck: Initialisierung der Ein/Ausgabegeräte 

Adresse: SFF84 (65412) 





180 


128 Intern 


Beschreibung: Die Ein/Ausgabegeräte werden initialisiert, d.h. 
die RESET-Leitung auf dem IEC-Bus wird aktiviert. Ange¬ 
schlossene Drucker werden in den Anfangszustand versetzt und 
die Floppy löscht ihre Kanäle - hört sich also an, als ob sie 
gerade eingeschaltet worden wäre. 


RAMTAS 

Zweck: BASIC-Warmstart 

Adresse: $FF87 (65415) 

Beschreibung: Diese Routine initialisiert die Zeropage, setzt die 
Zeiger für SYSTOP und SYSBOT (also die Speicherunter- und - 
obergrenze), setzt die Zeiger für die RS-232-Ein/Ausgabebuffer 
und den Kassettenbuffer zurück. 


RESTOR 

Zweck: Systemvektoren initialisieren 

Adresse :$FF8A (65418) 

Beschreibung: Es werden die Systemvektoren ab Adresse $0314 
bis $0332 (inkl.) auf Normalwert gesetzt. Diese Routine sollte 
aufgerufen werden, wenn Sie zu viele Vektoren verbogen und 
die Übersicht verloren haben oder wenn Sie beispielsweise ein 
Erweiterungspaket ausschalten wollen. Diese Routine ruft die 
folgende VECTOR-Routine mit gelöschtem CARRY auf. 


VECTOR 

Zweck: Systemvektoren kopieren oder rücksetzen 

Adresse: $FF8D (65421) 

Beschreibung: Diese Routine kopiert die 16 Vektoren ab $0314 
in den durch das X- (Low) und Y-Register (High) definierten 
Speicher, sofern das CARRY-Flag gesetzt ist. Bei gelöschtem 
CARRY-Flag werden die Vektoren ab $0314 mit dem durch das 
X- und Y-Register angegebenen Bereich geladen. 
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Eingabeparameter: .X, .Y, CARRY 
Beispiel: 

LDX #$00 ;Lo-Byte von $1000 
LDY #$10 ;Hi-Byte von $1000 

CLC ,-Lösche Carry zum Kopieren <$1000>-><$0314) 

JSR $FF8D ;Belege Vektoren neu 

SETMSG 

Zweck: DOS-Meldungen ermöglichen/verhindern 

Adresse: SFF90 (65424) 

Beschreibung: Die Routine speichert den Wert des <Akku> in 
der Zeropage-Adresse S9D. Sollen Systemmeldungen ausgegeben 
werden, so ist das Bit 7 des <Akkus> zu setzen. Ist $9D positiv, 
so werden Systemmeldungen verhindert. 

Eingabeparameter: .A 


SECND 

Zweck: Sekundäradresse nach LISTEN senden 

Adresse: $FF93 (65427) 

Beschreibung: Es wird die zu sendende Sekundüradresse im 
<Akku> übergeben. Die Routine gibt den <Akku> dann als 
Sekundäradresse auf dem IEC-Bus aus. 

Eingabeparameler: .A 

Beispiel: 

.-LISTEN wurde gesendet 

LDA #$F0 ;Sekadr. 0 bei CLOSE 

JSR $FF93 ;Sekundaradresse senden 
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TKSA 

Zweck: Sekundäradresse nach TALK senden 

Adresse: $FF96 (65430) 

Beschreibung: Adäquat zu der vorhergehenden Routine sendet 
diese Routine die Sekundäradresse - übergeben im <Akku> - 
nach erfolgtem TALK-Signal an den IEC-Bus. 

Eingabeparameier: .A 


MEMTOP 


Zweck: Setzen/Holen der Speicherobergrenze 

Adresse: SFF99 (65433) 


Beschreibung: Ist das CARRY-FIag gesetzt, so wird im X- 
Register (Lo) und Y-Register (Hi) die maximal verfügbare 
Speicherstelle übergeben. Wird die Routine mit gelöschtem 
CARRY angesprungen, so wird die Speicherobergrenze mit den 
beiden Registern belegt. 


Eingabeparameter: .X, .Y (bei gelöschtem CARRY), CARRY 
Ausgabeparameter: .X, .Y (bei gesetztem CARRY) 


Beispiel: 


;Auslesen der Speicherobergrenze 


SEC 

JSR $FF99 
STX $FC 
STY $FD 
LDX #$00 
LDY #$10 
CLC 

JSR $FF99 


Auslesen der Obergrenze 
Hole Obergrenze 
Zwischenspeichern 
Zwischenspeichern 
Lo-Byte von $1000 
Hi-Byte von $1000 
Flag zum Setzen des MEMTOP 
Setze Speicherobergrenze 
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MEMBOT 

Zweck: Setzen/Holen der Speicheruntergrenze 

Adresse: $FF9C (65436) 

Beschreibung: Genauso wie bei der Routine MEMTOP wird bei 
gelöschtem CARRY-Flag die Untergrenze des verfügbaren 
Speichers mit den beiden Registern X {Lo) und Y (Hi) belegt. 
Ist das CARRY-Flag gesetzt, so wird die Speicheruntergrenze 
ausgelesen und in den beiden Registern übergeben. 

Eingabeparameler: .X, .Y (bei gelöschtem CARRY), CARRY 
Ausgabeparameter: .X, .Y (bei gesetztem CARRY) 


KEY 

Zweck :Ermitteln gedrückter Tasten 
Adresse: $FF9F (65439) 

Beschreibung: Diese Routine ist elementar zur Tastatur¬ 
dekodierung. Die Tastatur wird auf eine gedrückte Taste anhand 
der Tastaturdekodiertabellen überprüft. Wird eine gedrückte 
Taste ermittelt, so wird der ASCll-Wert errechnet und dieser 
dem Tastaturbuffer (ab S034A) hinzugefügt. 


SETTMO 

Zweck: Setzen des Timeout-Flags für IEEE 

Adresse: $FFA2 (65442) 

Beschreibung: Die Routine speichert den im <Akku> überge¬ 
benen Wert als Timeout-Flag für die IEEE-Routinen an Adresse 
SOAOE. Um den Timeout in den IEEE-Routinen zu 
ermöglichen, muß das Bit 7 des <Akkus> gesetzt sein. 


Eingabeparameter: .A 
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ACPTR 

Zweck: Holt ein Byte vom seriellen Bus 

Adresse: $FFA5 (65445) 

Beschreibung: Die Routine holt ein Byte vom seriellen IEC-Bus. 
Das geholte Zeichen wird im Akku übergeben. Das Statusbyte 
ST an $90 wird entsprechend der Aktion gesetzt. 

Ausgabeparameter: .A 


CIOUT 

Zweck: Ausgabe eines Zeichens auf IEC-Bus 

Adresse: SFFA8 (65448) 

Beschreibung: Diese Routine ist das Gegenstück zu ACPTR. Das 
im <Akku> übergebene Zeichen wird auf dem IEC-Bus ausge¬ 
geben. Auch hier wird das Statusbyte ST an $90 entsprechend 
der Aktion geändert. 

Eingabe parameter: .A 


UNTLK 

Zweck: UNTALK auf IEC-Bus senden 

Adresse: $FFAB (65451) 

Beschreibung: Diese Routine wird beim Schließen bzw. Umlegen 
eines Eingabekanals aufgerufen. Sie bringt das zum Reden 
(TALK) gebrachte Gerät zum Schweigen. 


UNLSN 


Zweck: UNLISTEN auf IEC-Bus senden 

Adresse: $FFAE (65454) 



Die Assembler-Programmierung 


185 


Beschreibung: Entsprechend zu UNTALK wird bei dieser 
Routine ein empfangendes Gerät vorerst abgeschaltet. Dies wird 
beim Schließen oder Umlegen eines Ausgabekanals gemacht. 


LISTN 

Zweck: Senden von LISTEN an ein Gerät 

Adresse: $FFB1 (65457) 

Beschreibung: Es wird ein am IEC-Bus angeschlossenes Gerät 
zum Empfang aufgefordert. Dazu wird das Signal LISTEN über 
den IEC-Bus geschickt. Im <Akku> wird die Geräteadresse des 
anzusprechenden Gerätes übergeben. Beispielsweise wird bei 
einem Drucker ein LISTEN gesendet, bevor die Zeichen zur 
Ausgabe über den IEC-Bus wandern. Wenn Sie LISTEN ver¬ 
wenden, so müssen Sie die auszugebenden Zeichen über die 
Routine CIOUT ausgeben (nicht über BSOUTÜ). Zum Schließen 
des Kanals verwenden Sie dann die Routine UNLISTEN. Es 
kann immer nur ein Gerät am IEC-Bus aktiv sein. Um diese 
komplizierten Arbeiten zu vereinfachen, können Sie im 
Betriebssystem Kanäle öffnen und schließen. BSOUT und 
BASIN übernehmen dann das Senden von LISTEN und 
UNLISTEN sowie TALK und UNTALK. 

Eingabeparameter: .A 


Beispiel: 

;LISTEN an Drucker senden 

LDA #$24 ;Geräteadresse Drucker & LISTEN ein 

JSR $FFB1 


TALK 

Zweck: Senden von TALK an ein Gerät 

Adresse: $FFB4 (65460) 

Beschreibung: Entsprechend der Routine LISTN sendet diese 
Routine das Kommando TALK an ein beliebiges Gerät. Die 
Geräteadresse ist im <Akku> zu übergeben. Das Kommando 
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TALK fordert ein am IEC-Bus angeschlossenes Gerät zum 
Reden, also zum Senden von Informationen auf. 

Eingabeparameter: .A 


READST 

Zweck: Holen des 1/O-Statusbytes 

Adresse: $FFB7 (65463) 

Beschreibung: Es wird der aktuelle Systemstatus im <Akku> 
zurückgegeben. Ist die RS232 aktiv, so wird das Statusbyte 
übergeben und direkt im Speicher gelöscht. Sollten Sie also das 
Statusbyte öfters benötigen, so speichern Sie es zwischen. Ist ein 
anderer als der RS232-Kanal geöffnet, so wird das Statusbyte 
von Adresse $90 übergeben. 

Ausgabeparameter: .A 


SETLFS 

Zweck: Fileparameter setzen 

Adresse: SFFBA (65466) 

Beschreibung: Diese Routine wird überall dort benötigt, wo man 
Files öffnen muß. Man übergibt die logische File-nummer im 
<Akku>, die Geräteadresse im X-Register und die Sekun¬ 
däradresse im Y-Register. Die Routine speichert diese Werte an 
den Zeropage-Adressen $B8 bis $BA ab. 

Eingabeparameter: .A, .X, .Y 


SETNAM 

Zweck: Setzen der Filenamenparameter 

Adresse: SFFBD (65469) 


Beschreibung: In der Routine werden die Informationen für den 
Filenamen in der Zeropage gespeichert. Diese Angaben sind alle 
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vor dem Öffnen eines Kanales zu machen. Im <Akku> wird die 
Länge des Filenamens übergeben, im X-Register das Lo-Byte 
der Adresse und im Y-Register das Hi-Byte der Adresse, an der 
der Filename gespeichert ist. Ferner müssen Sie mit der 
SETBNK-Routine die Konfigurationsindizes für den Filenamen 
und den zu bearbeitenden Speicherbereich übergeben. 

Eingabeparameter: .A, .X, .Y 

Beispiel: 

.•Eröffnen eines des Directory-Files auf Diskette 

LDA #$0C ;Bereich im RAM-Bank 0 

TAX ;Filename auch in RAM-Bank 0 

JSR $FF68 ,-SETBNK aufrufen 

LDA #$01 ,-Logische Filenummer 

LDX #$08 ;Geräteadresse 

LDY #$00 ; Sekundäradresse für Lesen 

JSR $FFBA ;SETLFS 

LDA #$01 ;Länge des Filenamens 

LDX #$00 ;Lo-Byte der Adresse, an der der 

LDY #$10 ;Filename gespeichert ist ($1000) 

JSR $FFBD ;SETNAM 

JSR $FFC0 ;OPEN - Öffnen des Kanals 

und an Adresse $1000: 

01000 24 .... 


OPEN 

Zweck: öffnen einer Datei 

Adresse: $FFC0 (65472) 

Beschreibung: Es wird die durch die Routinen SETNAM, 
SETLFS und SETBNK definierte Datei in die Liste der 
logischen Filenummern aufgenommen. Erst ab diesem Augen¬ 
blick können die logischen Filenummern bei den Routinen 
CKOUT und CHKIN angegeben werden. Beachten Sie, daß Sie 
maximal neun Files auf einmal öffnen können. 
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CLOSE 

Zweck: Schließen einer logischen Datei 

Adresse: SFFC3 (65475) 

Beschreibung: Es wird die im <Akku> übergebene logische Datei 
geschlossen. Dabei werden alle gespeicherten Werte wie 
Geräteadresse, Sekundäradresse etc. in der dafür vorgesehenen 
Tabelle gelöscht. Ist die Aktion nicht problemlos verlaufen, so 
wird das CARRY-Flag gesetzt. 

Eingabeparameter: .A 
Ausgabeparameter: CARRY 

Beispiel: 

.-Beispiel für CLOSE 

LDA #$01 ;Schließen der Beispieldatei von SETNAM 
JSR $FFC3 ;CL0SE ausführen 
BCS Error ;Fehler aufgetreten 

CIIKIN 

Zweck: Logische Datei als Eingabekanal definieren 

Adresse: $FFC6 (65478) 

Beschreibung: Im X-Register wird die logische Dateinummer 
übergeben, die als Eingabekanal benutzt werden soll. Die ange¬ 
gebene logische Dateinummer muß natürlich bereits mit dem 
OPEN-Kommando geöffnet worden sein. Wird nach dem Aufruf 
des CHKIN-Kommandos die BASIN-Routine aufgerufen, so 
erfolgt die Eingabe nicht von Tastatur, sondern von dem 
geöffneten Gerät; dies kann beispielsweise die Floppy sein. Zu 
beachten ist, daß zum Einlesen von Tastatur kein CHKIN not¬ 
wendig ist, da die Tastatur Standard-Eingabegerät ist. Nach 
einem CLOSE oder CLRCH ist die Tastatur automatisch wieder 
das Eingabegerät. Auch bei dieser Routine wird das CARRY als 
OK-Flag benutzt. 

Eingabeparameter: .X 
Ausgabeparameter: CARRY 
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Beispiel: 

.•Einlesen der Directory 

JSR DIROP ;OPEN 1,8,0,"$" (selbstdefinierte Routine) 

LDX #$01 ;LFN der eröffneten Datei 

JSR $FFC6 ;CHKIN ausführen 

JSR $FFCF ; BAS IN • Zeichen holen 


CKOUT 

Zweck: Logische Datei als Ausgabedatei definieren 

Adresse: $FFC9 (65481) 

Beschreibung: Entsprechend zu CHKIN definiert diese Routine 
ein im X-Register zu übergebene Datei als Ausgabedatei. Die 
Datei muß ordnungsgemäß geöffnet worden sein, beispielsweise 
würde eine Datei, die mit OPEN 1,8,0,"$" geöffnet wurde und 
mit CKOUT als Ausgabedatei definiert werden soll, einen 
Fehler hervorrufen, weil diese Datei zum Lesen und nicht zum 
Schreiben geöffnet wurde. Nach Definition einer Ausgabedatei 
ist nicht mehr der Bildschirm, sondern die definierte Datei 
Ausgabegerät. Alle über BSOUT auzugebenen Zeichen werden 
an dieses Gerät gesandt. Das CARRY-Flag dient als Fehlermel¬ 
der. Ist es gelöscht, war die Aktion erfolgreich. 

Eingabe Parameter: .X 
Ausgabeparameter: CARRY 


CLRCI1 

Zweck: Ein/Ausgabekanäle schließen 

Adresse: SFFCC (65484) 

Beschreibung: Diese Routine löscht evtl, mit C11K1N und/oder 
CKOUT definierte Ein- und Ausgabedateien. Es wird an das 
Eingabegerät ein UNTALK und an das Ausgabegerät ein 
UNLISTEN gesendet. Der Bildschirm ist wieder Ausgabe- und 
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die Tastatur Eingabegerät. Die Dateien werden nicht geschlossen, 
es erfolgt also kein CLOSE. Es werden weder Ein- noch 
Ausgabeparameter übergeben. 


BASIN 

Zweck: Ein Zeichen von Eingabekanal holen 

Adresse: SFFCF (65487) 

Beschreibung: Die eröffnete und mit CHKIN als Eingabedatei 
definierte Datei (sonst Tastatur) übergibt ein Zeichen im 
<Akku>. 

Ausgabeparameter: .A 


BSOUT 

Zweck: Ein Zeichen auf Ausgabekanal ausgeben 

Adresse: $FFD2 (65490) 

Beschreibung: Es wird das im <Akku> übergebene Zeichen auf 
die eröffnete und mit CKOUT als Ausgabedatei definierte Datei 
ausgegeben. Ist der Bildschirm Ausgabedatei (Default), so wird 
das ASClI-Zeichen in den darzustellenden POKE-Code 
umgerechnet (ein recht aufwendiges Verfahren. Interessierte 
sollten sich den entsprechenden Teil im Kernal im C-Bereich 
ansehen). 


Eingabeparameter: .A 
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Beispiel: 

/Wechseln des 40/80-Zeichen-Modus 
IDA #$1B ;<ESC> 

JSR BSOUT ;$FFD2, Zeichen ausgeben 

LDA #"X" ;<ESC>-X zum Wechseln des Bildschirmstatus 

JSR BSOUT /ausgeben 

(Es gibt allerdings eine spezielle Routine, die man anspringen 
kann) 


LOADSP 

Zweck: Laden einer Datei in den Speicher 

Adresse: $FFD5 (65493) 

Beschreibung: Bevor mit LOADSP eine Datei geladen werden 
kann, muß das Gerät, die Sekundäradresse, der Filename etc. 
durch die Routinen SETLFS, SETNAM und SETBNK definiert 
worden sein. Im X- (Lo) und Y-Register (Hi) wird die Adresse 
angegeben, ab der die zu ladende Datei abgelegt werden soll. 

Eingabeparameter: .X, .Y 

Beispiel: 

/Laden eines Overlay o.ä. 

JSR PREP /SETLFS, SETBNK, SETNAM etc. 

LDX #$00 /Lo-Byte von $1000 

LDY #$10 /Hi-Byte von $1000 (Ladeadresse) 

JSR $FFD5 /Lade Datei ab $1000 


SAVESP 

Zweck: Abspeichern eines Bereiches auf Datei 

Adresse: $FFD8 (65496) 

Beschreibung: Diese Routine speichert einen Speicherbereich auf 
eine Datei (Diskette, Kassette) ab. Dazu muß man, wie bei der 
LOADSP-Routine, zunächst Geräteadresse, Sekundäradresse, 
RAM-Bank, Filename etc. durch die Routinen SETBNK, 
SETLFS und SETNAM definieren. Im Akku wird die Zeropage- 
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Adresse angegeben, an der die Anfangsadresse des abzu¬ 
speichernden Bereiches steht. Im X- (Lo) und Y-Register (Hi) 
wird entsprechend die Endadresse des abzuspeichernden 
Bereiches angegeben. 


Eingabeparameter: .A, .X, .Y, Zeropage 


Beispiel: 


;Abspeichern des Bereiches $1000 bis $1100 

JSR PREP ;SETLFS, SETNAM, SETBNK etc. aufrufen 

LDA #$00 ;Lo-Byte von $1000 

STA $FC ;in Zeropage speichern 

LDA #$10 ;Hi-Byte von $1000 

STA $FD ;in Zeropage speichern 

LDA #$FC ;der Pointer befindet sich an $FC 

LDX #$00 ;Lo-Byte der Endadresse $1100 

LDY #$11 ;Hi-Byte der Endadresse $1100 

JSR $FFD8 ;SAVESP - Speichern des Bereiches $1000-$1100 


SETTIM 

Zweck: Setzen der Systemuhr TI 

Adresse: SFFDB (65499) 

Beschreibung: Die Routine setzt die Systemuhr TI, die ab 
Adresse $A0 definiert ist. Diese Uhr wird von der Kernal-IRQ- 
Routine gesteuert und ist nicht sehr genau. Legen Sie auf eine 
genauere Uhr Wert, so benutzen Sie die Timer in den beiden 
CIAs. (Siehe auch entsprechendes Kapitel) Das höchstwertige 
Byte der 24-Stunden-Uhr wird im Y-Register übergeben. 

Eingabeparameter: .A, .X, .Y 

Beispiel: 

;Rücksetzen der Systemuhr 

LDA #$00 .-Rücksetzen bedeutet 

TAY ;auf 0,0,0 setzen 

TAX ;Aüe drei Register auf null 

JSR $FFDB ;SETTIM 
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RDTIM 

Zweck: Auslesen der Systemuhr 

Adresse: $FFDE (65502) 

Beschreibung: Diese Routine liest die 24-Stunden-Uhr aus und 
übergibt die drei Bytes den Registern Y (höchstwertig), X und 
<Akku> (niederwertig). 

Ausgabeparameler: .A, .X, .Y 

Beispiel: 

;Auslesen der 24-Stunden-Uhr 

JSR SFFDE ;RDTIM aufrufen 

STY $FC ;MSB merken 

STX SFD .-mittleres Byte merken 

STA $FE ;LSB merken 


STOP 

Zweck: Abfrage der Stop-Taste 

Adresse: $FFE1 (65505) 

Beschreibung: Wenn bis zum letzten IRQ-Aufruf die Stop-Taste 
betätigt worden ist, so wird das ZERO-Flag gesetzt und es wird 
ein CLRCH ausgeführt. Wurde die Stop-Taste nicht betätigt, so 
wird das ZERO-Flag gelöscht. 

Ausgabe Parameter: ZERO-Flag 

Beispiel: 

;Auf STOP prüfen 

JSR $FFE1 ;STOP-Taste gedrückt? 

BEQ Jawoll;Ist gedrückt 

GET1N 

Zweck: Holt ein Zeichen aus Tastaturbuffer oder RS232 

Adresse: SFFE4 (65508) 
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Beschreibung: Holt von der definierten Eingabedatei ein 
Zeichen. Ist kein Zeichen bereit gestellt, so wird der <Akku> 
mit null übergeben. 

Ausgabeparameter: .A 


CLALL 

Zweck: Alle offenen Dateien schließen 

Adresse: SFFE7 (6551 1) 

Beschreibung: Alle mittels OPEN eröffneten Dateien werden 
geschlossen oder besser gelöscht - es wird nämlich kein CLOSE 
ausgeführt. Beispielsweise bei offenen Floppy-Dateien kann dies 
sehr ärgerlich sein (WRITE FILE OPEN ERROR ist eine 
Konsequenz). Ferner wird nach dem Löschen der logischen 
Dateien ein CLRCH (s.o.) ausgeführt. CLALL ist also mit Vor¬ 
sicht anzuwenden. 


UDTIM 

Zweck: Systemuhr anpassen (updaten) 

Adresse: $FFEA (65514) 

Beschreibung: Diese Routine wird vornehmlich von der IRQ- 
Routine aufgerufen. Es wird die Drei-Byte-24-Stunden-Uhr um 
eine Einheit hochgezählt. 


SCRORG 

Zweck: Größe des aktuellen Fensters holen 

Adresse: $FFED(651I7) 

Beschreibung: Die Routine SCRORG holt die aktuellen 
Fensterwerte in die Register. Der <Akku> enthält nach dem 
Aufruf die maximale Spaltenzahl, im Y-Register befindet sich 
die Anzahl der Zeilen im Fenster und im X-Register die Anzahl 
der Spalten des Fensters. 
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Ausgabeparameter: .A, .X, .Y 


PLOT 


Zweck: Cursor-Position holen/setzen 

Adresse: $FFF0 (65120) 

Beschreibung: Je nach Zustand des CARRY-Flags wird entweder 
die Cursorposition geholt oder gesetzt. X- und Y-Register sind 
auf jeden Fall die Kommunikationsregister. Das Y-Register 
definiert die Zeile (Erste Zeile im Fenster ist null) und das X- 
Register die Spalte des Cursors. Ist das CARRY-Flag gesetzt, so 
wird die aktuelle Cursorpostion im Fenster in X- und Y- 
Register zurückgegeben. 

Eingabeparameter: .X, .Y, CARRY 


Beispiel: 


;Einen Stern (*) in die Fenstermitte setzen 


JSR 

$FFED 

;SCR0RG aufrufen 

TXA 


;Spaltenzahl nach <Akku> 

LSR 

A 

;Division durch zwei (Mitte) 

TAX 


;und als Spalte wieder nach X 

TYA 


.•Zeilenzahl nach <Akku> 

LSR 

A 

.•Division durch zwei (Mitte) 

TAY 


;und wieder als Zeile nach Y 

CLC 


(•Gelöschtes Carry=Setzen Cursorposition 

JSR 

$FFF0 

;Setze Cursorposition 

LDA 

011* II 

;<Akku> mit Stern laden 

JSR 

SFFD2 

;und ausgeben. 


IOBASE 

Zweck: Holt die Basisadresse des I/O-Bereiches 

Adresse: $FFF3 (65123) 

Beschreibung: Es wird die Adresse des Ein- und Ausgabebe¬ 
reiches in X- (Lo) und Y-Register (Hi) übergeben. Diese 
Adresse ist beim CI28 natürlich immer $D000. Für spätere 
Erweiterungen bzw. Verschiebungen ist es aus Kompatibilitäts- 
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gründen ratsam, diese Routine in die Software mit zu integrieren 
und sich darauf zu beziehen. 

Ausgabeparameter: .X, .Y 

Beispiel: 

;Anfang des Programmes: 

JSR $FFF3 ;I0BASE 

STX $FD ;Lo-Byte merken 

STY $FE ;Hi-Byte merken 

Im Programm bezieht man diese Adresse dann wie folgt ein: 

STA ($FD),Y ;ln I/O-Bereich 


7.4.2 Andere nützliche Kernal-Routinen 

Es gibt noch einige weitere Routinen im Kernal, die Zeit und 
Programmspeicher sparen helfen. Vornehmlich befinden sich 
diese Routinen im Bereich $C000 bis $CFFF und dienen der 
Ein-/Ausgabe auf den beiden Bildschirmen. Wir stellen Ihnen 
nun noch einige - unserer Meinung recht nützliche - Routinen 
in ähnlicher Form wie in Kapitel 7.4.1 vor. 


CLRWIN 

Zweck: Löschen des Fensters (Bildschirms) 

Adresse: SCI42 (49474) 

Beschreibung: Ist kein Fenster definiert, so wird der gesamte 
Bildschirm gelöscht. Sollte ein Fenster definiert sein, so wird 
lediglich innerhalb der Grenzen das definierte Fenster gelöscht. 


CURIIOM 

Zweck: Cursor in HOME-Position im Fenster 

Adresse: SC 150 (49482) 
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Beschreibung: Der Cursor wird in die linke obere Ecke des 
Fensters positioniert. Ist kein Fenster definiert, so kommt der 
Cursor in die linke obere Ecke des Bildschirmes. Beachten Sie, 
daß die Position 0/0 immer die linke Ecke des Fensters 
definiert! 


GETL1N 

Zweck: Holen einer Eingabezeile 

Adresse: $C258 (49752) 

Beschreibung: Von Tastatur werden solange Zeichen geholt und 
auf dem Bildschirm an der aktuellen Cursorpostion dargestellt, 
bis die Taste <RETURN> gedrückt wird. 


BSOUT SCRN 

Zweck: Ausgabe eines Zeichens auf akt. Bildschirm 

Adresse: $C72D (50989) 

Beschreibung: Diese Routine ist die Fortsetzung der BSOUT- 
Routine an $FFD2, allerdings spart sie sich einige Abfragen, bis 
man zur Bildschirmausgabe gelangt (ist also somit schneller). Das 
Zeichen wird im <Akku> übergeben und auf dem momentan 
aktivem Bildschirm ausgegeben - an der aktuellen Cursor- 
Position. 

Eingabeparameter: .A 


CLQ1R 

Zweck: Löschen von Quote-, Insert- und Revers-Mode 

Adresse: SC77D (51069) 
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Beschreibung: Es werden die Flags für Anführungszeichen-, 
Insert- und Revers-Modus gelöscht. Die Routine arbeitet estwas 
schneller, als wenn man erst die dazu notwendigen Steuer¬ 
sequenzen über BSOUT ausgibt. 


Es folgen nun noch einige interessante Routinen, die wir ledig¬ 
lich mit Adresse und Wirkung aufführen wollen. 


$C854 

$C85A 

$C867 

$C875 

$C880 

$C8BF 

$C8C1 

$C8C7 

$C8CE 

$C91B 

$C93D 

SC94F 

$C980 

$C98E 

$CA14 

$CA16 

$CA24 

$CA52 

$CA76 

SCA8B 

SCA9F 

$CABC 

$CAF2 

$CAFE 

$CB0B 

$CB21 

$CB3F 

$CB48 

$CC27 

$CC2F 

$CC4A 

3CC6A 

JCD2C 


(51284) Cursor rechts im Fenster 

(51290) Cursor runter im Fenster 

(51303) Cursor hoch im Fenster 

(51317) Cursor links im Fenster 

(51328) Zweiten Zeichensatz einschalten 

(51391) RVS-Modus löschen 

(51393) RVS-Modus setzen 

(51399) Unterstreichen einschalten 

(51406) Unterstreichen ausschalten 

(51483) Zeichen links von Cursor löschen 

(51517) Zeichen unter Cursor löschen 

(51535) Tabulator anspringen 

(51584) Alle Tabulatoren löschen 

(51598) BELL - Ton erklingen lassen 

(51732) Cursorpos. definiert links/oben von Fenster 

(51734) Cursorpos. definiert rechts/oben von Fenster 

(51748) Bildschirm als Fenster definieren 

(51794) Laufende Zeile löschen 

(51830) Cursor bis Zeilenende löschen 

(51851) Zeilenanfang bis Cursorpos. löschen 

(51871) Lösche Cursorpos. bis Bildschirmende 

(51900) Aufwärts scrollen 

(51954) Blockcursor einschalten 

(51966) Underline-Cursor einschalten 

(51979) Cursor blinken aus 

(52001) Cursor blinken ein 

(52031) 80-Zeichen-Monitor negativ darstellen 

(52040) 80-Zeichen-Monitor normal darstellen 

(52263) <Space> an aktuelle Cursorpos. 

(52271) Zeichen <Akku> an akt. Cursorpos. 

(52298) Zeichen <Akku>, <X>:Farbe, <Y>:Spalte auf 80-Zeichen- 
Bildschirm ausgeben (ohne Cursorbewegung) 

(52330) Hole/Setze Cursorpos. 

(52524) SWAPPER - Umschalten 40/80-Zeichen 
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8. Das Kernal-ROM 

8.1 Einführung 


Nachdem Sie sich in den vorangehenden Kapiteln über die 
grundlegenden Dinge des C128 informiert haben, folgt hier nun 
das ROM-Listing des Kernais. Wir haben das ROM-Listing 
bewußt unterteilt in Kernal-Listing und BASIC-ROM. Wir sind 
der Meinung, daß dies der Übersichtlichkeit dient. Ferner 
finden Sie im Kapitel 9 alles neben dem BASIC-ROM-Listing 
wichtige für BASIC. 

Für die eingefleischten Maschinensprache-Programmierer unter 
Ihnen ist das ROM-Listing wohl eines der wichtigsten 
Hilfsmittel überhaupt. Für diejenigen unter Ihnen, denen ROM- 
Listing noch kein Begriff ist: Disassembliert man das ROM des 
Rechners und teilt man Tabellen und Programmcode vonein¬ 
ander, so hat man erst einmal das nackte ROM-Listing. Dann 
beginnt die Arbeit des Dokumentierens, die das Lesen des 
ROM-Listings später erheblich vereinfacht. 

Unter Kernal verstehen Sie bitte die wichtigsten elementaren 
Routine wie Bildschirmein- und -ausgabe, Maschinensprache¬ 
monitor, Steuerung des Kassettenlaufwerks etc. 

Wir haben uns Mühe gegeben, das ROM-Listing so vollständig 
und genau wie möglich zu dokumentieren. Hier das Ergebnis: 
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B000: 

4C 

21 

B0 

JMP 

SB021 

Regulärer Monitor Einsprung 

B003: 

4C 

09 

B0 

JMP 

$B009 

Monitor BREAK Einsprung 

B006: 

4C 

B2 

B0 

JMP 

SB0B2 

Exmon Monitor Einsprung 

B009: 

20 

7D 

FF 

JSR 

$FF7D 

Kernal PRIMM: Zeichenkette ausgeben 


****************************** Einschaltmeldung des Monitors bei 

durch BREAK erzeugtem Einsprung 

B00C: 0D 42 52 45 41 4B 07 00 <Cr> BREAK <Bell> 


****************************** Monitor Initialisierung nach BREAK 

Einsprung 


B014 

68 



PLA 


Die auf dem Stack abgelegte BANK Nr. 

B015 

85 

02 


STA 

* $02 

in d. entspr. Zero Page Byte bringen 

B017 

A2 

05 


LDX 

# $05 

Hole nacheinander die auf dem Stack 

B019 

68 



PLA 


gesicherten Inhalte des X-Reg, 

B01A 

95 

03 


STA 

* $03,X 

Y-Reg, Akku, Prozessor Status und 

B01C 

CA 



DEX 


den Programm-Counter Inhalt und 

B01D 

10 

FA 


BPL 

$B019 

bringe sie in die entsp. ZP Bytes 

B01F 

30 

25 


BMI 

$B046 

Sprung z. generellen Initialisierung 


Initialisierung bei regulärem Einsp. 

B021 

A9 

00 


LDA 

# $00 

Configuration Register mit $00 laden 

B023 

80 

00 

FF 

STA 

$FF00 

und alle System ROMs einschalten 

B026 

85 

06 


STA 

* $06 

Zero-Page Speicher für Akku löschen 

B028 

85 

07 


STA 

* $07 

Zero-Page Speicher für X-Reg löschen 

B02A 

85 

08 


STA 

* $08 

Zero-Page Speicher für Y-Reg löschen 

B02C 

85 

05 


STA 

* $05 

Speicher f. Prozessor Status löschen 

B02E 

A9 

00 


LDA 

# $00 

Akku mit Lo-Adr für Monitor laden 

B030 

A0 

B0 


LDY 

# $B0 

Y-Reg mit Hi-Adr für Monitor laden 

B032 

85 

04 


STA 

* $04 

Akku in Speicher: Program Counter Lo 

B034 

84 

03 


STY 

* $03 

Y-Reg in Speicher:Program Counter Hi 

B036 

A9 

OF 


LDA 

# $0F 

Zero Page Speicher für BANK Nr. auf 

B038 

85 

02 


STA 

* $02 

$0F= Kernal+Basic, Ram 0, I/O setzen 

B03A 

20 

7D 

FF 

JSR 

$FF7D 

Kernal PRIMM: Zeichenkette ausgeben 


****************************** Textkonstante für die Monitor 

Einschaltmeldung 


B03D: 00 4D 4F 4E 49 54 4F 52 <Cr> MONITOR 

B045: 00 

****************************** Generelle Monitor Initialisierung 


B046: D8 
B047: BA 


CLO 

TSX 


Dezimale Betriebsart zurücksetzen 
Stack Pointer Inhalt in X-Reg und in 
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B048 

86 

09 


STX 

* $09 

B04A 

A9 

CO 


LDA 

# $C0 

B04C 

20 

90 

FF 

JSR 

$FF90 

B04F 

58 



CLI 


*********★**★**★★************* 

B050 

20 

7D 

FF 

JSR 

$FF7D 

****************************** 

B053 

0D 

20 

20 

20 20 

50 43 20 

B05B 

20 

53 

52 

20 41 

43 20 58 

B063 

52 

20 

59 

52 20 

53 50 0D 

B06B 

3B 

20 

18 

51 00 



****************************** 


B070: 

A5 

02 


LDA 

* $02 

B072: 

20 

D2 

B8 

JSR 

$B8D2 

B075: 

8A 



TXA 


B076: 

20 

D2 

FF 

JSR 

$FFD2 

B079: 

A5 

03 


LDA 

* $03 

B07B: 

20 

C2 

B8 

JSR 

$B8C2 

B07E: 

A0 

02 


LDY 

# $02 

B080: 

B9 

02 

00 

LDA 

$0002, Y 

B083: 

20 

AS 

B8 

JSR 

$B8A5 

B086: 

C8 



I NY 


B087: 

CO 

08 


CPY 

# $08 

B089: 

90 

F5 


BCC 

$B080 

B08B: 

20 

B4 

B8 

JSR 

$B8B4 

B08E: 

A2 

00 


LDX 

# $00 

B090: 

86 

7k 


STX 

* $7A 

B092: 

20 

CF 

FF 

JSR 

$FFCF 

B095: 

9D 

00 

02 

STA 

$0200, X 

B098: 

E8 



I NX 


B099: 

E0 

AI 


CPX 

# $A1 

B09B: 

B0 

1F 


BCS 

$B0BC 

B09D: 

C9 

00 


CMP 

# $0D 

B09F: 

DO 

11 


BNE 

$B092 

B0A1: 

A9 

00 


LDA 

U $00 

B0A3: 

90 

FF 

01 

STA 

$01F F, X 

B0A6: 

20 

E9 

B8 

JSR 

$B8E9 

B0A9: 

F0 

E0 


BEO 

$B08B 

BOAS: 

C9 

20 


CMP 

# $20 

B0AD: 

F0 

F7 


BEQ 

$B0A6 

B0AF: 

6C 

2E 

03 

JMP 

($032E) 


Speicher für Stack Pointer sichern 
System und Steuermeldungen zulassen 
Kernal SETMSG: Syst/Steuer-Meldungen 
Alle System Interrupts freigeben 

Monitor Befehl: R (Registerinhalte) 

Kernal PRIMM: Zeichenkette ausgeben 

Textkonstante für Prozessorspeicher 

<Cr> PC SR AC XR YR SP <Cr> 


; <Esc - Q> 

Gibt den Inhalt der Register u.d. 
Stack u. Program-Counter Status aus 

Hole aktuelle BANK Nr. in Akku 
Akku in 2 Byte ASCII Code: Hi=A,Lo=X 
ASCII Code f. untere Tetrade in Akku 
Kernal BSOUT: Ein Zeichen ausgeben 
Zero Page Speicher f. PC-Hi in Akku 
Akku in 2 Byte ASCII und ausgeben 
Displ. zeigt auf ZP Byte f. PC Lo 
PC Lo, P, A, X, Y, S in Akku holen 
Akku als 2 Byte ASCII +<Blank> ausg. 
Displ. erhöhen 

Bytes $04 - $09 schon ausgegeben? 
nein, dann nächstes Byte lesen 
Zeilenvorschub + Clear Rest of Line 
Displacement Zeiger für Eingabe- 
Buffer auf 0 zurücksetzen 
Kernal BASIN: Ein Zeichen einiesen 
und in Monitor E-Buffer ablegen 
Displ. auf E-Buffer erhöhen 
Wurden schon 160 Zeichen eingegeben? 
Ja, dann <?> Fehlermeldung ausgeben 
Wurde <RETURN> eingegeben? 

Nein, dann warte a. nächstes Zeichen 
Wenn <RETURN> eingegeben wurde, dann 
markiere Befehls-String Ende mit $00 
Teste E-Buffer auf Bef-End, <:>, <?> 
War es <:>,<?>,Bef-End zur E-Wartes. 
War Zeichen ein <Blank>? 

Weiter und nächstes Zeichen lesen 
Vektor zeigt auf MONITOR Routine 
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B0B2 

> 

r\j 

15 


LDX 

# $15 

B084 

DD 

E6 

B0 

CMP 

$B0E6,X 

B0B7 

F0 

OC 


BEQ 

$B0C5 

B0B9 

CA 



DEX 


B0BA 

10 

F8 


BPL 

$B0B4 

B0BC 

20 

7D 

FF 

JSR 

$FF7D 

****************************** 

BOBF 

ID 

3F 

00 



****************************** 

B0C2 

4C 

8B 

B0 

JMP 

$B08B 

****************************** 

B0C5 

E0 

13 


CPX 

# $13 

B0C7 

B0 

12 


BCS 

$B0DB 

B0C9 

E0 

0F 


CPX 

# $0F 

BOCB 

B0 

13 


BCS 

$B0E0 

B0CD 

8A 



TXA 


B0CE 

0A 



ASL 

A 

B0CF 

AA 



TAX 


B0D0 

BD 

FD 

B0 

LDA 

$B0FD,X 

B0D3 

48 



PHA 


B0D4 

BD 

FC 

B0 

LDA 

$B0FC,X 

B0D7 

48 



PHA 


B0D8 

4C 

A7 

B7 

JMP 

$B7A7 

****************************** 

B0DB 

85 

93 


STA 

* $93 

B0DD 

4C 

37 

B3 

JMP 

$B337 

B0E0 

4C 

Bl 

B9 

JMP 

$B9B1 


****************************** 


B0E3: 6C 00 0A JMP ($0A00) 
****************************** 


B0E6: 

41 

43 

44 

46 

47 48 

4A 

4D 

B0EE: 

52 

54 

58 

40 

2E 3E 

3B 

24 

B0F6: 

2B 

26 

25 

4C 

53 56 




****************************** 


Anzahl der SchlüsselWorte in X-Reg 
mit Schlüsselworttab. abwärts vergl. 
Wenn gefunden, gehe zur Auswertung 
Zeiger auf Schlüsselworttab. • 1 
Schleifen, bis Tab. durchsucht ist 
Kernal PRIMM: Zeichenkette ausgeben 

? Konstante f. Monitor Fehlermeldung 


Rücksprung in Eingabe Uarteschleife 

Springe in Eingabe Uarteschleife 

Adresse d. Monitor Befehls ermitteln 

Ist Schlüsselwort ein <L>, <S>, <V>? 
Ja, dann in die entsprechende Ausw. 
Ist Schlüsselwort ein Umrechnungsz.? 
($,+,&,%) Ja, dann in entspr. Ausw. 
Schlüsselwort-Nummer in Akku bringen 
und mit 2 multiplizieren 
diesen Wert als Offset in X-Reg 
Adr. der Monitor Routine (Hi) holen 
und als quasi RTS auf Stack ablegen 
Adr. der Monitor Routine (Lo) holen 
und als quasi RTS auf Stack ablegen 
Zur Befehlsparameter Auswertung 

Auskoppeln von LSV und Umrechnungen 

Zeichen f. Bef-Schlüsselwort sichern 
Zur Auswertung von LSV-Befehlen 
Zur Auswertung v. Umrechnungszeichen 

Monitor Befehl: X (Exit) 

Vektor: Basic Warm-Start ($4003) 

Monitor - Schlüsselworte 

ACDFGHJM 
R T X 3 . > ; $ 

+ & X L S V 

Adressen der Monitor Befehle (-1) 


<Crsr Right> ? 
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BOFC 

05 

B4 

($B406) 

A 

= 

Assemble 

BOFE 

30 

B2 

($B231) 

C 

= 

Compare 

B100 

98 

B5 

($B599) 

D 

= 

Disassemble 

Bl 02 

DA 

B3 

($83DB) 

F 

= 

Fi 11 

Bl 04 

D5 

Bl 

($B1D6) 

G 

= 

Go to 

Bl 06 

CD 

B2 

($B2CE) 

H 

= 

Hunt 

Bl 08 

DE 

Bl 

< SB1D F) 

J 

= 

Jump 

B10A 

51 

Bl 

($B152) 

M 

= 

Monitor 

Bl 0C 

4F 

BO 

($8050) 

R 

= 

Register 

Bl 0E 

33 

B2 

($B234) 

T 

= 

Transfer 

Bl 10 

E2 

BO 

($B0E3) 

X 

= 

Exit 

Bl 12 

8F 

BA 

($BA90) 

a 

= 

Di sc Command 

Bl 14 

05 

B4 

($B406) 

. 

= 

Assemble 

Bl 16 

AA 

Bl 

($B1AB) 

> 

= 

Modify Memory 

Bl 18 

93 

Bl 

($B194) 

i 

= 

Modify Register 


****************************** |_DA Routine für Akku aus bei. Bank 

FETVEC = Bank Byte des OP3 Operanden 


Bl 1A 

8E 

B2 

0A 

STX 

S0AB2 

X-Reg Zwischenspeichern 

Bl ID 

A6 

68 


LDX 

* $68 

Bank Nr. aus 'Von' Operand OP3 holen 

Bl 1F 

A9 

66 


LDA 

# $66 

FETVEC Adresse f. Indfet Rout, in A 

B121 

78 



SEI 


Alle System Interrupts verhindern 

B122 

20 

74 

FF 

JSR 

$FF74 

Kernal INDFET:LDA(fetvec),Y bei.Bank 

Bl 25 

58 



CLI 


Alle System Interrupts freigeben 

Bl 26 

AE 

B2 

0A 

LDX 

$0AB2 

X-Reg mit gesichertem Wert laden 

Bl 29 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

STA Routine für Akku Inhalt in bei. 







Bank. STAVEC = Bank Byte des OP3 

B12A 

8E 

B2 

0A 

STX 

$0AB2 

X-Reg Zwischenspeichern 

B12D 

A2 

66 


LDX 

# $66 

STAVEC Lo Adresse in X-Reg laden und 

B12F 

8E 

B9 

02 

STX 

$02B9 

in STAVEC Speicher f. Indsta Routine 

B132 

A6 

68 


LDX 

* $68 

Bank Nr. aus 'Von'Operand OP3 holen 

Bl 34 

78 



SEI 


Alle System Interrupts verhindern 

B135 

20 

77 

FF 

JSR 

$FF77 

Kernal INDSTA:STA(stavec),Y bei.Bank 

Bl 38 

58 



CLI 


Alle System Interrupts freigeben 

Bl 39 

AE 

B2 

0A 

LDX 

$OAB2 

X-Reg mit gesichertem Wert laden 

B13C 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

CMP Routine des Akku-Inhalts mit bei 







Bank. CMPVEC = Bank Byte des OP3 

B13D 

8E 

B2 

OA 

STX 

$0AB2 

X-Reg Zwischenspeichern 

B140 

A2 

66 


LDX 

# $66 

CMPVEC Lo Adresse in X-Reg laden und 

B142 

8E 

C8 

02 

STX 

$02C8 

in CMPVEC Speicher f. Indcmp Routine 

B145 

A6 

68 


LDX 

* $68 

Bank Nr. aus 'Von' Operand OP3 holen 
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B147 

78 



SEI 


Bl 48 

20 

7A 

FF 

JSR 

$FF7A 

BUB 

58 



CU 


B14C 

08 



PHP 


B14D 

AE 

B2 

0A 

LDX 

S0AB2 

B150 

28 



PLP 


B151 

60 



RTS 


****************************** 

B152 

B0 

08 


BCS 

$B15C 

B154 

20 

01 

B9 

JSR 

$B901 

B157 

20 

A7 

B7 

JSR 

$B7A7 

B15A 

90 

06 


BCC 

$B162 

B15C 

A9 

OB 


LDA 

# $0B 

B15E 

85 

60 


STA 

* $60 

8160 

DO 

15 


BNE 

$B177 

B162 

20 

0E 

B9 

JSR 

$B90E 

Bl 65 

90 

2A 


BCC 

$B191 

Bl 67 

A2 

03 


LDX 

tt $03 

Bl 69 

24 

D 7 


BIT 

* $D7 

BUB 

10 

01 


BPL 

$B16E 

B16D 

E8 



I NX 


B16E 

46 

62 


LSR 

* $62 

Bl 70 

66 

61 


ROR 

« $61 

Bl 72 

66 

60 


ROR 

# $60 

Bl 74 

CA 



DEX 


Bl 75 

DO 

F7 


BNE 

$B16E 

Bl 77 

20 

El 

FF 

JSR 

$FFE 1 

B17A 

F0 

12 


BEO 

$B18E 

B17C 

20 

E8 

Bl 

JSR 

$B1E8 

B17F 

A9 

08 


LDA 

# $08 

B181 

24 

D7 


BIT 

* $D7 

Bl 83 

10 

01 


BPL 

$6186 

Bl 85 

0A 



ASL 

A 

Bl 86 

20 

52 

B9 

JSR 

$B952 

Bl 89 

20 

22 

B9 

JSR 

$B922 

B18C 

B0 

E9 


BCS 

$B177 

B18E 

4C 

8B 

B0 

JMP 

$B08B 

B191 

4C 

BC 

B0 

JMP 

$bobc 

****************************** 

Bl 94 

20 

74 

B9 

JSR 

$B974 

B197 

A0 

00 


LDY 

n $00 

Bl 99 

20 

A 7 

B7 

JSR 

$B7A7 

B19C 

B0 

0A 


BCS 

$B1A8 

B19E 

A5 

60 


LDA 

* $60 


Alle System Interrupts verhindern 
Kernal INDCMP:CMP(cmpvec),Y bei.Bank 
Alle System Interrupts freigeben 
Ergebnis des Vergleichs sichern 
X-Reg mit gesichertem Wert laden 
Ergebnis des Vergleichs zurückholen 
Rücksprung aus dem Unterprogramm 

Monitor Befehl: M (Memory display) 

Kein Parameter, dann Standard setzen 
Kopieren des OPI Inhalts nach 0P3 
Hole 'Bis 1 Operanden in OPI 
Bei 'Von'- 'Bis' Stepzahl ermitteln 
Adr-Lo des OPI Operanden m. Standard 
Stepzahl 12 laden 

Z. Ausführung d. Memory Display Bef. 
Differenz: OP1-OP3 in OPI speichern 
•Von' Adr größer 'Bis' Adr = Fehler 
Stepzahl 3mal durch 2 teilen 
Teste auf 40/80 Zeichen Bildschirm 
Bei 40 Zeichen zur Step Division 
Bei 80 Zeichen Bildsch. Stepzahl/16 
Division des 3 Byte Operanden OPI 
durch Faktor 2, da je Mem.Disp.Zeile 
8 oder 16 Uerte angezeigt werden 
Divisionszähler für Stepzahl -1 
OPI Operand schon durch 8/16 geteilt 
Kernal STOP: Auf Stop Taste prüfen 
Wenn Stop gedrückt, dann Exit Rout. 
Eine Memory Display Zeile ausgeben 
Additionskonstante f. 'Von 1 Operand 
Teste auf 40/80 Zeichen Bildschirm 
Bei 40 Zeichen ist Additionsk. 8 ok 
Bei 80 Zeichen Additionsk. * 2 (=16) 
Addition: Akku Inhalt zum 0P3 
Subtraktion: OPI - Konstante <1> 
Schleifen, bis OPI kleiner 0 ist 
Springe in Eingabe Warteschleife 
<?> Ausgeben und zur E-Warteschleife 

Monitor Befehl: ; (Modify Reg) 

Bei C=0 OPI in Z-Page Bank/PCHi/PCLo 
Displacement für Zero-Page setzen 
Hole Modify Wert in OPI Operand 
Carry gesetzt = KZ f. Exit Routine 
Hole Adr-Lo von OPI als Modify Wert 
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B1A0 

99 

05 

00 

STA 

$0005, Y 

Bl A3 

C8 



INY 


Bl A4 

CO 

05 


CPY 

# $05 

B1A6 

90 

Fl 


BCC 

$B199 

B1A8 

4C 

8B 

B0 

JMP 

$B08B 

****************************** 

Bl AB 

B0 

IC 


BCS 

$B1C9 

Bl AD 

20 

01 

B9 

JSR 

$B901 

Bl B0 

A0 

00 


LDY 

# $00 

B1B2 

20 

A7 

B7 

JSR 

$B7A7 

B1B5 

B0 

12 


BCS 

$B1C9 

B1B7 

A5 

60 


LDA 

* $60 

B1B9 

20 

2A 

Bl 

JSR 

$B12A 

B1BC 

C8 



INY 


B1BD 

24 

D7 


BIT 

* $D7 

B1BF 

10 

04 


BPL 

$B1C5 

B1C1 

CO 

10 


CPY 

# $10 

B1C3 

90 

ED 


BCC 

$B1B2 

B1C5 

CO 

08 


CPY 

M $08 

B1C7 

90 

E9 


BCC 

$B1B2 

B1C9 

20 

7D 

FF 

JSR 

$FF7D 


****************************** 


6ICC: 1B 4F 91 00 

****************************** 


B1D0 

20 

E8 

Bl 

JSR 

$B1E8 

B103 

4C 

88 

B0 

JMP 

$B08B 


B1D6 

20 

74 

B9 

JSR 

$B974 

B1D9 

A6 

09 


LDX 

* $09 

B1DB 

9A 



TXS 


B1DC 

4C 

71 

FF 

JMP 

$FF71 

★ Ar************»*****!********* 

B1DF 

20 

74 

B9 

JSR 

$B974 

B1E2 

20 

6E 

FF 

JSR 

$FF6E 

B1E5 

4C 

8B 

B0 

JMP 

$B08B 


Modify Status-B. ,A,X,Y,Stack Pointer 
Displ. auf Z-Page CPU Speicher + 1 
Alle 4 CPU Speicher schon verändert? 
Nein, dann z. nächsten Reg.-Änderung 
Springe in Eingabe Warteschleife 

Monitor Befehl: > (Modify Mem) 

Kein Parameter, dann keine Änderung 
Kopieren des OPI Inhalts nach 0P3 
Modify Displ. Zeiger auf 0 setzen 
Hole Modify Wert in Operand OPI 
Kein weiterer Wert = Zeile ausgeben 
Mod. Wert aus Adr-Lo (OPI) holen 
STA Routine in beliebige Bank 
Displ. Zeiger für Modify Byte + 1 
Teste auf 40/80 Zeichen Bildschirm 
Zur Parameter Max Abfrage bei 40 Z. 
Schon 16 Zeichen gelesen/geändert? 
Nein, hole nächsten Mod. Parameter 
Schon 8 Zeichen gelesen/geändert? 
Nein, hole nächsten Mod. Parameter 
Kernal PRIMM: Zeichenkette ausgeben 

Lösche Insert, RVS und Quote Modus 

«Esc - 0> «Crsr Up> 

Ausgabe e. veränderten Memory Zeile 

Gibt: < 8/16 Hexwerte,8/16 ASCII aus 
Springe in Eingabe Warteschleife 

Monitor Befehl: G (Go to) 

Bei C=0 OPI in Z-Page Bank/PCHi/PCLo 
Lade X m. Z-Page Byte f. Stackpoin. 
Stack Pointer mit X-Reg modifizieren 
Kernal JMPFAR: JMP in beliebige Bank 

Monitor Befehl: J (Jump to) 

Bei C=0 OPI in Z-Page Bank/PCHi/PCLo 
Kernal JSRFAR: JSR belieb. Bank +RTS 
Springe in Eingabe Warteschleife 
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B1E8 

r\j 

o 

B4 

B8 

JSR 

$B8B4 

B1EB 

A9 

3E 


LDA 

# $3E 

Bl ED 

20 

D2 

FF 

JSR 

SFFD2 

Bl F0 

20 

92 

B8 

JSR 

SB892 

B1F3 

A0 

00 


LDY 

# $00 

B1F5 

F0 

03 


BEQ 

SB1FA 

B1F7 

20 

A8 

B8 

JSR 

$B8A8 

Bl FA 

20 

1A 

Bl 

JSR 

SB 11 A 

Bl FD 

20 

C2 

B8 

JSR 

SB8C2 

B200 

C8 



INY 


B201 

CO 

08 


CPY 

U $08 

B203 

24 

D7 


BIT 

* $D7 

B205 

10 

02 


BPL 

$B209 

B207 

CO 

10 


CPY 

# $10 

B209 

90 

EC 


BCC 

$B1F7 

B20B 

20 

7D 

FF 

JSR 

$FF7D 

****************************** 

B20E 

3A 

12 

00 




B211 

A0 

00 


LDY 

# $00 

B213 

20 

1A 

Bl 

JSR 

SB11A 

B216 

48 



PHA 


B217 

29 

7F 


AND 

# $7F 

B219 

C9 

20 


CMP 

# $20 

B21B 

68 



PLA 


B21C 

B0 

02 


BCS 

$B220 

B21E 

A9 

2E 


LDA 

# $2E 

B220 

o 

(M 

D2 

FF 

JSR 

$FFD2 

B223 

C8 



INY 


B224 

24 

D7 


BIT 

* $D7 

B226 

10 

04 


BPL 

$B22C 

B228 

CO 

10 


CPY 

# $10 

B22A 

90 

E7 


BCC 

$B213 

B22C 

C0 

CO 

o 


CPY 

# $08 

B22E 

90 

E3 


BCC 

$8213 

B230 

60 



RTS 



****★**★★★★★*★*★*★*★********** 


Gibt ein 8/16 Hexwerte und 8/16 
ASCII Zeichen für Memory Display aus 

Zeitenvorschub + Clear Rest of Line 
Akku mit '<' Zeichen laden 
Kernal BSOUT: Ein Zeichen ausgeben 
OP3 in 5-Byte-ASCII-Zeichen ausgeben 
Schleifenzähler auf 0 setzen 
B. 1.Hexwert Skip-Zwischenraum Blank 
<Blank>, <Cr>, <Crsr-Up> ausgeben 
LDA Routine für Akku aus bei. Bank 
A als 2 Byte ASCII Zeichen ausgeben 
Schleifen + Displacement Zähler + 1 
Schon 8 Hexwerte ausgegeben? 

Teste auf 40/80-Zeichen-BiIdschirm 
Bei 40 Zeichen Ausgabe fortfahren 
Schon 16 Hexwerte ausgegeben? 
Nächsten Hexwert holen 
Kernal PRIMM: Zeichenkette ausgeben 

Konstante: Doppelpunkt, RVS ein 

: <Rvs On> 

Ausgabe von 8/16 Bytes als ASCII 

Schleifen und Disp.-Zähler auf 0 
LDA Routine für Akku aus bei. Bank 
Zeichen auf Stack sichern 
Bit 7 ausblenden (keine RVS-Zeichen) 
Prüfe, ob es ein Steuerzeichen ist 
Zeichen wieder vom Stack holen 
Uenn kein Steuercode, normal ausgeb. 
sonst Akkumulator mit <■> laden 
Kernal BSOUT: Ein Zeichen ausgeben 
Schleifen-und Displacement-Zähter +1 
Teste auf 40/80 Zeichen Bildschirm 
Bei 40 Zeichen Anzeige weitermachen 
Schon 16 Charakter ausgegeben ? (80) 
Nein, nächsten Charakter ausgeben 
Schon 8 Charakter ausgegeben ? (40) 

Nein, nächsten Charakter ausgeben 
Rücksprung aus dem Unterprogramm 

Monitor Befehl: C (Compare) 
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B231: A9 00 LDA #$00 

B233: 2C .Byte $2C 


B234: 

A9 

80 


LDA 

# $80 

B236: 

85 

93 


STA 

* $93 

B238: 

A9 

00 


LDA 

# $00 

B23A: 

8D 

B3 

0A 

STA 

$0AB3 

B23D: 

20 

83 

B9 

JSR 

$B983 

B240: 

B0 

05 


BCS 

$B247 

B242: 

20 

A7 

B7 

JSR 

$B7A7 

B245: 

90 

03 


BCC 

$B24A 

B247: 

4C 

BC 

B0 

JMP 

$B0BC 

B24A: 

24 

93 


BIT 

* $93 

B24C: 

10 

2C 


BPL 

$B27A 

B24E: 

38 



SEC 


B24F: 

A5 

66 


LDA 

* $66 

B251: 

E5 

60 


SBC 

* $60 

B253: 

A5 

67 


LDA 

* $67 

B255: 

E5 

61 


SBC 

* $61 

B257: 

B0 

21 


BCS 

$B27A 

B259: 

A5 

63 


LDA 

* $63 

B25B: 

65 

60 


ADC 

* $60 

B25D: 

85 

60 


STA 

* $60 

B25F: 

A5 

64 


LDA 

* $64 

B261: 

65 

61 


ADC 

* $61 

B263: 

85 

61 


STA 

* $61 

B265: 

A5 

65 


LDA 

* $65 

B267: 

65 

62 


ADC 

* $62 

B269: 

85 

62 


STA 

* $62 

B26B: 

A2 

02 


LDX 

# $02 

B26D: 

BD 

B7 

0A 

LDA 

$0AB7,X 

B270: 

95 

66 


STA 

* $66, X 

B272: 

CA 



DEX 


B273: 

10 

F8 


BPL 

$B26D 

B275: 

A9 

80 


LDA 

# $80 

B277: 

8D 

B3 

0A 

STA 

$0AB3 

B27A: 

20 

B4 

B8 

JSR 

$B8B4 

B27D: 

A0 

00 


LDY 

# $00 

B27F: 

20 

El 

FF 

JSR 

$F FE 1 

B282: 

F0 

47 


BEQ 

$B2CB 

B284: 

20 

1A 

Bl 

JSR 

$B 11A 

B287: 

A2 

60 


LDX 

# $60 

B289: 

8E 

B9 

02 

STX 

$02B9 

B28C: 

8E 

C8 

02 

STX 

$02C8 

B28F: 

A6 

62 


LDX 

* $62 

B291: 

78 



SEI 



Kennzeichen für COMPARE setzen 
Skip nach $B236 

Monitor Befehl: T (Transfer) 

Kennzeichen für TRANSFORM setzen 
und in BefehlsByte-Speicher ablegen 
Richtungszeiger für C/T Bef. auf $00 
(= vorwärts) setzen ($80= rückwärts) 
Hole 'Bis 1 und Stepzahl in OPH.OP2 
Carry gesetzt= KZ f. Fehler gefunden 
Hole 'Nach 1 / 'Mit' Operanden in OPI 
'Nach'/ 'Mit' Operand ist ok 
<?> Ausgeben und zur E-Warteschleife 
War es Transfer(-) oder Compare(+) 

In die Compare Routine 
Carry für Subtraktion setzen 
Prüfe, ob der Inhalt der beiden 
Adreßbytes (Adr-Lo), (Adr-Hi) des 
Operanden OP3 größer ist, als die 
beiden Adreßbytes des Operanden OPI 
•Nach' kleiner 'Von' = Richtung ok 
Addiere den Inhalt des 3 Byte 
Operanden OP2 in den Speicherstellen 
$65-$64-$63 zum Inhalt 
des 3 Byte Operanden OPI 
in den Speicherstellen $62-$61-$60. 
ßeachte dabei jeweils den evtl, 
auftretenden Additionsüberlauf 
Speichere das Ergebnis der Addition 
im Operanden OPI 
Kopiere d. Inhalt des 
3-Byte-HiIfsoperanden 
in den Speicherstellen 
$0AB9-$0AB8•$0AB7 in den 
Operanden OP3 ($68-$67-$66) 

Wenn 'Nach' größer 'Von' ist, dann 
setze Richtungskz auf rückwärts 
Zeilenvorschub + Clear Rest of Line 
Displacement-Zeiger auf 0 setzen 
Kernal STOP: Auf Stop Taste prüfen 
Wenn Stop gedrückt, dann Exit Rout. 
LDA Routine für Akkus aus bei. Bank 
$60 ist Adr-Lo des 'Mit' 'Nach' OPI 
STAVEC auf diese Adresse setzen 
CMPVEC auf diese Adresse setzen 
X-Reg mit Bank Byte 'Nach' laden 
Alle System Interrupts verhindern 
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B292: 

24 

93 


BIT 

* $93 

War es ein Transfer oder Compare? 

B294: 

10 

03 


BPL 

$B299 

Bei Compare in entsprechende Routine 

B296: 

20 

77 

FF 

JSR 

$FF77 

Kernal INDSTA:STA(stavec),Y bei.Bank 

B299: 

A6 

62 


LDX 

* $62 

X-Reg mit Bank Byte 'Mit' laden 

B29B: 

20 

7A 

FF 

JSR 

$FF7A 

Kernal INDCMP:CMP(cmpvec),Y bei.Bank 

B29E: 

58 



CU 


Alle System Interrupts freigeben 

B29F: 

F0 

09 


BEO 

$B2AA 

Bei "gleich" nicht ausgeben, sonst 

B2A1: 

20 

92 

B8 

JSR 

$B892 

Inhalt 0P3 in 5 Byte ASCII ausgeben 

B2A4: 

20 

A8 

B8 

JSR 

$B8A8 

<Blank>, <Cr>, <Crsr-Up> ausgeben 

B2A7: 

20 

A8 

B8 

JSR 

$B8A8 

<Blank>, <Cr>, <Crsr-Up> ausgeben 

B2AA: 

2C 

B3 

OA 

BIT 

$0AB3 

Prüfe die Transfer Richtung 

B2AD: 

30 

OB 


BMI 

$B2BA 

Ermitteln der neuen rückwärts Adr. 

B2AF: 

E6 

60 


INC 

* $60 

Für vorwärts Transfer die 

B2B1: 

DO 

10 


BNE 

$B2C3 

'Nach' Adresse um 1 erhöhen und 

B2B3: 

E6 

61 


INC 

* $61 

dabei Überlauf beachten 

B2B5: 

DO 

OC 


BNE 

$B2C3 

Uenn Überlauf in Adr-Hi, dann Fehler 

B2B7: 

4C 

BC 

BO 

JMP 

$BOBC 

<?> ausgeben und zur E-Warteschleife 

B2BA: 

20 

22 

B9 

JSR 

$6922 

Subtraktion: OPI - Konstante <1> 

B2BD: 

20 

60 

B9 

JSR 

$B960 

Subtraktion: OP3 - Konstante <1> 

B2C0: 

4C 

C6 

B2 

JMP 

$B2C6 

Springe zur Subtraktion 0P2 • <1> 

****************************** 

Stepzahl und 'Von' Adresse setzen 

B2C3: 

20 

50 

B9 

JSR 

$B950 

Addition: Konstante <1> zum OP3 

B2C6: 

20 

3C 

B9 

JSR 

$B93C 

Subtraktion: OP2 • Konstante <1> 

B2C9: 

BO 

B4 


BCS 

$B27F 

Schleifen, bis alle Steps erledigt 

B2CB: 

4C 

8B 

BO 

JMP 

$B08B 

Springe in Eingabe Uarteschleife 

****************************** 

Monitor Befehl: H (Hunt) 

B2CE: 

20 

83 

B9 

JSR 

$B983 

Hole 'Bis' und Stepzahl in OPI 

B2D1: 

BO 

61 


BCS 

$B334 

Carry gesetzt^ KZ f. Fehler gefunden 

B2D3: 

AO 

00 


LDY 

U $00 

Displ. a. Hunt Zeichen im VGL Buffer 

B2D5: 

20 

E9 

B8 

JSR 

SB8E9 

Lese ein Zeichen aus Eingabe-Buffer 

B2D8: 

C9 

27 


CMP 

M $27 

War gelesenes Zeichen ein <’>? 

B2DA: 

DO 

16 


BNE 

$B2F2 

Nein, dann keine String Suche 

B2DC: 

20 

E9 

B8 

JSR 

$B8E9 

Lese ein Zeichen aus Eingabe-Buffer 

B2DF: 

C9 

00 


CMP 

# $00 

Wurde Bef-End gefunden? 

B2E1: 

FO 

51 


BEO 

$8334 

Ja, dann Fehler <?> ausgeben 

B2E3: 

99 

80 

OA 

STA 

$0A80,Y 

Zeichen im VGL Buffer ablegen 

B2E6: 

C8 



INY 


Displacement auf VGL Buffer +1 

B2E7: 

20 

E9 

B8 

JSR 

$B8E9 

Teste E-Buffer auf Bef-End, <:>, <?> 

B2EA: 

FO 

1B 


BEO 

$B307 

Wenn Bef-End,dann in Hunt Ausführung 

B2EC: 

CO 

20 


CPY 

# $20 

Schon 32 Werte im VGL Buffer? 

B2EE: 

DO 

F3 


BNE 

$B2E3 

Nein, dann nächsten VGL Wert holen 

B2F0: 

FO 

15 


BEO 

$B307 

Zur Ausführung der Hunt Routine 

B2F2: 

8C 

00 

01 

STY 

$0100 

Displ. auf VGL Buffer sichern 

B2F5: 

20 

A5 

B7 

JSR 

$B7A5 

Hole VGL Operand in OPI (wie CHRGOT) 
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B2F8: 

A5 

60 


LDA 

* $60 

B2FA: 

99 

80 

0A 

STA 

$0A80, Y 

B2FD: 

C8 



INY 


B2FE: 

20 

A 7 

B7 

JSR 

$B7A7 

B301: 

B0 

04 


BCS 

$B307 

B303: 

CO 

20 


CPY 

# $20 

B305: 

DO 

Fl 


BNE 

$82F8 

B307: 

84 

93 


STY 

* $93 

B309: 

20 

B4 

B8 

JSR 

$B8B4 

B30C: 

A0 

00 


LDY 

# $00 

B30E: 

20 

1A 

Bl 

JSR 

$B11A 

B311: 

D9 

80 

0A 

CMP 

$0A80,Y 

B314: 

DO 

0E 


BNE 

$B324 

B316: 

C8 



INY 


B317: 

C4 

93 


CPY 

* $93 

B319: 

DO 

F 3 


BNE 

$B30E 

B31B: 

20 

92 

B8 

JSR 

$B892 

B31E: 

20 

A8 

B8 

JSR 

$68A8 

B321: 

20 

A8 

B8 

JSR 

$B8A8 

B324: 

20 

El 

FF 

JSR 

$F FEI 

B327: 

F0 

08 


BEO 

$B331 

B329: 

20 

50 

B9 

JSR 

$B950 

B32C: 

20 

3C 

B9 

JSR 

$B93C 

B32F: 

B0 

DB 


BCS 

$H IOC 

B331: 

4C 

8B 

B0 

JMP 

$B08B 

B334: 

4C 

BC 

BO 

JMP 

$B0BC 


****************************** 


B337 

A0 

01 

LDY 

« $01 

B339 

84 

BA 

STY 

* $BA 

B33B 

84 

B9 

STY 

* $B9 

B33D 

88 


DEY 


B33E 

84 

C6 

STY 

* $C6 

B340 

84 

B7 

STY 

* $B7 

B342 

84 

C7 

STY 

* $C7 

B344 

84 

90 

STY 

* $90 

B346 

A9 

0A 

LDA 

# $0A 

B348 

85 

BC 

STA 

* $BC 

834A 

A9 

80 

LDA 

n $80 

B34C 

85 

BB 

STA 

* $BB 

B34E 

20 

E9 B8 

JSR 

$B8E9 

B351 

F0 

58 

BEO 

$B3AB 

B353 

C9 

20 

CMP 

» $20 

B355 

F0 

F7 

BEO 

$B34E 

B357 

C9 

22 

CMP 

n $22 

B359 

DO 

15 

BNE 

$8370 


Ablegen des aus OPI ermittelten 
1 Byte Wertes in den VGL Buffer 
Displacement auf VGL-Buffer +1 
Hole weiteren VGL Uert in OPI 
Keiner vorhanden,dann Hunt ausführen 
Schon 32 Werte im VGL-Buffer? 

Nein, dann nächsten VGL Wert holen 
Zahl d. Werte d. VGL-Buffers sichern 
Zeilenvorschub + Clear Rest of Line 
Displ. auf 1. Zeichen im VGL-Buffer 
LDA-Routine für Akku aus bei. Bank 
Vergleich mit Zeichen aus VGL-Buffer 
Ungleich, dann nächster Step 
Displ. auf nächsten Wert im VGL Buf. 
Alle Einzelvergleiche durchgeführt ? 
Nein, nächster Vergleich dies. Steps 
Inhalt 0P3 als 5 Byte ASCII ausgeben 
<Blank>, <Cr>, <Crsr-Up> ausgeben 
<Blank>, <Cr>, <Crsr-Up> ausgeben 
Kernal STOP: Auf Stop Taste prüfen 
Wenn Stop gedrückt, dann Exit-Rout. 
Addition: Konstante <1> zum 0P3 
Subtraktion: 0P2 - Konstante <1> 
Schleifen, bis alle Steps erledigt 
Springe in Eingabe-Warteschleife 
<?> Ausgeben und zur E-Warteschleife 

Einsprung für die Monitor Befehle: 

L = Load, S = Save, V = Verify 

Y-Reg mit $01 laden 
Geräteadresse setzen (1=Datassette) 
Sekundäradresse setzen (1=schreiben) 
Y-Reg auf $00 herunterzäh len 
Bank-Nr. für LSV-Aufrufe setzen 
Länge des Dateinamens auf 0 setzen 
Bank-Nr. für Adr. Dateiname setzen 
Statusbyte löschen (0 = alles OK) 
Zero Page Speicher für Adr. Hi des 
aktuellen Filenamens mit $0A laden 
Zero Page Speicher für Adr. Lo des 
Filenamens mit $80 laden (= $0A80) 
Teste E-Buffer auf Bef-End, <:>, <?> 
Wenn <:>,<?>,Bef-End in E-Warteschi. 
War gelesenes Zeichen ein <Blank>? 
Ja, dann zurück und weiterlesen 
War gelesenes Zeichen ein <">? 

Nein, dann Fehler im Befehlsstring 
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B35B 

A6 

7A 


LDX 

* $7A 

B35D 

BD 

00 

02 

LDA 

$0200, X 

B360 

F0 

49 


BEQ 

$B3AB 

B362 

E8 



INX 


B363 

C9 

22 


CMP 

# $22 

B365 

F0 

oc 


BEQ 

$B373 

B367 

91 

BB 


STA 

($BB),Y 

B369 

E6 

B7 


INC 

* $B7 

B36B 

C8 



INY 


B36C 

CO 

11 


CPY 

# $11 

B36E 

90 

ED 


BCC 

$B35D 

B370 

4C 

BC 

B0 

JMP 

$B0BC 

****************************** 

B373 

86 

7A 


STX 

* $7A 

B375 

20 

E9 

B8 

JSR 

$B8E9 

B378 

F0 

31 


BEQ 

$B3AB 

B37A 

20 

A7 

B7 

JSR 

$B7A7 

B37D 

B0 

2C 


BCS 

$B3AB 

B37F 

A5 

60 


LDA 

* $60 

B381 

85 

BA 


STA 

* $BA 

B383 

20 

A7 

B7 

JSR 

$B7A7 

B386 

B0 

23 


BCS 

$B3AB 

B388 

20 

01 

B9 

JSR 

$B901 

B38B 

85 

C6 


STA 

* $C6 

B38D 

20 

A 7 

B7 

JSR 

$B7A7 

B390 

B0 

3F 


BCS 

$B3D1 

B392 

20 

84 

B8 

JSR 

$B8B4 

B395 

A6 

60 


LDX 

* $60 

B397 

A4 

61 


LDY 

* $61 

B399 

A5 

93 


LDA 

* $93 

B39B: C9 

53 


CMP 

# $53 

B39D 

DO 

Dl 


BNE 

$B370 

B39F 

A9 

00 


LDA 

# $00 

B3A1 

85 

B9 


STA 

* $B9 

B3A3 

A9 

66 


LDA 

tt $66 

B3A5 

20 

D8 

FF 

JSR 

$FFD8 

B3A8 

4C 

8B 

B0 

JMP 

$B08B 


****************************** 


B3AB: 

A5 

93 

LDA 

* $93 

B3AD: 

C9 

56 

CMP 

# $56 

B3AF: 

F0 

06 

BEQ 

$B3B7 

B3B1: 

C9 

4C 

CMP 

# $4C 

B3B3: 

D0BB 

BNE $B370 

B3B5: 

A9 

00 

LDA 

# $00 


X-Reg mit Displ. auf E-Buffer laden 
lese E-Buffer ab 1.<"> (= Dateiname) 
$00 = Ende Befehlsstring 
E-Buffer Zeiger auf nächstes Zeichen 
Wurde 2. <"> gefunden ? 

Ja, dann weitere Auswertung 
Dateiname ab $0A80 ablegen 
Zähler für Länge des Dateinamens + 1 
Zeiger auf Filename-Speicher erhöhen 
Dateiname länger als 16 Zeichen ? 
Nein, dann nächstes Zeichen lesen 
<?> Ausgeben und zur E-Warteschleife 

LSV-Parameter-Auswertung nach 2.<"> 

Displ. Zeiger E-Buf zeigt hinter 2." 
Teste E-Buffer auf Bef-End, <:>, <?> 
Ohne Parameter kann gültiger LV sein 
Parameter in OPI holen (hier GA) 

Kein Parameter,dann z. LV-Auswertung 
Adr-Lo (OPI) holen (hier Geräteadr.) 
und in Z-Page Speicher f. GA bringen 
Parameter in OPI holen (Startadr.) 
Kein Parameter,dann z. LV-Auswertung 
Kopieren des OPI Inhalts nach OP3 
Bank.Nr. (OPI) in Z-Page Bank-B.,LSV 
Parameter in OPI holen (Endadresse) 
Kein Parameter,dann z. LV-Auswertung 
Zeilenvorschub + Clear Rest of Line 
Adr-Lo (OPI) ist 'Bis' Wert f. SAVE 
Adr-Hi (OPI) ist 'Bis' Wert f. SAVE 
Hole gesichertes Bef-Schlüsselwort 
War es ein <S> für Save? 

Nein = Fehter, da kein 'Bis 1 für LV 
Akku mit 0 laden und in Zero-Page 
Speicher für Sekundäradresse bringen 
Bank Nr. aus 'Von' Operand (OP3) 
Kernal SAVESP: Datei abspeichern 
Springe in Eingabe Warteschleife 

Ausführung gültiger LV-Befehle 


gesichertes Bef.-Schlüsselwort holen 
War es ein <V> für Verify? 

Akku <> 0 ist Verify Kz. in LOADSP 
War es ein <L> für Load? 

Nein,dann war es <S>f. Save Befehl 
u = 0 ist Load-Kennz. in LOADSP 
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B3B7 

20 

D5 

FF 

JSR 

$FFD5 

Kernal LOADSP: Datei einladen 

B3BA 

A5 

90 


LDA 

* $90 

System-STATUS in Akku laden 

B3BC 

29 

10 


AND 

# $10 

Bit für Lesefehler ausmaskieren 

B3BE 

F0 

E8 


BEO 

$B3A8 

Kein Fehler bei LV. Zur E-Uarteschl. 

B3C0 

A5 

93 


LDA 

* $93 

Zeichen f. Bef-Schlüsselwort holen 

B3C2 

F0 

AC 


BEQ 

$B370 

Kein Bef-Schlüsselwort, dann Fehler 

B3C4 

20 

7D 

FF 

JSR 

$FF7D 

Kernal PRIMM: Zeichenkette ausgeben 

****************************** 

Monitor-Konstante für <ERROR> 

B3C7 

20 

45 

52 

52 4F 

52 00 

ERROR 

****************************** 

Nach Error-Ausgabe in E-Warteschl. 

B3CE 

4C 

8B 

BO 

JMP 

$B08B 

Springe in Eingabe-Warteschleife 

****************************** 

Vorbereitung für gültige LV-Befehle 







mit Geräte- und Startadresse 

B3D1 

A6 

66 


LDX 

* $66 

Adr-Lo (OP3) f.Startadresse in X-Reg 

B3D3 

A4 

67 


LDY 

* $67 

Adr-Hi (0P3) f.Startadresse in Y-Reg 

B3D5 

A9 

00 


LDA 

# $00 

schreibe Sekundäradresse $00 = Lesen 

B3D7 

85 

B9 


STA 

* $B9 

in Z-Page-Speicher f. Sek-Adr 

B3D9 

F0 

DO 


BEQ 

$B3AB 

Zur Ausführung gültiger LV Befehle 

****************************** 

Monitor-Befehl: F (Fitl) 

B3DB 

20 

83 

B9 

JSR 

$B983 

Hole 'Bis' und Stepzahl in OPH.OP2 

B3DE 

BO 

23 


BCS 

$B403 

Carry gesetzt = KZ für Fehlerausgabe 

B3E0 

A5 

68 


LDA 

* $68 

Hole Bank-Nr. d. 'Von' Operanden OP3 

B3E2 

CD 

B9 

OA 

CMP 

$0AB9 

Vergl. mit Bank-Nr. des 'Bis 1 Oper. 

B3E5 

DO 

IC 


BNE 

$B403 

Ungleich ist = KZ für Fehlerausgabe 

B3E7 

20 

A7 

B7 

JSR 

$B7A7 

Hole Befehlsparameter <Fi 11-Wert) 

B3EA 

BO 

17 


BCS 

$B403 

Carry gesetzt = KZ für Fehlerausgabe 

B3EC 

AO 

00 


LDY 

# $00 

Displ. für Fill-Befehl auf 0 setzen 

B3EE 

A5 

60 


LDA 

* $60 

in Adr-Lo (OPI) steht der Fill-Uert 

B3F0 

20 

2A 

Bl 

JSR 

$B12A 

STA Routine für Akku in bei. Bank 

B3F3 

20 

El 

FF 

JSR 

$F FEI 

Kernal STOP: Auf Stop Taste prüfen 

B3F6 

FO 

08 


BEO 

$B400 

Wenn gedrückt, dann E-Warteschleife 

B3F8 

20 

50 

B9 

JSR 

$B950 

Addition: Konstante <1> zum OP3 

B3F8 

20 

3C 

B9 

JSR 

$B93C 

Subtraktion: OP2 - Konstante <1> 

B3FE 

BO 

EE 


BCS 

$B3EE 

Schleifen, bis alle Steps erledigt 

B400 

4C 

8B 

BO 

JMP 

$B08B 

Springe in Eingabe-Warteschleife 

B403 

4C 

BC 

BO 

JMP 

$BOBC 

<?> ausgeben und zur E-Warteschleife 
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B406: 

BO 

3A 


BCS 

$B442 

B408: 

20 

01 

B9 

JSR 

$B901 

B40B: 

A2 

00 


LDX 

# $00 

B40D: 

8E 

AI 

0A 

STX 

$0AA1 

B410: 

8E 

B4 

0A 

STX 

S0AB4 

B413: 

20 

E9 

B8 

JSR 

$B8E9 

B416: 

DO 

07 


BNE 

$B41 F 

B418: 

E0 

00 


CPX 

# $00 

B41A: 

DO 

03 


BNE 

$B41 F 

B41C: 

4C 

8B 

B0 

JMP 

$B08B 

B41F: 

C9 

20 


CMP 

# $20 

B421: 

F0 

E8 


BEQ 

SB40B 

B423: 

9D 

AC 

0A 

STA 

$0AAC,X 

B426: 

E8 



INX 


B427: 

E0 

03 


CPX 

U $03 

B429: 

DO 

E8 


BNE 

$B413 

B42B: 

CA 



DEX 


B42C: 

30 

17 


BMI 

$B445 

B42E: 

BD 

AC 

0A 

LDA 

$0AAC, X 

B431: 

38 



SEC 


B432: 

E9 

3F 


SBC 

# $3F 

B434: 

A0 

05 


LDY 

# $05 

B436: 

4A 



LSR 

A 

B437: 

6E 

AI 

0A 

ROR 

$0AA1 

B43A: 

6E 

A0 

0A 

ROR 

$0AA0 

B43D: 

88 



DEY 


B43E: 

DO 

F6 


BNE 

$B436 

B440: 

F0 

E9 


BEQ 

$B42B 

B442: 

4C 

BC 

B0 

JMP 

$B0BC 

B445: 

A2 

02 


LDX 

# $02 

B447: 

AD 

B4 

0A 

LDA 

$0AB4 

B44A: 

DO 

30 


BNE 

$B47C 

B44C: 

20 

CE 

B7 

JSR 

$B7CE 

B44F: 

F0 

29 


BEQ 

$B47A 

B451: 

B0 

EF 


BCS 

$B442 

B453: 

A9 

24 


LDA 

# $24 

B455: 

9D 

A0 

0A 

STA 

$0AA0,X 

B458: 

E8 



INX 


B459: 

A5 

62 


LDA 

* $62 

B45B: 

DO 

E5 


BNE 

$B442 

B45D: 

A0 

04 


LDY 

# $04 

B45F: 

AD 

B6 

0A 

LDA 

$0AB6 

B462: 

C9 

08 


CMP 

U $08 

B464: 

90 

05 


BCC 

$B46B 

B466: 

CC 

B4 

0A 

CPY 

$0AB4 


Monitor Befehl : A (Assemble) 

Monitor Befehl : . (Assemble) 

Carry gesetzt = KZ für Fehlerausgabe 
Kopieren des OPI Inhalts nach OP3 
Displ. auf Mnemonic-Buffer löschen 
Bit 0 f. komprimierten Bef-Code 0 
Schleifenhilfszähler auf 0 setzen 
Teste E-Buffer auf Bef-End, <:>, <?> 
Wenn kein Befehlsende, dann weiter 
.Displ. noch 0, dann kein Befehl da 
Nein, dann weiter 
Springe in Eingabe-Warteschleife 
Ist gelesenes Zeichen ein <Blank> ? 
Ja, dann überlesen und neu inital. 
Zeichen in Mnemonic-Buffer ablegen 
Displ. Zeiger auf Mnemonic-Buffer +1 
Schon 3 Mnemonic-Zeichen eingegeben? 
Nein, dann nächstes Zeichen holen 
Displ. Zeiger auf letzten Buchstaben 
3 Zeichen verarbeitet, dann weiter 
3 Mnemonic-Zeichen rückwärts lesen 
Carry für Subtraktion setzen 
Alphabetwert e. Buchstabens A=1,B=2 
Zähler für 5 mal 1 Bit verschieben 
1 Bit des Buchstabenwertes aus dem 
Akku in das Bytepaar $AA1-$AA0 
schieben. Die drei Mnemonic-Zeichen 
werden so in das o.g. Bytepaar 
geschoben und belegen dann 3 mal 5 
Bit dieses 2-Byte-Wertes (Bit 0 frei) 
<?> ausgeben und zur E-Warteschleife 
Displacement f. Ausgabepuffer setzen 
Schleifenhilfszähler in Akku laden 
Wenn ungleich Null, dann Skip 
Hole Befehlsparameter in OPI 
Wenn Null, dann teste auf Bef-End 
Carry gesetzt = KZ für Fehlerausgabe 
Zeichen für <$> in Akku laden 
und in Ausgabepuffer bringen 
Displacement auf Ausgabepuffer + 1 
Hole Bank-Byte des Operanden OPI 
Nicht Null = KZ für Fehlerausgabe 
Divisionsfaktor f. Zahlenbasis 16 
Hole Zahlenbasis des Operanden 
Vergleiche mit <8> 

Kleiner 8, dann hole Adr-Ho (OPI) 
Vergleiche mit Schleifenzähler 
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B469: 

F0 

06 


BEQ 

$B471 

B46B: 

A5 

61 


LDA 

* $61 

B46D: 

DO 

02 


BNE 

$8471 

B46F: 

A0 

02 


LDY 

# $02 

B471: 

A9 

30 


LDA 

# $30 


90 

A0 

0A 

STA 

$0AA0,X 


E8 



INX 


B477: 

88 



DEY 


B478: 

DO 

F9 


BNE 

$B473 

B47A: 

C6 

7A 


DEC 

* $7A 

B47C: 

20 

E9 

B8 

JSR 

$B8E9 

B47F: 

F0 

0E 


BEQ 

$B48F 

B481: 

C9 

20 


CMP 

n $20 


F0 

C2 


BEQ 

$B447 


9D 

A0 

0A 

STA 

$0AA0,X 

! ?! 1 

E8 



INX 


B489: 

E0 

0A 


CPX 

# $0A 

B48B: 

90 

BA 


BCC 

$B447 

B48D: 

B0 

B3 


BCS 

$B442 

B48F: 

86 

63 


STX 

* $63 

B491: 

A2 

00 


LDX 

# $00 

B493: 

8E 

Bl 

OA 

STX 

$0AB1 

B496: 

A2 

00 


LDX 

# $00 

B498: 

86 

9F 


STX 

* $9F 

B49A: 

AD 

Bl 

OA 

LDA 

$0AB1 

B49D: 

20 

59 

B6 

JSR 

$B659 

B4A0: 

AE 

AA 

OA 

LDX 

$0AAA 

B4A3: 

86 

64 


STX 

* $64 

B4A5: 

AA 



TAX 


B4A6: 

BD 

61 

B7 

LDA 

$B761, X 

B4A9: 

20 

7F 

B5 

JSR 

$B57F 

B4AC: 

BD 

21 

B7 

LDA 

$B721,X 

B4AF: 

20 

7F 

B5 

JSR 

$B57F 

B4B2: 

A2 

06 


LDX 

# $06 

B4B4: 

E0 

03 


CPX 

# $03 

B4B6: 

DO 

14 


BNE 

$B4CC 

B4B8: 

AC 

AB 

OA 

LDY 

$0AAB 

B4BB: 

F0 

or 


BEQ 

$B4CC 

B4BD: 

AD 

AA 

OA 

LDA 

$0AAA 

B4C0: 

C9 

E8 


CMP 

tt $E8 

B4C2: 

A9 

30 


LDA 

# $30 

B4C4: 

B0 

IE 


BCS 

$B4E4 

B4C6: 

20 

7C 

B5 

JSR 

$B57C 

B4C9: 

88 



DEY 


B4CA: 

DO 

Fl 


BNE 

$B4BD 

B4CC: 

0E 

AA 

OA 

ASL 

$0AAA 

B4CF: 

90 

0E 


BCC 

$B4DF 

IMB 

BD 

14 

B7 

LDA 

$B714,X 


Gleich, dann Skip 

Adr-Hi Byte des OPI-Operanden holen 
Ungleich 0, dann Skip 
Schleifenzähler für Nullbytes setzen 
ASCII Zeichen für <0> in Akku 
und in den Ass.-Bef-Zwischenspeieher 
Ass.-Bef-Längenzähler erhöhen 
Schleifenzähler für OP-Nullbytes -1 
Schleifen bis Zähler =0 ist 
Displ. Zeiger auf vorheriges Zeichen 
Teste E-Buffer auf Bef-End, <:>, <?> 
Wenn Bef-End, dann zur Auswertung 
War gelesenes Zeichen ein <Blank>? 
Ja, dann neue Parameter-Auswertung 
In Ass.-Bef-Zwischenspeicher 
Ass.-Bef-Längenzähler erhöhen 
Ist der Ass.-Bef länger 9 Zeichen? 
Nein, dann nächstes Zeichen holen 
Ja, dann <?> Fehler ausgeben 
Byte Länge d. Ass-Bef in OP2 Adr-Lo 
X-Reg mit 0 laden u. in den Befehls¬ 
vergleich-Schlei fenzähler bringen 
X-Reg mit 0 laden und als Displ. für 
d. Ass.-Bef-Buffer benutzen 
Bef-Vgl-Schleifenzähler holen 
Adressierung + Länge für Vgl.-Zähler 
Bef-Längenzeiger holen (0,1,2) 
und in Adr-Hi (OP2) sichern 
Prüfergebnis a.Displ. f.Mnemonic-Vgl 
Byte a. Mnemonic-Schlüsselwort Tab 2 
Vergleiche m. Byte a. Ass-Bef Buffer 
Byte a. Mnemonic-Schlüsselwort Tab 1 
Vergleiche m. Byte a. Ass-Bef Buffer 
Schleifenzähler f. Adressierungsvgl. 
Wird 3. Schleife abgearbeitet? 

Nein,dann nur Adressierungsvergleich 
Bef-Längenzeiger holen (0,1,2) 
Handelt es sich um einen 1 Byte Bef. 
Adressierungsschlüssel holen 
Vergleiche mit $E8 
ASCII-Zeichen für <0> in Akku 
Wenn Carry gesetzt, in entsp. Ausw. 
Vergleiche m. Byte a. Ass-Bef Buffer 
Bef-Längenzähler um 1 vermindern 
Nicht Null, dann weiter schleifen 
Adressierungsschlüssel schieben 
Wenn Bit =0, dann Skip-Vergleich 
Adressierungszeichen 1 a. Tab holen 
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B4D4: 

20 

7F 

B5 

JSR 

$B57F 

B4D7: 

BD 

1A 

B7 

LDA 

$B71A,X 

B4DA: 

F0 

03 


BEQ 

$B4DF 

B4DC: 

20 

7F 

B5 

JSR 

$B57F 

B4DF: 

CA 



DEX 


B4E0: 

DO 

D2 


BNE 

$B4B4 

B4E2: 

F0 

06 


BEQ 

SB4EA 

B4E4: 

20 

7C 

B5 

JSR 

$B57C 

B4E7: 

20 

7C 

B5 

JSR 

$B57C 

B4EA: 

A5 

63 


LDA 

* $63 

B4EC: 

C5 

9F 


CMP 

* $9F 

B4EE: 

F0 

03 


BEQ 

$B4F3 

B4F0: 

4C 

8B 

B5 

JMP 

$B58B 

B4F3: 

AC 

AB 

0A 

LDY 

$0AAB 

B4F6: 

F0 

32 


BEQ 

SB52A 

B4F8: 

A5 

64 


LDA 

* $64 

B4FA: 

C9 

9D 


CMP 

U $9D 

B4FC: 

DO 

23 


BNE 

$B521 

B4FE: 

A5 

60 


LDA 

* $60 

B500: 

E5 

66 


SBC 

* $66 

B502: 

AA 



TAX 


B503: 

A5 

61 


LDA 

* $61 

B505: 

E5 

67 


SBC 

* $67 

B507: 

90 

08 


BCC 

$B511 

B509: 

DO 

6E 


BNE 

$B579 

B50B: 

E0 

82 


CPX 

# $82 

B50D: 

BO 

6A 


BCS 

$B579 

B50F: 

90 

08 


BCC 

$B519 

B511: 

A8 



TAY 


B512: 

C8 



INY 


B513: 

DO 

64 


BNE 

$B579 

B515: 

E0 

82 


CPX 

n $82 

B517: 

90 

60 


BCC 

$8579 

B519: 

CA 



DEX 


B51A: 

CA 



DEX 


B51B: 

8A 



TXA 


B51C: 

AC 

AB 

0A 

LDY 

$0AAB 

B51F: 

DO 

03 


BNE 

$B524 

B521: 

B9 

5F 

00 

LDA 

$005F,Y 

B524: 

20 

2A 

Bl 

JSR 

$B12A 

B527: 

88 



DEY 


B528: 

DO 

F7 


BNE 

$B521 

B52A: 

AD 

Bl 

0A 

LDA 

$0AB1 

B52D: 

20 

2A 

Bl 

JSR 

$B12A 

B530: 

20 

AD 

B8 

JSR 

$B8AD 

B533: 

20 

7D 

FF 

JSR 

$FF7D 


Vergleiche m. Byte a. Ass-Bef-Buffer 
Adressierungszeichen 2 a. Tab holen 
Uenn $00, dann nicht vergleichen 
Vergleiche m. Byte a. Ass-Bef Buffer 
Adressierungs-Schleifenzähler - 1 
Nicht Null, dann weiter schleifen 
Bei Null weiter auswerten 
Vergleiche m. Byte a. Ass-Bef-Buffer 
Vergleiche m. Byte a. Ass-Bef-Buffer 
Hole gesicherte Länge d. Ass-Bef 
Vergleiche m. Displ. a. Ass-Bef-Buf 
Wenn gleich, dann Skip 
Bef-Vgl-Schleifenzähler erhöhen 
Hole Befehls-Längenzeiger 
Uenn 0,dann ist es ein 1-Byte-Befehl 
Hole Adr-Hi-Byte des OP2 Operanden 
und vergleiche es mit $90 
Nicht gleich, dann Skip 
Hole Operandenadresse Lo und 
subtrahiere Befehlsadresse Lo 
Ergebnis der Subtr. in X-Reg sichern 
Hole Operandenadresse Hi und 
subtrahiere Befehlsadresse Hi 
Z. Auswertung e. Rückwärts Verzweig. 
"Branch out of Range":<?> ausgeben 
Prüfe, ob Branch plausibel 
Offset größer $82, dann <?> ausgeben 
In die entsprechende Auswertung 
Kopiere den Akku-Inhalt in Y-Reg 
und erhöhe zum Testen auf Null um 1 
Nicht gleich 0, <?> Fehler ausgeben 
Vergleiche auf $02 
Kleiner 2, dann <?> Fehler ausgeben 
Adreßabgleich:X-Reg um 1 vermindern 
Adreßabgleich:X-Reg um 1 vermindern 
Den Wert dann in Akku bringen 
Hole Befehls-Längenzähler in Y-Reg 
Nicht Null, dann Skip 
Hole Uert aus Operanden OPI 
STA Routine für Akku in bei. Bank 
Befehls-Längenzähler um 1 vermindern 
Nicht Null, dann weiter schleifen 
Hole den ermittelten Opcode Uert 
STA-Routine für Akku in bei. Bank 
<Cr> <Crsr-Up> ausgeben 
Kernal PRIMM: Zeichenkette ausgeben 
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****************************** 


B536: 41 20 1B 51 00 
****************************** 


B53B: 

20 

DC 

B5 

JSR 

$B5DC 

B53E: 

EE 

AB 

0A 

INC 

$0AAB 

B541: 

AD 

AB 

0A 

LDA 

$0AAB 

B544: 

20 

52 

B9 

JSR 

$B952 

B547: 

A9 

41 


LDA 

# $41 

B549: 

8 D 

4A 

03 

STA 

S034A 

B54C: 

A9 

20 


LDA 

# $20 

B54E: 

8 D 

4B 

03 

STA 

$034 B 

B551: 

8 D 

51 

03 

STA 

$0351 

B554: 

A5 

68 


LDA 

* $68 

B556: 

20 

D2 

B8 

JSR 

$B8D2 

B559: 

8 E 

4C 

03 

STX 

$034C 

B55C: 

A5 

67 


LDA 

* $67 

B55E: 

20 

D2 

B8 

JSR 

$B8D2 

B561: 

8 D 

4D 

03 

STA 

$0340 

B564: 

8 E 

4E 

03 

STX 

$034E 

B567: 

A5 

66 


LDA 

* $66 

B569: 

20 

D2 

B8 

JSR 

$B8D2 

B56C: 

8 D 

4F 

03 

STA 

$034 F 

B56F: 

8 E 

50 

03 

STX 

$0350 

B572: 

A9 

08 


LDA 

# $08 

B574: 

85 

DO 


STA 

* $D0 

B576: 

4C 

8 B 

B0 

JHP 

$B08B 

B579: 

4C 

BC 

B0 

JMP 

$B0BC 


****************************** 


B57C 

20 

7F 

B5 

JSR 

$857F 

B57F 

8 E 

AF 

0A 

STX 

$0AAF 

B582 

A6 

9F 


LDX 

* $9F 

B584 

DD 

A0 

0A 

CMP 

$0AA0,X 

B587 

F0 

0A 


BEO 

$B593 

B589 

68 



PLA 


B58A 

68 



PLA 


B58B 

EE 

Bl 

0A 

INC 

$0AB1 

B58E 

F0 

E9 


BEQ 

$B579 

B590 

4C 

96 

B4 

JMP 

$B496 

B593 

E6 

9F 


INC 

* $9F 

B595 

AE 

AF 

0A 

LDX 

$0AAF 


Monitor Konstante: Assemble Ausgabe 


Kennzeichen und Adreßvorgabe für 
nächste Ass.-Vorgabe bilden 

Adreßwert ausgeben und Byte holen 
Opcode-Längenzeiger um 1 erhöhen 
Länge zum 'Von' Operanden addieren 
Addition: Akku-Inhalt zum 0P3 
Lade Akku mit Zeichen <A> (Assemble) 
In Vorgabe-Puffer für nächste Zeile 
Lade Akku mit Zeichen <Blank> 

In Vorgabe-Puffer für nächste Zeile 
In Vorgabe-Puffer für nächste Zeile 
Bank Byte der 'Von' Adresse in Akku 
Akku in 2-Byte-ASCII Code: Hi=A,Lo=X 
In Vorgabe-Puffer für nächste Zeile 
Adr-Hi Byte (OP3) der 'Von' Adresse 
Akku in 2-Byte-ASCI I Code: Hi=A,Lo=X 
In Vorgabe-Puffer für nächste Zeile 
In Vorgabe-Puffer für nächste Zeile 
Adr-Lo Byte (0P3) der 'Von' Adresse 
Akku in 2 Byte ASCII Code: Hi=A,Lo=X 
In Vorgabe-Puffer für nächste Zeile 
In Vorgabe-Puffer für nächste Zeile 
Tastaturpuffer-Zeiger auf 8 Zeichen 
hochsetzen (=Länge der Vorgabezeile) 
Springe in Eingabe Uarteschleife 
<?> ausgeben und zur E-Uarteschleife 

Vergleiche den Akku Inhalt mit einem 
Zeichen aus dem Assembler-Befehl- 
Zwischenspeicher 

Folgende Routine 2mal ausführen 
X-Reg-Inhalt sichern 
Ass-Befehl Disp.-Zeiger laden 
Vgl mit Zeichen aus Ass-Bef Buffer 
Wenn gleich, dann Exit Routine 
Die RTS-Adresse von Stack holen 
Die RTS-Adresse vom Stack holen 
Bef-Vgl-Schleifenzähler erhöhen 
Größer 255, dann Fehler ausgeben 
Springe in entsp. Auswertung 
Ass-Befehl Disp. Zeiger ♦ 1 
Alten X-Reg-Inhalt zurückholen 


A <8lank> <Esc - Q> 
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B598: 60 RTS 

****************************** 


B599: 

BO 

08 


BCS 

SB5A3 

B59B: 

20 

01 

B9 

JSR 

SB901 

B59E: 

20 

A7 

B7 

JSR 

$B7A7 

B5A1: 

90 

06 


BCC 

$B5A9 

B5A3: 

A9 

14 


LDA 

# $14 

B5A5: 

85 

60 


STA 

* $60 

B5A7: 

DO 

05 


BNE 

$B5AE 

B5A9: 

20 

0E 

B9 

JSR 

$B90E 

B5AC: 

90 

23 


BCC 

$B5D1 

B5AE: 

20 

7D 

FF 

JSR 

$FF7D 


****************************** 

B5B1: 0D 1B 51 00 

****************************** 


B5B5: 

20 

El 

FF 

JSR 

$FFE1 

B5B8: 

F0 

14 


BEO 

$B5CE 

B5BA: 

20 

D4 

B5 

JSR 

$B5D4 

B5BD: 

EE 

AB 

0A 

INC 

$0AAB 

B5C0: 

AD 

AB 

0A 

LDA 

$0AAB 

B5C3: 

20 

52 

B9 

JSR 

$B952 

B5C6: 

AD 

AB 

0A 

LDA 

$0AAB 

B5C9: 

20 

24 

B9 

JSR 

$B924 

B5CC: 

B0 

E0 


BCS 

$B5AE 

B5CE: 

4C 

8 B 

B0 

JMP 

$B08B 

B5D1: 

4C 

BC 

B0 

JMP 

$B0BC 

B5D4: 

A9 

2E 


LDA 

# $2E 

B5D6: 

20 

D2 

FF 

JSR 

$FFD2 

B5D9: 

20 

A8 

B8 

JSR 

$B8A8 

B5DC: 

20 

92 

B8 

JSR 

$B892 

B5DF: 

20 

A8 

B8 

JSR 

$B8A8 

B5E2: 

A0 

00 


LDY 

U $00 

B5E4: 

20 

1 A 

Bl 

JSR 

$B11A 

B5E7: 

20 

59 

B6 

JSR 

$B659 

B5EA: 

48 



PHA 


B5EB: 

AE 

AB 

0A 

LDX 

$0AA8 

B5EE: 

E8 



I NX 


B5EF: 

CA 



DEX 


B5F0: 

10 

0A 


BPL 

$B5FC 

B5F2: 

20 

7D 

FF 

JSR 

$FF7D 


Rücksprung aus dem Unterprogramm 

Monitor Befehl : D (Disassemble) 

Kein gültiger 'Von' Operand 
Kopieren des OPI Inhalts nach OP3 
'Bis 1 Operand in OPI holen 
Uenn gültig, dann Stepzahl ermitteln 
Standard-Stepzahl 114 (=20 Bytes zu 
disassemblieren) in Stepzähler Lo 
Unbedingter Sprung z. Disass-Routine 
Differenz: OP1-OP3 in OPI speichern 
Carry gelöscht = KZ f. Fehlerausgabe 
Kernal PRIMM: Zeichenkette ausgeben 

Monitor Konstante: 1 Zeile löschen 


Speicher abhängig von 'Von' Operand 
und Stepzahl disassemblieren 

Kernal STOP: Auf Stop-Taste prüfen 
Wenn gedrückt, in E-Warteschleife 
Aufbereiten+ausgeben e.Disass. Zeile 
Opcode Längenzeiger um 1 erhöhen 
und f.'Von' Adreßberechnung in Akku 
Addition: Akku Inhalt zum OP3 
Längenz. f. Stepzahl-Berechnung in A 
Subtraktion: OPI - Akku Inhalt 
Noch Steps offen,dann weiter disass. 
Springe in Eingabe-Uarteschleife 
<?> Ausgeben und zur E-Warteschleife 
Akku mit <.> laden 
Kernal BSOUT: Ein Zeichen ausgeben 
<Blank>, <Cr>, <Crsr-Up> ausgeben 
'Von' Adr (OP3) a.5 Byte ASCII ausg. 
<8lank>, <Cr>, <Crsr-Up> ausgeben 
Displacement für FETCH Routine laden 
LDA Routine für Akku aus bei. Bank 
Gültigkeitsprüfung des Opcode-Bytes 
Sichere Prüfungsergebnis auf Stack 
Hole ermittelten Befehls-Längenschi. 
Längenschlüssel um 1 erhöhen 
Längenschlüssel um 1 vermindern 
B. Wert kleiner 0 Konstante ausgeben 
Kernal PRIMM: Zeichenkette ausgeben 


<Cr> «Esc - Q> 
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****************************** 


B5F5: 20 20 20 00 

****************************** 


B5F9 

4C 

02 

B6 

JMP 

$8602 

B5FC 

20 

1 A 

Bl 

JSR 

$B 11A 

B5FF 

20 

A5 

B8 

JSR 

$B8A5 

B602 

C8 



INY 


B603 

CO 

03 


CPY 

# $03 

B605 

90 

E8 


BCC 

$B5EF 

B607 

68 



PLA 


B608 

A2 

03 


LDX 

« $03 

B60A 

20 

AI 

B6 

JSR 

$B6A1 

B60D 

A2 

06 


LDX 

# $06 

B60F 

E0 

03 


CPX 

# $03 

B611 

DO 

17 


BNE 

$B62A 

B613 

AC 

AB 

0A 

LDY 

$0AAB 

B616 

F0 

12 


BEQ 

$B62A 

B618 

AD 

AA 

0A 

LDA 

$0AAA 

B61B 

C9 

E8 


CMP 

# $E8 

B61D 

08 



PHP 


B61E 

20 

1 A 

Bl 

JSR 

$B 11A 

B621 

28 



PLP 


B622 

B0 

ID 


BCS 

$8641 

B624 

20 

C2 

B8 

JSR 

$88C2 

B627 

88 



DEY 


B628 

DO 

EE 


BNE 

$B618 

B62A 

0E 

AA 

0A 

ASL 

$0AAA 

B62D 

90 

Oi 


BCC 

$B63D 

B62F 

BD 

14 

B7 

LDA 

$B714,X 

B632 

20 

D2 

FF 

JSR 

$FFD2 

B635 

BD 

1 A 

B7 

LDA 

$B71A,X 

B638 

F0 

03 


BEQ 

$B63D 

B63A 

20 

D2 

FF 

JSR 

$FFD2 

B63D 

CA 



DEX 


B63E 

DO 

CF 


BNE 

$B60F 

B640 

60 



RTS 


****************************** 

B641 

20 

4D 

B6 

JSR 

$B64D 

B644 

18 



CLC 


B645 

69 

01 


ADC 

» $01 

B647 

DO 

01 


BNE 

$B64A 

B649 

E8 



I NX 


B64A 

4C 

9F 

B8 

JMP 

$B89F 


Monitor Konstante: 3 Leerzeichen 


Skip LDA für Routine 
LDA-Routine für Akku aus bei. Bank 
Akku als 2-Byte-ASCII +Blank ausgeb. 
Inhalt Y-Reg um 1 erhöhen 
Vergleiche auf $03 
Kleiner 3, dann weiter schleifen 
Prüfungsergebnis vom Stack holen 
3 Buchstaben f. Mnemonic Ausgabe in 
X-Reg u. zur Ausgabe der Buchstaben 
Schleifenzähler mit 6 initialisieren 
Nach 3 Schleifen wird d. eigentliche 
Adreßwert ausgegeben 
Anzahl der Befehls Operandenbytes 
Kein Operandenbyte, dann Skip 
Adressierungsschlüssel d. Befehls 
Prüfe, ob es ein Branch ist 
Carry Flag auf Stack sichern 
LDA Routine für Akku aus bei. Bank 
Carry Flag wieder zurückholen 
Uar Carry gesetzt,dann ist es BRANCH 
Akku in 2-Byte-ASCII ausgeben 
Wenn der Befehl zwei Operandenbytes 
hat, dann zur Auswertung des zweiten 
Bit aus Adressierungsschlüssel mask. 
Bit nicht gesetzt, dann Skip 
1 Zeichen für Adressierungsart holen 
Kernal BSOUT: Ein Zeichen ausgeben 
1 Zeichen für Adressierungsart holen 
ungleich $00, dann ausgeben 
Kernal BSOUT: Ein Zeichen ausgeben 
Schleifenzähler-Adreßausgabe - 1 
Alle 6 Schleifen ausführen 
Rücksprung aus dem Unterprogramm 

Adresse v. BRANCH Befehlen ermitteln 

Zur Adreßberechnung X=Hi, A=Lo 
Carry für Addition löschen 
1 für Adreßkorrektur Lo addieren 
Kein Überlauf, Skip-Hi-Korrektur 
1 für Adreßkorrektur Hi addieren 
Akku +X-Reg als 4-Byte-ASCIl ausgeb. 


<8lank> <Blank> <Blank> 
Ass. Disass. Unterroutine 
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B64D 

A6 

67 

LDX 

* $67 

Adr-Hi d. 'Von' Operanden 0P3 holen 

B64F 

A8 


TAY 


Den Branch-Offset in Y-Reg bringen 

B650 

10 

01 

BPL 

$B653 

Weiter bei Branch "vorwärts" 

B652 

CA 


DEX 


Adr-Hi für "rückwärts" Branch -1 

B653 

65 

66 

ADC 

* $66 

Adr-Lo (0P3) +Branch Offset addieren 

B655 

90 

01 

BCC 

$B658 

Kein Überlauf, Skip-Hi-Korrektur 

B657 

E8 


INX 


Überlaufkorrektur des Adr-Hi-Uertes 

B658 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Adressierung und Länge für den in A 






übergebenen Prüfcode ermitteln 

B659 

A8 


TAY 


Prüfcode in Y-Reg sichern 

B65A 

4A 


LSR 

A 

Bit 0 herausschieben und testen 

B65B 

90 

OB 

BCC 

$B668 

War Bit 0 = 0 dann OK 

B65D 

4A 


LSR 

A 

Bit 1 herausschieben und testen 

B65E 

BO 

17 

BCS 

$8677 

War Bit 1 = 1 dann ungültig 

B660 

C9 

22 

CMP 

# $22 

Teste, ob Ausgangscode $89 war 

B662 

FO 

13 

BEQ 

$B6 77 

Ja, dann in Routine für ungültig 

B664 

29 

07 

AND 

# $07 

Bit 3-7 des Wertes ausmaskieren 

B666 

09 

80 

ORA 

# $80 

Bit 7 einblenden 

B668 

4A 


LSR 

A 

Akku-Inhalt durch 2 dividieren 

B669 

AA 


TAX 


und als Displ. nach X-Reg 

B66A 

BD 

C3 B6 

LDA 

$B6C3,X 

1 Byte a. Adressierungs-Referenz-Tab 

B660 

BO 

04 

BCS 

$8673 

Wenn Rest bei Division, dann Skip 

B66F 

4A 


LSR 

A 

Kopiere den Inhalt 

B670 

4A 


LSR 

A 

der oberen Tetrade 

B671 

4A 


LSR 

A 

(Bit 4-7) in die 

B672 

4A 


LSR 

A 

untere Tetrade (Bit 0-3) 

B673 

29 

OF 

AND 

# $0F 

Obere Tetrade (Bit 4-7) ausmaskieren 

B675 

DO 

04 

BNE 

$B67B 

Ungleich 0 ist gültig 

B677 

AO 

80 

LDY 

# $80 

Bei ungültigem Code lade Y mit $80 

B679 

A9 

00 

LDA 

U $00 

und lade Akku mit $00 

B67B 

AA 


TAX 


A f. Displacement n. X transferieren 

B67C 

BD 

07 B7 

LDA 

$8707,X 

Hole Adressierungsschlüssel aus Tab 

B67F 

80 

AA OA 

STA 

$0AAA 

und sichere ihn in $0AAA 

B682 

29 

03 

AND 

U $03 

Ausmaskieren der Bits 2-7 

B684 

80 

AB OA 

STA 

$OAAB 

Sichere Bit 0,1 (Befehlslänge) 

B687 

98 


TYA 


Prüfcode in Akku kopieren 

B688 

29 

8 F 

AND 

# $8F 

Die Bits 4,5,6 ausmaskieren 

B68A 

AA 


TAX 


Den ausmaskierten Wert in X sichern 

B68B 

98 


TYA 


Prüfcode in Akku kopieren 

B68C 

AO 

03 

LDY 

# $03 

Schleifenzähler mit 3 initialisieren 

B68E 

EO 

8 A 

CPX 

# $8A 

Vgl. ausmaskierten Wert mit $8A 

B690 

FO 

OB 

BEO 

$B69D 

Gleich, dann Skip 

B692 

4A 


LSR 

A 

Dividiere-Akku-Inhalt durch <2> 

B693 

90 

08 

BCC 

$B69D 

Wenn kein Rest, dann Skip 

B695 

4A 


LSR 

A 

Dividiere-Akku-Inhalt durch <2> 
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B696 

4A 


LSR 

A 

B697 

09 

20 

ORA 

# $20 

B699 

88 


DEY 


B69A 

DO 

FA 

BNE 

$B696 

B69C 

C8 


INY 


B69D 

88 


DEY 


B69E 

DO 

F2 

BNE 

$8692 

B6A0 

60 


RTS 



****************************** 


B6A1 

A8 



TAY 


B6A2 

B9 

21 

B7 

LDA 

$B721,Y 

B6A5 

85 

63 


STA 

* $63 

B6A7 

B9 

61 

B7 

LDA 

$B761, Y 

B6AA 

85 

64 


STA 

* $64 

B6AC 

A9 

00 


LDA 

# $00 

B6AE 

A0 

05 


LDY 

# $05 

B6B0 

06 

64 


ASL 

* $64 

B6B2 

26 

63 


ROL 

* $63 

B6B4 

2A 



ROL 

A 

B6B5 

88 



DEY 


B6B6 

DO 

F8 


BNE 

$B6B0 

B6B8 

69 

3F 


ADC 

# $3F 

B6BA 

20 

D2 

FF 

JSR 

$FFD2 

B6BD 

CA 



DEX 


B6BE 

DO 

EC 


BNE 

$B6AC 

B6C0 

4C 

A8 

B8 

JMP 

$B8A8 


****************************** 


B6C3 

40 

02 

45 

03 

DO 

08 

40 

09 

B6CB 

30 

22 

45 

33 

DO 

08 

40 

uv 

B6D3 

40 

02 

45 

33 

DO 

08 

40 

09 

B6DB 

40 

02 

45 

B3 

DO 

08 

40 

09 

B6E3 

00 

22 

44 

33 

DO 

8 C 

44 

00 

B6EB 

11 

22 

44 

33 

DO 

8 C 

44 

9A 

B6F3 

10 

22 

44 

33 

DO 

08 

40 

09 

B6FB 

10 

2 ? 

44 

33 

DO 

D8 

40 

09 

B703 

62 

13 

78 

A9 
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Dividiere-Akku-Inhalt durch <2> 

Bit 5 in Akku einblenden 
Schleifenzähler um 1 vermindern 
Nicht Null, dann weiter schleifen 
Schleifenzähler um 1 erhöhen 
Schleifenzähler um 1 vermindern 
Nicht Null, dann weiter dividieren 
Rücksprung aus dem Unterprogramm 

Einen Buchstaben für Mnemonic- 
Anzeige aufbereiten und ausgeben 

Befehls-Code als Displ. nach Y-Reg 
Ein Byte aus Mnemonic-Tabelle 1 
holen und in Adr-Lo (OP2) sichern 
Ein Byte aus Mnemonic-Tabelle 2 
holen und in Adr-Hi (0P2) sichern 
Akku mit 0 initialisieren 
5 Bits aus der 2-Byte-Adresse des 
0P2-Operanden nach links heraus- 
schieben und diese 5 Bits im Akku 
ablegen. Schleifen, bis alle 5 Bits 
herausgeschoben sind. Die Addition 
von $3F ergibt dann einen gültigen 
Buchstabenwert, bzw. ein <?> 

Kernal BSOUT: Ein Zeichen ausgeben 
3 Schleifen, f. die 3 Buchstaben aus 
dem 16-Bit-Wert in Adr-Lo/Hi in 0P2 
Ausgeben:<Blank>,<Cr>,<Crsr-Up>:RTS 

Adressierungsreferenz-Tabelle 
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****************************** 


B707 

o 

o 

21 

81 

82 





B70B 

00 

00 

59 

4D 





B70F 

91 

92 

86 

4A 





B713 

85 








B714 

9D 




Byte 

$9D 

****************************** 

B715 

2C 

29 

2C 

23 

28 

24 



B71B 

59 

00 

58 

24 

24 

00 



****************************** 

B721 

IC 

8 A 

IC 

23 

50 

8 B 

1B 

AI 

B729 

9D 

8A 

ID 

23 

9D 

8 B 

ID 

Al 

B731 

00 

29 

19 

AE 

69 

AR 

19 

23 

B739 

24 

53 

1 

23 

24 

53 

19 

AI 

B741 

00 

1 A 

5B 

5B 

A5 

69 

24 

24 

B749 

AE 

AE 

AR 

AD 

29 

00 

7C 

00 

B751 

15 

9C 

6 D 

9C 

A5 

69 

29 

53 

B759 

84 

13 

34 

11 

AS 

69 

23 

A0 

****************************** 

B761 

D8 

62 

5A 

48 

26 

62 

94 

88 

B769 

54 

44 

CR 

54 

68 

A4 

E8 

94 

B771 

00 

B4 

08 

84 

74 

R4 

28 

6 E 

B779 

74 

F4 

CC 

4A 

72 

F2 

A4 

RA 

B781 

00 

AA 

A2 

A2 

74 

74 

74 

72 

B789 

44 

68 

B2 

32 

B2 

00 

22 

00 

B791 

1 A 

1 A 

26 

26 

72 

72 

88 

C8 

B799 

C4 

CA 

26 

48 

44 

44 

A2 

C8 

****************************** 

B7A1 

0D 

20 

20 

20 






****************************** 


B7A5 

C6 

7A 


DEC 

* $7A 

B7A7 

20 

CE 

B7 

JSR 

$B7CE 

B7AA 

B0 

16 


BCS 

SB7C2 

B7AC 

20 

E7 

B8 

JSR 

$B8E7 

B7AF 

DO 

09 


BNE 

$B7BA 


Adressierungsart und Längenschlüssel 

-1 / #$ -2 / *$ -2 / $ -3 

-1 / -1 / ($,X)-2 / ($),Y-2 

*$,X-2 / $,X -3 / $,Y -3 / ($) -3 

*$,Y-2 

Backspace Steuercode 
Adressierungsarten optisch anzeigen 


< . 

> < 

) > 

< . 

> < 

# > 

< ( 

> < 

< Y 

> < 

> 

< X 

> < 

t > 

< s 

> < 

Mnemonic-Schlüsselwort Tabelle 

CC 

CO 

PHP 

BPL 

CLC 

JSR 

PLP 

BMI 

SEC 

RTI 

PHA 

BVC 

CLI 

RTS 

PLA 

BVS 

SEI 

??? 

DEY 

BCC 

TYA 

LDY 

TAY 

BCS 

CLV 

CPY 

INY 

BNE 

CLD 

CPX 

I NX 

BEO 

SED 

??? 

BIT 

JMP 

JMP 

STY 

LDY 

CPY 

CPX 

TXA 

TXS 

TAX 

TSX 

DEX 

??? 

NOP 

??? 

ASL 

ROL 

LSR 

ROR 

STX 

LDX 

DEC 

INC 

ORA 

AND 

EOR 

ADC 

STA 

LDA 

CMP 

SBC 


Mnemonic-Schlüsselwort Tabelle 2 

Jeweils 1 Byte aus der Tabelle 1 
ergibt mit dem korrespondierenden 
Wert aus d. Tabelle 2 ein. 16-Bit 
Wert, in dem die 3 Buchstaben f. d. 
Mnemonics codiert sind. Das 16-Bit 
Argument wird in 3 Teile zu je 5 
Bits aufgeteilt. Je ein Teil codiert 
einen Buchstaben. Bit 0 = ungenutzt. 

Monitor Konstante: 3 Leerzeichen 

<Cr> <Btank> <Blank> <Blank> 

Prüfe auf gültiges Trennzeichen 
zwischen den Befehlsoperanden 

E-Buf.-Zeiger auf vorheriges Zeichen 
Operanden in OPI holen 
Carry gesetzt = KZ für Fehler 
Letztes Zeichen erneut lesen 
War es kein Bef-End, dann weiter 







Das Kernal-ROM 


221 


B7B1: 

C6 

7A 


DEC 

* $7A 

B7B3: 

AD 

B4 

0A 

LDA 

$0AB4 

B7B6: 

DO 

11 


BNE 

$B7C9 

B7B8: 

F0 

0D 


BEQ 

$B7C7 

B7BA: 

C9 

20 


CMP 

# $20 

B7BC: 

F0 

OB 


BEO 

$B7C9 

B7BE: 

C9 

2C 


CMP 

# $2C 

B7C0: 

F0 

07 


BEO 

$B7C9 

B7C2: 

68 



PLA 


B7C3: 

68 



PLA 


B7C4: 

4C 

BC 

BO 

JMP 

sbobc 


★ft**************************** 

B7C7: 38 SEC 

B7C8: 24 .Byte S24 

****************************** 


B7C9: 

18 

CLC 

B7CA: 

AD B4 0A 

LDA $0AB4 

B7CD: 

60 

RTS 




B7CE: 

A9 

00 


LDA 

# $00 

B7D0: 

85 

60 


STA 

* $60 

B7D2: 

85 

61 


STA 

* $61 

B7D4: 

85 

62 


STA 

* $62 

B7D6: 

80 

B4 

0A 

STA 

$0AB4 

B7D9: 

8 A 



TXA 


B7DA: 

48 



PHA 


B7DB: 

98 



TYA 


B7DC: 

43 



PHA 


B7DD: 

20 

E9 

B8 

JSR 

$B8E9 

B7E0: 

DO 

03 


BNE 

$B7E5 

B7E2: 

4C 

7E 

B8 

JMP 

SB87E 

B7E5: 

C9 

20 


CMP 

# $20 

B7E7: 

F0 

F4 


BEQ 

$B7DD 

B7E9: 

A2 

03 


LDX 

U $03 

B7EB: 

DD 

F5 

BO 

CMP 

$B0F5,X 

B7EE: 

F0 

06 


BEQ 

$B7F6 

B7F0: 

CA 



DEX 


B7F1: 

10 

F8 


BPL 

$B7EB 

B7F3: 

E8 



1 NX 


B7F4: 

C6 

7A 


DEC 

* $7A 

B7F6: 

BC 

8 A 

B8 

LDY 

$B88A, X 


E-Buf.-Zeiger auf vorheriges Zeichen 
Hilfsflag für Fehlererkennung holen 
Nicht Null, dann OK Exit 
Kein gültiger Operand, Fehler Exit 
War gelesenes Zeichen ein <Blank> ? 
Gültiges Trennzeichen, OK Exit 
Uar gelesenes Zeichen ein <Komma> ? 
Gültiges Trennzeichen, OK Exit 
Die auf dem Stack abgelegte Adresse 
d. Befehls wieder löschen, da Fehler 
<?> Ausgeben und zur E-Warteschleife 

Exit für Fehler in Befehlsoperanden 

Carry setzen = Fehlerkennzeichen 
Skip nach $B7CA 

Befehlsoperand/Trennzeichen ist OK 

Carry gelöscht = Kennzeichen für OK 
Hilfsflag für Fehlererkennung laden 
Schein RTS ist der Befehlseinsprung 

Initialisierung und Auswertung eines 
Befehlsparameters in OPI 

Für Parameterinit. Akku mit 0 laden 
Löschen des 3-Byte-Befehlsparameters 
Nr. 1 (OPI), der i.d. Zero-Page von 
$62 (Highest) - $60 (Lowest) steht 
Hilfsspeicher für Fehlerkontrolle 
X-Reg in Akku bringen 
und auf Stack retten 
Y-Reg in Akku bringen 
und auf Stack retten 
Teste E-Buffer auf Bef-End, <:>, <?> 
Kein Ende-KZ, dann weiter machen 
Exit-Routine mit Carry-Clear-Kennz. 
War Zeichen ein <Blank> ? 

Ja, dann nächstes Zeichen lesen 
Displ. f. 4 Umrechnungszeichen holen 
Prüfen auf Umrechnungszeichen (%&+$) 
weiter bei Umrechnungsz. gefunden 
Displ auf Umrechnungsz.-Tab - 1 
Schleifen bis Tabelle ganz durch 
X-Reg auf $0 setzen (= Basis Hex) 
Displacement Zeiger auf E-Buffer - 1 
Lade Y-Reg m. Basis d. Zahlensystems 
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B7F9: 
B7FC: 
B7FF: 
B802: 
B804: 
B805: 
B807: 
B809: 
B80B: 
B80D: 
B80F: 
B811: 
B813: 
B816: 
B819: 
B81B: 
B81D: 
B820: 
B822: 
B824: 
B826: 
B828: 
B82B: 
B82C: 
B82E: 
B831: 
B833: 
B835: 
B837: 
B839: 
B83A: 
B83C: 
B83E: 
B840: 
B843: 
B846: 
B849: 
B84B: 
B84E: 
B850: 
B852: 
B855: 
B857: 
B859: 
B85C: 
B85E: 
B860: 
B862: 


BD 

8E B8 

LDA 

$B88E,X 

Lade Akku m. Multiplikationsfaktor 

80 

B6 OA 

STA 

$0AB6 

für das Zahlensystem und sichere ihn 

20 

E9 B8 

JSR 

$B8E9 

Teste E-Buffer auf Bef-End, <:>, <?> 

FO 

7A 

BEQ 

SB87E 

Exit aus Routine Operandenermittlung 

38 


SEC 


Carry für ordentliche Subtr. setzen 

E9 

30 

SBC 

# $30 

Zeichen in Fixpunkt-Wert wandeln 

90 

75 

BCC 

$B87E 

Wenn Zeichen kleiner <0> dann Exit 

C9 

OA 

CMP 

# $0A 

War Zeichen Ziffer zwischen 0 - 9 ? 

90 

06 

BCC 

$B813 

Ja, dann Hex-Anpassung überspringen 

E9 

07 

SBC 

# $07 

Anpassung der Hex-Werte A - F 

C9 

10 

CMP 

# $10 

Wenn Wert nicht zwischen 0 - F, dann 

BO 

6B 

BCS 

$B87E 

Exit aus Routine Operandenermittlung 

80 

B5 OA 

STA 

$0AB5 

Ermittelten gültigen Hexwert sichern 

cc 

B5 OA 

CPY 

$0AB5 

Vergleiche Basis mit Hexwert 

90 

61 

BCC 

$B87C 

Wenn Basis "<" Zeichen, dann Fehler 

FO 

5F 

BEQ 

$B87C 

Wenn Basis ,,= " Zeichen, dann Fehler 

LE 

B4 OA 

INC 

$0AB4 

Hilfsbyte für Fehlererkennung + 1 

CO 

OA 

CPY 

# $0A 

Wurde Dezimaleingabe gewählt ? 

DO 

OA 

BNE 

$B82E 

Nein, dann Überspringe Dezimalinit. 

A2 

02 

LDX 

# $02 

Schleifenzähler auf 2 setzen 

B5 

60 

LDA 

* $60,X 

Kopieren des 3-Byte-0peranden (OPI) 

90 

B7 OA 

STA 

$0AB7,X 

in den 3-Byte-HiIfsoperanden für 

CA 


DEX 


dezimale Adreßeingabe 

10 

F8 

BPL 

$B826 

($0AB9= Highest, $0AB7= Lowest) 

AE 

B6 OA 

LDX 

$0AB6 

hole Zähler f. Multiplikationsfaktor 

06 

60 

ASL 

* $60 

Den 3-Byte- 

26 

61 

ROL 

* $61 

Operanden (OPI) 

26 

62 

ROL 

* $62 

mit <2> multiplizieren 

BO 

43 

BCS 

$B87C 

Wenn Überlauf vorhanden, dann Fehler 

CA 


DEX 


Schleifenzähler 2er Multiplik. • 1 

DO 

F5 

BNE 

$B831 

Schleifen zur OPI-Multiptikation 

CO 

OA 

CPY 

« $0A 

Ist Zahlenbasis das Dezimalsystem ? 

DO 

22 

BNE 

$B862 

Nein, Überspringe Dezimalabgleich 

OE 

B7 OA 

ASL 

$0AB7 

Dezimalabgleich: Den 3-Byte- 

2E 

B8 OA 

ROL 

$0AB8 

Hi Ifsoperanden in $AB9 - $AB7 

2E 

B9 OA 

ROL 

$0AB9 

mit <2> multiplizieren 

BO 

31 

BCS 

$B87C 

Wenn Überlauf vorhanden, dann Fehler 

AD 

B7 OA 

LDA 

$0AB7 

Addition des 3-Byte- 

65 

60 

ADC 

* $60 

Hi Ifsoperanden in den 

85 

60 

STA 

* $60 

Speicherstellen 

AD 

B8 OA 

LDA 

$0AB8 

$0AB9-$0AB8-$0AB7 

65 

61 

ADC 

* $61 

zum Inhalt des 3 Byte 

85 

61 

STA 

* $61 

Operanden OPi unter ßeachtung 

AD 

B9 OA 

LDA 

$0AB9 

eines evtl, vorhandenen Überlaufs 

65 

62 

ADC 

* $62 

Das Ergebnis der Addition wird 

85 

62 

STA 

* $62 

im Operanden 1 (OPI) abgelegt 

BO 

1A 

BCS 

$B87C 

Wenn Überlauf vorhanden, dann Fehler 

18 


CLC 


Lösche Carry (f. Bin, Okt, Hex Syst) 
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B863 

AD 

B5 0A LDA 

$0AB5 

B866 

65 

60 ADC 

* $60 

B868 

85 

60 STA 

* $60 

B86A 

8A 

TXA 


B86B 

65 

61 ADC 

* $61 

B86D 

85 

61 STA 

* $61 

B86F 

8A 

TXA 


B870 

65 

62 ADC 

* $62 

B872 

85 

62 STA 

* $62 

B874 

BO 

06 BCS 

$B87C 

B876 

29 

F0 AND 

U $F0 

B878 

DO 

02 BNE 

$B87C 

B87A 

F0 

83 BEQ 

$B7FF 

****************************** 

B87C: 38 

SEC 


B87D: 24 

.8yte $24 

****************************** 

B87E 

18 

CLC 


B87F 

8C 

B6 0A STY 

$0AB6 

B882 

68 

PLA 


B883 

A8 

TAY 


B884 

68 

PLA 


B885 

AA 

TAX 


B886 

AD 

B4 0A LDA 

$0AB4 

B889 

60 

RTS 


****************************** 

B88A 

10 

0A 08 02 


****************************** 


B88E 

04 

03 03 

01 


****************************** 

B892 

A5 

68 

LDA 

* $68 

B894 

20 

D2 B8 

JSR 

$B8D2 

B897 

8A 


TXA 


B898 

20 

D2 FF 

JSR 

$FFD2 

B89B 

A5 

66 

LDA 

* $66 

B89D 

A6 

67 

LDX 

* $67 

B89F 

48 


PHA 



Hole ermittelten Wert des Zeichens 
Addiere den Wert auf die 
niederwertigste OPl-Stelle auf 
Akkumulator mit Null laden 
Berücksichtige Überlauf bei Addition 
auf niederwertigste OPl-Stelle 
Akkumulator mit Null laden 
Berücksichtige Überlauf a. mittlerer 
Stelle bei OPI-Addition 
Wenn Überlauf vorhanden, dann Fehler 
Untere Tetrade (B. 0-3) ausmaskieren 
Wenn obere Tetrade <> 0, dann Fehler 
Nächste Operandenstelle auswerten 

Exit Parameterauswertung bei Fehler 

Carry setzen = KZ f. Fehler gefunden 
Skip nach $B87F 

Exit Parameterauswertung bei OK 

Carry löschen = KZ für Parameter OK 
sichere Basis des Zahlensystems d.OP 
Den auf dem Stack gesicherten alten 
Y-Reg-Inhalt wiederherstellen 
Den auf dem Stack gesicherten alten 
X-Reg Inhalt wiederherstellen 
Akku mit Fehler-HiIfzeiger laden 
Rücksprung aus dem Unterprogramm 


Anzahl der Multiplikationen mit dem 
Faktor 2 für die Zahlensysteme 


OP3 Inhalt als 5-Byte-ASCII ausgeben 

Lade A mit Highest (Bank) Byte (OP3) 
Akku in 2-Byte-ASCII-Code: Hi=A,Lo=X 
ASCII Code des Lo Wertes in Akku 
Kernal BSOUT: Ein Zeichen ausgeben 
Lade A m. Lowest (Adr-Lo) Byte (OP3) 
Lade X m. Middle (Adr-Hi) Byte (OP3) 
Akku Inhalt auf Stapel sichern 


Basen der 4 Zahlensysteme 
Hex, Dezi, Oktal, Binär 


Hex, Dezi, Oktal, Binär 
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B8A0: 8A TXA Den Adr-Hi-Wert aus 0P3 in Akku 

B8A1: 20 C2 B8 JSR $B8C2 Akku in 2-Zeichen-ASCII-Code ausgeb. 

B8A4: 68 PLA Akku wieder mit Adr-Lo (0P3) laden 

****************************** in ASCII aufbereiten, ausgeben, 

<Blank> ausgeben, zum Zeilenanfang 

B8A5: 20 C2 B8 JSR $B8C2 Akku in 2-Zeichen-ASCII-Code ausgeb. 

B8A8: A9 20 LDA # $20 <Blank> in Akku bringen 

B8AA: 4C D2 Ff JMP $FFD2 Kernal BSOUT: Ein Zeichen ausgeben 

B8AD: 20 7D FF JSR $FF7D Kernal PR1MM: Zeichenkette ausgeben 

****************************** Monitor-Ausgabe-Konstante 

B8B0: 0D 91 00 <Cr> <Crsr Up> 

****************************** Ende der Ausgabe-Rout ine 

B8B3: 60 RTS Rücksprung aus dem Unterprogramm 

****************************** <Cr> <Cr> <Esc-Q> Blank ausgeben 

B8B4: A9 0D LDA # $0D <Cr> Code in Akku laden 

B8B6: 4C D2 FF JMP $FFD2 Kernal BSOUT: Ein Zeichen ausgeben 

B8B9: 20 7D FF JSR SFF7D Kernal PRIMM: Zeichenkette ausgeben 

****************************** Monitor-Konstante für Wagenrücklauf 

und nächste Zeile löschen, Blank aus 

B8BC: 0D 1B 51 20 00 <Cr> <Esc-Q> <Blank> 

****************************** Ende der Ausgabe-Rout ine 

B8C1: 60 RTS Rücksprung aus dem Unterprogramm 

****************************** Akku-Inhalt in 2-Byte-Character For¬ 

mat wandeln und über BSOUT ausgeben 

B8C2: 8E AF 0A STX $0AAF Alten Inhalt X-Reg sichern 

B8C5: 20 D2 B8 JSR $B8D2 Akku in 2 Byte-ASCII-Code: Hi=A,Lo=X 

B8C8: 20 D2 FF JSR SFFD2 Kernal BSOUT: Ein Zeichen ausgeben 

B8CB: 8A TXA Character aus X in Akku laden 

B8CC: AE AF 0A LDX $0AAF Alten Inhalt X-Reg wiederherstellen 

B8CF: 4C D2 FF JMP SFFD2 Kernal BSOUT: Ein Zeichen ausgeben 
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****************************** 


B8D2 

48 

PHA 


B8D3 

20 DC B8 

JSR 

$B8DC 

B8D6 

AA 

TAX 


B8D7 

68 

PLA 


B8D8 

4A 

LSR 

A 

B8D9 

4A 

LSR 

A 

B8DA 

4A 

LSR 

A 

B8DB 

4A 

LSR 

A 


****************************** 


B8DC 

29 0F 

AND 

# $0F 

B8DE 

C9 0A 

CMP 

# $0A 

B8E0 

90 02 

BCC 

$B8E4 

B8E2 

69 06 

ADC 

# $06 

B8E4 

69 30 

ADC 

# $30 

B8E6 

60 

RTS 



****************************** 


B8E7: 

C6 

7A 


DEC 

* $7A 

B8E9: 

co 

m 

AF 

0A 

STX 

$0AAF 

B8EC: 

A6 

7A 


LDX 

* $7A 

B8EE: 

BD 

00 

02 

LDA 

$0200, X 

B8F1: 

F0 

06 


BEQ 

$B8F9 

B8F3: 

C9 

3A 


CMP 

# $3A 

B8F5: 

F0 

02 


BEQ 

$B8F9 

B8F7: 

C9 

3F 


CMP 

# $3F 

B8F9: 

08 



PHP 


B8FA: 

E6 

7A 


INC 

* $7A 

B8FC: 

AE 

AF 

0A 

LDX 

$0AAF 

B8FF: 

28 



PLP 


B900: 

60 



RTS 



****************************** 


B901 

A5 

60 

LDA 

* 

$60 

B903 

85 

66 

STA 

* 

$66 

B905 

A5 

61 

LDA 

* 

$61 

B907 

85 

67 

STA 

* 

$67 

B909 

A5 

62 

LDA 

* 

$62 

B90B 

85 

68 

STA 

* 

$68 


Akku Inhalt splitten und in 2 Byte 
ASCII Code wandeln (X = Lo, A = Hi) 

Akku Inhalt Zwischenspeichern 
Tetrade Lo in ASCII wandeln 
ASCII Code der Tetrade Lo in X-Reg 
Akku Inhalt zurückholen 
4mal nach rechts shiften, 
um so die obere Tetrade (Bits 4-7) 
an die Position der unteren Tetrade 
(Bits 0-3) zu bringen 

Wert der unteren Tetrade des Akku 
Inhalts in ASCII Code wandeln 

Obere Tetrade (Bit 4-7) ausmaskieren 
Ist es eine Ziffer zwischen 0-9 
Ja, dann zur Erzeugung f. ASCII Code 
Character-Anpassung für Ziffern A-F 
ASCII-Code für Akku Inhalt erzeugen 
Rücksprung aus dem Unterprogramm 

1 Zeichen a. Eingabebuffer holen und 
b. BEF-End,<:>,<?> Equal Flag setzen 

Displ. auf E-Buffer - 1 (wie CHRGOT) 
Inhalt X-Reg sichern 
X-Reg mit Displ. auf E-Buffer laden 
Hole Zeichen aus Befehls E-Buffer 
Wurde $00 = KZ für Bef-End gefunden 
Ist gelesenes Zeichen ein <:> ? 

Ja, Exit mit gesetztem Equal Flag 
Ist gelesenes Zeichen ein <?> ? 
Status des Equal Flag sichern 
Displ. auf E-Buffer + 1 (next Char.) 
Alten Inhalt d. X-Reg zurückholen 
Status Equal Flag wiederherstellen 
Rücksprung aus dem Unterprogramm 

Kopiere Inhalt des OPI ($62-$61-$60) 
nach OP3 ($68-$67-$66) 

OPI Lowest (Adr-Lo) holen und nach 
OP3 Lowest (Adr-Lo) kopieren 
OPI Middle (Adr-Hi) holen und nach 
OP3 Middle (Adr-Hi) kopieren 
OPI Highest (Bank-Byte) nach 
OP3 Highest (Bank-Byte) kopieren 
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B90D 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Differenz: 0P1-0P3 in OPI speichern 

B90E 

38 


SEC 


Carry für Subtraktion setzen 

B90F 

A5 

60 

LDA 

* $60 

Akku mit OPI Lowest laden 

B911 

E5 

66 

SBC 

* $66 

Subtrahiere 0P3 Lowest davon 

B913 

85 

60 

STA 

* $60 

Speichere Ergebnis in OPI Lowest 

B915 

A5 

61 

LDA 

* $61 

Akku mit OPI Middle laden 

B917 

E5 

67 

SBC 

* $67 

Subtrahiere 0P3 Middle (+ Unterlauf) 

B919 

85 

61 

STA 

* $61 

Speichere Ergebnis in 0P3 Middle 

B91B 

A5 

62 

LDA 

* $62 

Akku mit OPI Highest laden 

B91D 

E5 

68 

SBC 

* $68 

Subtr. OP3 Highest (+ Unterlauf) 

B91F 

85 

62 

STA 

* $62 

Speichere Ergebnis in OPI Highest 

B921 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Subtraktion: OPI - Minuend in $0AAF 

B922 

A9 

01 

LDA 

n $oi 

Akku mit 1 laden und als 

B924 

8D 

AF OA 

STA 

$OAAF 

Minuend in $0AAF speichern 

B927 

38 


SEC 


Carry für Subtraktion setzen 

B928 

A5 

60 

LDA 

* $60 

Akku mit OPI Lowest laden 

B92A 

ED 

AF OA 

SBC 

$0AAF 

Minuend von OPI Lowest subtrahieren 

B92D 

85 

60 

STA 

* $60 

Ergebnis der Subtr. zurückschreiben 

B92F 

A5 

61 

LDA 

* $61 

Akku mit OPI Middle laden 

B931 

E9 

00 

SBC 

# $00 

Unterlauf d. Lowest-Subtr. beachten 

B933 

85 

61 

STA 

* $61 

Ergebnis der Subtr. zurückschreiben 

B935 

A5 

62 

LDA 

* $62 

Akku mit OPI Highest laden 

B937 

E9 

00 

SBC 

# $00 

Unterlauf d. Middle-Subtr. beachten 

B939 

85 

62 

STA 

* $62 

Ergebnis der Subtr. zurückschreiben 

B93B 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Subtraktion der Konstante 1 vom 






Operanden 2 (OP2) in $65 $64 $63 

B93C 

38 


SEC 


Carry für Subtraktion setzen 

B93D 

A5 

63 

LDA 

* $63 

Akku mit OP2 Lowest laden 

B93F 

E9 

01 

SBC 

# $01 

davon 1 subtrahieren 

B941 

85 

63 

STA 

* $63 

Ergebnis der Subtr. zurückschreiben 

B943 

A5 

64 

LDA 

* $64 

Akku mit OP2 Middle laden 

B945 

E9 

00 

SBC 

# $00 

Unterlauf d. Lowest-Subtr. beachten 

8947 

85 

64 

STA 

* $64 

Ergebnis der Subtr. zurückschreiben 

B949 

A5 

65 

LDA 

* $65 

Akku mit OP3 Highest laden 

B94B 

E9 

00 

SBC 

# $00 

Unterlauf d. Middle-Subtr. beachten 

B94D 

85 

65 

STA 

* $65 

Ergebnis der Subtr. zurückschreiben 

B94F 

60 


RTS 


Rücksprung aus dem Unterprogramm 
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****************************** 


Addition des Akku-Inhalts zum 0P3 


B950 

A9 

01 

LDA 

# $01 

B952 

18 


CLC 


B953 

65 

66 

ADC 

* $66 

B955 

85 

66 

STA 

* $66 

B957 

90 

06 

BCC 

$B95F 

B959 

E6 

67 

INC 

* $67 

B95B 

DO 

02 

BNE 

$B95F 

B95D 

E6 

68 

INC 

* $68 

B95F 

60 


RTS 



****************************** 


B960 

38 


SEC 



B961 

A5 

66 

LDA 

* 

$66 

B963 

E9 

01 

SBC 

# 

$01 

B965 

85 

66 

STA 

* 

$66 

B967 

A5 

67 

LDA 

* 

$67 

B969 

E9 

00 

SBC 

u 

V» 

o 

o 

B96B 

85 

67 

STA 

* 

$67 

B96D 

A5 

68 

LDA 

* 

$68 

B96F 

E9 

00 

SBC 

# 

$00 

B971 

85 

68 

STA 

* 

$68 

B973 

60 


RTS 




****************************** 


B974: 

B0 

OC 

BCS 

$B982 

B976: 

A5 

60 

LDA 

* $60 

B978: 

A 4 

61 

LDY 

* $61 

B97A: 

A6 

62 

LDX 

* $62 

B97C: 

85 

04 

STA 

* $04 

B97E: 

84 

03 

STY 

* $03 

B980: 

86 

02 

STX 

* $02 

B982: 

60 


RTS 



Akku mit Additionskonstante 1 laden 
Carry für Addition löschen 
Inhalt von 0P3 Lowest addieren 
Ergebnis der Addit. zurückschreiben 
Wenn kein Überlauf, dann Rücksprung 
Bei Überlauf 0P3 Middle hochzählen 
Wenn kein Überlauf, dann Rücksprung 
Bei Überlauf 0P3 Highest hochzählen 
Rücksprung aus dem Unterprogramm 

Subtraktion der Konstante 1 von 0P3 

Carry für Subtraktion setzen 
Akku mit 0P3 Lowest laden 
Konstante 1 davon abziehen 
Ergebnis der Subtr. zurückschreiben 
Akku mit 0P3 Middle laden 
Unterlauf der Lowest Subtr. beachten 
Ergebnis der Subtr. zurückschreiben 
Akku mit 0P3 Highest laden 
Unterlauf der Middle Subtr. beachten 
Ergebnis der Subtr. zurückschreiben 
Rücksprung aus dem Unterprogramm 

Kopiere bei gelöschtem Carry den 
Inhalt des OPI in die Zero-Page 
Speicher für Bank-Nr, PC-Hi, PC-Lo 

Bei gesetztem Carry Rücksprung 
Akku mit OPI Lowest (Adr-Lo) laden 
Y-Reg mit OPI Middle (Adr-Hi) laden 
X-REG m. OPI Highest (Bank-Byte) l. 
In Zero-Page Byte für PC-Lo bringen 
In Zero-Page Byte für PC-Hi bringen 
In Zero-Page Byte f. Bank-Nr bringen 
Rücksprung aus dem Unterprogramm 


****************************** 


■Von' Operanden in 0P3 bringen 

'Bis' Operanden in OPI holen 

'Bis' Operanden in OPH kopieren 

Differenz aus OP1-OP3 bilden und als 
'Stepzahl' in OPI ablegen 
'Stepzahl' in 0P2 kopieren 


B983: BO 2A BCS $B9AF 
B985: 20 01 B9 JSR $B901 


Bei Fehler im Befehlsparameter: Exit 
Kopieren des OPI-Inhalts nach OP3 
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B988 

20 

A7 

B7 

JSR 

$B7A7 

■Bis 1 Operanden in OPI holen 

B98B 

BO 

22 


BCS 

SB9AF 

'Bis 1 Operand ungültig, Fehler Exit 

B98D 

A5 

60 


LDA 

* $60 

Kopiere den Inhalt 

B98F 

8D 

B7 

OA 

STA 

$0AB7 

des 3 Byte-Operanden 

B992 

A5 

61 


LDA 

* $61 

OPI in den 3 Byte- 

B994 

8D 

B8 

OA 

STA 

$0AB8 

Hilfsoperanden in 

B997 

A5 

62 


LDA 

* $62 

den Speicherstellen 

B999 

8D 

B9 

OA 

STA 

$0AB9 

$OAB9-$OAB8-$OAB7 

B99C 

20 

OE 

B9 

JSR 

$B90E 

Differenz: 0P1-0P3 in OPI speichern 

B99F 

A5 

60 


LDA 

* $60 

Kopiere den 

B9A1 

85 

63 


STA 

* $63 

Inhalt des 

B9A3 

A5 

61 


LDA 

* $61 

3 Byte 0P1- 

B9A5 

85 

64 


STA 

* $64 

Operanden 

B9A7 

A5 

62 


LDA 

* $62 

in den 0P2 

B9A9 

85 

65 


STA 

* $65 

Operanden 

B9AB 

90 

02 


BCC 

$B9AF 

Uenn OPI größer 0P3,dann Fehler Exit 

B9AD 

18 



CLC 


Carry löschen als Kennzeichen für OK 

B9AE 

24 



.Byte $24 

Skip nach $B9B0 (RTS) 

****************************** 

Routine Exit bei Fehler aufgetreten 

B9AF 

38 



SEC 


Carry setzen = KZ f. Fehler gefunden 

B9B0 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Ausgabe bei Umrechnungsbefehl (&%+$) 

B9B1 

20 

A5 

B7 

JSR 

$B7A5 

Den Umrechnungswert in OPI holen 

B9B4 

20 

B9 

B8 

JSR 

$B8B9 

<Cr> <Esc-G> <Blank> ausgeben 

B9B7 

A9 

24 


LDA 

# $24 

Akku mit <$> Zeichen laden 

B9B9 

20 

D2 

FF 

JSR 

$FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

B9BC 

A5 

62 


LDA 

* $62 

Lade Hi des 3 Byte-Umrechnungswertes 

B9BE 

FO 

07 


BEQ 

$B9C7 

Bei $00,führende Nullen unterdrücken 

B9C0 

20 

D2 

B8 

JSR 

$B8D2 

Akku in 2 Byte ASCII Code: Hi=A,Lo=X 

B9C3 

8A 



TXA 


ASCII Code für Lo Tetrade in Akku 

B9C4 

20 

D2 

FF 

JSR 

$FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

B9C7 

A5 

60 


LDA 

* $60 

Lade Lo des 3 Byte-Umrechnungswertes 

B9C9 

A6 

61 


LDX 

* $61 

Lade Mi des 3 Byte-Umrechnungswertes 

B9CB 

20 

9F 

B8 

JSR 

$B89F 

Diese als 4 ASCII Zeichen ausgeben 

B9CE 

20 

B9 

B8 

JSR 

$B8B9 

<Cr> <Esc-0> <Blank> ausgeben 

B9D1 

A9 

2B 


LDA 

n $2B 

Akku mit <+> Zeichen laden 

B9D3 

20 

D2 

FF 

JSR 

$FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

B9D6 

20 

07 

BA 

JSR 

$BA07 

Konvertiere OPI in Dezimalzahl 

B9D9 

A9 

00 


LDA 

# $00 

KZ für führende Nullen unterdrücken 

B9DB 

A2 

08 


LDX 

# $08 

8 Ziffern sind auszugeben 

B9DD 

AO 

03 


LDY 

« $03 

Je 4 Bits bilden eine Ausgabeziffer 

89DF 

20 

5D 

BA 

JSR 

$BA5D 

AA0-AA3 als Dezimalzahl ausgeben 

B9E2 

20 

B9 

B8 

JSR 

$B8B9 

<Cr> <Esc-Q) <Blank> ausgeben 

B9E5 

A9 

26 


LDA 

# $26 

Akku mit <&> Zeichen laden 
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B9E7: 

20 

D2 

FF 

JSR 

5FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

B9EA: 

A9 

00 


LDA 

# $00 

KZ für führende Nullen unterdrücken 

B9EC: 

A2 

08 


LDX 

# $08 

8 Ziffern sind auszugeben 

B9EE: 

A0 

02 


LDY 

# $02 

Je 3 Bits bilden eine Ausgabeziffer 

B9F0: 

20 

47 

BA 

JSR 

$BA47 

AA0-AA3 als Oktalzahl ausgeben 

B9F3: 

20 

B9 

B8 

JSR 

$B8B9 

<Cr> <Esc-q> <Blank> ausgeben 

B9F6: 

A9 

25 


LDA 

* $25 

Akku mit <%> Zeichen laden 

B9F8: 

20 

D2 

FF 

JSR 

$FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

B9FB: 

A9 

00 


LDA 

n $oo 

KZ für führende Nullen unterdrücken 

B9FD: 

A2 

18 


LDX 

# $18 

18 Ziffern sind auszugeben 

B9FF: 

A0 

00 


LDY 

# $00 

Je 1 Bit bildet eine Ausgabeziffer 

BA01: 

20 

47 

BA 

JSR 

$BA47 

AA0-AA3 als Dualzahl ausgeben 

BA04: 

4C 

8B 

BO 

JMP 

$B08B 

Springe in Eingabe-Warteschleife 


****************************** o en 0P1-Inhalt in eine 8steüige 

Dezimal zahl in AA0-AA4 umwandeln 


BA07: 

20 

01 

B9 

JSR 

$B901 

Kopieren des OPI Inhalts nach OP3 

BAOA: 

A9 

00 


LDA 

# $00 

Den Bereich von AA0-AA3 für die 

BAOC: 

A2 

07 


LDX 

# $07 

aufbereitete Dezimalzahl löschen 

BAOE: 

9D 

AO 

OA 

STA 

$OAAO,X 

Den Bereich AA4-AA7 als Hilfszähler 

BA11: 

CA 



DEX 


für die Dezi mal Wandlung löschen. 

BAI 2: 

10 

FA 


BPL 

$BAOE 

Die Einerstelle des Hilfszählers 

BAH: 

EE 

A7 

OA 

INC 

$0AA7 

mit <1> initialisieren 

BAU: 

AO 

17 


LDY 

# $17 

Schleifenzähler für Umwandlungssteps 

BAU: 

08 



PHP 


Dezimal + Interrupt Status sichern 

BA1A: 

78 



SEI 


Alle System-Interrupts verhindern 

BA1B: 

F8 



SED 


Dezimale Betriebsart einschalten 

BA1C: 

46 

68 


LSR 

* $68 

Den 3 Byte-Ausgangswert 

BA1E: 

66 

67 


ROR 

« $67 

im Operanden (OP3) 

BA20: 

66 

66 


ROR 

# $66 

durch <2> dividieren 

BA22: 

90 

OF 


BCC 

$BA33 

Kein Rest, dann Skip Dezimaladdition 

BA24: 

18 



CLC 


Carry für Dezimaladdition löschen 

BA25: 

A2 

03 


LDX 

# $03 

Wenn bei der Division ein Rest 

BA27: 

BD 

A4 

OA 

LDA 

$0AA4, X 

aufgetreten ist, dann addiere den 

BA2A: 

7D 

AO 

OA 

ADC 

$0AA0,X 

Inhalt des 4-Byte-Hi Ifszählers, 

BA2D: 

9D 

AO 

OA 

STA 

$OAAO, X 

dessen Inhalt jeweils 2er Potenzen 

BA30: 

CA 



DEX 


sind, zum Inhalt des 4-Byte-Ausgabe- 

BA31: 

10 

F4 


BPL 

$BA27 

speichers. (4 Byte = 8 Ziffern) 

BA33: 

18 



CLC 


Carry für Dezimaladdition löschen 

BA34: 

A2 

03 


LDX 

U $03 

Multipliziere den Inhalt 

BA36: 

BD 

A4 

OA 

LDA 

$0AA4, X 

des 4 Byte Hilfszählers mit dem 

BA39: 

7D 

A4 

OA 

ADC 

$0AA4,X 

Faktor <2>. Somit ist der Inhalt 

BA3C: 

9D 

A4 

OA 

STA 

$0AA4, X 

des Hilfszählers immer die entsp. 

BA3F: 

CA 



DEX 


2er Potenz des Bits, das im OP3 

BA40: 

10 

F4 


BPL 

$BA36 

Operanden gerade bearbeitet wird. 

BA42: 

88 



DEY 


Schleifenzähler um 1 vermindern, 

BA43: 

10 

D7 


BPL 

$BA1C 

bis alle Steps abgearbeitet sind 



BA45 

28 



PLP 


entspricht einem SED und CLI Befehl 

BA46 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Den 3-Byte-0P1-Operanden in den 







4-Byte-Ausgabeoperanden OPA wandeln 

BA47 

48 



PHA 


Akku-Inhalt auf Stack sichern 

BA48 

A5 

60 


LDA 

* $60 

Inhalt des OPI Lo Bytes 

BA4A 

8D 

A2 

OA 

STA 

S0AA2 

in OPA Middle-Lo kopieren 

BA4D 

A5 

61 


LDA 

* $61 

Inhalt des OPI Mi Bytes 

BA4F 

8D 

AI 

OA 

STA 

$0AA1 

in OPA Middle-Hi kopieren 

BA52 

A5 

62 


LDA 

* $62 

Inhalt des OPI Hi Bytes 

BA54 

8D 

AO 

OA 

STA 

$OAAO 

in OPA High kopieren 

BA57 

A9 

00 


LDA 

n $oo 

Akku mit $00 initialisieren und 

BA59 

8D 

A3 

OA 

STA 

$0AA3 

in OPA Low kopieren 

BA5C 

68 



PLA 


Akku Inhalt vom Stack zurückholen 

****************************** 

Ausgabe des OPA-Operanden entsp. 







der Vorgabe im X-Reg und Y-Reg 

BA5D 

8D 

B4 

OA 

STA 

$0AB4 

Flag für Nullunterdrückung setzen 

BA60 

8C 

B6 

OA 

STY 

$0AB6 

Bitzahl für 1 Ausgabeziffer sichern 

BA63 

AC 

B6 

OA 

LDY 

S0AB6 

Bitzahl für 1 Ausgabeziffer holen 

BA66 

A9 

00 


LDA 

n $oo 

Akku als Ausgabespeicher initial. 

BA68 

OE 

A3 

OA 

ASL 

$0AA3 

Den Inhalt des 4-Byte 

BA6B 

2E 

A2 

OA 

ROL 

$0AA2 

Ausgabeoperanden um eine 

BA6E 

2E 

AI 

OA 

ROL 

$0AA1 

Bitposition nach links 

BA71 

2E 

AO 

OA 

ROL 

$OAAO 

verschieben. Das herausgeschobene 

BA74 

2A 



ROL 

A 

höchstwertigste Bit im Akku sichern 

BA75 

88 



DEY 


Bitzähler für 1 Ausgabeziffer - 1 

BA76 

10 

FO 


BPL 

$BA68 

Schleifen bis eine Ziffer im Akku 

BA78 

A8 



TAY 


Wert der Ausgabeziffer in Y sichern 

BA79 

DO 

09 


BNE 

$BA84 

Wert ungleich 0, dann ausgeben 

BA7B 

EO 

01 


CPX 

U $01 

Prüfe, ob es die 1er Stelle ist 

BA7D 

FO 

05 


BEO 

$BA84 

Ja, Ziffer auf jeden Fall ausgeben 

BA7F 

AC 

B4 

OA 

LDY 

$0AB4 

Flag für Nullunterdrückung laden 

BA82 

FO 

08 


BEO 

$BA8C 

Noch aktiv, dann 0 nicht ausgeben 

BA84 

EE 

84 

OA 

INC 

$0AB4 

Nullunterdrückung abschalten 

BA87 

09 

30 


ORA 

# $30 

ASCII Wert d. Ausgabeziffer erzeugen 

BA89 

20 

D2 

FF 

JSR 

$FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

BA8C 

CA 



DEX 


Schleifenzähler für Anz. d. Ziffern 

BA80 

DO 

D4 


BNE 

$BA63 

Nicht 0, dann nächste Ziffer ausgeb. 

BA8F 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Monitor Befehl: 3 (Disc Command) 

BA90 

: DO 

03 


BNE 

$BA95 

KZ für Geräteadresse vorhanden 

BA92 

: A2 

08 


LDX 

# $08 

Setze Standardgeräteadresse Floppy 8 
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BA94: 2C .Byte $2C 

****************************** 


BA95: 

A6 

60 


LDX 

* $60 

BA97: 

E0 

04 


CPX 

tt $04 

BA99: 

90 

65 


BCC 

$BB00 

BA9B: 

E0 

1F 


CPX 

tt $1 F 

BA9D: 

B0 

61 


BCS 

$BB00 

BA9F: 

86 

60 


STX 

* $60 

BAA1: 

A9 

00 


LDA 

tt $00 

BAA3: 

85 

62 


STA 

* $62 

BAA5: 

85 

B7 


STA 

* $B7 

BAA7: 

AA 



TAX 


BAA8: 

20 

68 

FF 

JSR 

$FF68 

BAAB: 

20 

E9 

B8 

JSR 

$B8E9 

BAAE: 

C6 

7A 


DEC 

* $7A 

BABO: 

C9 

24 


CMP 

tt $24 

BAB2: 

F0 

4F 


BEO 

$BB03 

BAB4: 

A9 

00 


LDA 

tt $00 

BAB6: 

A6 

60 


LDX 

* $60 

BAB8: 

A0 

0F 


LDY 

tt $0F 

BABA: 

20 

BA 

FF 

JSR 

$FFBA 

BABD: 

20 

CO 

FF 

JSR 

$FFC0 

BACO: 

B0 

32 


BCS 

$BAF4 

BAC2: 

A2 

00 


LDX 

tt $00 

BAC4: 

20 

C9 

FF 

JSR 

$FFC9 

BAC7: 

B0 

2B 


BCS 

$BAF4 

BAC9: 

A6 

7A 


LDX 

* $7A 

BACB: 

E6 

7A 


INC 

* $7A 

BACD: 

BD 

00 

02 

LDA 

$0200, X 

BADO: 

F0 

05 


BEQ 

$BAD7 

BAD2: 

20 

D2 

FF 

JSR 

$FFD2 

BAD5: 

90 

F2 


BCC 

$BAC9 

BAD 7: 

20 

CC 

FF 

JSR 

$FFCC 

BADA: 

20 

B4 

B8 

JSR 

$B8B4 

BADD: 

A2 

00 


LDX 

tt $00 

BADF: 

20 

C6 

FF 

JSR 

$FFC6 

BAE2: 

B0 

10 


BCS 

$BAF4 

BAE4: 

20 

CF 

FF 

JSR 

$F FC F 

BAE7: 

20 

D2 

FF 

JSR 

$FFD2 

BAEA: 

C9 

0D 


CMP 

tt $od 

BAEC: 

F0 

06 


BEQ 

$BAF4 

BAEE: 

A5 

90 


LDA 

* $90 

BAFO: 

29 

BF 


AND 

tt $BF 

BAF2: 

F0 

F0 


BEQ 

$BAE4 

BAF4: 

20 

CC 

FF 

JSR 

$FFCC 


Skip nach $BA97 

Disc-Command-Routine mit Parameter 
für Geräteadresse 

Geräteadresse aus OPI Adr-Lo holen 
Geräteadresse kleiner 4 ist ungültig 
<?> ausgeben und in E-Warteschleife 
Geräteadresse größer 30 ist ungültig 
<?> ausgeben und in E-Warteschleife 
Geräteadresse in OPI-Adr-Lo sichern 
Bank Nr. f. LSV und Dateinamen laden 
und in OPI-Bank-Byte sichern 
Länge des Dateinamens auf 0 setzen 
Akku+X-Reg f. SETBNK Routine löschen 
Kernal SETBNK: Bank Nr.f.LSV+Datnam. 
Lese ein Zeichen aus Eingabe-Buffer 
Displ. Zeiger E-Buf -1 (wie CHRGOT) 
Ist gelesenes Zeichen ein <$> ? 

Ja, dann Directory ausgeben 
Logische Dateinummer (0) in Akku 
Geräteadresse aus OPI Adr-Lo holen 
Sekundäradresse (15) setzen 
Kernal SETLFS: Setze Dateiparameter 
Kernal OPEN: Datei öffnen 
Fehler beim OPEN, dann CLRCH u. Exit 
Logische Datei (0) a. Ausgabe setzen 
Kernal CKOUT: Ausgabekanal setzen 
Wenn Fehler aufgetreten, dann Exit 
Displ. Zeiger auf E-Buffer holen 
und auf nächstes Zeichen hochsetzen 
Zeichen aus E-Buffer,Displ. lesen 
Bei Bef-End Befehlskanal schließen 
Kernal BSOUT: Ein Zeichen ausgeben 
OK, dann nächstes Zeichen ausgeben 
Kernal CLRCH: E/A Kanäle rücksetzen 
Zeilenvorschub ♦ Clear Rest of Line 
Logische Datei (0) a. Eingabe setzen 
Kernal CHKIN: Eingabekanal setzen 
Wenn Fehler aufgetreten, dann Exit 
Kernal BASIN: Ein Zeichen einiesen 
Kernal BSOUT: Ein Zeichen ausgeben 
Wurde <Cr> ausgegeben ? 

Ja, dann CLRCH und Exit Routine 
System STATUS in Akku laden 
Bit 6 (= Dateiende) ausmaskieren 
Kein Fehler, dann weiter einiesen 
Kernal CLRCH: E/A Kanäle rücksetzen 
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BAF7 

A9 

00 


LDA 

# $00 

BAF9 

38 



SEC 


BAFA 

20 

C3 

FF 

JSR 

$FFC3 

BAFD 

4C 

8B 

B0 

JHP 

$8088 

BB00 

4C 

BC 

B0 

JMP 

$B0BC 

****************************** 

BB03 

A0 

FF 


LDY 

# $FF 

BB05 

A6 

7A 


LDX 

* $7A 

BB07 

CA 



DEX 


BB08 

C8 



INY 


BB09 

E8 



INX 


B80A 

BD 

00 

02 

LDA 

$0200,X 

BBOD 

DO 

F9 


BNE 

$BB08 

BBOF 

98 



TYA 


BB10 

A6 

7A 


LDX 

* $7A 

BB12 

A0 

02 


LDY 

# $02 

BB14 

20 

BD 

FF 

JSR 

$FFBD 

BB17 

A9 

00 


LDA 

« $00 

BB19 

A6 

60 


LDX 

* $60 

BB1B 

A0 

60 


LDY 

# $60 

BB1D 

20 

BA 

FF 

JSR 

$FFBA 

BB20 

20 

CO 

FF 

JSR 

$FFC0 

BB23 

B0 

CF 


BCS 

$BAF4 

BB25 

A2 

00 


LDX 

# $00 

BB27 

20 

C6 

FF 

JSR 

$FFC6 

BB2A 

20 

B4 

B8 

JSR 

$B8B4 

BB2D 

A0 

03 


LDY 

# $03 

BB2F 

84 

63 


STY 

* $63 

BB31 

20 

CF 

FF 

JSR 

$FFCF 

BB34 

85 

60 


STA 

* $60 

BB36 

A5 

90 


LDA 

* $90 

BB38 

DO 

BA 


BNE 

$BAF4 

BB3A 

20 

CF 

FF 

JSR 

$FFCF 

BB3D 

85 

61 


STA 

* $61 

BB3F 

A5 

90 


LDA 

* $90 

BB41 

DO 

Bl 


BNE 

$BAF4 

BB43 

C6 

63 


DEC 

* $63 

BB45 

DO 

EA 


BNE 

$BB31 

BB47 

O 

CM 

07 

BA 

JSR 

$BA07 

BB4A 

: A9 

00 


LDA 

# $00 

BB4C 

: A2 

08 


LDX 

» $08 

BB4E 

: A0 

03 


LDY 

# $03 

BB50 

: 20 

5D 

BA 

JSR 

$BA5D 

BB53 

: A9 

20 


LDA 

# $20 

BB55 

: 20 

D2 

FF 

JSR 

$FFD2 

BB58 

: 20 

CF 

FF 

JSR 

$FFCF 


Logische Datei (0) ganz schließen 
Carry für CLOSE Routine setzen 
Kernal CLOSE: Datei schließen 
Springe in Eingabe Warteschleife 
<?> Ausgeben und zur E-Warteschleife 

Routine für Di sc Command Direktory 

Längenzähler Dateiname a. -1 setzen 
Displ. Zeiger auf E-Buffer holen 
und auf vorheriges Zeichen setzen 
Längenzähler für Dateiname erhöhen 
Displ. Zeiger auf nächstes Zeichen 
Zeichen aus E-Buffer,Displ. lesen 
Kein Bef-End, dann nächstes Zeichen 
Länge des Dateinamens in A kopieren 
Adr-Lo des Dateinamens in X-Reg 
Adr-Hi des Dateinamens in Y-Reg 
Kernal SETNAM: Setze Dateinamen 
Logische Dateinummer (0) in Akku 
Geräteadresse aus OPI Adr-Lo holen 
Sekundäradresse (96) setzen 
Kernal SETLFS: Setze Dateiparameter 
Kernal OPEN: Datei öffnen 
Wenn Fehler aufgetreten, dann Exit 
Logische Datei (0) a. Eingabe setzen 
Kernal CHKIN: Eingabekanal setzen 
Zeilenvorschub + Clear Rest of Line 
Zähler, um die ersten 6 Directory 
Bytes zu über lesen 
Kernal BASIN: Ein Zeichen einiesen 
Dir-Zeichen in OPI Adr-Lo sichern 
System STATUS in Akku laden 
Wenn Fehler aufgetreten, dann Exit 
Kernal BASIN: Ein Zeichen einiesen 
Dir-Zeichen in OPI Adr-Hi sichern 
System STATUS in Akku laden 
Ist hier KZ für Dir-Ende,dann Exit 
Dir-Bytes Skip Zähler runterzählen 
Nicht 0, weitere Dir-Bytes überlesen 
Aufbereiten und ausgeben des OPI 
Inhalts in dezimaler Form. Gibt 
hier die Länge eines Directory 
Eintrages und die Anzahl der 
freien Blöcke aus. 

Akku mit <Blank> Zeichen laden 
Kernal BSOUT: Ein Zeichen ausgeben 
Kernal BASIN: Ein Zeichen einiesen 
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BB5B 

FO 

09 


BEQ 

$BB66 

$0 ist KZ f. 1 Dir Zeile komplett 

BB5D 

A6 

90 


LDX 

* $90 

System STATUS in X-Reg laden 

BB5F 

DO 

93 


BNE 

SBAF4 

Wenn Fehler aufgetreten, dann Exit 

BB61 

20 

D2 

FF 

JSR 

$FFD2 

Kernal BSOUT: Ein Zeichen ausgeben 

BB64 

90 

F2 


BCC 

SBB58 

Nächstes Zeichen der Dir Zeile ausg. 

BB66 

20 

B4 

B8 

JSR 

SB8B4 

Zeilenvorschub + Clear Rest of Line 

BB69 

20 

El 

FF 

JSR 

SFFE1 

Kernal STOP: Auf Stop Taste prüfen 

BB6C 

FO 

86 


BEQ 

SBAF4 

Wenn Stop gedrückt, dann Exit Rout. 

BB6E 

AO 

02 


LDY 

# $02 

Zähler für 4 Dir Bytes überlesen 

BB70 

DO 

BD 


BNE 

$BB2F 

Unbedingter Sprung zum Dir lesen 

****************************** 

Ende des ROM-Monitor Bereichs 

BB72 

FF 

FF 

FF 



FülIwerte 

BFFB 

■ 

• 

FF 

FF FF 



BFFE 

00 

3A 





****************************** 

Sprungtabelle für Editor-Routinen 

cooo 

4C 

7B 

CO 

JMP 

$C07B 

CINT Initialisiert Editor + Screen 

C003 

4C 

34 

CC 

JMP 

$CC34 

DISPLAY Char in A, Farbe in X 

C006 

4C 

34 

C2 

JMP 

$C234 

LP2 Holt ein Zeichen vom IRQ-Buffer 

C009 

4C 

9B 

C2 

JMP 

$C29B 

LOOP5 Ein Zeichen vom Bildschirm 

COOC 

4C 

2D 

C7 

JMP 

$C72D 

PRINT Vektor für Bildschirmausgabe 

COOF 

4C 

5B 

CC 

JMP 

$CC5B 

SCRORG Gibt Bildschirmbreite zurück 

C012 

4C 

87 

FC 

JMP 

$FC87 

KEY Tastaturabfrage 

C015 

4C 

51 

C6 

JMP 

$C651 

REPEAT Wiederholung der Tast.-Logik 

C018 

4C 

6A 

CC 

JMP 

$CC6A 

PLOT Liest oder setzt Cursor-Pos. 

C01B 

4C 

57 

CD 

JMP 

$CD57 

CURSOR Bewegt 80 Zeichen Chip Cursor 

C01E 

4C 

CI 

C9 

JMP 

$C9C1 

ESCAPE Ausgabe einer Esc-Sequenz 

C021 

4C 

A2 

CC 

JMP 

$CCA2 

PFKEY Definiert eine Funktionstaste 

C024 

4C 

94 

CI 

JMP 

$C194 

IRQ Einsprung Editor IRQ-Routine 

C027 

4C 

OC 

CE 

JMP 

$CEOC 

INIT80 Initialisiert 80Zeichen 

C02A 

4C 

2E 

CD 

JMP 

$CD2E 

SWAPPER Tauscht 40/80 Zeichen 

C02D 

4C 

1B 

CA 

JMP 

$CA18 

WINDOW Setzt linke/obere bzw. 
rechte/untere Ecke des Fensters 

C030 

FF 

FF 

FF 



Frei für künftige Erweiterungen 

****************************** 

Zeilenonfänge Lo-Bytes 

C033 

00 

28 

50 

78 AO 

C8 FO 18 

$0400, $0428, $0450 

C03B 

40 

68 

90 

B8 EO 

08 30 58 

$0478, $04AO, $04C8 

C043 

80 

A8 

DO 

F8 20 

48 70 98 

$04FO, $0518, $0540 

C04B 

CO 





$0568, $0590, $05B8 
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****************************** 


C04C: 

04 

04 

04 

04 

04 

04 

04 

05 

C054: 

05 

05 

05 

05 

05 

06 

06 

06 

C05C: 

C064: 

06 

07 

06 

06 

06 

07 

07 

07 

07 


****************************** 


Zeilenanfänge Hi-Bytes 

$05E0, $0608, $0630 
$0658, $0680, $06A8 
$06DO, $06F8, $0720 
$0748, $0770, $0798, $07C0 

Zeichenausgabe- und Tastaturvektoren 


C065 

B9 

C7 

($C7B9) 

C067 

05 

C8 

($C805) 

C069 

CI 

C9 

($C9C1) 

C06B 

El 

C5 

($C5E1) 

C06D 

AD 

C6 

($C6AD) 


****************************** 


C06F 

80 

FA 

($FA80) 

C071 

D9 

FA 

($FAD9) 

C073 

32 

FB 

($FB32) 

C075 

8B 

FB 

($FB8B) 

C077 

80 

FA 

($FA80) 

C079 

E4 

FB 

($F8E4) 


Einsprung: Zeichenausgabe mit Ctrl 
Einsprung: Zeichenausgabe mit Shift 
Einsprung: Zeichenausgabe mit Esc 
Einsprung: Tastatur auswerten 
Einsprung: Tastendruck speichern 

Zeiger auf Tastatur Decodiertabellen 

Tastatur Decodiertabelle 1a 
Tastatur Decodiertabelle 2a 
Tastatur Decodiertabelle 3a 
Tastatur Decodiertabelle 4a 
Tastatur Decodiertabelle 1a 
Tastatur Decodiertabelle 5a 


****************************** Kcrnol Routine* CINT 

Initialisiere Editor und Bildschirm 


C07B: 

A9 

03 


LDA 

# $03 

Zwei höchstwertigen Bits v. Basis 

C07D: 

0D 

00 

DD 

ORA 

$DD00 

Video-Ram setzen, da LO-aktiv 

C080: 

8D 

00 

DD 

STA 

$DD00 

und wieder abspeichern 

C083: 

A9 

FB 


LDA 

# $FB 

Bit 2 des Datenrichtungsregisters 

C085: 

25 

01 


AND 

* $01 

löschen und danach Bit 1 des Daten¬ 

C087: 

09 

02 


ORA 

n $02 

richtungsregisters setzen und 

C089: 

85 

01 


STA 

* $01 

wieder abspeichern 

C08B: 

20 

cc 

FF 

JSR 

$F FCC 

Kernal CLRCH: E/A Kanäle rücksetzen 

C08E: 

A9 

00 


LDA 

# $00 

Filter, Lautstärke und Eintrag in 

C090: 

20 

80 

FC 

JSR 

$FC80 

Tabelle f.Logged in Cards rücksetzen 

C093: 

85 

D8 


STA 

* $D8 

Textbildschirmflag auf "Text" setzen 

C095: 

85 

D7 


STA 

* $D7 

40/80 Zeichen Flag auf "40" setzen 

C097: 

85 

DO 


STA 

* $D0 

Tastaturpuffer Warteschlange löschen 

C099: 

85 

Dl 


STA 

* $D1 

Funktionstastenflag löschen 

C09B: 

85 

D6 


STA 

* $D6 

Tastatur Input/Get Flag zurücksetzen 

C09D: 

8D 

21 

0A 

STA 

$0A21 

Pause (Ctrl-S) Flag zurücksetzen 

C0A0: 

8D 

26 

0A 

STA 

$0A26 

Flag Cursor in Blinkphase rücksetzen 

C0A3: 

85 

D9 


STA 

* $D9 

Zeiger für Zeichensatz im RAM/ROM 

C0A5: 

8D 

2E 

0A 

STA 

$0A2E 

Basisadresse d. Bildschirm-Text-RAM 

C0A8: 

A9 

14 


LDA 

# $14 

Initialisierungswert f. Basis Zeiger 

C0AA: 

8D 

2C 

0A 

STA 

$0A2C 

Text Bildschirm/Zeichen Basis Zeiger 
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A9 

78 


LOA 

# $78 

Initialisierungswert Bit Map Basis 

80 

20 

OA 

STA 

S0A2D 

Bit Map Basis Zeiger initialisieren 

A9 

08 


LDA 

# $08 

Initialisierungswert Attribut-RAM 

80 

2F 

OA 

STA 

$0A2F 

Attribut-RAM-Basis initialisieren 

AD 

4C 

CO 

LDA 

$C04C 

Initialisierungswert ($04) laden 

8D 

38 

OA 

STA 

$0A3B 

PAL-System-Zeiger initialisieren 

A9 

OA 


LDA 

# $0A 

Startwert d. Tastaturpuffergröße 

80 

20 

OA 

STA 

$0A20 

Flag für Tastaturpuffergröße init. 

8D 

28 

OA 

STA 

$0A28 

Zählzeiger für blinkenden Cursor 

8D 

27 

OA 

STA 

$0A27 

Flag für Cursor-Blinkmodus 

8D 

24 

OA 

STA 

$0A24 

Flag: TastenwiederholVerzögerung 

A9 

04 


LDA 

# $04 

Startwert für Zählgeschwindigkeit 

8D 

23 

OA 

STA 

$0A23 

Flag: Zählgeschwindigkeit Wiederhlg. 

20 

83 

C9 

JSR 

$C983 

TAB Positionen initialisieren 

8D 

22 

OA 

STA 

$0A22 

Flag für Tastenwiederholungszeiger 

OD 

05 

D5 

ORA 

$0505 

Das Fast-Seriell-Controll-Bit in das 

8D 

05 

05 

STA 

$0505 

MCR der MMU einblenden 

AV 

60 


LDA 

# $60 

Startwert für aktuellen Cursor Modus 

80 

2B 

OA 

STA 

$0A2B 

Flag für aktuellen Cursor Modus 

A9 

DO 


LDA 

# $D0 

Initialisierungswert für den System¬ 

80 

34 

OA 

STA 

$0A34 

zeiger: Zeile löschen/verschieben 

A2 

1A 


LDX 

# $1A 

Schleifenzähler f. Z-Page init. 

BD 

74 

CE 

LDA 

$CE74,X 

ROM-Kopie der 40-Zeichen Bildschirm 

98 

EO 


STA 

* $EO,X 

Startwerte in Z-Page kopieren 

BD 

8E 

CE 

LDA 

$CE8E, X 

ROM-Kopie der 80-Zeichen Bildschirm 

90 

40 

OA 

STA 

$0A40,X 

Startwerte ins RAM kopieren 

CA 



DEX 


Schleifenzähler um 1 vermindern 

10 

F2 


BPL 

SC0E8 

Schleifen, bis alle Werte übertragen 

A2 

09 


LDX 

tt $09 

Schleifenzähler für Page 3 init. 

HD 

65 

CO 

LDA 

$C065, X 

ROM Kopie der Zeichen- und Tastatur 

90 

34 

03 

STA 

$0334, X 

Vektoren in den RAM Bereich kopieren 

CA 



DEX 


Schleifenzähler um 1 vermindern 

10 

F7 


BPL 

$C0F8 

Schleifen, bis alle Werte übertragen 

2C 

04 

OA 

BIT 

$0A04 

Prüfe Bit 6 d. Initialisierungsflags 

70 

IE 


BVS 

$C124 

Bit gesetzt, dann Skip 

A2 

08 


LDX 

a $ob 

Schleifenzähler für Page 3 init. 

BD 

6F 

CO 

LDA 

$C06F,X 

ROM Kopie der Tastatur Dekodiertab. 

90 

3E 

03 

STA 

$033E,X 

Vektoren in den RAM Bereich kopieren 

CA 



DEX 


Schleifenzähler um 1 vermindern 

10 

F7 


BPL 

$C108 

Schleifen, bis alle Werte übertragen 

A2 

4C 


LDX 

U $4C 

Schleifenzähler für F-Tasten init. 

BD 

A8 

CE 

LDA 

$CEA8,X 

ROM Kopie der F-Tasten Längen und 

90 

00 

10 

STA 

$1000,X 

Strings in RAM-Bereich kopieren 

CA 



DEX 


Schleifenzähler um 1 vermindern 

10 

F7 


BPL 

$C113 

Schleifen, bis alle Werte übertragen 

AV 

40 


LDA 

n $40 

Bit 6 auf "ON" setzen und mit dem 

UD 

04 

OA 

ORA 

$0A04 

Initialisierungs Flag verknüpfen 

80 

04 

OA 

STA 

$0A04 

Ergebnis in Init. Flag ablegen 
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C124 

20 

2E 

CO 

JSR 

SCD2E 

C127 

20 

83 

C9 

JSR 

$C983 

C12A 

20 

24 

CA 

JSR 

$CA24 

CI 20 

20 

42 

CI 

JSR 

SC142 

C130 

20 

2E 

CD 

JSR 

SCD2E 

C133 

20 

24 

CA 

JSR 

$CA24 

C136 

20 

42 

CI 

JSR 

SCI 42 

C139 

2C 

05 

D5 

BIT 

$0505 

C13C 

30 

03 


BMI 

$C141 

C13E 

20 

2E 

CD 

JSR 

SCD2E 

C141 

60 



RTS 


★*★***★**★*★*****★★*★★***★**★* 

C142 

20 

50 

CI 

JSR 

$C150 

C145 

20 

5E 

CI 

JSR 

$C15E 

Ci 48 

20 

A5 

C4 

JSR 

$C4A5 

C14B 

E4 

E4 


CPX 

* $E4 

C14D 

E8 



INX 


C14E 

90 

F5 


BCC 

SC145 


C150 

A6 

E5 


LDX 

* $E5 

C152 

86 

EB 


STX 

* SEB 

C154 

86 

E8 


STX 

* $E8 

CI 56 

A4 

E6 


LDY 

* $E6 

C158 

84 

EC 


STY 

* SEC 

C15A 

84 

E9 


STY 

* SE9 

★*★★*******★**★*******★***★*** 

C15C 

A6 

EB 


LDX 

* SEB 

C15E 

BO 

33 

CO 

LOA 

SC033.X 

C161 

24 

D7 


BIT 

* SD 7 

CI 63 

10 

01 


BPL 

SC166 

C165 

0A 



ASL 

A 

C166 

85 

E0 


STA 

* SEO 

C168 

BD 

4C 

CO 

LDA 

SC04C.X 

C16B 

29 

03 


AND 

# $03 

C16D 

24 

07 


BIT 

* SD 7 

C16F 

10 

06 


BPL 

SC 177 

C171 

2A 



ROL 

A 

CI 72 

0D 

2E 

0A 

0RA 

S0A2E 

C175 

90 

03 


BCC 

SC17A 

CI 77 

0D 

38 

0A 

ORA 

S0A3B 

C17A 

85 

El 


STA 

* SEI 


Umschalten des 40/80-Zeichen-Modus 
Rücksetzen der Tabulatoren 
Window=gesamter Bildschirm 
CLR/HOME 

Umschalten des 40/80-Zeichen-Modus 
Window=gesamter Bildschirm 
CLR/HOME 

Teste, ob 40/80-Zeichen-Modus 
getestet und springe, wenn 80 
Umschalten des 40/80-Zeichen-Modus 
Rücksprung aus dem Unterprogramm 

Fenster löschen (CLR/HOME) 

Cursor Home 

Startadresse von Zeile X errechnen 
Lösche Zeile X 

Vergleiche mit unterer Fenstergrenze 

Erhöhe Zeilenzeiger 

Wenn untere Grenze nicht erreicht 

Cursor Home im Fenster 

Obere Fenstergrenze in X-Reg laden 
aktuelle Cursor Zeile zurückschreib. 
Als Starteingabezeile speichern 
Linke Fenstergrenze in Y-Reg laden 
Sichern der aktuellen Cursor Spalte 
und als Starteingabespalte 

Adresse aktuelle Zeile setzen 

Hole aktuelle Cursor Zeile ins X-Reg 
Hole Lo-Byte von Startzeile 
Teste 40/80-Zeichen-Modus 
Springe, wenn 40-Zeichen-Modus 
sonst Adresse mal 2 
Lo-Byte speichern 
Hole Hi-Byte der Startzeile 
Bits 2-7 ausmaskieren=X MOO 4 
Teste 40/80-Zeichen-Modus 
Springe, wenn 40-Zeichen-Modus 
sonst shifte Übertrag ins Hi-Byte 
und addiere zu Video-Startadresse 
unbedingter Sprung nach $C17A 
Video-Startadresse bei 40 Zeichen 
Hi-Byte abspeichern 
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***************************** Attribut-RAM-Adresse anpassen 


C17C: 

A5 

EO 


LDA 

* $E0 

Aktuelle Bildschirmzeile, Lo-Byte 

C17E: 

85 

E2 


STA 

* $E2 

nach Lo-Byte von Attribut-Adresse 

C180: 

A5 

El 


LDA 

* SEI 

Hole Hi-Byte von akt. Bildschirmzeile 

C182: 

24 

D7 


BIT 

* $D7 

Teste auf 40/80-Zeichen-Modus 

CI 84: 

10 

07 


BPL 

$C18D 

40-Zeichen-Modus ist aktiv 

C186: 

29 

07 


AND 

# $07 

Bits 3-7 ausmaskieren 

CI 88: 

00 

2F 

OA 

ORA 

$0A2F 

Addiere Attribut RAM-Basis 

C18B: 

DO 

04 


BNE 

$C191 

Springe unbedingt 

C18D: 

29 

03 


AND 

# $03 

Bits 2-7 ausmaskieren 

C18F: 

09 

D8 


ORA 

U $D8 

Addiere Basis des Farb-RAMs 

C191: 

85 

E3 


STA 

* $E3 

Abspeichern des Attribut-Hi-Bytes 

C193: 

60 



RTS 


Rücksprung aus dem Unterprogramm 


IRQ-Rout ine 

CI 94: 

38 



SEC 


Setze Carry-Flag als FLAG 

C195: 

AD 

19 

DO 

LDA 

$0019 

Lade IRR vom VIC 

CI 98: 

29 

01 


AND 

# $01 

Teste Rasterzei len-Interrupt-Bit 

C19A: 

FO 

07 


BEO 

$C1A3 

Wenn nicht gesetzt, dann Sprung 

C19C: 

8D 

19 

DO 

STA 

$0019 

Löschen des Registers 

C19F: 

A5 

D8 


LDA 

* $08 

Text/Grafik testen 

CI AI: 

C9 

FF 


CMP 

# SFF 

Wenn Grafik Bildschirm eingeschaltet 

CI A3: 

FO 

6F 


BEO 

SC214 

dann in entsprechende Routine 

C1A5: 

2C 

11 

DO 

BIT 

$0011 

Teste Steuerregister 1 des VIC 

C1A8: 

30 

04 


BMI 

$C1 AE 

Hi-Byte Rasterzeile ist gesetzt 

C1AA: 

29 

40 


AND 

# $40 

Teste Extend-Color-Modus 

C1AC: 

DO 

31 


BNE 

$C1DF 

Ist gesetzt 

C1AE: 

38 



SEC 


Setze Carry als Flag 

C1AF: 

A5 

08 


LDA 

* $D8 

Hole Text/Grafik-Modus 

C1B1: 

FO 

2C 


BEO 

$C1DF 

Textmodus - Sprung 

C1B3: 

24 

08 


BIT 

* $D8 

Teste Text/Grafik-Modus 

C1B5: 

50 

06 


BVC 

$C1BD 

Bit 6=0 bedeutet keine Rasterzeilen 

C1B7: 

AD 

34 

OA 

LDA 

$0A34 

IRQ. Sonst hole Rasterzeile und 

C1BA: 

8D 

12 

DO 

STA 

$D012 

speichere erneut ab 

C1BD: 

A5 

01 


LDA 

* $01 

Hole Datenrichtungsregister und 

C1BF: 

29 

FD 


AND 

# $FD 

maskiere Bits 0-1 aus 

C1C1: 

09 

04 


ORA 

U $04 

Setze Bit 2 des Registers 

C1C3: 

48 



PHA 


und rette Konfiguration auf Stack 

C1C4: 

AD 

2D 

OA 

LDA 

$0A2D 

Basisadresse der Grafik 

C1C7: 

48 



PHA 


Rette Basisadresse auf Stack 

C1C8: 

AD 

11 

DO 

LDA 

$0011 

Hole Steuerregister 1 des VIC 

CI CB: 

29 

7F 


AND 

# $7F 

Übertrag Rasterzeile löschen und 

CI CD: 

09 

20 


ORA 

# $20 

Standard-Bitmap-Mode setzen 

C1CF: 

A8 



TAY 


Steuerregister nach Y 

C1 DO: 

AD 

16 

DO 

LDA 

$D016 

Hole Steuerregister 2 des VIC 

C1D3: 

24 

D8 


BIT 

* $D8 

Teste Text/Grafik-Register 
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Multi-Color-Modus gesetzt 
Lösche Multi-Color-Bit 
Skip nach SC1DC 
Setze Multi-Color-Bit 
Steuerregister 2 nach X 
Springe unbedingt 

Textmodus 


C1D5 

30 

03 


BMI 

$C1DA 

C1D7 

29 

EF 


AND 

# $EF 

C1D9 

2C 



.Byte $2C 

CI DA 

09 

10 


ORA 

# $10 

C1DC 

AA 



TAX 


Ci DD 

DO 

28 


BNE 

$C207 

****************************** 

C1DF 

A9 

FF 


LDA 

# $FF 

C1E1 

8D 

12 

DO 

STA 

$0012 

CI E4 

A5 

01 


LDA 

* $01 

C1E6 

09 

02 


ORA 

# $02 

C1E8 

29 

FB 


AND 

# $FB 

C1EA 

05 

D9 


ORA 

* $D9 

C1EC 

48 



PHA 


C1ED 

AD 

2C 

0A 

LDA 

$0A2C 

CI FO 

48 



PHA 


CI Fl 

AD 

11 

DO 

LDA 

$D011 

C1F4 

29 

5F 


AND 

# $5F 

C1F6 

A8 



TAY 


C1F7: AD 

16 

DO 

LDA 

$0016 

CI FA 

29 

EF 


AND 

# $EF 

CI FC 

AA 



TAX 


CI FD 

BO 

08 


BCS 

$C207 

CI FF 

A2 

07 


LDX 

* $07 

C201 

CA 



DEX 


C202 

DO 

FD 


BNE 

$C201 

C204 

EA 



NOP 


C205 

EA 



NOP 


C206 

AA 



TAX 


****************************** 

C207 

68 



PLA 


C208 

8D 

18 

DO 

STA 

$0018 

C20B 

68 



PLA 


C20C 

85 

01 


STA 

* $01 

C20E 

8C 

11 

DO 

STY 

$D011 

C211 

8E 

16 

DO 

STX 

$0016 

C214 

BO 

13 


BCS 

$C229 

C216 

AD 

30 

DO 

LDA 

$0030 

C219 

29 

01 


AND 

# $01 

C21B 

FO 

OC 


BEQ 

$C229 

C21D 

A5 

D8 


LDA 

* $D8 

C21F 

29 

40 


AND 

« $40 

C221 

FO 

06 


BEQ 

$C229 

C223 

AD 

11 

DO 

LDA 

$D011 


Rasterzeile ist letzte Zeile 

Als Rasterzeile speichern 

Datenrichtungsregister holen 

Bit 1 des Registers setzen 

und Bit 2 löschen 

Bit 2 wird evtl, wieder gesetzt, 

wenn CHARROM im RAM. Auf Stack 

Basisadresse von Text/Grafik 

auch auf Stack sichern 

Hole Steuerregister des VIC 

Übertrag und Grafik löschen 

Steuerregister 1 nach Y 

Hole Steuerregister 2 des VIC 

Lösche Multi-Color-Bit 

Steuerregister 2 nach X 

Carry gesetzt=nicht warten 

X ist Zähler für Warteschleife 

Erniedrige den Zähler 

und springe, wenn nicht Ende 

Noch zwei NOPs, um die Warteschleife 

zu perfektionieren 

Steuerregister 2 wieder nach X 

Setzen der IRQ-Register 

Hole Basisadresse zurück 
und Basisadresse nach VIC 
Hole Datenrichtungsregister von 
Stack und abspeichern 
Steuerregister 1 nach VIC 
und Steuerregister 2 nach VIC 
Wenn Carry gesetzt, dann Skip 
Hole 1/2 Mhz Taktregister 
maskiere relevantes Bit aus 
Springe, wenn 1 Mhz 
Hole Text/Grafik-Modus 
Teste Rasterzei len-Interrupt-Bit 
Kein Rasterzei len-Interrupt 
Hole Steuerregister 1 
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C226 

10 

01 


BPL 

SC229 

C228 

38 



SEC 


C229 

58 



CLI 


C22A 

90 

07 


BCC 

$C233 

C22C 

20 

87 

FC 

JSR 

SFC87 

C22F 

20 

E7 

C6 

JSR 

$C6E7 

C232 

38 



SEC 


C233 

60 



RTS 


****************************** 

C234 

A6 

Dl 


LDX 

* $D1 

C236 

F0 

OC 


BEQ 

SC244 

C238 

A4 

D2 


LDY 

* SD 2 

C23A 

B9 

0A 

10 

LDA 

S100A.Y 

C23D 

C6 

Dl 


DEC 

* SD1 

C23F 

E6 

D2 


INC 

* SD 2 

C241 

58 



CLI 


C242 

18 



CLC 


C243 

60 



RTS 



****************************** 


C244 

AC 

4A 

03 

LDY 

S034A 

C247 

BD 

4B 

03 

LDA 

S034B.X 

C24A 

9D 

4A 

03 

STA 

S034A.X 

C24D 

E8 



I NX 


C24E 

E4 

DO 


CPX 

* SD0 

C250 

DO 

F5 


BNE 

SC247 

C252 

C6 

DO 


DEC 

* $D0 

C254 

98 



TYA 


C255 

58 



CLI 


C256 

18 



CLC 


C257 

60 



RTS 


****************************** 

C258 

20 

2D 

C 7 

JSR 

SC72D 

C25B 

20 

6F 

CD 

JSR 

SCD6F 

C25E 

A5 

DO 


LDA 

* SD0 

C260 

05 

Dl 


ORA 

* SOI 

C262 

F0 

FA 


BEQ 

SC25E 

C264 

20 

9F 

CD 

JSR 

SCD9F 

C267 

20 

34 

C2 

JSR 

SC234 

C26A 

C9 

0D 


CMP 

# $0D 

C26C 

DO 

EA 


BNE 

SC258 

C26E 

85 

D6 


STA 

* SD6 

C270 

A9 

00 


LDA 

# $00 


Kein Übertrag - Sprung 
Setze Carry als Flag 
Alle System Interrupts freigeben 
Ende, wenn Flag nicht gesetzt 
Aufruf der Kernal-Routine KEY 
VIC-Cursor blinken lassen 
Carry setzen für OK 
Rücksprung aus dem Unterprogramm 

Zeichen aus KEY holen 

Müssen Zeichen aus KEY-Buffer 
geholt werden? NEIN 
Hole Pointer aus KEY-Buffer 
Hole Zeichen aus KEY-Tabelle 
erniedrige den Zeichenzähler 
erhöhe den Pointer 
Alle System Interrupts freigeben 
Lösche Carry für "Zeichen geholt" 
Rücksprung aus dem Unterprogramm 

Zeichen aus Buffer holen 

Wieviele Zeichen sind im Queue? 

Hole Zeichen aus Queue 
und nach vorne schieben 
erhöhe den Zähler und verschiebe 
Zeichen, bis alle Zeichen im 
Queue nach vorne verschoben sind 
Offset der KEY-BUFFER Schlange -1 
Zeichen nach Akku 
Alle System Interrupts freigeben 
Lösche Carry für "Zeichen geholt" 
Rücksprung aus dem Unterprogramm 

Eingabezeile holen (mit <CR>) L00P4 

Zeichen ausgeben 
Cursor bewegen 

Anzahl Zeichen im Tastaturbuffer 

plus Anzahl Zeichen im KEY-Buffer 

Wenn leer, dann warte 

Cursor setzen 

Zeichen aus Buffer holen 

ist Zeichen <CR> 

Nein, dann hole nächstes Zeichen 
Input-Flag setzen 
Cursor Mode Flag 
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C272 

85 

F4 

STA 

* $F4 

C274 

20 

C3 CB 

JSR 

SCBC3 

C277 

8E 

30 0A 

STX 

S0A30 

C27A 

20 

B5 CB 

JSR 

SCBB5 

C27D 

A4 

E6 

LDY 

* $E6 

C27F 

A5 

E8 

LDA 

* $E8 

C281 

30 

13 

BMI 

SC296 

C283 

C5 

EB 

CMP 

* $EB 

C285 

90 

0F 

BCC 

SC296 

C287 

A4 

E9 

LDY 

* $E9 

C289 

CD 

30 0A 

CMP 

$0A30 

C28C 

DO 

04 

BNE 

$C292 

C28E 

C4 

EA 

CPY 

* $EA 

C290 

F0 

02 

BEO 

SC294 

C292 

B0 

11 

BCS 

$C2A5 

C294 

85 

EB 

STA 

* $EB 

C296 

84 

EC 

STY 

* SEC 

C298 

4C 

BC C2 

JMP 

SC2BC 

****************************** 

C298 

98 


TYA 


C29C 

48 


PHA 


C29D 

8A 


TXA 


C29E 

48 


PHA 


C29F 

A5 

D6 

LDA 

* SD6 

C2A1 

F0 

B8 

BEO 

SC25B 

C2A3 

10 

17 

BPL 

SC2BC 

C2A5 

A9 

00 

LDA 

# $00 

C2A7 

85 

D6 

STA 

* SD6 

C2A9 

A9 

0D 

LDA 

U SOD 

C2AB 

A2 

03 

LDX 

tt $03 

C2AD 

E4 

99 

CPX 

* $99 

C2AF 

F0 

04 

BEO 

$C2B5 

C2B1 

E4 

9A 

CPX 

* $9A 

C2B3 

F0 

03 

BEO 

SC2B8 

C2B5 

20 

2D C7 

JSR 

$C72D 

C2B8 

A9 

0D 

LDA 

# SOD 

C2BA 

DO 

39 

BNE 

SC2F5 

****************************** 

C2BC 

: 20 

5C CI 

JSR 

SC15C 

C2BF 

: 20 

58 CB 

JSR 

SCB58 

C2C2 

: 85 

EF 

STA 

* $EF 

C2C4 

: 29 

3F 

AND 

# $3F 

C2C6 

: 06 

EF 

ASL 

* $EF 

C2C8 

: 24 

EF 

BIT 

* $EF 


löschen 

Ende Eingabezeile ermitteln 
letzte Spaltenpos. merken 
Zeilenanfang setzen 
Linke Fenstergrenze in Y-Reg laden 
Start der laufenden Eingabezeile 
lfd. Eingabezeile ist Folgezeile 
vergleiche m. aktueller Cursor Zeile 
Grenze noch nicht erreicht 
Start der laufenden Eingabespalte 
Vergleich mit letzter Eingabespalte 
Ist nicht die gleiche Spalte 
Mit Ende lfd. E-Zeile vergleichen 
Ist erreicht 

Input/Get-Flag auf Get setzen 
aktuelle Cursor Zeile zurückschreib, 
sichern der aktuellen Cursor Spalte 
Zeichen an Cursor-Pos. holen 

Ein Zeichen vom Bildschirm holen 

Y-Register (Spalte) über Akku 
auf Stack sichern 
X-Register (Zeile) über 
Akku auf Stack sichern 
Input/Get-Flag holen 
Bei GET zur Uarteschleife 
Noch kein <CR> erforderlich 
Es wird das Input/Get-Flag 
über Akku zurückgesetzt 
ASCII-Code für <CR> 

Code für Bildschirm mit 
Standardeingabegerät vergleichen 
Eingabegerät ist Bildschirm 
mit St.-Ausgabegerät vergleichen 
Ausgabe auf Bildschirm 
BSOUT-Einsprung Bildschirm 
ASCII-Code für <CR> 
unbedingter Sprung zum Ende 

Zeichen an Cursorpos in ASCII 

Adresse aktuelle Zeile holen 
Zeichen und Farbe an Cursorpos. 
Zwischenspeicher für Druckzeichen 
Bits 6/7 ausmaskieren 
Das Zeichen wird nun nach 
ASCII gewandelt 
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C2CA 

10 

02 


BPL 

$C2CE 

C2CC 

09 

80 


ORA 

# $80 

C2CE 

90 

04 


BCC 

$C2D4 

C2D0 

A6 

F4 


LDX 

* SF4 

C2D2 

DO 

04 


BNE 

$C2D8 

C2D4 

70 

02 


BVS 

$C2D8 

C2D6 

09 

40 


ORA 

# $40 

C2D8 

20 

FF 

C2 

JSR 

$C2FF 

C2DB 

A4 

EB 


LDY 

* $EB 

C2DD 

CC 

30 

0A 

CPY 

$0A30 

C2E0 

90 

0A 


BCC 

$C2EC 

C2E2 

A4 

EC 


LDY 

* $EC 

C2E4 

C4 

EA 


CPY 

* $EA 

C2E6 

90 

04 


BCC 

$C2EC 

C2E8 

66 

D6 


ROR 

# $D6 

C2EA 

30 

03 


BMI 

$C2EF 

C2EC 

20 

ED 

CB 

JSR 

$CBED 

C2EF 

C9 

DE 


CMP 

# $DE 

C2F1 

DO 

02 


BNE 

$C2F5 

C2F3 

A9 

FF 


LDA 

# $FF 

C2F5 

85 

EF 


STA 

* $EF 

C2F7 

68 



PLA 


C2F8 

AA 



TAX 


C2F9 

68 



PLA 


C2FA 

A8 



TAY 


C2FB 

A5 

EF 


LDA 

* $EF 

C2FD 

18 



CLC 


C2FE 

60 



RTS 



******************************* 


C2FF: 

C9 22 

CMP 

# 

$22 

C301: 

DO 08 

BNE 

$C30B 

C303: 

A5 F4 

LDA 

* 

$F4 

C305: 

49 01 

EOR 

n 

$01 

C307: 

85 F4 

STA 

* 

$F4 

C309: 

A9 22 

LDA 

n 

$22 

C30B: 

60 

RTS 




****************************** 


C30C: 

A5 

EF 

LDA 

* $EF 

C30E: 

85 

F0 

STA 

* $F0 

C310: 

20 

57 CD 

JSR 

$CD57 

C313: 

A5 

F5 

LDA 

* $F5 

C315: 

F0 

02 

BEQ 

$C319 

C317: 

46 

F4 

LSR 

* $F4 

C319: 

68 


PLA 



kein reverses Zeichen 

Setzen von Bit 7 

Teste ehemaliges Bit 7 

Flag für Quote-Mode aktiv 

Ist aktiv, dann Sprung 

Teste ehemaliges Bit 6 

Setze Bit 6 für ASCII 

Teste auf (") und setzte Flags 

Hole aktuelle Cursor Zeile in Y-Reg 

letzte Spalte bereits erreicht? 

Nein, noch nicht 

Hole aktuelle Cursor Spalte in Y-Reg 
Vergleiche mit Ende 
Endezeile noch nicht erreicht 
Schiebe Carry ins 7. Bit von $D6 
Wenn gesetzt, dann neue Zeile 
Cursor um eine Position nach rechts 
Vergleiche auf ASCII "PI" 

Ist nicht Pi 

Sonst lade angepaßten Code PI 
als Druckzeichen speichern 
Hole X-Register (Zeile) über 
Akku von Stack 
Hole Y-Register (Spalte) 
über Akku von Stack 
Druckzeichen aus Zwischenspeicher 
Flag für OX 

Rücksprung aus dem Unterprogramm 

Teste auf (") und setze Flags 

Vergleich auf Anführungszeichen 

Anderes Zeichen, dann Ende 

Hole aktuellen Quote-Modus 

Kehre Modus um 

Und Speicher wieder ab 

Lade Akku wieder mit ASCII-Uert 

Rücksprung aus dem Unterprogramm 

BSOUT Fortsetzung 

Aktuell zu druckendes Zeichen ats 
zuletzt gedrucktes Zeichen merken 
Setze Cursor auf aktuelle Spalte 
Hole Insert-Mode-Flag 
Insert-Modus ist nicht aktiv 
Shifte Quote-Modus-Flag 
Hole ersten Wert von Stack 
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C31A 

A8 



TAY 


C31B 

68 



PLA 


C31C 

AA 



TAX 


C31D 

68 



PLA 


C31E 

18 



CLC 


C31F 

60 



RTS 


****************************** 

C320 

09 

40 


ORA 

# $40 

C322 

A6 

F3 


LDX 

* $F3 

C324 

F0 

02 


BEO 

$C328 

C326 

09 

80 


ORA 

# $80 

C328 

A6 

F5 


LDX 

* $F5 

C32A 

F0 

02 


BEO 

SC32E 

C32C 

C6 

F5 


DEC 

* $F5 

C32E 

24 

F6 


BIT 

* $F6 

C330 

10 

09 


BPL 

$C33B 

C332 

48 



PHA 


C333 

20 

E3 

C8 

JSR 

$C8E3 

C336 

A2 

00 


LDX 

# $00 

C338 

86 

F5 


STX 

* $F5 

C33A 

68 



PLA 


C33B 

20 

2F 

CC 

JSR 

$CC2F 

****************************** 

C33E 

C4 

E7 


CPY 

* $E7 

C340 

90 

0A 


BCC 

$C34C 

C342 

A6 

EB 


LDX 

* $EB 

C344 

E4 

E4 


CPX 

* $E4 

C346 

90 

04 


BCC 

$C34C 

C348 

24 

F8 


BIT 

* $F8 

C34A 

30 

16 


BMI 

$C362 

C34C 

20 

5C 

CI 

JSR 

$C15C 

C34F 

20 

ED 

CB 

JSR 

$CBED 

C352 

90 

0E 


BCC 

SC362 

C354 

20 

74 

CB 

JSR 

$CB74 

C357 

B0 

08 


BCS 

$C361 

C359 

38 



SEC 


C35A 

24 

F8 


BIT 

* $F8 

C35C 

70 

04 


BVS 

$C362 

C35E 

20 

7C 

C3 

JSR 

$C37C 

C361 

18 



CLC 


C362 

60 



RTS 



und nach Y-Register 

Hole zweiten Wert von Stack 

Und nach X-Register 

Hole noch Akku von Stack 

Lösche Carry für OK 

Rücksprung aus dem Unterprogramm 

Umrechnung von ASCII in POKE-Code 

Setzte Bit 2 des Akkus 

Hole Flag für RVS Modus aktiv on/off 

Nicht reverses Zeichen 

Setze höchstwertiges Bit (Revers) 

Insert-Modus-Flag 

Kein Insert-Modus 

Erniedrige den Zähler 

Teste Auto-Insert-Flag 

Springe, wenn nicht aktiv 

Rette Akku auf Stack 

Verschiebe Bildschirm hinter Cursor 

Setze Insert-Mode-Flag 

auf Null zurück 

Hole Akku wieder von Stack 

Zeichen an aktueller Pos. ausgeben 

Cursor ans Zeilenende 

Vergleiche mit rechter Fenstergrenze 

Rechter Rand noch nicht erreicht 

Hole aktuelle Cursor Zeile in X-Reg 

Vergleiche mit unterer Fenstergrenze 

Untere Grenze noch nicht erreicht 

Teste Scroll-Flag 

Kein Scrolling, dann Ende 

Ermittle Startadresse akt. Zeile 

Cursor ein Zeichen nach rechts 

Keine neue Zeile 

Zeilenüberlaufbit testen 

Zeilenüberlaufbit ist gesetzt 

Setze Carry für kein Scrolling 

Teste Scroll-Bit 

Springe, wenn kein Scrolling 

Zeile an X einfügen 

Lösche Carry für gescrollt 

Rücksprung aus dem Unterprogramm 
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****************************** Zeilenvorschub ausführen 


C363 

A6 

EB 


LDX 

* SEB 

Hole aktuelle Cursor Zeile in X-Reg 

C365 

E4 

E4 


CPX 

* $E4 

Vergleiche mit unterer Fenstergrenze 

C367 

90 

OE 


BCC 

$C37 7 

Untere Grenze noch nicht erreicht 

C369 

24 

F8 


BIT 

* $F8 

Teste Scroll-Bit 

C36B 

10 

06 


BPL 

SC373 

Scrollen möglich 

C36D 

A5 

E5 


LDA 

* $E5 

Obere Fenstergrenze in Akku laden 

C36F 

85 

EB 


STA 

* $EB 

aktuelle Cursor Zeile zurückschreib. 

C371 

BO 

06 


BCS 

SC379 

Unbedingter Sprung nach $C379 

C373 

20 

A6 

C3 

JSR 

SC3A6 

Scrolling 

C376 

18 



CLC 


Carry löschen für Ok, gescrollt 

C377 

E6 

EB 


INC 

* $EB 

aktuelle Cursor Zeile um 1 erhöhen 

C379 

4C 

5C 

CI 

JHP 

$C15C 

Ermittle Startadresse akt. Zeile 

****************************** 

Zeile einfügen (an Zeile X) 

C37C 

A6 

E8 


LDX 

* $E8 

Start der lfd. Eingabezeile 

C37E 

30 

06 


BMI 

$C386 

Zeile ist eine Folgezeile 

C380 

E4 

EB 


CPX 

* $EB 

vergleiche m. aktueller Cursor Zeile 

C382 

90 

02 


BCC 

SC386 

Cursor-Zeile erreicht? 

C384 

E6 

E8 


INC 

* $E8 

Erhöhe den Start der lfd. E-Zeile 

C386 

A6 

E4 


LDX 

* $E4 

Untere Fenstergrenze in X-Reg laden 

C388 

20 

5E 

CI 

JSR 

$C15E 

Adresse der aktuellen Zeile setzen 

C38B 

A4 

E6 


LDY 

* SE6 

Linke Fenstergrenze in Y-Reg laden 

C380 

E4 

EB 


CPX 

* $EB 

vergleiche m. aktueller Cursor Zeile 

C38F 

F0 

OF 


BEQ 

SC3A0 

Cursor-Zeile ist untere Grenze 

C391 

CA 



DEX 


Zeile um eins erniedrigen, um dann 

C392 

20 

76 

CB 

JSR 

SCB76 

das Zeilenüberlaufbit zu testen 

C395 

E8 



INX 


wieder auf aktuelle Zeile 

C396 

20 

83 

CB 

JSR 

SCB83 

Zeilenüberlaufbit setzen/löschen 

C399 

CA 



DEX 


wieder auf vorangehende Zeile 

C39A 

20 

00 

C4 

JSR 

$C40D 

MOVLIN: Kopieren einer Fensterzeile 

C39D 

4C 

88 

C3 

JMP 

$C388 

Zurück in die Schleife 

C3A0 

20 

A5 

C4 

JSR 

$C4A5 

Lösche Zeile X 

C3A3 

4C 

93 

CB 

JMP 

$CB93 

Setzen des Zei lenüberlaufbits 

****************************** 

Aufwärts scrollen 

C3A6 

A6 

E5 


LDX 

* SE5 

Obere Fenstergrenze in X-Reg laden 

C3A8 

E8 



INX 


und um eine Zeile erhöhen 

C3A9 

20 

76 

CB 

JSR 

$CB76 

Teste das Zei lenüberlaufbit 

C3AC 

90 

OA 


BCC 

SC3B8 

Zeile ist ohne Überlauf 

C3AE 

E4 

E4 


CPX 

* $E4 

vergleiche mit unterer Fenstergrenze 

C3B0 

90 

F6 


BCC 

JC3A8 

Grenze noch nicht erreicht 

C3B2 

A6 

E5 


LDX 

* $E5 

Obere Fenstergrenze in X-Reg laden 

C3B4 

E8 



INX 


und um 1 erhöhen 

C3B5 

20 

85 

CB 

JSR 

$CB85 

Zeilenüberlaufbit setzen 
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C3B8: 

C6 

EB 


DEC 

* $EB 

C3BA: 

24 

E8 


BIT 

* $E8 

C3BC: 

30 

02 


BMI 

SC3C0 

C3BE: 

C6 

E8 


DEC 

* $E8 

C3C0: 

A6 

E5 


LDX 

* $E5 

C3C2: 

E4 

DF 


CPX 

* $DF 

C3C4: 

BO 

02 


BCS 

SC3C8 

C3C6: 

C6 

DF 


DEC 

* $DF 

C3C8: 

20 

DC 

C3 

JSR 

$C3DC 

C3CB: 

A6 

E5 


LDX 

* $E5 

C3CD: 

20 

76 

CB 

JSR 

SCB76 

C3D0: 

08 



PHP 


C3D1: 

20 

85 

CB 

JSR 

SCB85 

C3D4: 

28 



PLP 


C3D5: 

90 

04 


BCC 

$C3DB 

C3D7: 

24 

F8 


BIT 

* $F8 

C3D9: 

30 

CB 


BMI 

SC3A6 

C3DB: 

60 



RTS 



****************************** 


C3DC 

20 

5E 

CI 

JSR 

$C15E 

C3DF 

A4 

E6 


LDY 

* $E6 

C3E1 

E4 

E4 


CPX 

* $E4 

C3E3 

B0 

0F 


BCS 

SC3F4 

C3E5 

E8 



I NX 


C3E6 

20 

76 

CB 

JSR 

$CB76 

C3E9 

CA 



DEX 


C3EA 

20 

83 

CB 

JSR 

$CB83 

C3ED 

E8 



INX 


C3EE 

20 

00 

C4 

JSR 

SC40D 

C3F1 

4C 

DC 

C3 

JMP 

$C3DC 


****************************** 


C3F4 

20 

A5 

C4 

JSR 

$C4A5 

C3F7 

A9 

7F 


LDA 

* S7F 

C3F9 

8D 

00 

DC 

STA 

$DC00 

C3FC 

AD 

01 

DC 

LDA 

SDC01 

C3FF 

C9 

DF 


CMP 

n $df 

C401 

DO 

09 


BNE 

$C40C 

C403 

A0 

00 


LDY 

# $00 

C405 

EA 



NOP 


C406 

CA 



DEX 


C407 

DO 

FC 


BNE 

$C405 

C409 

88 



DEY 



aktuelle Cur. Zeile um 1 vermindern 
Teste das 7. Bit von Eingabestart- 
Zeile, und springe, wenn gesetzt 
sonst erniedrige die Eingabezeile 
Obere Fenstergrenze in X-Reg laden 
mit Cursor-Zeile vergleichen 
wenn >= obere Grenze, dann Sprung 
Erniedrige Cursorzeile 
Restbildschirm verschieben 
Obere Fenstergrenze in X-Reg laden 
Teste Zeilenüberlaufbit 
Rette Flags auf Stack 
Lösche Zeilenüberlaufbit akt. Zeile 
und hole Flags wieder zurück 
Wenn Carry gelöscht, dann Ende 
sonst teste Scroll-Flag 
Bit 7 gesetzt, dann weiter scrollen 
Rücksprung aus dem Unterprogramm 

Zeile X löschen (mit Verschieben) 

Zeile X anmelden 

Linke Fenstergrenze in Y-Reg laden 
vergleiche mit unterer Fenstergrenze 
Grenze ist erreicht 
Zeiger zeigt auf Folgezeile 
Teste Zeilenüberlaufbit 
Wieder auf aktuelle Zeile zeigen 
Setzen/Löschen Zei lenüberlaufbit 
Wieder auf Folgezeile zeigen 
MOVLIN: Fensterzeile kopieren 
Nächste Zeile kopieren 

Commodore-Taste abfragen - warten 

Lösche Zeile X 

Flag für RUN/DIRECT-Modus 

Nach PRA in CIA zur Tastaturabfrage 

Hole Tastaturmatrix 

Commodore-Taste gedrückt? 

Wenn nicht gedrückt, dann Ende 
Commodore-Taste ist gedrückt 
Beim Scrollen wird nun eine Warte¬ 
schleife durchlaufen, um die 
Ausgabe etwas zu verzögern 
Die Schleife zählt von 0 bis 
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C40A: 

00 

F9 


BNE 

$C405 

65536 und hört dann auf 

C40C: 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

MOVLIN: Kopieren einer Fensterzeile 

C40D: 

24 

D7 


BIT 

* SD7 

Teste 40/80-Zeichen-Modus 

C40F: 

30 

25 


BMI 

$C436 

Springe bei 80-Zeichen-Modus 

C411: 

BO 

33 

CO 

LDA 

SC033.X 

Hole Lo-Byte der akt. Zeile 

C414: 

85 

DC 


STA 

* $DC 

Das Lo-Byte in $DA und $DC 

C416: 

85 

DA 


STA 

* SDA 

Zwischenspeichern 

C418: 

BD 

4C 

CO 

LDA 

$C04C,X 

Hole das Hi-Byte der akt. Adresse 

C41B: 

29 

03 


AND 

# $03 

Ausmaskieren der Bits 2-7 

C41D: 

00 

3B 

OA 

ORA 

$0A3B 

und mit Video-Basisadresse ver- 

C420: 

85 

DB 


STA 

* $DB 

knüpfen und abspeichern 

C422: 

29 

03 


AND 

# $03 

Bits 0 und 1 mit Basisadresse 

C424: 

09 

D8 


ORA 

U $D8 

Farb-RAM verknüpfen 

C426: 

85 

DD 


STA 

* $DD 

und als Hi-Byte ablegen 

C428: 

Bl 

DA 


LDA 

($DA),Y 

Hole Quellzeichen und speichere 

C42A: 

91 

EO 


STA 

($EO),Y 

es an Zieladresse ab. Danach 

C42C: 

Bl 

DC 


LDA 

($DC),Y 

hole Quellfarbe und speichere 

C42E: 

91 

E2 


STA 

($E2),Y 

auch diese in Zieladresse ab 

C430: 

C4 

E7 


CPY 

* $E7 

vergleiche mit rechter Fenstergrenze 

C432: 

C8 



I NY 


Erhöhe den Spaltenzeiger 

C433: 

90 

F3 


BCC 

$C428 

Springe, wenn noch nicht Ende 

C435: 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Kopieren einer Zeile in 80-Zeichen 

C436: 

8E 

31 

OA 

STX 

$0A31 

Zeilennr. Zwischenspeichern 

C439: 

8C 

32 

OA 

STY 

$0A32 

Spalte Zwischenspeichern 

C43C: 

A2 

18 


LDX 

# $18 

Register 24 enthält COPY-Bit 

C43E: 

20 

DA 

CD 

JSR 

$CDDA 

und Registerwert holen 

C441: 

09 

80 


ORA 

n $80 

setze COPY-Bit und speichere 

C443: 

20 

CC 

CD 

JSR 

$CDCC 

Register wieder zurück in VDC 

C446: 

20 

E6 

CD 

JSR 

$CDE6 

Setze Update-Adresse auf akt. Pos. 

C449: 

AE 

31 

OA 

LDX 

$0A31 

Hole zu kopierende Zeile 

C44C: 

BD 

33 

CO 

LDA 

$C033,X 

Lo-Byte der zu kopierenden Zeile 

C44F: 

0A 



ASL 

A 

mal 2, da 80 Zeichen 

C450: 

85 

DA 


STA 

* $DA 

und Lo-Byte abspeichern 

C452: 

BD 

4C 

CO 

LDA 

$C04C,X 

Hole Hi-Byte der zu kopierenden 

C455: 

29 

03 


AND 

# $03 

Zeile u. maskiere Bits 3-7 aus 

C457: 

2A 



ROL 

A 

Hole Übertrag rein (*2) 

C458: 

00 

2E 

OA 

ORA 

$0A2E 

Video-RAM-Basis hinzuaddieren 

C45B: 

85 

DB 


STA 

* $DB 

und als Hi-Byte merken 

C45D: 

A2 

20 


LDX 

# $20 

Blockstartadresse Hi 

C45F: 

18 



CLC 


Lösche Carry für Addition 

C460: 

98 



TYA 


Hole Spalte in den Akku und 

C461: 

65 

DA 


ADC 

* $DA 

addiere Lo-Byte 
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C463: 

85 

DA 


STA 

* $DA 

C465: 

A9 

00 


LDA 

# $00 

C467: 

65 

DB 


ADC 

* $DB 

C469: 

85 

DB 


STA 

* $DB 

C46B: 

20 

CC 

CD 

JSR 

SCDCC 

C46E: 

E8 



INX 


C46F: 

A5 

DA 


LDA 

* $DA 

C471: 

20 

CC 

CD 

JSR 

SCDCC 

C474: 

38 



SEC 


C475: 

A6 

E7 


LDX 

* $E7 

C477: 

E8 



INX 


C478: 

8 A 



TXA 


C479: 

ED 

32 

0A 

SBC 

$0A32 

C47C: 

8 D 

32 

0A 

STA 

$0A32 

C47F: 

A2 

IE 


LDX 

# SIE 

C481: 

20 

CC 

CD 

JSR 

SCDCC 

C484: 

A2 

20 


LDX 

# $20 

C486: 

A5 

DB 


LDA 

* SDB 

C488: 

29 

07 


AND 

# $07 

C48A: 

0D 

2F 

0A 

ORA 

S0A2F 

C48D: 

20 

CC 

CD 

JSR 

SCDCC 

C490: 

E8 



INX 


C491: 

A5 

DA 


LDA 

* $DA 

C493: 

20 

CC 

CD 

JSR 

SCDCC 

C496: 

20 

F9 

CD 

JSR 

SCDF9 

C499: 

AD 

32 

0A 

LDA 

S0A32 

C49C: 

A2 

IE 


LDX 

# SIE 

C49E: 

20 

CC 

CD 

JSR 

SCDCC 

C4A1: 

AE 

31 

0A 

LDX 

S0A31 

C4A4: 

60 



RTS 



****************************** 


C4A5: 

A4 

E6 

LDY 

* SE6 

C4A7: 

20 

85 CB 

JSR 

SCB85 

C4AA: 

20 

5E CI 

JSR 

SC15E 

C4AD: 

24 

D7 

BIT 

* SD7 

C4AF: 

30 

0F 

BMI 

SC4C0 

C4B1: 

88 


DEY 


C4B2: 

C8 


INY 


C4B3: 

A9 

20 

LDA 

# S20 

C4B5: 

91 

E0 

STA 

($E0),Y 

C4B7: 

A5 

Fl 

LDA 

* SF1 

C4B9: 

91 

E2 

STA 

($E2),Y 

C4BB: 

C4 

E7 

CPY 

* SE7 

C4BD: 

DO 

F3 

BNE 

SC4B2 

C4BF: 

60 


RTS 



Startadresse+Spalte nach Lo-Byte 
Lade Akku mit Null, um den Übertrag 
zum Hi-Byte hinzuzuaddieren 
und Speicher Hi-Byte erneut ab 
gleichzeitig als Block-Start-Adr. 
Zeiger zeigt auf Block-St.-Ad. Lo 
hole das Lo-Byte der Zieladresse 
und VDC mitteilen 
setze Carry für Subtraktion 
Rechte Fenstergrenze in X-Reg laden 
Plus eins 

und dann nach Akku 

Subtrahiere die akt. Spalte 

und als Anzahl merken 

VDC-Word-Count-Register 

anmelden und kopieren beginnen 

Block-Start-Adresse Hi 

Hole Hi-Byte der Quelladresse 

Maskiere Bits 3-7 aus 

und addiere Attribut-RAM 

anmelden und setzen des Registers 

Zeiger auf Block-Start-Adresse Lo 

Hole Quelladresse Lo 

anmelden und setzen 

Setze Update-Adresse für Attribut 

Hole Anzahl zu kopierender Zeichen 

Register 31 ist Word-Count-Register 

anmelden und kopieren 

Hole aktuelle Zeile zurück 

Rücksprung aus dem Unterprogramm 

Lösche (Zeile X) 40 Zeichen 

Linke Fenstergrenze in Y-Reg laden 
Lösche Zeilenüberlaufbit 
Startadresse von Zeile X holen 
Teste 40/80-Zeichen-Modus 
Springe, wenn 80-Zeichen-Modus 
Dummy-Dekrement, wird wieder erhöht 
Inkrementiere Spaltenzeiger 
Lade Akku mit <Space> 

Speichere Space in Video-RAM 
Farbcode für Zeichenausgabe in Akku 
Speichere Farbe in Farb-RAM 
vergleiche mit rechter Fenstergrenze 
springe, wenn nicht fertig 
Rücksprung aus dem Unterprogramm 
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****************************** Lösche Zeile ■ 80 Zeichen 


C4C0: 

8 E 

31 

OA 

STX 

$0A31 

X-Register Zwischenspeichern 

C4C3: 

8 C 

32 

OA 

STY 

$0A32 

Y-Register Zwischenspeichern 

C4C6: 

A2 

18 


LDX 

# $18 

Register 24 auswählen 

C4C8: 

20 

DA 

CD 

JSR 

$CDDA 

Hole aktuellen Wert 

C4CB: 

29 

7F 


AND 

# $7F 

Copy-Bit löschen 

C4CD: 

20 

CC 

CD 

JSR 

SCDCC 

und neuen Wert wieder ablegen 

C4D0: 

A2 

12 


LDX 

# $12 

Update-Adresse Hi 

C4D2: 

18 



CLC 


Lösche Carry für Addition 

C4D3: 

98 



TYA 


Hole Spalte nach Akku 

C4D4: 

65 

EO 


ADC 

* $E0 

Addiere Startadresse Lo 

C4D6: 

48 



PHA 


Rette Lo-Adresse auf Stack 

C4D7: 

8 D 

3C 

OA 

STA 

$0A3C 

Sichern des Lo-Bytes 

C4DA: 

A9 

00 


LDA 

U $00 

Lade Akku mit Null, um Übertrag 

C4DC: 

65 

11 


ADC 

* $E1 

zu Hi-Byte hinzuzuaddieren 

C4DE: 

80 

3D 

OA 

STA 

$0A3D 

Abspeichern des Hi-Byte 

C4E1: 

20 

CC 

CD 

JSR 

$CDCC 

und ins Register ablegen 

C4E4: 

E8 



I NX 


Update-Adresse Lo 

C4E5: 

68 



PLA 


Hole Lo-Byte von Stack 

C4E6: 

20 

CC 

CD 

JSR 

$CDCC 

Lo-Byte nach VDC 

C4E9: 

A9 

20 


LDA 

# $20 

Lade Akku mit <Space> 

C4EB: 

20 

CA 

CD 

JSR 

$CDCA 

Und ins VDC-Data-Register 

C4EE: 

38 



SEC 


Setze Carry für Subtraktion 

C4EF: 

A5 

E7 


LDA 

* $E7 

Rechte Fenstergrenze in Akku laden 

C4F1: 

ED 

32 

OA 

SBC 

$0A32 

subtrahiere Startspalte 

C4F4: 

48 



PHA 


Rette Anzahl auf Akku 

C4F5: 

F0 

14 


BEO 

$C50B 

Startspalte ist gleich rechter Rand 

C4F7: 

AA 



TAX 


Hole Anzahl nach X 

C4F8: 

38 



SEC 


Setze Carry für Addition 

C4F9: 

60 

3C 

OA 

ADC 

$0A3C 

Addiere Lo-Byte 

C4FC: 

80 

3C 

OA 

STA 

$0A3C 

und wieder abspeichern 

C4FF: 

A9 

00 


LDA 

# $00 

Lade Akku mit Null, um den Übertrag 

C501: 

6 D 

30 

OA 

ADC 

$0A3D 

zum Hi-Byte zu addieren 

C504: 

80 

30 

OA 

STA 

$0A3D 

Hi-Byte auch abspeichern 

C507: 

8 A 



TXA 


Hole Anzahl Zeichen in den Akku 

C508: 

20 

3E 

C5 

JSR 

$C53E 

Akku ins Wordcount-Register 

C50B: 

A2 

12 


LDX 

# $12 

Update-Adresse Hi 

C50D: 

18 



CLC 


Lösche Carry für Addition 

C50E: 

98 



TYA 


Hole Spalte in den Akku 

C50F: 

65 

E2 


ADC 

* $E2 

und addiere Lo-Byte Attribut 

C511: 

48 



PHA 


Rette Lo-Byte auf Stack 

C512: 

A9 

00 


LDA 

tt $00 

Lade Akku mit Null, um den 

C514: 

65 

E3 


ADC 

* $E3 

Übertrag hinzuzuaddieren 

C516: 

20 

CC 

CD 

JSR 

$CDCC 

und schreibe das Hi-Byte ins 

C519: 

E8 



INX 


Register. Update-Adresse Lo 

C51A: 

68 



PLA 


Hole Lo-Byte von Stack 

C51B: 

20 

CC 

CD 

JSR 

$CDCC 

und ins Register schreiben 
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C51E 

AD 

3D 

0A 

LDA 

$0A3D 

C521 

29 

07 


AND 

# $07 

C523 

OD 

2F 

0A 

ORA 

$0A2F 

C526 

8D 

3D 

0A 

STA 

$0A3D 

C529 

A5 

Fl 


LDA 

* $F 1 

C52B 

29 

8F 


AND 

# $8F 

C52D 

20 

CA 

CD 

JSR 

$CDCA 

C530 

68 



PLA 


C531 

F0 

03 


BEQ 

$C536 

C533 

20 

3E 

C5 

JSR 

$C53E 

C536 

AE 

31 

0A 

LDX 

S0A31 

C539 

A4 

E7 


LDY 

* $E7 

C53B 

60 



RTS 



****************************** 


C53C: 

A9 

01 


LDA 

# $01 

C53E: 

A2 

IE 


LDX 

# $1E 

C540: 

20 

CC 

CD 

JSR 

$CDCC 

C543: 

2C 

00 

D6 

BIT 

$0600 

C546: 

10 

FB 


BPL 

$C543 

C548: 

A2 

12 


LDX 

n $12 

C54A: 

20 

DA 

CD 

JSR 

$CDDA 

C54D: 

CD 

3D 

0A 

CMP 

$0A3D 

C550: 

90 

EA 


BCC 

$C53C 

C552: 

A2 

13 


LDX 

# $13 

C554: 

20 

DA 

CD 

JSR 

$CDDA 

C557: 

CD 

3C 

0A 

CMP 

$0A3C 

C55A: 

90 

E0 


BCC 

$C53C 

C55C: 

60 



RTS 



****************************** 


C55D: 

A5 

01 

LDA 

* $01 

C55F: 

29 

40 

AND 

# $40 

C561: 

49 

40 

EOR 

# $40 

C563: 

4A 


LSR 

A 

C564: 

4A 


LSR 

A 

C565: 

85 

D3 

STA 

* $D3 

C567: 

A0 

58 

LDY 

# $58 

C569: 

84 

D4 

STY 

* $D4 

C56B: 

A9 

00 

LDA 

# $00 

C56D: 

80 

00 DC 

STA 

$DC00 

C570: 

8D 

2F DO 

STA 

$D02F 

C573: 

AE 

01 DC 

LDX 

$DC01 

C576: 

E0 

FF 

CPX 

U $FF 

C578: 

DO 

03 

BNE 

$C57D 


Hole Hi-Byte Zieladresse 

Ausmaskieren der Bits 4-7 

und mit der Video-Basisadresse 

verknüpfen und abspeichern 

Farbcode für Zeichenausgabe in Akku 

Nur Farbe und ALT-Bit sind relevant 

Hole Registerinhalt von DATA-REG 

Hole Anzahl von Stack 

Wenn null, dann Sprung 

Gib Farbe aus 

X-Register zurückholen 

Rechte Fenstergrenze in Y-Reg laden 

Rücksprung aus dem Unterprogramm 

Schreibe Akku mal Zeichen an Update 
Register 

Lade Zähler mit 1 

Wordcount-Register auswählen 

und Uert übermitteln 

Teste Statusbit 

und warte, bis fertig 

Update-Adresse Hi 

Hole aktuellen Wert 

Vergleiche mit Hi-Byte Zieladresse 

stimmt nicht: Fehler korrigieren 

Update-Adresse Lo 

Aktuellen Wert holen 

Vergleiche mit Zieladresse Lo 

stimmt nicht: Fehler korrigieren 

Rücksprung aus dem Unterprogramm 

Prüfen der Tastatur Matrix 

Hole Bit 6 aus Z-Page Datenregister 
Prozessorport. Bit 6 zeigt, ob DIN 
oder ASCII Zeichensatz gewählt ist. 
Invertiere Bit 6 und bringe es an 
Position Bit 4. Shift Flag zurück- 
setzen und DIN/ASCII Mode sichern. 
Code für "Keine Taste" in Z-Page 
Zeiger für gedrückte Taste ablegen 
Prüfwert für die Matrixzeilen 
Zuständig für Matrixzeilen 1-8 
Zuständig für Matrixzeilen 9 -11 
Port B = Eingang der Matrixspalten 
Prüfe, ob eine Taste gedrückt ist 
Überprüfen, welche Taste gedrückt 
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C57A: 
C57D: 
C57E: 
C581: 
C583: 
C586: 
C588: 
C58A: 
C58D: 
C58E: 
C590: 
C592: 
C595: 
C597: 
C59A: 
C59C: 
C590: 
C5A0: 
C5A3: 
C5A5: 
C5A6: 
C5A8: 
C5A9: 
C5AB: 
C5AD: 
C5AF: 
C5B1: 
C5B3: 
C5B5: 
C5B7: 
C5B9: 
C5BB: 
C5BC: 
C5BE: 
C5BF: 
C5C0: 
C5C1: 
C5C3: 
C5C5: 
C5C7: 
C5C8: 
C5C9: 
C5CA: 
C5CC: 
C5CF: 
C5D1: 
C5D2: 
C5D4: 
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4C 

97 

C6 

JMP 

$C697 

Keine Taste, dann weiter 

A8 



TAY 


Disp.-Zähler a. Tastatur-Tab.-Anfang 

AD 

3E 

03 

LDA 

S033E 

Adresse Lo der Tastatur-Decodier- 

85 

CC 


STA 

* $CC 

tabelle 1a in Z-Page kopieren 

AD 

3F 

03 

LDA 

$033 F 

Adresse Hi der Tastatur-Decodier- 

85 

CD 


STA 

* $CD 

tabelle 1a in Z-Page kopieren 

A9 

FF 


LDA 

# $FF 

Testwert für Tastaturmatrix 

8D 

2F 

DO 

STA 

SD02F 

Testzeilen 9-11 auf Hi setzen 

2A 



ROL 

A 

Bitposition der Testzeile auf 0 

24 

D3 


BIT 

* $D3 

Zeiger, ob 1-8 oder 9-11 zu testen 

30 

05 


BMI 

$C597 

Wenn Zeile 9-11 zu testen, dann Skip 

80 

00 

DC 

STA 

$DCOO 

Testwert in Port A (Matrixzeile 1-8) 

10 

03 


BPL 

$C59A 

Skip Test der Matrixzeilen 9-11 

8D 

2F 

DO 

STA 

SD02F 

Port A* (Matrixzeilen 9-11) testen 

A2 

08 


LDX 

# $08 

Zähler für 8 Matrixspalten setzen 

48 



PHA 


Zeilentestwert auf Akku sichern 

AD 

01 

DC 

LDA 

$DC01 

Port B (Ausgabe der Matrixspalten) 

CD 

01 

DC 

CMP 

$DC01 

mit Port B vergleichen (Tastatur 

DU 

F8 


BNE 

$C59D 

entprellen) und warten 

4A 



LSR 

A 

Den Ausgabewert der Matrixspalten 

BO 

17 


BCS 

$C5BF 

bitweise testen. C=1 ist keine Taste 

48 



PHA 


Matrixspalten Ausgabewert sichern 

Bl 

CC 


LDA 

($CC),Y 

Tastencode aus Tastaturtabelle holen 

C9 

08 


CMP 

« $08 

Tastencode 8 ist ALT Taste 

FO 

08 


BEO 

$C5B7 

zur entsprechenden Auswertung 

C9 

05 


CMP 

tt $05 

Prüfe, ob es Code f. Shift, C- oder 

BO 

09 


BCS 

SC5BC 

Ctrl ist. Nein, dann weiter 

C9 

U3 


CMP 

t> $03 

Ist es der Code für BREAK Taste? 

FO 

05 


BEO 

$C5BC 

Ja, dann weiter für Break Taste 

05 

L>3 


ORA 

* $D3 

Z-Page Zeiger für Shift Muster 

85 

D3 


STA 

* $D3 

mi t dem Akku verknüpfen 

2C 



.Byte $2C 

Skip nach $C5BE 

84 

D4 


STY 

* $04 

In Z-Page Flag f. Tastencode ablegen 

68 



PLA 


Matrixspalten Testwert zurückholen 

08 



INY 


Tastatur Tab. Disp. Zähler + 1 

CA 



DEX 


Matrixspalten Schleifenzähler - 1 

DO 

E2 


BNE 

$C5A5 

Schleifen, bis alle Spalten getestet 

CO 

59 


CPY 

# $59 

Sind alle Zeilen + Spalten getestet? 

BO 

10 


BCS 

$C5D7 

Ja, dann Tastendruck auswerten 

68 



PLA 


Zeilentestwert vom Stack holen 

58 



SEC 


Carry Flag für Verschiebung des 

2A 



ROL 

A 

Zeilentestwertes setzen 

BO 

C2 


BCS 

$C58E 

Weiter im Test der Matrixzeilen 1-8 

8D 

00 

DC 

STA 

$DCOO 

Port A Testwert auf Hi ($FF) setzen 

26 

D3 


ROL 

* $D3 

Bit 7 im Shiftmusterflag einblenden, 

38 



SEC 


da nun die verbleibenden Matrixzeilen 

66 

D3 


ROR 

U $D3 

9-11 über Port A* zu testen sind. 

2A 



ROL 

A 

Bit f. Matrixzeilentest 9-11 löschen 
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C5D5: DO B7 BNE $C58E 
****************************** 


C5D7 

06 

D3 


ASL 

* SD 3 

C5D9 

46 

D3 


LSR 

* SD3 

C5DB 

68 



PLA 


C5DC 

A5 

D4 


LDA 

* SD 4 

C5DE 

6C 

3A 

03 

JMP 

(S033A) 

****************************** 

C5E1 

C9 

57 


CMP 

# $57 

C5E3 

DO 

13 


BNE 

SC5F8 

C5E5 

24 

F 7 


BIT 

* SF7 

C5E7 

70 

5A 


BVS 

SC643 

C5E9 

AD 

25 

OA 

LDA 

S0A25 

C5EC 

DO 

55 


BNE 

SC643 

C5EE 

A9 

0D 


LDA 

# $00 

C5F0 

4D 

21 

OA 

EOR 

S0A21 

C5F3 

8D 

21 

0A 

STA 

S0A21 

C5F6 

50 

3U 


BVC 

SC628 

C5F8 

A5 

D3 


LDA 

* SD3 

C5FA 

F0 

55 


BEO 

SC651 

C5FC 

C9 

10 


CMP 

# $10 

C5FE 

F0 

44 


BEQ 

$C644 

C600 

C9 

08 


CMP 

# $08 

C602 

F0 

42 


BEO 

$C646 

C604 

29 

07 


AND 

H $07 

C606 

C9 

03 


CMP 

U $03 

C608 

DO 

25 


BNE 

SC62F 

****************************** 

C60A 

A5 

F7 


LDA 

* SF7 

C60C 

30 

43 


BMI 

SC651 

C60E 

AD 

25 

0A 

LDA 

$0A25 

C611 

DO 

3E 


BNE 

SC651 

C613 

24 

D7 


BIT 

* SD 7 

C615 

10 

09 


BPL 

SC620 

C617 

A5 

Fl 


LDA 

* SF1 

C619 

49 

80 


EOR 

# $80 

C61B 

85 

Fl 


STA 

* SF1 

C61D 

4C 

28 

C6 

JMP 

SC628 

C620 

AD 

2C 

0A 

LDA 

S0A2C 

C623 

49 

02 


EOR 

# $02 

C625 

80 

2C 

OA 

STA 

S0A2C 

C628 

A9 

08 


LDA 

# $08 


Sprung: Nächste Matrixzeile testen 

Auswertung des Tastaturergebnisses 

Das im Shiftmusterflag gesetzte Bit 
7 (KZ für Port A* Test) eliminieren 
Zeilentestwert vom Stack löschen 
Code für gedrückte Taste in Akku 
Vektor für Tastaturabfrage ($C5E1) 


Uar es die "No Scroll" Taste? 

Nein, dann Skip 

Z-Page Pause Flag Bit 6: 1=disable 
Wenn Pause nicht erlaubt, dann RTS 
Lade Akku mit letztem Shift-Muster 
Ungleich 0, dann Exit über RTS 
Die Bits 0, 1, und 3 des Z-Page 
Pause Zeigers invertieren und im 
Zero-Page Pause Zeiger ablegen 
Tastatur-Repeat-Rout ine 
Hole aktuelles SHIFT-Muster in Akku 
Kein Shift-Muster, normal auswerten 
War der DIN-Zeichensatz gewählt? 

Ja, dann zur DIN-Auswertung 

Uar ALT-Tastendruck gekennzeichnet? 

Ja, dann zur ALT-Auswertung 

Bit 3-7 aus Shiftmuster ausblenden 

Wurde C- Shift Umschaltung gewählt? 

Nein, Shiftmuster weiter auswerten 

C=/Shift Zeichensatzumschaltung 

Prüfe Flag für C= Shift Umschaltung 
Umschaltung verboten,z. REPEAT Rout. 
Hole letztes gesichertes Shiftmuster 
Nicht Null, dann zur REPEAT Routine 
Prüfe auf 40/80 Zeichen Bildschirm 
Positiv = 40 Zeichen Bildschirm 
Farbcode für Zeichenausgabe in Akku 
Bit 7 des Farbcodes invertieren 
Farbcode für Zeichenausgabe sichern 
Überspringe VIC Zeichenumschaltung 
Systemzeiger für Text/Bildschirm 
Basis holen und das Bit 2 dieses 
Zeigers invertieren 
Den Systemzeiger für das letzte 


Routine: Tastatur auswerten 
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C62A: 8D 25 OA STA $0A25 
C62D: DO 22 BNE $C651 

****************************** 


C62F: 

OA 

ASL 

A 

C630: 

C9 08 

CMP 

# $08 

C632: 

90 12 

BCC 

$C646 

C634: 

A9 06 

LDA 

# $06 

C636: 

A6 D4 

LDX 

* $D4 

C638: 

E0 0D 

CPX 

# $0D 

C63A: 

DO 0A 

BNE 

$C646 

C63C: 

24 F7 

BIT 

* $F7 

C63E: 

70 06 

BVS 

$C646 

C640: 

8E 21 0A 

STX 

$0A21 

C643: 

60 

RTS 



****************************** 


C644 

A9 

0A 


LDA 

n $oa 

C646 

AA 



TAX 


C647 

BD 

3E 

03 

LDA 

$033E,X 

C64A 

85 

CC 


STA 

* $CC 

C64C 

BD 

3F 

03 

LDA 

$033F,X 

C64F 

85 

CD 


STA 

* $CD 


****************************** 


C651 

A4 

D4 


LDY 

* $04 

C653 

Bl 

CC 


LDA 

($CC), Y 

C655 

AA 



TAX 


C656 

C4 

D5 


CPY 

* $D5 

C658 

F0 

07 


BEO 

$C661 

C65A 

A0 

Id 


LDY 

# $10 

C65C 

8C 

24 

0A 

STY 

$0A24 

C65F 

DO 

36 


BNE 

$C697 

C661 

29 

7F 


AND 

» $7F 

C663 

2C 

22 

0A 

BIT 

$0A22 

C666 

30 

16 


BMI 

$C67E 

C668 

70 

5A 


BVS 

$C6C4 

C66A 

C9 

7F 


CMP 

# $7F 

C66C 

F0 

29 


BEQ 

$C697 

C66E 

C9 

14 


CMP 

n $14 

C670 

F0 

OC 


BEQ 

$C67E 

C672 

C9 

20 


CMP 

# $20 


Shiftmuster mit 8 initialisieren 
Sprung zur Repeat Routine 

Decodiertabelle entsprechend dem 
Shiftmuster laden und auswerten 

Shiftmuster f. Displ. mit 2 multipl. 
Uurde Shiftmuster für Shift oder C= 
gefunden, dann Decodiertabelle laden 
Defaultwert für Ctrl Muster in Akku 
Prüfe den Offset auf Decodiertabelle 
Wenn es die 13. Taste war (S-Taste), 
dann Pause Flag setzen, sonst Skip 
Prüfe, ob Pause/Ctrl-S erlaubt ist 
Nicht erlaubt,Decodiertab. auswerten 
Pause Flag mit Tastenwert 13 setzen 
Rücksprung aus dem Unterprogramm 

Startadresse der Decodiertabelle 
entsprechend Shift Muster setzen 

Defaultwert auf Tabelle 5a setzen 
Nr. der Decodiertabelle in X-Reg 
Adresse Lo der Decodiertabelle 
in Z-Page Speicher kopieren 
Adresse Hi der Decodiertabelle 
in Z-Page Speicher kopieren 

Routine REPEAT 

Wiederholung der Tastatur Logik 

Displ. auf Tabellenanfang in Y-Rcg 
Akku mit Zeichencode aus Tab. laden 
und Zeichen in X-Reg sichern 
Mit Zeiger für momentane Taste vgl. 
Wenn gleich zur Repeat Prüfung 
Zähler f. Tastenwiederholverzögerung 
mit tlO initialisieren 
Sprung zur Tastendruck Auswertung 
Bit 7 ausblenden, keine RVS Zeichen 
Prüfe Zeiger für Tastenwiederholung 
Alle Tasten zugelassen ($80), Skip 
Keine Taste erlaubt ($40), Skip 
Prüfe, ob "Zeichen ungültig" 

Ja, dann Default Abfrage und RTS 
War es die <DEL> Taste? 

Ja, dann Wiederholungsauswertung 
War es die <Space> Taste? 
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C674 

F0 

08 

BEQ 

SC67E 

C676 

C9 

ID 

CMP 

# $1D 

C678 

F0 

04 

BEQ 

$C67E 

C67A 

C9 

11 

CMP 

U $11 

C67C 

DO 

46 

BNE 

$C6C4 


****************************** 


C67E 

AC 

24 

0A 

LDY 

$0A24 

C681 

F0 

05 


BEQ 

$C688 

C683 

CE 

24 

0A 

DEC 

$0A24 

C686 

DO 

3C 


BNE 

$C6C4 

C688 

CE 

23 

OA 

DEC 

$0A23 

C68B 

DO 

37 


BNE 

$C6C4 

C68D 

A0 

04 


LDY 

U $04 

C68F 

8C 

23 

0A 

STY 

$0A23 

C692 

A4 

DO 


LDY 

* $D0 

C694 

88 



DEY 


C695 

10 

2D 


BPL 

$C6C4 

****************************** 

C697 

4E 

25 

0A 

LSR 

$0A25 

C69A 

A4 

D4 


LDY 

* $D4 

C69C 

84 

D5 


STY 

* $D5 

C69E 

E0 

FF 


CPX 

# $FF 

C6A0 

F0 

22 


BEQ 

$C6C4 

C6A2 

A9 

00 


LDA 

« $00 

C6A4 

8D 

21 

0A 

STA 

$0A21 

C6A7 

8A 



TXA 


C6A8 

A6 

D3 


LDX 

* $D3 

C6AA 

4C 

C6 

FC 

JMP 

$FCC6 

****************************** 

C6AD 

A2 

09 


LDX 

# $09 

C6AF 

DD 

DD 

C6 

CMP 

$C6DD,X 

C6B2 

F0 

16 


BEQ 

$C6CA 

C6B4 

CA 



DEX 


C6B5 

10 

F8 


BPL 

$C6AF 

C6B7 

A6 

DO 


LDX 

* $D0 

C6B9 

EC 

20 

0A 

CPX 

$0A20 

C6BC 

B0 

06 


BCS 

$C6C4 

C6BE 

9D 

4A 

03 

STA 

$034A,X 

C6C1 

E8 



INX 


C6C2 

86 

DO 


STX 

* $D0 

C6C4 

A9 

7F 


LDA 

tt $7F 

C6C6 

8D 

00 

DC 

STA 

$DCOO 


Ja, dann Wiederholungsauswertung 
War es die <Crsr right> Taste? 

Ja, dann Wiederholungsausuertung 
War es die <Crsr down> Taste? 

Nein, Skip Wiederholungsausuertung 

Tasten Wiederholungsauswertung 

Hole Zähler für WiederholVerzögerung 
Zähler = null, dann Skip 
Wiederholungsverzögerungszähler -1 
Nicht null, Default-Abfrage und RTS 
Zählgeschwindigkeit für Repeat -1 
Nicht null, Default-Abfrage und RTS 
Zählgeschwindigkeit für Tastenrepeat 
mit $04 neu initialisieren 
Offset der Keybuf.-Schlange in Y-Reg 
Uenn mehr als 1 Zeichen im Puffer 
steht, dann Default-Abfrage und RTS 

Einsprung: Keine Taste gedrückt 

Letztes Shiftmuster d. 2 dividieren 
Displ. auf Decodiertab. Anfang in 
Zeiger für momentane Taste kopieren 
War es der Code für "kein Zeichen"? 
Ja, dann Default Abfrage und RTS 
Bei gültigem Zeichen den Pause/ 
Ctrl-S Zeiger zurücksetzen 
Zeichencode in Akku kopieren 
hole aktuelles SHIFT-Muster in X-Reg 
Zurück zur Kernal-Routine: KEY 

Tastendruck auswerten und speichern 

Schleifenzähler f.10 Funkt ionstasten 
Vgl. Akku mit Tastencodetabeile 
Funktionstaste gefunden, auswerten 
Schleifenzähler um 1 vermindern 
Schleifen,bis alle Vgl. durchgeführt 
Index: Tastaturpuffer Warteschlange 
Mit maximaler Größe vergleichen 
Maximale Größe erreicht, dann Skip 
Zeichen im Tastaturpuffer ablegen 
Den Index der Tastaturpuffer Warte¬ 
schlange um 1 Zeichen erhöhen 
Tastatur-Matrix 
auf Default abfragen 
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C6C9: 60 RTS 

****************************** 


C6CA 

BD 

00 

10 

LDA 

$1000,X 

C6CD 

85 

Dl 


STA 

* $D1 

C6CF 

A9 

00 


LDA 

# $00 

C6D1 

CA 



DEX 


C6D2 

30 

06 


BMI 

$C6DA 

C6D4 

18 



CLC 


C6D5 

70 

00 

10 

ADC 

$1000,X 

C6D8 

90 

F7 


BCC 

$C6D1 

C6DA 

85 

D2 


STA 

* $D2 

C6DC 

60 



RTS 


***************** 

************* 

C6DD 

85 

89 




C6DF 

86 

8A 




C6E1 

87 

8B 




C6E3 

88 

8C 




C6E5 

83 





C6E6 

84 





****************************** 

C6E7 

24 

D7 


BIT 

* $D7 

C6E9: 30 

41 


BMI 

$C72C 

C6EB 

AD 

27 

0A 

LDA 

$0A27 

C6EE 

DO 

3C 


BNE 

$C72C 

C6F0 

CE 

28 

0A 

DEC 

$0A28 

C6F3 

DO 

37 


BNE 

$C72C 

C6F5 

AD 

26 

0A 

LDA 

$0A26 

C6F8 

29 

CO 


AND 

# SCO 

C6FA 

C9 

CO 


CMP 

# SCO 

C6FC 

F0 

2E 


BEO 

SC72C 

C6FE 

A9 

14 


LDA 

# $14 

C700 

8D 

28 

0A 

STA 

S0A28 

C703 

A4 

EC 


LDY 

* SEC 

C705 

AE 

2A 

0A 

LDX 

S0A2A 

C708 

Bl 

E0 


LDA 

($E0),Y 

C70A 

2C 

26 

0A 

BIT 

$0A26 

C70D 

30 

10 


BMI 

$C71 F 

C70F 

8D 

29 

0A 

STA 

$0A29 

C712 

20 

7C 

CI 

JSR 

$C17C 

C715 

Bl 

E2 


LDA 

($E2), Y 

C717 

80 

2A 

0A 

STA 

S0A2A 

C71A 

A6 

Fl 


LDX 

* »Fl 


Rücksprung aus dem Unterprogramm 

Präpariert Tastaturbuffer für KEY 

Hole Länge von KEY X 
und in KEY-Zeichen-Zähler 
Es wird nun die Position des KEYs 
in der Gesamttabelle ermittelt 
Wenn alle Längen addiert, dann Ende 
sonst lösche Carry für Addition 
Addiere Länge von KEY X 
Wenn kein Überlauf, dann weiter 
sonst speichere Pointer ab 
Rücksprung aus dem Unterprogramm 

Tastencodes der 10 Funkt ionstasten 


Teste auf 40/80-Zeichen 
Wenn 80 Zeichen, dann Ende 
Hole VIC-Cursor-Modus 
Ist ausgeschaltet, dann Ende 
sonst erniedrige den Blinkzähler 
Wenn noch nicht null, dann Ende 
Hole VIC-Cursor-Modus 
Maskiere Bits 0-5 aus 
Cursor starr oder ausgeschaltet? 

Wenn ja, dann Ende 

Setze den VIC-Cursor-Blink-Zähler 

auf $14=20 

Hole aktuelle Cursor Spalte in Y-Reg 

Hole Farbe an Cursorp. zum Blinken 

Hole Zeichen an akt. Spalte 

Teste VIC-Cursor-Modus 

Zeichen wieder normal 

Zeichen an Cursorpos. vor Blinken 

Färb-RAM-Adresse setzen 

Hole Farbe an Cursorposition 

als Farbe vor Blinken merken 

Farbcode für Zeichenausgabe in X-Reg 


Fl 

F2 

F3 

F4 

F5 

F6 

F7 

F8 

F9 

(Shift-Run) 

F10 

(Help-Taste) 


VIC Cursor blinken lassen 
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C71C 

AD 

29 

OA 

LDA 

$0A29 

Zeichen an Cursorpos. vor Blinken 

C71F 

49 

80 


EOR 

# $80 

Invertiere das Negativ-Bit 

C721 

20 

40 

CC 

JSR 

$CC40 

Abspeichern von Zeichen und Farbe 

C724 

AD 

26 

OA 

LDA 

$0A26 

Hole VIC-Cursor-Modus 

C727 

49 

80 


EOR 

# $80 

Negiere den Blinkzustand 

C729 

8D 

26 

OA 

STA 

$0A26 

und wieder abspeichern 

C72C 

60 



RTS 


Rücksprung aus dem Unterprogramm 


BSOUT Einsprung f. Bildschirmausgabe 

C72D 

85 

EF 


STA 

* $EF 

Auszugebendes Zeichen in Z-P. retten 

C72F 

48 



PHA 


Akku Inhalt auf Stack retten 

C730 

8A 



TXA 


X-Reg Inhalt über Akku 

C731 

48 



PHA 


auf Stack retten 

C732 

98 



TYA 


Y-Reg Inhalt über Akku 

C733 

48 



PHA 


auf Stack retten 

C734 

AD 

21 

OA 

LDA 

$0A21 

Prüfe d. Inhalt des Z-P. Pause Flags 

C737 

DO 

FB 


BNE 

$C734 

Warten, bis Flag Wert 0 ist 

C739 

85 

D6 


STA 

* $06 

Input/Get Flag über Tastatur löschen 

C73B 

A9 

C3 


LDA 

# $C3 

Hi-Byte der Fortsetzung auf Stack, 

C73D 

48 



PHA 


um die Routine dann mit RTS anzu¬ 

C73E 

A9 

OB 


LDA 

# $0B 

springen. Jetzt auch noch das 

C740 

48 



PHA 


Byte der Fortsetzung auf Stack 

C741 

A4 

EC 


LDY 

* $EC 

Hole aktuelle Cursor Spalte in Y-Reg 

C743 

A5 

EF 


LDA 

* $EF 

Hole auszugebendes Zeichen aus ZwSp. 

C745 

C9 

OD 


CMP 

# $0D 

Ist es ein Wagenrücklauf <Cr> ? 

C747 

FO 

26 


BEO 

$C76F 

Ja, dann <Cr> ausgeben 

C749 

C9 

8D 


CMP 

# $8D 

Ist es ein Shift/Wagenrücklauf ? 

C74B 

FO 

22 


BEQ 

$C76F 

Ja, dann <Sh/Cr> ausgeben 

C74D 

A6 

FO 


LDX 

* $F0 

Hole Wert des vorherigen Zeichens 

C74F 

EO 

1B 


CPX 

n $1B 

War es <Esc>, dann Zeichen als Esc 

C751 

DO 

03 


BNE 

$C756 

Sequenz behandeln, sonst nach $C756 

C753 

4C 

BE 

C9 

JMP 

$C9BE 

Zur Auswertung von Escape Sequenzen 

C756 

AA 



TAX 


Auszugebendes Zeichen nach X-Reg 

C757 

10 

03 


BPL 

$C75C 

Ist es ein Zeichen von 0 - 127 ? 

C759 

4C 

02 

C8 

JHP 

$C802 

Nein, dann Auswertung: Erw. ASCII 

C75C 

C9 

20 


CMP 

# $20 

Ist auszugebendes Zeichen < Blank?) 

C75E 

90 

56 


BCC 

$C7B6 

Ja, dann zur Auswert. v. Steuercodes 

C760 

C9 

60 


CMP 

# $60 

Ist es ein Buchstabenzeichen ? 

C762 

90 

03 


BCC 

$C76 7 

Ja, dann zur Buchstabenausgabe 

C764 

29 

DF 


AND 

# $DF 

Bit 5 ausmaskieren 

C766 

.Byte S2C 



Ergibt Scheinbefehl : BIT $3F29 


und Skip nach SC769 
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****************************** 


C767 

29 

3F 


AND 

# $3F 

C769 

20 

FF 

C2 

JSR 

SC2FF 

C76C 

4C 

22 

C3 

JMP 

$C322 

****************************** 

C76F 

20 

C3 

CB 

JSR 

SC8C3 

C772 

E8 



INX 


C773 

20 

85 

CB 

JSR 

$CB85 

C776 

A4 

E6 


LDY 

* $E6 

C778 

84 

EC 


STY 

* SEC 

C77A 

20 

63 

C3 

JSR 

SC363 

****************************** 

C77D 

A5 

Fl 


LOA 

* $F 1 

C77F 

29 

CF 


AND 

n scf 

C781 

85 

Fl 


STA 

* SF1 

C783 

A9 

00 


LDA 

# $00 

C785 

85 

F5 


STA 

* SF5 

C787 

85 

F3 


STA 

* SF3 

C789 

85 

F4 


STA 

* $F4 

C78B 

60 



RTS 



****************************** 


C78C: 

02 

.Byte 

$02 

C78D: 

07 

.Byte 

$07 

C78E: 

09 

.Byte 

$09 

C78F: 

0A 

.Byte 

$0A 

C790: 

OB 

.Byte 

$0B 

C791: 

OC 

.Byte 

$0C 

C792: 

0E 

.Byte 

$0E 

C793: 

0F 

.Byte 

$0f 

C794: 

11 

.Byte 

$11 

C795: 

12 

.Byte 

$12 

C796: 

13 

.Byte 

$13 

C797: 

14 

.Byte 

$14 

C798: 

18 

.Byte 

$18 

C799: 

ID 

.Byte 

$1d 


****************************** 


C79A: C6 C8 $C8C6 


Buchstaben ausgeben 

Bit 6/7 des Zeichens ausmaskieren 
Teste auf Anführungszeichen 
Zeichen ausgeben 

<Carriage Return> - Neue Zeile 

Tuche Ende der Eingabezeite 
Lösche das Zeilenüberlaufbit 
der Folgezeile 

Linke Fenstergrenze in Y-Reg laden 
sichern der aktuellen Cursor Spalte 
Zeilenvorschub ausführen 

Rücksetzen von Quote/Insert/RVS 

Farbcode für Zeichenausgabe in Akku 

Revers und Flash aus bei VDC 

Farbcode für Zeichenausgabe sichern 

Lade Akku mit Null für aus 

und lösche die Bits Insert-Mode 

RVS-Flag 

Quote-Mode-Flag 

Rücksprung aus dem Unterprogramm 

Controlcodes 

2 = Unterstreichen ein 
7 = Bell 

9 = Tab anspringen 
A = Zeilenvorschub 
B = Sperre <Shift>/<Commodore> 

C = Freigeben von <Sh>/<C=> 

E = Lower Case 
F = Blinken ein 
11= Cursor Up 
12= Revers ein 
13= Home 
14= Delete 

18= Tab setzen/löschen 
10= Cursor Right 

Adressen der Routinen, die die 
Controlcodes ausführen (-1) 
werden mit RTS angesprungen. 

Unterstreichen ein 
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Tab anspringen 
Bell 

Zeilenvorschub 
Sperren <Sh>/<C=> 

Frei geben <Sh>/<C=> 

Lower Case 

Blinken ein 

Cursor Up 

Revers ein 

Home 

Delete 

Tab setzen/löschen 
Cursor Rechts 

Controlcodes ausführen 


C79C: 

8D 

C9 


$C98D 


C79E: 

4E 

C9 


$C94E 


C7A0: 

BO 

C9 


$C9B0 


C7A2: 

A5 

C8 


$C8A5 


C7A4: 

AB 

C8 


$C8AB 


C7A6: 

7F 

C8 


$C87F 


C7A8: 

D4 

C8 


$C8D4 


C7AA: 

59 

C8 


$C859 

C7AC: 

CI 

C8 


$C8C1 


C7AE: 

B2 

C8 


$C8B2 


C7B0: 

1A 

C9 


$C91A 

C7B2: 

60 

C9 


$C960 

C7B4: 

53 

C8 


$C853 

****************************** 

C7B6: 

6C 

34 

03 

JMP 

($0334) 

C7B9: 

C9 

1B 


CMP 

# $1B 

C7BB: 

F0 

38 


BEQ 

$C7F5 

C7BD: 

A6 

F5 


LDX 

* $F5 

C7BF: 

DO 

08 


BNE 

$C7C9 

C7C1: 

C9 

14 


CMP 

# $14 

C7C3: 

F0 

OB 


BEQ 

$C7D0 

C7C5: 

A6 

F 4 


LDX 

* $F4 

C7C7: 

F0 

07 


BEQ 

$C7D0 

C7C9: 

A2 

00 


LDX 

# $00 

C7CB: 

86 

EF 


STX 

* $EF 

C7CD: 

4C 

26 

C3 

JMP 

$C326 

****************************** 

C7D0: 

A2 

0D 


LDX 

# $0D 

C7D2: 

DD 

8C 

C7 

CMP 

$C78C,X 

C7D5: 

F0 

1F 


BEQ 

$C7F6 

C7D7: 

CA 



DEX 


C7D8: 

10 

F8 


BPL 

$C7D2 

C7DA: 

A2 

0F 


LDX 

U $0F 

C7DC: 

DD 

4C 

CE 

CMP 

$CE4C,X 

C7DF: 

F0 

04 


BEQ 

$C7E5 

C7E1: 

CA 



DEX 


C7E2: 

10 

F8 


BPL 

$C7DC 

C7E4: 

60 



RTS 


****************************** 

C7E5: 

24 

D7 


BIT 

* $D7 

C7E7: 

30 

03 


BMI 

$C7EC 

C7E9: 

86 

Fl 


STX 

* $F 1 


Vektor Zeichenausgabe mit Ctrl 
ist Zeichen <ESC>? 

Ja, dann Ende 
Insert-Modus gesetzt? 

Ja, dann Zeichen revers ausgeben 
Ist das Zeichen <Delete>? 

Dann ausführen 

Ist das Quote-Mode-Flag gesetzt? 
Wenn ja, dann Zeichen revers 
Das zuletzt gedruckte Zeichen 
in Zeropage löschen 
und Zeichen revers ausgeben 

Vergleiche A mit mögl. Ctrl.Codes 

X ist der Zähler für Control - Codes 
vergleiche mit Tabelle 
Gefunden? Dann Sprung zum Ausführen 
sonst erniedrige den Zähler und 
vergleiche mit nächsten Wert 
Nun noch mit den 16 möglichen 
Codes zum Wechseln der Farbe 
vergleichen. Sprung, wenn gefunden 
sonst erniedrige Zähler und 
vergleiche mit nächstem Wert 
Rücksprung aus dem Unterprogramm 

Farbe setzen - 40 Zeichen 

Teste 40/80-Zeichen-Modus 
Bei 80-Zeichen-Modus springen 
Farbcode für Zeichenausgabe sichern 
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C7EB: 60 RTS Rücksprung aus dem Unterprogramm 

****************************** Farbe setzen - 80-Zeichen-Modus 


C7EC 

A5 

Fl 


LDA 

* $F 1 

Farbcode für Zeichenausgabe in Akku 

C7EE 

29 

FO 


AND 

# $F0 

Untere Tetrade (B. 0-3) ausmaskieren 

C7F0 

ID 

5C 

CE 

ORA 

$CE5C,X 

mit Farbcodetabelle verknüpfen 

C7F3 

85 

Fl 


STA 

* SF1 

Farbcode für Zeichenausgabe sichern 

C7F5 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Controlcodes ausführen 

C7F6 

8A 



TXA 


Zeiger nach Akku und dann 

C7F7 

0A 



ASL 


mit zwei multiplizieren, da ein 

C7F8 

AA 



TAX 


16-Bit-Uert geholt wird. 

C7F9 

BD 

9B 

C7 

LDA 

$C79B,X 

Hole Lo-Byte der Startadresse 

C7FC 

48 



PHA 


in Akku und hole 

C7FD 

BD 

9A 

C7 

LDA 

$C79A,X 

Hi-Byte der Startadresse auch 

C800 

48 



PHA 


in Akku. Wird dann mit 


C801: 

60 



RTS 


RTS angesprungen 

****************************** 

Erweiterten ASCII analysieren 

C802: 

6C 

36 

03 

JMP 

($0336) 

Vektor Zeichenausgabe mit Shift 

C805: 

29 

7F 


AND 

# $7F 

Bit 7 ausblenden, nicht geshifted 

C807: 

C9 

20 


CMP 

# $20 

Vergleiche mit <Space> 

C809: 

90 

09 


BCC 

$C814 

Kleiner als 32 

C80B: 

C9 

7F 


CMP 

# $7F 

Ist es ASCII- Code 127? 

C80D: 

DO 

02 


BNE 

SC811 

Falls nicht, dann springe 

C80F: 

A9 

5E 


LDA 

# $5E 

ASCII-Code für Pfeil-nach-oben 

C811: 

4C 

20 

C3 

JMP 

$C320 

und ausgeben 

C814: 

A6 

F4 


LDX 

* $F4 

Hole Quote-Mode-Flag 

C816: 

F0 

05 


BEQ 

$C81D 

Springe, wenn nicht gesetzt 

C818: 

09 

40 


ORA 

# $40 

sonst setze Bit 6 

C81A: 

4C 

26 

C3 

JMP 

$C326 

als Reverszeichen ausgeben 

C81D: 

C9 

14 


CMP 

# $14 

Ist das Zeichen <INSERT>? 

C81F: 

DO 

03 


BNE 

$C824 

Springe, wenn nicht <INSERT> 

C821: 

4C 

E3 

C8 

JMP 

$C8E3 

Sonst führe <INSERT> aus 

C824: 

A6 

F5 


LDX 

* $F5 

Hole Insert-Mode-Flag 

C826: 

DO 

F 0 


BNE 

$C818 

Wenn gesetzt, dann wie bei Quote 

C828: 

C9 

11 


CMP 

# $11 

Vergleiche mit Cursor-Hoch 

C82A: 

F0 

3B 


BEQ 

$C867 

Springe, wenn Cursor-Up 

C82C: 

C9 

ID 


CMP 

# $1D 

Cursor-Links? 

C82E: 

F0 

45 


BEQ 

$C875 

Wenn ja, dann führe aus 

C830: 

C9 

0E 


CMP 

# $0E 

Vergleiche, ob UPPERCASE 

C832: 

F0 

5E 


BEQ 

$C892 

Springe zur Ausführung 
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C834: 

C9 

12 


CMP 

# $12 

C836: 

DO 

03 


BNE 

$C83B 

C838: 

4C 

BF 

C8 

JMP 

$C8BF 

C83B: 

C9 

02 


CMP 

# $02 

C83D: 

DO 

03 


BNE 

$C842 

C83F: 

4C 

CE 

C8 

JMP 

$C8CE 

C842: 

C9 

0F 


CMP 

# $0F 

C844: 

DO 

03 


BNE 

$C849 

C846: 

4C 

DC 

C8 

JMP 

$C8DC 

C849: 

C9 

13 


CMP 

# $13 

C84B: 

DO 

03 


BNE 

$C850 

C84D: 

4C 

42 

CI 

JMP 

$C142 

C850: 

09 

80 


0RA 

# $80 

C852: 

DO 

86 


BNE 

$C7DA 


****************************** 


C854 

o 

r\j 

ED CB 

JSR 

$CBED 

C857 

B0 

04 

BCS 

$C85D 

C859 

60 


RTS 


***************** 

*********** 

C85A 

20 

63 C3 

JSR 

$C363 

C85D 

20 

74 CB 

JSR 

$CB74 

C860 

B0 

03 

BCS 

$C865 

C862 

38 


SEC 


C863 

66 

E8 

ROR 

U $E8 

C865 

18 


CLC 


C866 

60 


RTS 



****************************** 


C867 

A6 

E5 


LDX 

* $E5 

C869 

E4 

EB 


CPX 

* $EB 

C86B 

B0 

F9 


BCS 

$C866 

C86D 

20 

SD 

C8 

JSR 

$C85D 

C870 

C6 

EB 


DEC 

* $EB 

C872 

4C 

5C 

CI 

JMP 

$C15C 


****************************** 


C875: 

20 

00 CC 

JSR 

$CC00 

C878: 

B0 

EC 

BCS 

$C866 

C87A: 

DO 

E9 

BNE 

$C865 

C87C: 

E6 

EB 

INC 

* $EB 


Revers off? 

Nein, dann überspringe 
Sonst lösche RVS-Modus 
Unterstreichen einschalten? 

Uenn nicht, dann überspringe 
Sonst setze Unterstreich-Modus 
Blink-Modus ausschalten? 
Überspringe, wenn nicht 
sonst lösche Blink-Modus 
Ist es <CLR/HOME>? 

Überspringe, wenn nein 
sonst Fenster löschen 
Setze Bit 7, da es eine Farbe 
sein muß und springe in Auswertung 

Cursor rechts im Fenster 

Cursor um eine Stelle nach rechts 

Neue Zeile begonnen 

Rücksprung aus dem Unterprogramm 

Cursor Down 

Zeilenvorschub ausführen 

Zeilenüberlaufbit testen 

Zeile hatte überlange 

Setze Carry und rotiere 

es in die Starteingabezeile 

Lösche Carry für OK 

Rücksprung aus dem Unterprogramm 


Cursor Up 

Obere Fenstergrenze in X-Reg laden 
vergleiche m. aktueller Cursor Zeile 
ist kleiner oder gleich 
Zeilenstatus setzen 
aktuelle Cur. Zeile um 1 vermindern 
Startadresse akt. Zeile ermitteln 

Cursor links im Fenster 

Cursor links 

Cursor wurde nicht bewegt 
Cursor bewegt, keine neue Zeile 
aktuelle Cursor Zeile um 1 erhöhen 
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C87E 

DO 

ED 

BNE 

$C86D 

****************************** 

C880 

24 

D7 

BIT 

* $D7 

C882 

30 

07 

BMI 

$C88B 

C884 

AD 

2C 0A 

LDA 

$0A2C 

C887 

09 

02 

ORA 

# $02 

C889 

DO 

10 

BNE 

$C89B 

C88B 

A5 

Fl 

LDA 

* $F1 

C88D 

09 

80 

ORA 

# $80 

C88F 

85 

Fl 

STA 

* $F 1 

C891 

60 


RTS 


****************************** 

C892 

24 

D7 

BIT 

* $D7 

C894 

30 

09 

BMI 

$C89F 

C896 

AD 

2C 0A 

LDA 

$0A2C 

C899 

29 

FD 

AND 

# $FD 

C89B 

8D 

2C 0A 

STA 

$0A2C 

C89E 

60 


RTS 


****************************** 

C89F 

A5 

Fl 

LDA 

* $F 1 

C8A1 

29 

7F 

AND 

# $7F 

C8A3 

85 

Fl 

STA 

* $F 1 

C8A5 

60 


RTS 


****************************** 

C8A6 

A9 

80 

LDA 

# $80 

C8A8 

05 

F7 

ORA 

* $F7 

C8AA 

30 

04 

BMI 

$C8B0 

C8AC 

A9 

7F 

LDA 

# $7F 

C8AE 

25 

F7 

AND 

* $F7 

C8B0 

85 

F7 

STA 

* $F7 

C8B2 

60 


RTS 


****************************** 

C8B3 

A5 

F0 

LDA 

* $F0 

C8B5 

C9 

13 

CMP 

# $13 

C8B7 

DO 

03 

BNE 

$C8BC 

C8B9 

20 

24 CA 

JSR 

$CA24 

C8BC 

4C 

50 CI 

JMP 

$C150 


unbedingter Sprung 

2. Zeichensatz 

Teste 40/80-Zeichen-Modus 
Springe bei 80-Zeichen-Modus 
Hole CHARROM-Basisadresse 
Setze Bits 0 und 1 
Springe unbedingt 

Farbcode für Zeichenausgabe in Akku 
Alternate-Zeichensatz auswählen 
Farbcode für Zeichenausgabe sichern 
Rücksprung aus dem Unterprogramm 

<Shift> <Commodore> 

Teste 40/80-Zeichen-Modus 

Bei 80-Zeichen-Modus springen 

Hole Basisadresse CHARROM 

Lösche Bits 0 und 1 

als neue Basisadresse abspeichern 

Rücksprung aus dem Unterprogramm 

<Shift> <Commodore> 80-Zeichen 

Farbcode für Zeichenausgabe in Akku 
Bit 7 löschen, erster Zeichensatz 
Farbcode für Zeichenausgabe sichern 
Rücksprung aus dem Unterprogramm 

«Shift» <Commodore> sperren/freig. 

Bit 7 setzen zum Sperren und mit 

Flagregister verORen 

Unbedingter Sprung 

Bit 7 löschen, um Tasten 

freizugeben 

und abspeichern 

Rücksprung aus dem Unterprogramm 

Teste auf «Home»-<Home>-Kombination 

Hole zuletzt ausgegebenes Zeichen 
War es HOME? 

Wenn nicht, dann Ende der Routine 
sonst löse Fenster auf 
Springe nach Cursor-Home 
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Revers-Modus setzen/löschen 


****************************** 


C8BF: 

A9 00 

LDA # 

o 

o 

& 

C8C1: 

2C 

.Byte 

$2C 

C8C2: 

A9 80 

LDA # 

o 

CO 

C8C4: 

85 F3 

STA * 

$F3 

C8C6: 

60 

RTS 



****************************** 


C8C7 

A5 

Fl 


LDA 

* $F1 

C8C9 

09 

20 


0RA 

n $20 

C8CB 

85 

Fl 


STA 

* $F1 

C8CD 

60 



RTS 


****************************** 

C8CE 

A5 

Fl 


LDA 

* $F1 

C8D0 

29 

DF 


AND 

# $DF 

C8D2 

85 

Fl 


STA 

* $F1 

C8D4 

60 



RTS 


****************************** 

C8D5 

A5 

Fl 


LDA 

* $F 1 

C8D7 

09 

10 


0RA 

# $10 

C8D9 

in 

CO 

Fl 


STA 

* $F1 

C8DB 

60 



RTS 


****************************** 

C8DC 

A5 

Fl 


LDA 

* $F 1 

C8DE 

29 

EF 


AND 

# $EF 

C8E0 

85 

Fl 


STA 

* $F 1 

C8E2 

60 



RTS 


****************************** 

C8E3 

20 

IE 

cc 

JSR 

$CC1E 

C8E6 

20 

C3 

CB 

JSR 

$CBC3 

C8E9 

E4 

DF 


CPX 

* $DF 

C8EB 

DO 

02 


BNE 

$C8EF 

C8ED 

C4 

DE 


CPY 

* $DE 

C8EF 

90 

21 


BCC 

$C912 

C8F1 

20 

3E 

C3 

JSR 

$C33E 

C8F4 

B0 

22 


BCS 

$C918 

C8F6 

20 

00 

CC 

JSR 

$CC00 

C8F9 

20 

58 

CB 

JSR 

$CB58 


Akku mit Null laden, RVS löschen 
Skip nach $C8C4 

Bit 7 setzen, RVS-Modus einschalten 

und Flag abspeichern 

Rücksprung aus dem Unterprogramm 


Farbcode für Zeichenausgabe in Akku 
Bit 5 setzen für Unterstreichen ein 
Farbcode für Zeichenausgabe sichern 
Rücksprung aus dem Unterprogramm 


Farbcode für Zeichenausgabe in Akku 
Bit 5 löschen, Unterstreichen aus 
Farbcode für Zeichenausgabe sichern 
Rücksprung aus dem Unterprogramm 


Farbcode für Zeichenausgabe in Akku 
Bit 4 setzen für Flash ein 
Farbcode für Zeichenausgabe sichern 
Rücksprung aus dem Unterprogramm 

Blink-Modus ausschalten 

Farbcode für Zeichenausgabe in Akku 
Bit 4 löschen, kein Flash 
Farbcode für Zeichenausgabe sichern 
Rücksprung aus dem Unterprogramm 

Insert ausführen 

Kopiere Cursor-Koordinaten 
Suche Ende der Eingabezeile 
vergleiche Zeile mit Cursorzeile 
Hat sich geändert, dann Sprung 
vergleiche Spalte mit akt. Spalte 
ist kleiner geworden 
Cursor ans Zeilenende 
Es kann nicht gescrollt werden 
Cursor um eins nach links 
Hole Zeichen und Farbe Cursorpos. 


Unterstreichen einschalten 


Unterstreichen ausschalten 


Blink-Modus setzen 
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C8FC 

20 

ED 

CB 

JSR 

SCBED 

Cursor wieder um eine Stelle rechts 

C8FF 

20 

32 

CC 

JSR 

SCC32 

Zeichen ausgeben 

C902 

20 

00 

CC 

JSR 

SCCOO 

Cursor um eine Stelle nach links 

C905 

A6 

EB 


LDX 

* SEB 

Hole aktuelle Cursor Zeile in X-Reg 

C907 

E4 

DF 


CPX 

* SDF 

vergleiche mit Anfangscursorzeile 

C909 

DO 

EB 


BNE 

SC8F6 

nächstes Zeichen kopieren 

C90B 

C4 

DE 


CPY 

* SDE 

vergleiche Spalte mit Anfangsspalte 

C90D 

DO 

E7 


BNE 

SC8F6 

wenn noch nicht erreicht, weiter 

C90F 

20 

27 

CC 

JSR 

SCC27 

Space an aktuelle Cursorposition 

C912 

E6 

F5 


INC 

* SF5 

Erhöhe den Zähler für Insert 

C914 

DO 

02 


BNE 

SC918 

Wenn ungleich null, dann Sprung 

C916 

C6 

F5 


DEC 

* SF5 

sonst Insert wieder zurücksetzen 

C918 

4C 

32 

C9 

JMP 

SC932 

alte Cursorpos. zurücksetzen 

*******★**★*******★*★*★*•*****★ 

Zeichen links von Cursor löschen 

C91B 

o 

OJ 

75 

C8 

JSR 

SC875 

Cursor links mit Bitbeeinflussung 

C91E 

20 

IE 

CC 

JSR 

SCC1E 

Kopiere die Cursor-Koordinate 

C921 

B0 

0F 


BCS 

SC932 

Cursor links nicht möglich 

C923 

C4 

E7 


CPY 

* SE7 

vergleiche mit rechter Fenstergrenze 

C925 

90 

16 


BCC 

SC93D 

Grenze noch nicht erreicht 

C927 

A6 

EB 


LDX 

* SEB 

Hole aktuelle Cursor Zeile in X-Reg 

C929 

E8 



I NX 


erhöhe die Zeile um 1 

C92A 

20 

76 

CB 

JSR 

SCB76 

Teste Überlauf-Bit 

C92D 

B0 

0E 


BCS 

SC93D 

Es gibt Folgezeile, 

C92F 

20 

27 

CC 

JSR 

SCC27 

sonst <Space> an akt. Position 

****************************** 

Alte Cursor-Adresse wieder setzen 

C932 

A5 

DE 


LDA 

* SDE 

Hole zwischengespeicherte Spalte 

C934 

85 

EC 


STA 

* SEC 

sichern der aktuellen Cursor Spalte 

C936 

A5 

DF 


LDA 

* SDF 

Hole zwischengespeicherte Zeile 

C938 

85 

EB 


STA 

* SEB 

aktuelle Cursor Zeile zurückschrcib. 

C93A 

4C 

5C 

CI 

JMP 

SC15C 

Ermittle Startadresse der Zeile 

****************************** 

Zeichen unter Cursor löschen 

C93D 

20 

ED 

CB 

JSR 

SCBED 

Cursor um eins nach rechts 

C940 

20 

58 

CB 

JSR 

SCB58 

Hole Zeichen und Farbe an Cursor 

C943 

20 

00 

CC 

JSR 

SCCOO 

Cursor wieder um 1 nach links 

C946 

20 

32 

CC 

JSR 

SCC32 

Zeichen an Cursorpos 

C949 

20 

ED 

CB 

JSR 

SCBED 

Cursor wieder nach rechts 

C94C 

4C 

23 

C9 

JMP 

SC923 

Zeile nach Cursor verschieben 


*******************★*★★*★★*★*★ Tabulator ansprin 9 Gn 


C94F: A4 EC 
C951: C8 


LDY * SEC 
INY 


Hole aktuelle Cursor Spalte in Y-Reg 
Erhöhe den Spaltenzeiger 
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C952 

C4 

E7 

CPY 

* $E7 

C954 

BO 

06 

BCS 

$C95C 

C956 

20 

6C C9 

JSR 

SC96C 

C959 

F0 

F6 

BEQ 

SC951 

C95B 

2C 


.Byte $2C 

C95C 

A4 

E7 

LDY 

* $E7 

C95E 

84 

EC 

STY 

* SEC 

C960 

60 


RTS 


****************************** 

C961 

A4 

EC 

LDY 

* SEC 

C963 

20 

6C C9 

JSR 

SC96C 

C966 

45 

DA 

EOR 

* SDA 

C968 

9D 

54 03 

STA 

$0354,X 

C96B 

60 


RTS 


****************************** 

C96C 

98 


TYA 


C96D 

29 

07 

AND 

U $07 

C96F 

AA 


TAX 


C970 

BD 

6C CE 

LDA 

SCE6C.X 

C973 

85 

DA 

STA 

* SDA 

C975 

98 


TYA 


C976 

4A 


LSR 

A 

C977 

4A 


LSR 

A 

C978 

4A 


LSR 

A 

C979 

AA 


TAX 


C97A 

BD 

54 03 

LDA 

$0354,X 

C97D 

24 

DA 

BIT 

* SDA 

C97F 

60 


RTS 


****************************** 

C980 

A9 

00 

LDA 

# $00 

C982 

2C 


.Byte $2C 

C983 

A9 

80 

LDA 

# $80 

C985 

A2 

09 

LDX 

tt $09 

C987 

90 

54 03 

STA 

$0354,X 

C98A 

CA 


DEX 


C98B 

10 

FA 

BPL 

$C987 

C98D 

60 


RTS 


****************************** 

C98E 

24 

F9 

BIT 

* $F9 

C990 

30 

FB 

BMI 

$C98D 


vergleiche mit rechter Fenstergrenze 
Keine Tabs mehr möglich 
Hole nächste Tab-Position 
Cursor steht auf Tab-Pos., nochmal 
Skip nach $C95E 
Rechte Fenstergrenze nach Y 
sichern der aktuellen Cursor Spalte 
Rücksprung aus dem Unterprogramm 

Tabulator setzen/löschen 

Hole aktuelle Cursor Spalte in Y-Reg 
Hole Tabulatorbyte 
Umkehren des Tabulatorbits 
und wieder abspeichern 
Rücksprung aus dem Unterprogramm 

Tabulatorposition ermitteln 

Spalte in Akkumulator kopieren 

Bits 4-7 ausmaskieren=A MOD 7 

Und nach X-Register als Zeiger 

Hole Zweierpotenz 

und in SDA Zwischenspeichern 

Spalte wieder in Akku 

Akku wird dreimal 

nach rechts geshifted, was 

INT (A/8) gleichkommt 

wieder nach X-Register als Zeiger 

Tabulatorbyte holen 

Teste, ob 8. Tab gesetzt ist 

Rücksprung aus dem Unterprogramm 

Löschen der Tabs (bzw. Reset) 

Lade Akku mit Null, um zu löschen 
Skip nach $C985 
Jede 8. Stelle ist Tabulator 
Es werden alle 10 Tab-Bytes 
mit dem Wert beschrieben 
Erniedrige Zähler und 
springe, wenn noch nicht fertig 
Rücksprung aus dem Unterprogramm 

CHR$(7) Bell-Ton erklingt 

Teste Beep-Flag 
Kein Ton, bitte! 
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C992 

A9 

15 


LDA 

# $15 

C994 

8D 

18 

D4 

STA 

$D418 

C997 

AO 

09 


LDY 

# $09 

C999 

A2 

00 


LDX 

# $00 

C99B 

8C 

05 

D4 

STY 

$D405 

C99E 

8E 

06 

D4 

STX 

$D406 

C9A1 

A9 

30 


LDA 

# $30 

C9A3 

8D 

01 

D4 

STA 

$D401 

C9A6 

A9 

20 


LDA 

# $20 

C9A8 

8D 

04 

D4 

STA 

$0404 

C9AB 

A9 

21 


LDA 

# $21 

C9AD 

8D 

04 

D4 

STA 

$D404 

C9B0 

60 



RTS 


****************************** 

C9B1 

A5 

EC 


LDA 

* $EC 

C9B3 

48 



PHA 


C9B4 

20 

C3 

CB 

JSR 

$CBC3 

C9B7 

20 

63 

C3 

JSR 

$C363 

C9BA 

68 



PLA 


C9BB 

85 

EC 


STA 

* $EC 

C9BD 

60 



RTS 


****************************** 

C9BE 

6C 

38 

03 

JMP 

($0338) 

C9C1 

C9 

1B 


CMP 

# $1B 

C9C3 

DO 

05 


BNE 

$C9CA 

C9C5 

46 

EF 


LSR 

* $EF 

C9C7 

4C 

7D 

C 7 

JMP 

$C77D 

C9CA 

29 

7F 


AND 

n $7f 

C9CC 

38 



SEC 


C9CD 

E9 

40 


SBC 

# $40 

C9CF 

C9 

1B 


CMP 

# $1B 

C9D1 

BO 

0A 


BCS 

$C9DD 

C9D3 

0A 



ASL 

A 

C9D4 

AA 



TAX 


C9D5 

BD 

DF 

C9 

LDA 

$C9D F, X 

C9D8 

48 



PHA 


C9D9 

BD 

DE 

C9 

LDA 

$C9DE,X 

C9DC 

48 



PHA 


C9DD 

60 



RTS 



****************************** 

C9DE: 9E CA $CA9E 

C9E0: EC CA $CAEC 


Die Lautstärke des SIDs wird 
auf 15 (maximal) gesetzt! 
Attack/Decay-Konstante 
Sustain/Re lease-Konstante 
in die entsprechenden Register 
ablegen (für Stimme 1) 

Hi-Byte der Frequenz 

für Stimme 1 definieren 

Sägezahnschwingung auswählen 

und SID mitteilen 

Durch Setzen des Bits 0 wird 

der Ton angeschlagen 

Rücksprung aus dem Unterprogramm 

<LF> - Cursor-Spalte bleibt 

Hole aktuelle Cursor Spalte in Akku 
Rette akt. Spalte auf Akku 
Suche Ende der Zeile 
Zeilenvorschub ausführen 
Hole aktuelle Spalte wieder 
sichern der aktuellen Cursor Spalte 
Rücksprung aus dem Unterprogramm 

ESC-Sequenzen ausführen 

Vektor Zeichenausgabe mit Esc 
ist Zeichen <ESC>? 

Springe, wenn anderes Zeichen 
Aktuelles Zeichen durch 2 
Alle Sonderfunktionen ausschalten 
Bit 7 ausblenden, keine RVS Zeichen 
Setze Carry für Subtraktion 
Subtrahiere 64 von ASCII-Wert 
Vergleiche mit 27 

Rückkehr, wenn Zeichen größer als Z 

Akku mal 2, da 16-Bit-Wert geholt 

wird und nach X als Zeiger 

Hole Hi-Byte der Ausführungsroutine 

Rette auf Stack 

Hole Lo-Byte der Routine 

auf Stack. Springe Routine durch 

RTS an. Adresse ist auf Stack 

Adressen der ESC-Routinen 

<ESC> 3 - Lösche Cursor bis Ende 
<ESC> A - Auto-Insert ein 
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C9E2 

15 

CA 


ICA15 

<ESC> B - 

Setze unteren Fensterrand 

C9E4 

E9 

CA 


SCAE9 

<ESC> C • 

Auto-Insert aus 

C9E6 

51 

CA 


$CA51 

<ESC> D - 

Lfd. Zeile löschen 

C9E8 

OA 

CB 


$CBOA 

<ESC> E • 

Cursor blinken aus 

C9EA 

20 

CB 


SCB20 

<ESC> F - 

Cursor blinken ein 

C9EC 

36 

CB 


SCB36 

<ESC> G - 

Signalton zulassen 

C9EE 

39 

CB 


SCB39 

<ESC> H - 

Signalton verhindern 

C9F0 

3C 

CA 


$CA3C 

<ESC> I - 

Zeile einfügen 

C9F2 

BO 

CB 


tCBBO 

<ESC> J - 

Cursor an Anfang Zeile 

C9F4 

51 

CB 


SCB51 

<ESC> X - 

Cursor an Ende Zeile 

C9F6 

El 

CA 


SCAE1 

<ESC> L - 

Scrollen zulassen 

C9F8 

E4 

CA 


$CAE4 

<ESC> M - 

Scrollen verhindern 

C9FA 

47 

CB 


SCB47 

<ESC> N - 

Revers aus (80er) 

C9FC 

7C 

C7 


$C77C 

<ESC> 0 - 

Insert, Quote, RVS aus 

C9FE 

8A 

CA 


$CA8A 

<ESC> P - 

Cursor bis Zeilenbeginn 

CAOO 

75 

CA 


$CA75 

<ESC> Q - 

Cursor bis Zeilenende clr 

CA02 

3E 

CB 


$CB3E 

<ESC> R - 

Reverser Bildschirm (80) 

CA04 

Fl 

CA 


$CAF 1 

<ESC> S - 

Block-Cursor (80er) 

CA06 

13 

CA 


$CA13 

<ESC> T • 

Oberen Fensterrand setzen 

CA08 

FD 

CA 


$CAFD 

<ESC> U - 

Underline Cursor (80er) 

CAOA 

BB 

CA 


$CABB 

<ESC> V - 

Aufwärts scrollen 

CAOC 

C9 

CA 


SCAC9 

<ESC> U - 

Abwärts scrollen 

CAOE 

2B 

CD 


SCD2B 

<ESC> X - 

Umschalten 40/80-Zeichen 

CAIO 

82 

C9 


$C982 

<ESC> Y - 

Alle TABs normal setzen 

CA12 

7F 

C9 


SC97F 

<ESC> Z - 

Alle TABs löschen 

******************************* 

Definition von Fenstergrenzen 

CA 14 

18 



CLC 

Cursorposition ist links/oben 

CA15 

24 



.Byte $24 

Skip nach 

SCA17 

CA 16 

38 



SEC 

Cursorposition ist rechts/untcn 

CA 17 

A6 

EC 


LDX * SEC 

Hole aktuelle Cursor-Spalte in X-Reg 

CA19 

A5 

EB 


LDA * $EB 

Hole aktuelle Cursor-Zeile in Akku 

CA1B 

90 

11 


BCC $CA2E 

Bei gelöschtem Carry: links/oben! 

CA1D 

85 

E4 


STA * $E4 

Untere Fenstergrenze definieren 

CA1F 

86 

E7 


STX * $E7 

sowie rechte Grenze des Fensters 

CA21 

4C 

32 

CA 

JMP $CA32 

Rest der 

Routine ausführen 


Bildschirm als Fenster definieren 

CA24 

A5 

ED 


LDA * SED 

Hole Maximalzeilenzahl in Akku 

CA26 

A6 

EE 


LDX * SEE 

Hole Maximal spaltenzahl nach X 

CA28 

20 

ID 

CA 

JSR SCA1D 

Als rechts/unten definieren 

CA2B 

A9 

00 


LDA # $00 

Links oben mit 0/0 

CA2D 

AA 



TAX 

belegen und 

CA2E 

85 

E5 


STA * SE5 

auch als 

l i nke und 

CA30 

86 

E6 


STX * SE6 

obere Grenze definieren 

CA32 

A9 

00 


LDA # $00 

Akku wird 

mit Null geladen und 
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CA34 

A2 

04 

LDX 

# $04 

CA36 

9D 

50 03 

STA 

$0350, X 

CA39 

CA 


DEX 


CA3A 

DO 

FA 

BNE 

$CA36 

CA3C 

60 


RTS 



****************************** 


CA3D 

20 

7C 

C3 

JSR 

$C37C 

CA40 

20 

56 

CI 

JSR 

$C156 

CA43 

E8 



I NX 


CA44 

20 

76 

CB 

JSR 

$CB76 

CA47 

08 



PHP 


CA48 

20 

81 

CB 

JSR 

$CB81 

CA4B 

28 



PLP 


CA4C 

B0 

03 


BCS 

$CA51 

CA4E 

38 



SEC 


CA4F 

66 

E8 


R0R 

n $e8 

CA51 

60 



RTS 


****************************** 

CA52 

20 

B5 

CB 

JSR 

$CBB5 

CA55 

A5 

E5 


LOA 

* $E5 

CA57 

48 



PHA 


CA58 

A5 

EB 


LOA 

* $EB 

CA5A 

85 

E5 


STA 

* $E5 

CA5C 

A5 

F8 


LDA 

* $F8 

CA5E 

48 



PHA 


CA5F 

A9 

80 


LDA 

# $80 

CA61 

85 

F8 


STA 

* $F8 

CA63 

20 

B8 

C3 

JSR 

$C3B8 

CA66 

68 



PLA 


CA67 

85 

F8 


STA 

* $F8 

CA69 

A5 

E5 


LDA 

* $E5 

CA6B 

85 

EB 


STA 

* $EB 

CA6D 

68 



PLA 


CA6E 

85 

E5 


STA 

* $E5 

CA 70 

38 



SEC 


CA71 

66 

E8 


ROR 

# $E8 

CA 73 

4C 

56 

CI 

JMP 

$C156 

****************************** 

CA 76 

20 

iE 

cc 

JSR 

$CC1E 

CA79 

20 

AA 

C4 

JSR 

$C4AA 

CA7C 

E6 

EB 


INC 

* $EB 

CA7E 

20 

5C 

CI 

JSR 

$C15C 


das X-Register mit 4, um die 
Zeilenüberlaufbits zu löschen 
Erniedrige Zähler und springe, 
wenn noch nicht alle Bits gelöscht 
Rücksprung aus dem Unterprogramm 

Zeile einfügen 

Restbildschirm nach X verschieben 
Cursor links und Startad. ermitteln 
erhöhe die Zeile 
Zeilenüberlaufbit testen 
Rette das Carry 

Zeilenüberlaufbit setzen/löschen 
Hole Carry wieder von Stack 
Cursorzeile ist Startzeile 
sonst markiere akt. Zeile 
als Folgezeile 

Rücksprung aus dem Unterprogramm 

Laufende Zeile löschen 

Zeilenanfangsadresse setzen 
Obere Fenstergrenze in Akku laden 
Rette Fenstergrenze auf Stack 
Hole aktuelle Cursor-Zeile in Akku 
als obere Fenstergrenze definieren 
Scrollflag auf 
Stack sichern 

Scrollen erst einmal nicht 
ermöglichen 
Aufwärts scrollen 
Hole Scrollflag wieder zurück 
und auch wieder rekonstruieren 
Obere Fenstergrenze in Akku laden 
aktuelle Cursor Zeile zurückschreib. 
Hole obere Fenstergrenze 
und wieder zurückspeichern 
Setze Carry, um in $E8 hineinzu¬ 
schieben; markiere als Folgezeile 
Cursor linke Fenstergrenze 

Cursor bis Zeilenende löschen 

Rette Cursorkoordinaten 
Lösche akt. Zeile ab Cursor 
aktuelle Cursor Zeile um 1 erhöhen 
Ermittle Startadresse Zeile 
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CA81: 

A4 

E6 


LDY 

* $E6 

CA83: 

20 

74 

CB 

JSR 

SCB74 

CA86: 

BO 

Fl 


BCS 

$CA79 

CA88: 

4C 

32 

C9 

JMP 

SC932 


****************************** 


CA8B 

20 

IE 

CC 

JSR 

$CC1 E 

CA8E 

20 

27 

CC 

JSR 

SCC27 

CA91 

C4 

E6 


CPY 

* $E6 

CA93 

DO 

05 


BNE 

$CA9A 

CA95 

20 

74 

CB 

JSR 

SCB74 

CA98 

90 

EE 


BCC 

$CA88 

CA9A 

20 

00 

CC 

JSR 

$CC00 

CA9D 

90 

EF 


BCC 

$CA8E 

****************************** 

CA9F 

20 

IE 

CC 

JSR 

SCC1E 

CAA2 

20 

AA 

C4 

JSR 

$C4AA 

CAA5 

E6 

EB 


INC 

* SEB 

CAA7 

20 

5C 

Ci 

JSR 

$C15C 

CAAA 

A4 

E6 


LDY 

* $E6 

CAAC 

20 

74 

CB 

JSR 

SCB74 

CAAF 

B0 

Fl 


BCS 

SCAA2 

CABl 

A5 

EB 


LDA 

* SEB 

CAB3 

C5 

E4 


CMP 

* SE4 

CAB5 

90 

EB 


BCC 

SCAA2 

CAB7 

F0 

E9 


BEO 

SCAA2 

CAB9 

4C 

32 

C9 

JMP 

SC932 

****************************** 

CABC 

20 

IE 

CC 

JSR 

ICC IE 

CABF 

8A 



TXA 


CACO 

48 



PHA 


CAC1 

20 

A6 

C3 

JSR 

SC3A6 

CAC4 

68 



PLA 


CAC5 

85 

DF 


STA 

* SDF 

CAC7 

4C 

32 

C9 

JMP 

SC932 

****************************** 

CACA 

20 

IE 

CC 

JSR 

SCC1E 

CACD 

20 

74 

CB 

JSR 

SCB74 

CADO 

B0 

03 


BCS 

SCAD5 

CAD 2 

38 



SEC 


CAD3 

66 

E8 


ROR 

# SE8 


Linke Fenstergrenze in Y-Reg laden 
Zeilenüberlaufbit testen 
Folgezeile auch noch löschen 
Alte Cursoradresse zurücksetzen 

Zeilenanfang bis Cursor löschen 

Rette Cursorkoordinaten 

Space an aktuelle Cursorposition 

vergleiche mit linker Fenstergrenze 

Noch nicht erreicht 

Teste Zeilenüberlaufbit 

Kein Überlauf - dann Ende 

Sonst Cusor links 

Wenn bewegt, dann lösche die Zeile 

Lösche Cursorp. bis Bildschirmende 

Rette Cursorkoordinaten 
Lösche Zeile 

aktuelle Cursor Zeile um 1 erhöhen 
Ermittle Startadresse Cursorzeile 
Linke Fenstergrenze in Y-Reg laden 
Teste Zeilenüberlaufbit 
Zeile noch nicht zu Ende 
Hole aktuelle Cursor Zeile in Akku 
vergleiche mit unterer Fenstergrenze 
Untere Grenze noch nicht erreicht 
Untere Grenze gerade erreicht 
Alte Cusoradresse rücksetzen 

Aufwärts scrollen 

Rette Cursorkoordinaten 
Zei le in Akku und 
dann auf Stack sichern 
Aufwärts scrollen ausführen 
Hole Zeile wieder von Stack 
und sichern 

Alte Cursorkoordinaten zurück 

Abwärts scrollen 

Rette Cursorkoordinaten 
Teste Zeilenüberlaufbit 
Zeile ist keine Überlaufseile 
Markiere, daß Eingabezeile nicht 
Startzeile ist 
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CAD 5 

A5 

E5 

LDA 

* $E5 

CAD7 

85 

EB 

STA 

* $EB 

CAD9 

20 

7C C3 

JSR 

SC37C 

CADC 

20 

85 CB 

JSR 

$CB85 

CADF 

4C 

32 C9 

JMP 

$C932 

****************************** 

CAE2 

A9 

00 

LDA 

# $00 

CAE4 

2C 


.Byte $2C 

CAE5 

A9 

80 

LDA 

# $80 

CAE7 

85 

F8 

STA 

* $F8 

CAE9 

60 


RTS 


****************************** 

CAEA 

A9 

00 

LDA 

# $00 

CAEC 

2C 


.Byte $2C 

CAED 

A9 

80 

LDA 

# $80 

CAEF 

85 

F6 

STA 

* $F6 

CA Fl 

60 


RTS 


****************************** 

CAF2 

24 

D7 

BIT 

* $07 

CAF4 

10 

40 

BPL 

$CB36 

CAF6 

AD 

2B 0A 

LDA 

$0A2B 

CAF9 

29 

E0 

AND 

tt $E0 

CAFB 

4C 

14 CB 

JMP 

$CB14 

****************************** 

CAFE 

24 

D7 

BIT 

* $D7 

CB00 

10 

34 

BPL 

$CB36 

CB02 

AD 

2B 0A 

LDA 

$0A2B 

CB05 

29 

E0 

AND 

# $E0 

CB07 

09 

07 

ORA 

# $07 

CB09 

DO 

09 

BNE 

$CB14 

****************************** 

CB0B 

24 

D7 

BIT 

* $D7 

CB0D 

10 

OB 

BPL 

$CB1 A 

CB0F 

AD 

2B 0A 

LDA 

$0A2B 

CB12 

29 

1 F 

AND 

* $1 F 

CB14 

8D 

2B 0A 

STA 

$0A28 

CB17 

4C 

91 CD 

JMP 

$CD91 


Obere Fenstergrenze in Akku laden 
aktuelle Cursor Zeile zurückschreib. 
Abwärts scrollen 
Lösche Zeilenüberlaufbit 
Alte Cursorkoordinaten zurück 

Scrollen zulassen/verhindern 

Scrollen zulassen 
Skip nach $CAaE7 
Scrollen unterbinden 
Scrollflag abspeichern 
Rücksprung aus denn Unterprogramm 

Flag für Auto-Insert setzen/löschen 

Auto-Insert-Flag löschen 
Skip nach $CAEF 
Auto-Insert-Flag setzen 
und Flag sichern 

Rücksprung aus dem Unterprogramm 

Blockcursor einschalten 

Teste 40/80-Zeichen-Modus 

Bei 40-Zeichen -> Ende 

Hole VDC-Cursor-Modus 

Bits 0-4 (Start-Scan) ausmaskieren 

Abspeichern und VIC-Cursor aus 

Underline-Cursor einschalten 

Teste 40/80-Zeichen-Flag 
Wenn 40 Zeichen, Ende 
Hole VDC-Cursor-Modus 
Start-Scan ausmaskieren 
Start-Scan-Line ist 7 
unbedingter Sprung zum Setzen 

Cursor: Blinken aus 

Teste 40/80-Zeichen Modus 
Uenn 40 Zeichen, dann Sprung 
Hole VDC-Cursor-Modus 
Blinken ausmaskieren 
und wieder abspeichern 
Setze Modus und VIC aus 
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****************************** 


CB1A: 

AD 26 OA 

LDA 

$0A26 

CB1D: 

09 40 

ORA 

n $40 

CB1F: 

DO 12 

BNE 

$CB33 


CB21 

24 D7 

BIT 

* $D7 

CB23 

10 09 

BPL 

$CB2E 

CB25 

AD 2B 0A 

LDA 

S0A2B 

CB28 

29 1F 

AND 

# $1F 

CB2A 

09 60 

ORA 

« $60 

CB2C 

DO E6 

BNE 

$CB14 

★ ★★★★★★★★★★★★★★★★★★★★★★★★■Ar*** 

CB2E 

AD 26 0A 

LDA 

$0A26 

CB31 

29 BF 

AND 

ti $BF 

CB33 

8D 26 0A 

STA 

$0A26 

CB36 

60 

RTS 



CB37 

A9 00 

LDA 

# $00 

CB39 

2C 

.Byte $2C 

CB3A 

A9 80 

LDA 

# $80 

CB3C 

85 F9 

STA 

* $F9 

CB3E 

60 

RTS 


****************************** 

CB3F 

A2 18 

LDX 

tt $18 

CB41 

20 DA CD 

JSR 

$CDDA 

CB44 

09 40 

ORA 

U $40 

CB46 

DO 07 

BNE 

$CB4F 


CB48 

A2 18 

LDX 

# $18 

CB4A 

20 DA CD 

JSR 

$CDDA 

CB4D 

29 BF 

AND 

# $BF 

CB4F 

4C CC CD 

JMP 

$CDCC 

********<1********************* 

CB52 

20 C3 CB 

JSR 

SCBC3 


für 40 Zeichen 

Hole VIC-Cursor-Modus 
Setze Bit 6 für "starr" 
springe unbedingt zum Speichern 

Cursor: Blinken ein 

Teste 40/80-Zeichen-Modus 
Springe, wenn 40 Zeichen 
Hole VDC-Cursor-Modus 
Blinken ausmaskieren 
und Blinkperiode definieren 
springe unbedingt zum Setzen 

für 40 Zeichen 

Hole VIC-Cursor-Modus 
Bit 6 (starr) ausmaskieren 
und wieder abspeichern 
Rücksprung aus dem Unterprogramm 

Flag für Bell setzen/löschen 

Bell ermöglichen 

Skip nach $CB3C 

Bell sperren 

und Flag abspeichern 

Rücksprung aus dem Unterprogramm 

80-Zeichen-Monitor revers schalten 

Register 24 auswählen 
und momentanen Inhalt holen 
Setze Revers-Flag 
unbedingter Sprung nach SCB4F 

80-Zeichen-Monitor normal schalten 

Register 24 auswählen 
und momentanen Inhalt holen 
Lösche das Revers-Flag 
und abspeichern 

Cursor ans Ende lfd. Zeile 

Ermittle Startadresse lfd. Zeile 
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CB55 

4C 

3E 

C3 

JMP 

$C33E 

Cursor ans Zeilenende 

****************************** 

Hole Zeichen und Farbe an Cursorpos 

CB58 

A4 

EC 


LOY 

* SEC 

Hole aktuelle Cursor Spalte in Y-Reg 

CB5A 

24 

D7 


BIT 

* SD 7 

Teste 40/80-Zeichen-Modus 

CB5C 

30 

07 


BMI 

SCB65 

Springe, wenn 80-Zeichen-Modus 

CB5E 

Bl 

E2 


LDA 

(SE2),Y 

Hole Farbe an Cursorposition 

CB60 

85 

F 2 


STA 

* SF2 

Und abspeichern 

CB62 

Bl 

E0 


LDA 

(SEO),Y 

Hole Zeichen an Cursorposition 

CB64 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Hole Zeichen und Farbe unter Cursor 

CB65 

20 

F9 

CD 

JSR 

SCDF9 

Setzen der Update-Adresse auf ARA 

CB68 

20 

08 

CD 

JSR 

SCDD8 

Hole aktuelles Attribut 

CB6B 

85 

F2 


STA 

* SF2 

Speichere Attribut 

CB6D 

20 

E6 

CD 

JSR 

SCDE6 

Setzen der Update-Adresse auf Video 

CB70 

20 

D8 

CD 

JSR 

SCDD8 

Hole Zeichen aus Video-RAM 

CB73 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Routinen zum Testen des Zeilen¬ 







überl auf bi t 

CB74 

A6 

EB 


LDX 

* SEB 

Hole aktuelle Cursor Zeile in X-Reg 

CB76 

20 

9F 

CB 

JSR 

SCB9F 

Zweierpotenz und Rest ermitteln 

CB79 

30 

5E 

03 

AND 

S035E.X 

Zei lenüberlaufbit löschen 

CB7C 

C9 

01 


CMP 

U SOI 

Ist keine Zeile gesetzt in dem 

CB7E 

4C 

90 

CB 

JMP 

SCB90 

Block? Springe zum Ende der Routine 

CB81 

A6 

EB 


LDX 

* SEB 

Hole aktuelle Cursor Zeile in X-Reg 

CB83 

BO 

OE 


BCS 

SCB93 

Springe, wenn Flag gesetzt 

Cß85 

20 

9F 

CB 

JSR 

SCB9F 

Zweierpotenz und Rest ermitteln 

CB88 

49 

FF 


EOR 

# SFF 

Einerkomplement von Akku 

CB8A 

30 

5E 

03 

AND 

S035E.X 

und mit Zei lenüberlauftabel te 

CB8D 

90 

5E 

03 

STA 

S035E.X 

verknüpfen und wieder abspeichern 

CB90 

A6 

DA 


LDX 

* SDA 

Hole X aus Zwischenspeicher 

CB92 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Setzen der Zeilenüberlaufbits 

CB93 

24 

F8 


BIT 

* SF8 

Teste Scroll Bit 

CB95 

70 

DF 


BVS 

SCB76 

Springe bei gesetztem 6. Bit 

CB97 

20 

9F 

CB 

JSR 

SCB9F 

Ermittle Zweierpotenz und Rest 

CB9A 

ID 

5E 

03 

ORA 

S035E.X 

Setzen des Zeilenüberlaufbits 

CB9D 

00 

EE 


BNE 

SCB8D 

und updaten. 


***************************** 


Routine ermittelt 2*(X AND 7) sowie 
INT (X/8). Übergabe in X-Register 
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CB9F 

CO 

o 

DA 

STX 

* $DA 

CBA1 

8A 


TXA 


CBA2 

29 

07 

AND 

# $07 

CBA4 

AA 


TAX 


CBA5 

BD 

6C CE 

LDA 

$CE6C,X 

CBA8 

48 


PHA 


CBA9 

A5 

DA 

LDA 

* $DA 

CBAB 

4A 


LSR 

A 

CBAC 

4A 


LSR 

A 

CBAD 

4A 


LSR 

A 

CBAE 

AA 


TAX 


CBAF 

68 


PLA 


CBBO 

60 


RTS 





CBBl 

A4 

E6 


LDY 

* $E6 

CBB3 

CO 

EC 


STY 

* SEC 

CBB5 

20 

74 

CB 

JSR 

SCB74 

CBB8 

90 

06 


BCC 

SCBC0 

CBBA 

C6 

EB 


DEC 

* $EB 

CBBC 

10 

F7 


BPL 

$CBB5 

CBBE 

E6 

EB 


INC 

* $EB 

CBCO 

4C 

5C 

CI 

JHP 

$C15C 


****************************** 


CBC3: 

E6 

EB 


INC 

* $EB 

CBC5: 

20 

74 

CB 

JSR 

$CB74 

CBC8: 

B0 

F9 


BCS 

SCBC3 

CBCA: 

C6 

EB 


DEC 

* $EB 

CBCC: 

20 

5C 

Ci 

JSR 

$C15C 

CBCF: 

A4 

E7 


LDY 

* $E7 

CBDl: 

84 

EC 


STY 

* SEC 

CBD3: 

20 

58 

CB 

JSR 

SCB58 

CBD6: 

A6 

EB 


LDX 

* SEB 

CBD8: 

C9 

20 


CMP 

* S20 

CBDA: 

DO 

0E 


BNE 

SCBEA 

CBDC: 

C4 

E6 


CPY 

* SE6 

CBDE: 

DO 

05 


BNE 

SCBE5 

CBE0: 

20 

74 

CB 

JSR 

SCB74 

CBE3: 

90 

05 


BCC 

SCBEA 

CBE5: 

20 

no 

cc 

JSR 

SCC00 

CBE8: 

90 

E9 


BCC 

SCBD3 

CBEA: 

'J' 

co 

EA 


STY 

* SEA 

CBEC: 

60 



RTS 



Zwischenspeichern des Akkus 
X-Register in Akku 
Ausmaskieren der Bits 3-7=X MOD 8 
Akku wieder in X-Register 
Hole entsprechende Zweierpotenz 
Rette Akku auf Stack 
Hole Originalwert wieder 
Dieser Originalwert wird dreimal 
durch den Faktor 2 dividiert, 
das ergiebt INT(X/8) 

Ergebnis - X-Register 

Hole Zweierpotenz von Stack 

Rücksprung aus dem Unterprogramm 

Löschen der Über laufVerkettung 

Linke Fenstergrenze in Y-Reg laden 
sichern der aktuellen Cursor Spalte 
Lösche Zeilenüberlaufbit akt. Zeile 
Carry ist gelöscht, wenn alle Bits 0 
aktuelle Cur. Zeile um 1 vermindern 
Wenn nicht erste Zeile, dann Sprung 
aktuelle Cursor Zeile um 1 erhöhen 
Ermittle Startadresse akt. Zeile 

Suche Ende der Eingabezeile 

Aktuelle Cursor Zeile um 1 erhöhen 
Lösche Zeilenüberlaufbit 
Uenn nicht letzte Zeile => Sprung 
aktuelle Cur. Zeile um 1 vermindern 
Ermittle Startadresse akt. Zeile 
Rechte Fenstergrenze in Y-Reg laden 
Sichern der aktuellen Cursor Spalte 
Hole Zeichen und Farbe Cursorpos 
Hole aktuelle Cursor Zeile in X-Reg 
Ist Zeichen <Space>? 

Nein, dann Sprung 

Vergleiche mit linker Fenstergrenze 
noch nicht erreicht 
Lösche Zeilenüberlaufbit 
Es ist noch eine Zeile frei 
Cursor um eine Stelle nach links 
Cursor konnte bewegt werden 
Aktuelle Eingabezeile: Ende 
Rücksprung aus dem Unterprogramm 
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****************************** 

Cursor um eine Stelle im Fenster 






nach rechts 

CBED 

48 


PHA 


Rette Akku auf Stack 

CBEE 

A4 

EC 

LDY 

* SEC 

Hole aktuelle Cursor Spalte in Y-Reg 

CBFO 

C4 

E7 

CPY 

* $E7 

Vergleiche mit rechter Fenstergrenze 

CBF2 

90 

07 

BCC 

SCBFB 

Rechte Grenze des Windows erreicht? 

CBF4 

20 

63 C3 

JSR 

SC363 

Nein, dann erhöhe Cursor-Spalte 

CBF7 

A4 

E6 

LDY 

* SE6 

Linke Fenstergrenze in Y-Reg laden 

CBF9 

88 


DEY 


Einmal erniedrigen 

CBFA 

38 


SEC 


Carry gesetzt bedeutet neue Zeile 

CBFB 

C8 


INY 


Erhöhe Cursor-Spalte 

CBFC 

84 

EC 

STY 

* SEC 

Sichern der aktuellen Cursor Spalte 

CBFE 

68 


PLA 


Hole Akku wieder von Stack 

CBFF 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Cursor um eine Stelle im Fenster 






nach links 

ccoo 

A4 

EC 

LDY 

* SEC 

Hole aktuelle Cursor Spalte in Y-Reg 

CC02 

88 


DEY 


Erniedrige die Spalte um 1 

CC03 

30 

04 

BMI 

SCC09 

Wenn negativ, Cursor in Spalte 0 

CC05 

C4 

E6 

CPY 

* SE6 

Vergleiche mit linker Fenstergrenze 

CC07 

BO 

OF 

BCS 

SCC18 

Linker Rand nicht erreicht, OK. 

CC09 

A4 

E5 

LDY 

* SE5 

Obere Fenstergrenze in Y-Reg laden 

CCOB 

C4 

EB 

CPY 

* SEB 

Vergleiche m. aktueller Cursor Zeile 

CCOO 

BO 

OE 

BCS 

SCC1D 

Cursor ist in oberster Zeile, Ende 

CCOF 

C6 

EB 

DEC 

* SEB 

Aktuelle Cur. Zeile um 1 vermindern 

CC11 

48 


PHA 


Rette Akku auf Stack 

CC12 

20 

5C CI 

JSR 

SC15C 

Ermittle Startadresse der Zeile 

CC15 

68 


PLA 


Hole Akku wieder von Stack 

CC16 

A4 

E7 

LDY 

* SE7 

Rechte Fenstergrenze in Y-Reg laden 

CC18 

84 

EC 

STY 

* SEC 

Sichern der aktuellen Cursor Spalte 

CC1A 

C4 

E7 

CPY 

* SE7 

Vergleiche mit rechter Fenstergrenze 

CC1C 

18 


CLC 


Lösche Carry für Cursor bewegt 

CC1D 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Kopiere Cursor (X/Y) nach SDE/SDF 

CC1E 

A4 

EC 

LDY 

* SEC 

Hole aktuelle Cursor Spalte in Y-Reg 

CC20 

84 

DE 

STY 

* SDE 

Kopiere nach SDE 

CC22 

A6 

EB 

LDX 

* SEB 

Hole aktuelle Cursor Zeile in X-Reg 

CC24 

86 

DF 

STX 

* SDF 

Kopiere nach SDF 

CC26 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Space an akt. Cursor-Position 

CC27 

: A5 

Fl 

LDA 

* SF1 

Farbcode für Zeichenausgabe in Akku 
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CC29 

29 

8F 

AND 

# $8F 

Bits 4-6 ausmaskieren (Attribute) 

CC2B 

AA 


TAX 


Und nach X-Register 

CC2C 

A9 

20 

LDA 

# $20 

Lade Akku mit Leerzeichen 

CC2E 

2C 


.Byte $2C 

Skip nach $CC31 

★*★★*★*★★★***★*****★★★*★*★★** 

Zeichen (Akku) an Cursor-Position 

CC2F 

A6 

Fl 

LDX 

* $F1 

Lade X-Register mit Farbe 

CC31 

2C 


.Byte $2C 

Skip nach $CC34 

CC32 

A6 

F2 

LDX 

* $F2 

Farbcodespeicher für Insert/Delete 

CC34 

A8 


TAY 


Akku nach Y-Register 

CC35 

A9 

02 

LDA 

# $02 

Lege den Wert 2 in 

CC37 

8D 

28 0A 

STA 

$0A28 

VIC-Cursor-Blink-Zähler 

CC3A 

20 

7C CI 

JSR 

$C17C 

Passe Attribut-Adresse an 

CC3D 

98 


TYA 


Und Y-Register wieder nach Akku 

CC3E 

A4 

EC 

LDY 

* $EC 

Hole aktuelle Cursor Spalte in Y-Reg 

CC40 

24 

D7 

BIT 

* $D7 

Teste 40/80-Zeichen-Modus 

CC42 

30 

06 

BMI 

$CC4A 

Sprung bei 80-Zeichen-Modus 

CC44 

91 

EO 

STA 

($EO),Y 

Speichere Zeichen in 40-Zeichen 

CC46 

8A 


TXA 


Video-RAM und X-Register (Farbe) 

CC47 

91 

E2 

STA 

($E2),Y 

im Farbspeicher ablegen. 

CC49 

60 


RTS 


Rücksprung aus dem Unterprogramm 

★*★★★*★*★★*★*****★★★**★*★★★**★ 

Zeichen auf 80-Zeichen-BiIdschirm 






Akku: Zeichen, X: Farbe, Y: Spalte 

CC4A 

48 


PHA 


Rette Akku auf Stack 

CC4B 

8A 


TXA 


X-Register (Farbe) in Akku 

CC4C 

48 


PHA 


und auch auf Stack sichern 

CC4D 

20 

F9 CD 

JSR 

$CDF9 

Update-Register für Attribut setzen 

CC50 

68 


PLA 


Hole Farbe von Stack in Akku 

CC51 

20 

CA CD 

JSR 

$CDCA 

und ins Attribut-RAM speichern 

CC54 

20 

E6 CD 

JSR 

$CDE6 

Update-Adresse für Video-RAM setzen 

CC57 

68 


PLA 


und Zeichen von Stack holen 

CC58 

4C 

CA CD 

JMP 

$CDCA 

Speichere Zeichen im Video-RAM ab 

★ •Ar*************************** 

Ermittle Zeichen/Zeile&Zei len/Wind. 

CC5B 

38 


SEC 


Setze Carry 

CC5C 

A5 

E4 

LDA 

* $E4 

Untere Fenstergrenze in Akku laden 

CC5E 

E5 

E5 

SBC 

* $E5 

minus oberer Grenze ergibt Zeilen 

CC60 

A8 


TAY 


des Fensters nach Y-Register 

CC61 

38 


SEC 


Setze das Carry wieder 

CC62 

A5 

E7 

LDA 

* $E7 

Rechte Fenstergrenze in Akku laden 

CC64 

E5 

E6 

SBC 

* $E6 

minus linke Fenstergrenze ergibt 

CC66 

AA 


TAX 


Anzahl Zeichen/Zeile nach X-Reg 

CC67 

A5 

EE 

LDA 

* $EE 

In Akku maximale Anzahl Spalten 
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CC69: 60 RTS 

****************************** 


CC6A 

BO 

29 

BCS 

SCC95 

CC6C 

8A 


TXA 


CC6D 

65 

E5 

ADC 

* SE5 

CC6F 

BO 

14 

BCS 

$CC85 

CC71 

C5 

E4 

CMP 

* $E4 

CC73 

F0 

02 

BEQ 

$CC 77 

CC75 

BO 

OE 

BCS 

$CC85 

CC77 

48 


PHA 


CC78 

18 


CLC 


CC79 

98 


TYA 


CC7A 

65 

E6 

ADC 

* $E6 

CC7C 

BO 

06 

BCS 

SCC84 

CC7E 

C5 

E7 

CMP 

* SE7 

CC80 

FO 

04 

BEQ 

$CC86 

CC82 

90 

02 

BCC 

$CC86 

CC84 

68 


PLA 


CC85 

60 


RTS 



****************************** 


CC86 

LT\ 

CO 

EC 


STA 

* $EC 

CC88 

85 

E9 


STA 

* $E9 

CC8A 

68 



PLA 


CC8B 

85 

EB 


STA 

* $EB 

CC8D 

85 

E8 


STA 

* $E8 

CC8F 

20 

5C 

CI 

JSR 

$C15C 

CC92 

20 

57 

CD 

JSR 

SCD57 

CC95 

A5 

EB 


LDA 

* SEB 

CC97 

E5 

E5 


SBC 

* SE5 

CC99 

AA 



TAX 


CC9A 

38 



SEC 


CC9B 

A5 

EC 


LDA 

* SEC 

CC9D 

E5 

E6 


SBC 

* $E6 

CC9F 

A8 



TAY 


CCA0 

18 



CLC 


CCA1 

60 



RTS 



****************************** 


CCA2: 

CA 

DEX 


CCA3: 

86 DC 

STX 

* SDC 

CCA5: 

84 DA 

STY 

* SDA 

CCA7: 

8D AA 02 

STA 

S02AA 


Rücksprung aus dem Unterprogramm 

Hole oder setze Cursorposition 

Wenn Carry gesetzt • dann hole Pos. 

Zeile nach Akku 

Addiere obere Fenstergrenze 

Wenn Übertrag, dann Ende (Fehler!) 

vergleiche mit unterer Fenstergrenze 

Wenn erreicht, dann OK! 

Wenn Übertrag, dann Ende (Fehler!) 

Rette Zeile auf Stack 

Lösche Carry für Addition 

Hole Spalte in Akku 

Und addiere linke Fenstergrenze 

Wenn Übertrag - dann Ende (Fehler!) 

vergleiche mit rechter Fenstergrenze 

Wenn gleich, dann OK 

Wenn Übertrag, dann Ende (Fehler!) 

Hole Zeile von Stack 

Rücksprung aus dem Unterprogramm 

Eingabezeile klarmachen 

Sichern der aktuellen Cursor Spalte 

Sichern der Starteingabezeile 

Hole Zeile von Stack 

aktuelle Cursor Zeile zurückschreib. 

als Starteingabezeile merken 

Adresse aktuelle Zeile ermitteln 

Setze Cursor auf aktuelle Spalte 

Hole aktuelle Cursor Zeile in Akku 

Subtrahiere obere Grenze Fenster 

Ergebnis dann nach X 

Setze Carry für Subtraktion 

Hole aktuelle Cursor Spalte in Akku 

Subtrahiere linke Fenstergrenze 

Ergebnis dann nach Y 

Lösche Carry für OK 

Rücksprung aus dem Unterprogramm 

Einsprung Kernal: PFKEY 
Programmieren einer Funkt ionstaste 

Nummer d. F-Taste um 1 vermindern 
Nummer der (F-Taste -1) in Z-Page 
Länge d. F-Strings in Z-Page sichern 
Z-Page Adr.d.Stringzeigers in FETVEC 
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CCAA: 

A8 



TAY 


CCAB: 

B6 

02 


LDX 

* $02,Y 

CCAD: 

20 

6B 

FF 

JSR 

$FF6B 

CCBO: 

85 

DE 


STA 

* $DE 

CCB2: 

A2 

0A 


LDX 

# $0A 

CCB4: 

20 

20 

CD 

JSR 

$CD20 

CCB7: 

85 

DB 


STA 

* $DB 

CCB9: 

A6 

DC 


LDX 

* $DC 

CCBB: 

E8 



INX 


CCBC: 

20 

20 

CD 

JSR 

$CD20 

CCBF: 

85 

DD 


STA 

* $DD 

CCC1: 

A6 

DC 


LDX 

* $DC 

CCC3: 

A5 

DA 


LDA 

* $DA 

CCC5: 

38 



SEC 


CCC6: 

FD 

00 

10 

SBC 

$1000,X 

CCC9: 

F0 

2B 


BEQ 

$CCF6 

CCCB: 

90 

16 


BCC 

$CCE3 

CCCD: 

18 



CLC 


CCCE: 

65 

DB 


ADC 

* $DB 

CCDO: 

B0 

4D 


8CS 

$CD1 F 

CCD2: 

AA 



TAX 


CCD3: 

A4 

DB 


LDY 

* $DB 

CCD5: 

C4 

DD 


CPY 

* $DD 

CCD7: 

F0 

ID 


BEQ 

$CCF6 

CCD9: 

88 



DEY 


CCDA: 

CA 



DEX 


CCDB: 

B9 

0A 

10 

LDA 

$100A,Y 

CCDE: 

9D 

0A 

10 

STA 

$100A, X 

CCE1: 

B0 

F 2 


BCS 

$CCD5 

CCE3: 

65 

DD 


ADC 

* $DD 

CCE5: 

AA 



TAX 


CCE6: 

A4 

DD 


LDY 

* $DD 

CCE8: 

C4 

DB 


CPY 

* $DB 

CCEA: 

B0 

HA 


BCS 

$CCF6 

CCEC: 

B9 

0A 

10 

LDA 

$100A,Y 

CCEF: 

9D 

ha 

10 

STA 

$100A,X 

CCF2: 

C8 



INY 


CCF3: 

E8 



INX 


CCF4: 

90 

F2 


BCC 

$CCE8 


****************************** 


CCF6 

A6 

DC 


LDX 

* $DC 

CCF8 

20 

20 

CD 

JSR 

$CD20 

CCFB 

AA 



TAX 


CCFC 

A4 

DC 


LDY 

* $DC 

CCFE 

A5 

DA 


LDA 

* $DA 

CD00 

99 

00 

10 

STA 

$1000,Y 


Z-Page Adr. des Stringzeigers in Y 
Bank Nr. d. F-Strings in X-Reg holen 
Kernal GETCFG: Hole Config. Wert 
Sichere ihn in Bank Byte f. F-String 
Anzahl der F-Tasten (10) in Akku 
Addiere F-Stringlängen bis (X -1) 
Gesamtstringlänge in Z-Page sichern 
Nr. der (F-Taste -1) zurückholen 
Echte F-Tastennummer Herstellen 
Addiere F-Stringlängen bis (X -1) 
Stringlänge bis zur F-Taste sichern 
Nr. der (F-Taste -1) zurückholen 
Stringlänge der F-Taste zurückholen 
Carry ein f. ordentliche Subtraktion 
Länge des alten F-Strings abziehen 
Keine Verschiebung notwendig, weiter 
Neue Stringlänge kleiner alte Länge 
Carry für Addition löschen 
Gesamtlänge+Differenzlänge addieren 
Länge größer 256, dann Fehler: RTS 
Neue Maximal länge in X-Reg abtegen 
Alte Maximal länge in Y-Reg holen 
Sind beide Längen gleich, dann ist 
die letzte F-Taste angesprochen 
Alte Maximal länge um 1 vermindern 
Neue Maximal länge um 1 vermindern 
Alle F-Tasten Strings bis zur neuen 
Einschubposition nach hinten ziehen 
und Platz für neuen String schaffen. 
Differenzlänge zur Bislänge addieren 
Neue Bislänge in X-Reg kopieren 
Alte Bislänge in Y-Reg holen 
Mit alter Maximal länge vergleichen 
Gleich, dann ist das Heranziehen 
der F-Tastenstrings ab der neuen 
F-Taste bis zum F-Tastenstringende 
abgeschlossen. Alte + neue Bislänge 
für Verschiebung um 1 erhöhen. 
Schleifen, bis F-Strings verschoben 

Neuen F-Tastenstring einsetzen 

Nr. der (F-Taste -1) zurückholen 
Addiere F-Stringlängen bis (X -1) 
Stringlänge bis zur neuen F-Taste 
Nr. der (F-Taste -1) zurückholen 
Länge des einzusetzenden F-Strings 
Längeneintrag in F-Tabelle ersetzen 




Das Kernal-ROM 


275 


CD03 

A0 

00 


LDY 

# $00 

CD05 

C6 

DA 


DEC 

* $DA 

CD07 

30 

15 


BMI 

$CD1E 

CD09 

86 

DF 


STX 

* $DF 

CDOB 

A6 

DE 


LDX 

* $DE 

CDOD 

AD 

AA 

02 

LDA 

$02AA 

CD 10 

78 



SEI 


CD11 

20 

A2 

02 

JSR 

$02A2 

CDU 

58 



CU 


CD 15 

A6 

DF 


LDX 

* $DF 

CD 17 

9D 

0A 

10 

STA 

$100A,X 

CD1A 

E8 



I NX 


CD1B 

C8 



INY 


CD IC 

DO 

E7 


BNE 

$CD05 

CD1E 

18 



CLC 


CD1F 

60 



RTS 





CD20 

A9 

00 

LDA 

# $00 

CD22 

18 


CLC 


CD23 

CA 


DEX 


CD24 

30 

05 

BMI 

$CD2B 

CD26 

7D 

00 10 

ADC 

$ 1000 ,x 

CD29 

90 

F8 

BCC 

$CD23 

CD2B 

60 


RTS 



Displacementzeiger initialisieren 
Länge des F-St rings = Länge -1 
Alle Zeichen in Tab. übertragen,Exit 
Die "Bis" Stringlänge sichern 
Bankwert, wo neuer F-String steht 
Akku mit FETVEC laden 
Alle System Interrupts verhindern 
FETCH: F-String Zeichen holen 
Alle System Interrupts frei geben 
Position,f. F-String Eintrag in Tab. 
Zeichen in F-String Tab. eintragen 
Displ. auf "Uohin" String-Puffer +1 
Displ. auf "Woher" String-Puffer +1 
Sprung i.d. String Transfer Schleife 
Kennzeichen für "OK" Rücksprung 
Rücksprung aus dem Unterprogramm 

Addiere Länge aller F-Strings bis X 

Lade Zähler mit Null 
Lösche Carry zur Addition 
Vorangehende Key-Belegung 
Wenn Null, dann alle addiert 
Addiere Länge von Key X 
Und springe unbedingt nach $CD23 
Rücksprung aus dem Unterprogramm 


****************************** Kernal Routine: SWAPPER 

Umschalten von 40/80-Zeichen-Modus 


CD2C: 

85 

F0 


STA 

* $F0 

CD2E: 

A2 

1A 


LDX 

n $i a 

CD30: 

BC 

40 

0A 

LDY 

$0A40,X 

CD33: 

B5 

E0 


LDA 

* $E0,X 

CD35: 

9D 

40 

0A 

STA 

$0A40,X 

CD38: 

98 



TYA 


CD39: 

95 

E0 


STA 

* $E0,X 

CD3B: 

CA 



DEX 


CD3C: 

10 

F2 


BPL 

$CD30 

CD3E: 

A2 

0D 


LDX 

# $0D 

CD40: 

BC 

60 

0A 

LDY 

$0A60, X 

CD43: 

BD 

54 

03 

LDA 

$0354, X 

CD46: 

9D 

60 

0A 

STA 

$0A60,X 

CD49: 

98 



TYA 


CD4A: 

9D 

54 

03 

STA 

$0354, X 

CD4D: 

CA 



DEX 


CD4E: 

10 

F0 


BPL 

$CD40 

CD50: 

A5 

D7 


LDA 

* $D7 


Speichere Akku als zuletzt gedruck 
tes Zeichen und tausche dann den 
passiven Monitor-Speicher mit dem 
passiven Speicher aus. Dies ge¬ 
schieht 26mal, da 26 Bytes zu 
kopieren sind. Der passive Bereich 
liegt im Bereich $0A40 bis $0A5B. 
Erniedrige den Zähler und springe, 
wenn noch nicht alles ausgetauscht 
Jetzt müssen noch die Bitmaps, die 
Bittabellen, von aktivem und pas¬ 
sivem Bildschirm ausgetauscht 
werden. Dies geschieht 13mal 
Der passive Bereich beginnt bei 
$0A60. 

Erniedrige Zähler und springe, 
wenn noch nicht alles kopiert. 

Hole Status 40/80-Zeichen 





276 


128 Intern 


CD52 

49 

80 


EOR 

# $80 

CD54 

85 

D7 


STA 

* $D7 

CD56 

60 



RTS 


****************************** 

CD57 

24 

D7 


BIT 

* $07 

CD59 

10 

FB 


BPL 

$CD56 

CD5B 

A2 

0E 


LDX 

# $0E 

CD5D 

18 



CLC 


CD5E 

A5 

E0 


LDA 

* $E0 

CD60 

65 

EC 


ADC 

* $EC 

CD62 

48 



PHA 


CD63 

A5 

El 


LDA 

* $E 1 

CD65 

69 

00 


ADC 

U $00 

CD67 

20 

CC 

CD 

JSR 

$CDCC 

CD6A 

E8 



I NX 


CD6B 

68 



PLA 


CD6C 

4C 

CC 

CD 

JMP 

$CDCC 

****************************** 

CD6F 

24 

D7 


BIT 

* $D7 

CD71 

10 

26 


BPL 

$CD99 

CD 73 

20 

7C 

CI 

JSR 

$C17C 

CD 76 

A4 

EC 


LDY 

* $EC 

CD 78 

20 

F9 

CD 

JSR 

$CDF9 

CD7B 

20 

D8 

CD 

JSR 

$CDD8 

CD7E 

8D 

33 

0A 

STA 

$0A33 

CD81 

29 

F0 


AND 

# $F0 

C083 

85 

DB 


STA 

* $DB 

CD85 

20 

F9 

CD 

JSR 

$CDF9 

CD 88 

A5 

Fl 


LDA 

* $F 1 

CD8A 

29 

0F 


AND 

# $0F 

CD8C 

05 

DB 


ORA 

* $DB 

CD8E 

20 

CA 

CD 

JSR 

$CDCA 

CD91 

A2 

0A 


LDX 

# $0A 

CD93 

AD 

2B 

0A 

LDA 

$0A2B 

CD96 

4C 

CC 

CD 

JMP 

$CDCC 

CD99 

A9 

00 


LDA 

# $00 

CD9B 

8D 

27 

0A 

STA 

$0A27 

CD9E 

60 



RTS 



CD9F 

24 

D7 


BIT 

* $D7 

CDA1 

10 

10 


BPL 

$CDB3 

CDA3 

20 

F9 

CD 

JSR 

$CDF9 


und kehre Flag-Bit um 

wieder abspeichern 

Rücksprung aus dem Unterprogramm 

Setze Cursor auf aktuelle Spalte 

Teste auf 40/80-Zeichen-Modus 
Bei 40-Zeichen-Modus Ende 
Cursor-Position High 
Lösche Carry 

Lo-Byte von akt. Bildschirmzeile 
Addiere Cursor-Spalte 
Rette Lo-Byte 

Hi-Byte von akt. Bildschirmzeile 

Addiere den Übertrag 

Und speichere Hi-Byte ab 

Erhöhe Registerzeiger auf $0F 

Hole Lo-Byte von Stack 

Und auch abspeichern (Rücksprung) 

Cursorfarbe an Cursorpos. setzen 

Teste auf 40/80-Zeichen-Modus 
Springe wenn 40-Zeichen-Modus 
Attributadresse setzen 
Hole aktuelle Cursor Spalte in Y-Reg 
Attribut-Adresse in Update-Register 
Hole aktuelles Attribut 
Zwischenspeichern 
Bits 0-3 ausinaskieren (Farbe) 
und Zwischenspeichern 
Attribut-Adresse in Update-Register 
Farbcode für Zeichenausgabe in Akku 
Bits 4-7 ausmaskieren (Attribut) 
und mit Attribut verknüpfen 
Abspeichern an Attribut-Adresse 
Cursor-Modus und Start-Scan-Li ne 
80-Zeichen-Cursor-Modus 
Und abspeichern 

Akku gleich Null und abspeichern 
bedeutet VIC-Cursor ausschalten 
Rücksprung aus dem Unterprogramm 

Cursor einschalten (80er) 

Teste 40/80-Zeichen-Modus 
Springe, wenn 40-Zeichen-Modus 
Setze Update auf Attribut-Adresse 
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CDA6 

AD 

33 

0A 

LDA 

$0A33 

CDA9 

20 

CA 

CD 

JSR 

$CDCA 

CDAC 

A2 

0A 


LDX 

# $0A 

CDAE 

A9 

20 


LDA 

# $20 

CDBO 

4C 

CC 

CD 

JMP 

$CDCC 




CDB3 

8D 

27 

0A 

STA 

S0A27 

CDB6 

AD 

26 

0A 

LDA 

$0A26 

CDB9 

10 

0E 


BPL 

$CDC9 

CDBB 

29 

40 


AND 

# $40 

CDBD 

8D 

26 

0A 

STA 

$0A26 

CDCO 

AD 

29 

0A 

LDA 

$0A29 

CDC3 

AE 

2A 

0A 

LDX 

$0A2A 

CDC6 

20 

34 

CC 

JSR 

$CC34 

CDC9 

60 



RTS 



****************************** 


CDCA 

A2 

1F 


LDX 

# $1 F 

CDCC 

8E 

00 

D6 

STX 

$0600 

CDCF 

2C 

00 

D6 

BIT 

$D600 

CDD2 

10 

FB 


BPL 

$CDCF 

CDD4 

8D 

01 

D6 

STA 

$D601 

CDD7 

60 



RTS 



****************************** 


CDD8: 

A2 

1F 


LDX 

U $1F 

CDDA: 

8E 

00 

D6 

STX 

$D600 

CDDD: 

2C 

00 

D6 

BIT 

$0600 

CDE0: 

10 

FB 


BPL 

$CDDD 

CDE2: 

AD 

01 

D6 

LDA 

$D601 

CDE5: 

60 



RTS 



****************************** 


CDE6: 

A2 

12 

LDX 

« $12 

CDE8: 

18 


CLC 


CDE9: 

98 


TYA 


CDEA: 

65 

EO 

ADC 

* $E0 

CDEC: 

48 


PHA 


CDED: 

A9 

00 

LDA 

# $00 

CDEF: 

65 

El 

ADC 

* $E1 

CDF1: 

20 

CC CD 

JSR 

$CDCC 

CDF4: 

68 


PLA 



Zwischenspeicher für MOVLIN 
Attribut speichern 
Cursor-Modus und Start-Scan-Line 
werden mit dem Wert 32 belegt. 
Lege Akku in VDC-Data-Register ab 

Cursor einschalten (40er) 

VIC-Cursor einschalten 

Starrer oder blinkender Cursor? 

Starrer, dann Ende 

Lösche 8link-Flag 

und wieder abspeichern 

VIC-Zeichen vor Blinken 

VIC-Farbe vor Blinken 

Setze alte Werte 

Rücksprung aus dem Unterprogramm 

Akku ins Data-Register von VCR 

Data-Register von VCR 

Register übermitteln 

Teste Status - 

Noch nicht fertig, warten! 

Speichere Wert ins Register 

Rücksprung aus dem Unterprogramm 

Hole Wert des Data-Registers 

Data-Register von VCR 
Register übermitteln 
Teste Status 

Noch nicht fertig, warten! 

Hole Wert des Registers 
Rücksprung aus dem Unterprogramm 

Setze Update-Adresse auf aktuelle 
Bildschirmposit i on 

Update-Adresse Hi 
Lösche Carry für Addition 
Y (Spalte) in Akku 
und Lo-Byte von akt. Adresse 
addieren, dann auf Stack 
Akku mit Null laden um dann 
den Übertrag zu addieren 
Speichern des Hi-Bytes 
Hole Lo-Byte von Stack 
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CDF5: E8 INX 

CDF6: 4C CC CD JMP $CDCC 


CDF9 

A2 

12 


LDX 

# $12 

CDFB 

18 



CLC 


CD FC 

98 



TYA 


CDFD 

65 

E2 


ADC 

* $E2 

CD FF 

48 



PHA 


CE00 

A9 

00 


LDA 

# $00 

CE02 

65 

E3 


ADC 

* $E3 

CE04 

20 

CC 

CD 

JSR 

$CDCC 

CE07 

68 



PLA 


CE08 

E8 



INX 


CE09 

4C 

CC 

CD 

JMP 

$CDCC 


*****★*★★*:**********★★**★★★★*★ 


CE0C: 

A9 

00 


LDA 

# $00 

CE0E: 

A0 

DO 


LDY 

# $D0 

CE10: 

85 

DA 


STA 

* $DA 

CE12: 

84 

DB 


STY 

* $DB 

CE14: 

A2 

12 


LDX 

# $12 

CE16: 

A9 

20 


LDA 

# $20 

CE18: 

20 

CC 

CD 

JSR 

$CDCC 

CE1B: 

E8 



INX 


CE1C: 

A9 

00 


LDA 

U $00 

CE1E: 

20 

CC 

CD 

JSR 

$CDCC 

CE21: 

A0 

00 


LDY 

# $00 

CE23: 

A2 

0E 


LDX 

# $0E 

CE25: 

A9 

DA 


LDA 

# $DA 

CE27: 

20 

74 

FF 

JSR 

$FF74 

CE2A: 

20 

CA 

CD 

JSR 

$CDCA 

CE2D: 

C8 



I NY 


CE2E: 

CO 

08 


CPY 

tt $08 

CE30: 

90 

f 1 


BCC 

$CE23 

CE32: 

A9 

00 


LDA 

n $oo 

CE34: 

20 

CA 

CD 

JSR 

$CDCA 

CE37: 

88 



DEY 


CE38: 

DO 

FA 


BNE 

$CE34 

CE3A: 

18 



CLC 


CE3B: 

A5 

DA 


LDA 

* $DA 

CE3D: 

69 

08 


ADC 

n $08 

CE3F: 

85 

DA 


STA 

* $DA 

CE41: 

90 

E0 


8CC 

$CE23 

CE43: 

E6 

DB 


INC 

* $DB 

CE45: 

A5 

DB 


LDA 

* $DB 


Erhöhe Register auf $13 

und Lo-Byte in Update-Register 

Setze Update-Adresse für Attribut 


Zeichensatz in VDC-RAM kopieren 

Lade Akku (Low) und Y (High) mit 

Startadresse vom CHARROM: $D000 

Speicher diese Werte in Zeropage- 

Adresse $DA und $DB 

Update-Register Hi 

Startadresse des Zeichengenerators 

im VDC definieren 

Zeiger nun auf Lo-Byte 

$00 ist Lo-Byte der Startadresse 

des Zeichengenerators 

Index-Zeiger auf Zeile/Zeichen 

CHARROM auswählen 

anzusprechende Zeropage-Adresse 

Kernal INDFET: LDA(XX),Y v.bel. Bank 

und abspeichern des Wertes im RAM 

VDC. Index-Zeiger erhöhen 

Schon alle 8 Zeilen kopiert? 

Nein, dann nächste Zeile 
Sonst lade Akku mit Null 
und speichere diesen Wert im VDC-RAM 
achtmal ab. 

Springe, wenn noch nicht fertig 
Lösche Carry für Addition 
Lade Akku mit Uo-Byte 
und addiere 8 hinzu 
Wieder abspeichern und 
wenn kein Übertrag, dann weiter 
sonst Übertrag berücksichtigen 
und überprüfen, ob das Hi-Byte 


Update-Register Hi-Byte 
Lösche Carry für Addition 
Y (Spalte) nach Akku 
Addiere Lo-Byte von Attribut- 
Adresse und dann auf Stack 
Lade Akku mit Null, um den 
Übertrag zu addieren 
Abspeichern des Hi-Bytes 
Hole Lo-Byte von Stack und 
Erhöhe Register auf $13 
Speicher Lo-Byte ab 
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CE47: 

C9 

E0 

CMP 

# $E0 

CE49: 

90 

D8 

BCC 

SCE23 

CE4B: 

60 


RTS 



****************************** 


CE4C 

90 

05 

IC 

9F 

9C 

IE 

1 F 

9E 

CE54 

81 

95 

96 

97 98 

99 

9A 

9B 

****************************** 

CE5C 

00 

0F 

08 

07 

OB 

04 

02 

0D 

CE64 

0A 

OC 

09 

06 

01 

05 

03 

0E 

****************************** 

CE6C 

80 

40 

20 

10 

08 

04 

02 

01 

****************************** 

CE 74 

00 

04 

00 

D8 

18 

00 

00 

27 

CE7C 

00 

00 

00 

im 

00 

18 

27 

00 

CE84 

00 

0D 

0D 

00 

00 

00 

00 

00 

CE8C 

00 

00 







****************************** 

CE8E 

00 

00 

00 

08 

18 

00 

00 

4F 

CE96 

00 

00 

00 

00 

00 

18 

4F 

00 

CE9E 

00 

07 

07 

00 

00 

00 

00 

00 

CEA6 

00 

00 








****************************** 


bereits aufs Ende des CHARROM 
zeigt, sonst weitermachen 
Rücksprung aus dem Unterprogramm 

Tabelle der Farbcodes (ASCII) 


Tabelle der Farbcodes für VDC 


Initialisierungswerte 40 Z. Schirm 

Diese Werte werden bei der 
Initialisierung in die Zero-Page 
ab $E0 kopiert. Die Bedeutung 
entnehmen Sie der Z-Page Belegung 

Initialisierungswerte 80 Z. Schirm 

Diese Werte werden bei der 
Initialisierung in die Page 3 ab 
Adr. S0A40 kopiert. Die Bedeutung 
entnehmen Sie der Page-3 Belegung 

Einschaltlängenbelegung der F-Tasten 


Zweierpotenzen 

128, 64, 32, 16, 8, 4, 2, 1 


CEA8:07060A0706040508 Längeder Funktionstastenstrings 
CEBO: 09 05 (Fl - F8, Shift-Run, Help) 

****************************** Einschaltstringbelegung der F-Tasten 


CEB2: 

47 

52 

41 

50 

48 

49 

43 


GRAPHIC 

CEB9: 

44 

4C 

4F 

41 

44 

22 



DLOAD" 

CEBF: 

44 

49 

52 

45 

43 

54 

4F 

52 

DIRECTORY <Cr> 

CEC7: 

59 

0D 








CEC9: 

53 

43 

4E 

43 

4C 

52 

0D 


SCNCLR <Cr> 

CED0: 

44 

53 

41 

56 

45 

22 



DSAVE" 

CED6: 

52 

55 

4E 

0D 





RUN <Cr> 

CEDA: 

4C 

49 

53 

54 

0D 




LIST <Cr> 

CEDF: 

4D 

4F 

4E 

49 

54 

4F 

52 

0D 

MONITOR <Cr> 
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CEE7: 

CEEF: 

44 CC 22 2A OD 52 55 4E 

OD 

D <Shift - L> <Cr> RUN 

<Cr> 

CEFO: 

48 45 4C 50 OD 

HELP <Cr> 


****************************** 

Freier Bereich 


CEF5: 

FF FF FF . . . 

Nicht benutzt 


CFFD: 

... FF 00 FF 

Nicht benutzt 



********************************************************************** 

****************************** Reset Routine 


EOOO: 

A2 

FF 


LDX 

# $FF 

Initialisierungswert f. Stackpointer 

E002: 

78 



SEI 


Alle System Interrupts verhindern 

E003: 

9A 



TXS 


System Stackpointer a. Anfang setzen 

E004: 

D8 



CLD 


Dezimale Betriebsart zurücksetzen 

E005: 

A9 

00 


LDA 

« $00 

Akku mit $00 laden und alle 

E007: 

80 

00 

FF 

STA 

$FFOO 

System ROMs einschalten 

EOOA: 

A2 

OA 


LDX 

n $oa 

Schleifen und Displ. Zähler setzen 

EOOC: 

BD 

4B 

EO 

LDA 

$E04B,X 

Byte aus Initialisierungs-Tab. holen 

EOOF: 

9D 

00 

D5 

STA 

$0500,X 

MMU Register initialisieren 

E 012: 

CA 



DEX 


Schleifen und Displ. Zähler - 1 

E013: 

10 

F7 


BPL 

$EOOC 

11 Werte aus Tabelle übertragen 

E015: 

8D 

04 

OA 

STA 

$0A04 

NMI/Reset Status Zeiger löschen 

E018: 

20 

CD 

EO 

JSR 

$EOCD 

NMI, IRQ + Z-Page Routinen kopieren 

E01B: 

20 

1 () 

El 

JSR 

$E1F0 

Prüfe auf <CBM> Code in RAM 1 

E01E: 

20 

42 

E2 

JSR 

$E242 

Modultest für C-64 Konfiguration 

E021 : 

20 

09 

El 

JSR 

$E109 

Kernal IOINIT: Init. I/O Einheiten 

E024: 

20 

3D 

F6 

JSR 

$F63D 

Shift RUN/STOP Tastaturabfrage 

0027: 

48 



PHA 


Akku Inhalt auf Stack retten 

E028: 

30 

07 


BMI 

$E031 

Bit 7 gesetzt,Skip Reset Status Test 

E02A: 

A9 

AS 


LDA 

ft $A5 

System Warm-/Kaltstart Statuszeiger 

E02C: 

CD 

02 

OA 

CMP 

$0A02 

auf Warmstart Status testen 

E02F: 

FO 

03 


BEO 

$E034 

Warmstart Status, dann Skip 

E031: 

20 

93 

EO 

JSR 

$E093 

Kernal RAMTAS: RAM löschen / testen 

E034: 

20 

56 

EO 

JSR 

$E056 

Kernal RESTOR: I/O initialisieren 

E037: 

20 

00 

CO 

JSR 

$C000 

Routine CI NT: Init. Editor + Screen 

E03A: 

68 



PLA 


Code der Tastaturabfrage zurückholen 

E03B: 

58 



CLI 


Alle System Interrupts freigeben 

E03C: 

30 

03 


BMI 

$E041 

Bit 7 gesetzt,Skip Monitor Einsprung 

E03E: 

4C 

00 

BO 

JMP 

$B000 

Kernal MONITOR Einsprung 

E041: 

C9 

DF 


CMP 

« $DF 

System als C-64 konfigurieren? 

E043: 

FO 

03 


BEO 

$E048 

Ja,dann konfiguriere System als C-64 

E045: 

6C 

00 

OA 

JMP 

($0A00) 

System Restart Vektor (normal $4003) 

E048: 

4C 

4B 

E2 

JMP 

$E24B 

Kernal G064MODE: Konfiguriere C-64 
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Initialisierungstabelle für MMU 

E04B 

00 

.Byte 

$00 

$D500: Configuration Register 

E04C 

00 

.Byte 

$00 

$0501: Preconfiguration Register A 

E04D 

00 

.Byte 

$00 

$D502: Preconfiguration Register B 

E04E 

00 

.Byte 

$00 

$D503: Preconfiguration Register C 

E04F 

00 

.Byte 

$00 

$0504: Preconfiguration Register D 

E050 

BF 

.Byte 

$BF 

$D505: Mode Configuration Register 

E051 

04 

.Byte 

$04 

$D506: RAM Configuration Register 

E052 

00 

.Byte 

$00 

$D507: Page 0 Zeiger Low 

E053 

00 

.Byte 

$00 

$D508: Page 0 Zeiger High 

E054 

01 

.Byte 

$01 

$D509: Page 1 Zeiger Low 

E055 

00 

.Byte 

$00 

$D50A: Page 1 Zeiger High 


***★*★****★**★★***★*★★*★★★★★*★ 


Kernal Routine: RESTOR 


E056: 

A2 73 

LDX 

# 

$73 

E058: 

A0 E0 

LDY 

« 

$E0 

E05A: 

18 

CLC 






E05B: 

86 

C3 


STX 

* $C3 

E05D: 

84 

C4 


STY 

* $C4 

E05F: 

A0 

1 F 


LDY 

# $1F 

E061: 

B9 

14 

03 

LDA 

$0314,Y 

E064: 

B0 

02 


BCS 

$E068 

E066: 

Bl 

C3 


LDA 

($C3),Y 

E068: 

99 

14 

03 

STA 

$0314,Y 

E06B: 

90 

02 


BCC 

$E06F 

E06D: 

91 

C3 


STA 

($C3), Y 

E06F: 

88 



DEY 


E070: 

10 

EF 


BPL 

$E061 

E072: 

60 



RTS 





E073 

65 

FA 

$FA65 

E075 

03 

B0 

$B003 

E077 

40 

FA 

$FA40 

E079 

BD 

EF 

$EFBD 

E07B 

00 

CO 

Fl 

$F188 

E07D 

06 

Fl 

$F106 

E07F 

4C 

Fl 

$F14C 

E081 

26 

F2 

$F226 

E083 

06 

EF 

$EF06 

E085 

79 

EF 

$EF79 

E087 

6E 

F6 

$F66E 


Lo-Byte der Kernal Vektortabelle 
Hi-Byte der Kernal Vektortabelle 
KZ für Download der Vektortabelle 

Kernal Routine: VEKTOR 

Lo-Byte der Vektortabelle in Z-Page 
Hi-Byte der Vektortabelle ($E073) 
Schleifenzähler auf 32 setzen 
Byte aus Page 3 Vektortabelle lesen 
Wenn Upload der Vektortabelle, Skip 
Einen Wert aus Vektortabelle lesen 
ln Page 3 Vektortabelle speichern 
Wenn Download der Vektortabelle,Skip 
In indizierte Tabelle kopieren 
Schleifenzähler und Displacement -1 
Schleifen bis Tabelle übertragen 
Rücksprung aus dem Unterprogramm 

Vektortabelle 

Vektor zeigt auf [RQ-Einsprung 
Vektor auf Monitor-Break-Einsprung 
Vektor zeigt auf NMI-Einsprung 

Vektor zeigt auf Kernal OPEN Rout. 

Vektor zeigt auf Kernal CLOSE Rout. 

Vektor zeigt auf Kernal CHKIN Rout. 

Vektor zeigt auf Kernal CKOUT Rout. 

Vektor zeigt auf Kernal CLRCH Rout. 

Vektor zeigt auf Kernal BASIN Rout. 

Vektor zeigt auf Kernal BSOUT Rout. 

Vektor zeigt auf Kernal STOP Rout. 
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E089 

EB 

EE 

SEEEB 

F08B 

22 

F2 

$F222 

E08D 

06 

B0 

$B006 

E08F 

6C 

F2 

SF26C 

E091 

4E 

F5 

$F54E 


★★*****★★*★*★★*★★*★***★★**★**★ 


E093: 

A9 

00 


LDA 

# $00 

E095: 

A8 



TAY 


E096: 

99 

02 

00 

STA 

$0002, Y 

E099: 

C8 



I NY 


E09A: 

00 

FA 


BNE 

$E096 

E09C: 

A0 

OB 


LDY 

U $0B 

E09E: 

84 

B3 


STY 

* $B3 

E0A0: 

85 

B2 


STA 

* $B2 

E0A2: 

A0 

OC 


LDY 

# $0C 

E0A4: 

84 

C9 


STY 

* $C9 

E0A6: 

85 

C8 


STA 

* $C8 

E0A8: 

A0 

0D 


LDY 

U $0D 

E0AA: 

84 

CB 


STY 

* $CB 

E0AC: 

85 

CA 


STA 

* $CA 

E0AE: 

18 



CLC 


E0AF: 

A0 

FF 


LDY 

# $FF 

E0B1: 

A2 

00 


LDX 

# $00 

E0B3: 

20 

6B 

F7 

JSR 

$F76B 

E0B6: 

A0 

IC 


LDY 

# $1C 

E0B8: 

A2 

00 


LDX 

# $00 

E0BA: 

20 

7A 

F7 

JSR 

$F77A 

E0BD: 

A0 

40 


LDY 

U $40 

E0BF: 

A2 

00 


LDX 

# $00 

E0C1: 

8C 

01 

OA 

STY 

$0A01 

E0C4: 

8E 

00 

OA 

STX 

$0A00 

E0C7: 

A9 

A5 


LDA 

# $A5 

E0C9: 

8D 

02 

0A 

STA 

$0A02 

E0CC: 

60 



RTS 





E0CD: 

A0 

03 


LDY 

# $03 

E0CF: 

B9 

05 

El 

LDA 

$E105,Y 

E0D2: 

80 

00 

FF 

STA 

$FF00 

E0D5: 

A2 

3F 


LDX 

# $3F 

E0D7: 

BD 

05 

FF 

LDA 

$FF05,X 

E0DA: 

9D 

05 

FF 

STA 

$FF05,X 

E0DD: 

CA 



DEX 



Vektor zeigt auf Kernal GETIN Rout. 
Vektor zeigt auf kernal CLALL Rout. 
Vektor auf Monitor Exmon Einsprung 
Vektor zeigt auf LOAD Einsprung 
Vektor zeigt auf SAVE Einsprung 

Kernal Routine: RAMTAS 

Lösche Z-Page, setze Memtop, Membot, 

RS-232 E-/A-Buffer + Kassettenpuffer 

Akku mit $00 für Adreßwerte Lo 
initialisieren und nach Y kopieren 
Löschen der gesamten Zero-Page 
mit Ausnahme der beiden Prozessor¬ 
portregister $00 und $01 
Setze den Zero-Page Kassettenpuffer¬ 
zeiger (Z-Page $B2-$B3) auf die 
Anfangsadresse $0B00 
Setze den Zero-Page RS-232 Eingabe¬ 
pufferzeiger (Z-Page $C8-$C9) auf 
die Anfangsadresse $0C00 
Setze den Zero-Page RS-232 Ausgabe¬ 
pufferzeiger (Z-Page $CA-$CB) auf 
die Anfangsadresse $0D00 
Carry Flag als Kennzeichen löschen 
Setze die Speicherobergrenze 
in der Systembank auf $FF00 
Sprung in Kernal Routine MEMTOP 
Setze die Speicheruntergrenze 
in der Systembank auf $1C00 
Sprung in Kernal Routine MEMBOT 
Initialisiere den System 
RESTART Vektor an der Adresse 
$A00-$A01 mit dem Wert $4000 für 
den System Kaltstart Einsprung 
Initialisiere den System Kaltstart/ 
Warmstart Statuszeiger mit $A5 
Rücksprung aus dem Unterprogramm 

NM1, IRQ + Z-Page Routinen kopieren 

Schleifenzähler f. 4 Schleifen init. 
Wert aus RAM-Bank Tabelle holen 
Entsprechende Konfiguration setzen 
64 Bytes sind zu übertragen 
NMI + IRQ Routine aus ROM auslesen 
In darunterliegendes RAM kopieren 
Übertragungsschleifenzähler -1 
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eode 

10 

F7 


BPL 

$E0D7 

E0E0 

A2 

05 


LDX 

# $05 

E0E2 

BD 

FA 

FF 

LDA 

$FFFA,X 

E0E5 

9D 

FA 

FF 

STA 

$FFFA,X 

E0E8 

CA 



DEX 


E0E9 

10 

F7 


BPL 

$E0E2 

EOEB 

88 



0EY 


EOEC 

10 

El 


BPL 

$E0CF 

EOEE 

A2 

59 


LDX 

# $59 

E0F0 

BD 

00 

F8 

LDA 

$F800,X 

E0F3 

9D 

A2 

02 

STA 

$02A2,X 

E0F6 

CA 



DEX 


E0F7 

10 

F7 


BPL 

$E0F0 

E0F9 

A2 

OC 


LDX 

# $0C 

EOFB 

BD 

5A 

F8 

LDA 

$F85A,X 

EOFE 

9D 

F0 

03 

STA 

$03F0,X 

E101 

CA 



DEX 


E102 

10 

F7 


BPL 

$E0FB 

El 04 

60 



RTS 


****************************** 

E105 

00 



.Byte $00 

El 06 

40 



.Byte $40 

E107 

80 



.Byte $80 

El 08 

CO 



.Byte $C0 


****************************** 


E109: 

A9 

7F 


LDA 

# $7F 

E10B: 

8D 

0D 

DC 

STA 

$DC0D 

E10E: 

8D 

0D 

DD 

STA 

$DD0D 

Ellls 

8D 

00 

DC 

STA 

$DC00 

El 14: 

A9 

08 


LDA 

# $08 

El 16: 

8D 

OE 

DC 

STA 

$DC0E 

El 19: 

8D 

OE 

DD 

STA 

$DD0E 

El IC: 

8D 

0F 

DC 

STA 

$DC0F 

El 1F: 

8D 

0F 

DD 

STA 

$DD0F 

E122: 

A2 

00 


LDX 

# $00 

El 24: 

LU 

CO 

03 

DC 

STX 

$DC03 

E127: 

8E 

03 

DD 

STX 

$DD03 

E12A: 

CA 



DEX 


E12B: 

8E 

02 

DC 

STX 

$DC02 

E12E: 

A9 

07 


LDA 

# $07 

El 30: 

8D 

00 

DD 

STA 

$DD00 

El 33: 

A9 

3F 


LDA 

# $3F 

E135: 

8D 

02 

DD 

STA 

$DD02 


Schleifen, bis 64 Bytes kopiert sind 
In gleicher Weise werden hier der 
NMI, Reset und IRQ Vektor aus dem 
Kernal ROM in das darunterliegende 
RAM kopiert. Schleifen, bis alle 3 
Vektoren übertragen sind. 
Schleifenzähler f. 4 RAM-Banks -1 
Rout.+Vekt. in 4 RAM-Banks kopieren 
90 Bytes sind zu übertragen 
Hier werden die ROM Originale der 
FETCH, STASH, CMPARE, JSRFAR und 
JMPFAR Routinen in den RAM Bereich 
der Page 2 und 3 kopiert. 

13 Bytes sind zu übertragen 
Hier wird die im ROM als 
Original abgelegte Routine 
in den RAM Bereich ab Adresse 
$03F0 kopiert. 

Rücksprung aus dem Unterprogramm 
RAM-Bank Tabelle 

RAM 0,Syst.ROM,Basic Hi,Basic lo,I/0 
RAM 1,Syst.ROM,Basic Hi,Basic Lo,I/0 
RAM 2,Syst.ROM,Basic Hi,Basic Lo,I/0 
RAM 3,Syst.ROM,Basic Hi,Basic Lo,I/0 

Kernal Routine: IOINIT 
Initialisierung der CI As 

Wert für "Interrupt löschen" laden 
ICR des CIA 1 initialisieren 
ICR des CIA 2 initialisieren 
Port A, CIA 1, Matrixzeile 0 
"one shot" Initialisierung für Timer 
CRA des CIA 1 Timer A auf "one shot" 

CRA des CIA 2 Timer A auf "one shot" 

CRA des CIA 1 Timer B auf "one shot" 

CRA des CIA 2 Timer B auf "one shot" 

CIA Register auf Eingangs-Modus 
Datenrichtungsregister B des CIA 1 
Datenrichtungsregister B des CIA 2 
X-Reg auf Wert für "Ausgabe-Modus" 
Datenrichtungsregister A des CIA 1 
Videokontroller auf untere 16 K 
ATN Signal am Port A , CIA 2 löschen 
Bit 0 bis 5 auf Ausgabe setzen 
Datenrichtungsregister A des CIA 2 
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E138: 

A9 

E3 


LDA 

# $E3 

E13A: 

85 

01 


STA 

* $01 

E13C: 

A9 

2F 


LDA 

# $2F 

E13E: 

85 

00 


STA 

* $00 

E140: 

A2 

FF 


LDX 

# $FF 

E142: 

AD 

11 

DO 

LDA 

$D011 

E145: 

10 

FB 


BPL 

$E142 

E147: 

A9 

08 


LDA 

# $08 

El 49: 

CD 

12 

DO 

CMP 

$D012 

E14C: 

90 

06 


BCC 

$E 154 

E14E: 

AD 

11 

DO 

LDA 

$0011 

E151: 

30 

F4 


BMI 

$E147 

El 53: 

E8 



INX 


El 54: 

8E 

03 

0A 

STX 

$OA03 

E157: 

A9 

00 


LDA 

# $00 

E159: 

8D 

37 

0A 

STA 

$0A37 

E15C: 

8D 

39 

0A 

STA 

$0A39 

E15F: 

8D 

0A 

0A 

STA 

$OAOA 

El 62: 

8D 

3A 

0A 

STA 

$0A3A 

El 65: 

8D 

36 

0A 

STA 

$0A36 

El 68: 

85 

99 


STA 

* $99 

E16A: 

A9 

03 


LDA 

M $03 

E16C: 

85 

9A 


STA 

* $9A 

E16E: 

A2 

30 


LDX 

n $30 

El 70: 

BD 

C7 

E2 

LDA 

$E2C7,X 

E173: 

9D 

00 

DO 

STA 

$dooo, x 

El 76: 

CA 



DEX 


El 77: 

10 

F7 


BPL 

$E170 

El 79: 

A2 

00 


LDX 

U $00 

E17B: 

20 

DC 

El 

JSR 

$E1DC 

E17E: 

AD 

00 

D6 

LDA 

$0600 

E181: 

29 

07 


AND 

U $07 

El 83: 

F0 

05 


BEQ 

$E18A 

E185: 

A2 

3B 


LDX 

# $3B 

El 87: 

20 

DC 

El 

JSR 

$E1DC 

E18A: 

2C 

03 

0A 

BIT 

$0A03 

E18D: 

10 

05 


BPL 

$E194 

E18F: 

A2 

3E 


LDX 

ti $3E 

E191: 

20 

DC 

El 

JSR 

$E 1DC 

E194: 

AD 

04 

0A 

LDA 

$0A04 

E197: 

30 

15 


BMI 

$E1AE 

El 99: 

20 

27 

CO 

JSR 

$C027 

E19C: 

A9 

80 


LDA 

U $80 

E19E: 

0D 

04 

0A 

ORA 

$0A04 

E1A1: 

8D 

04 

OA 

STA 

$0A04 

El A4: 

A2 

FF 


LDX 

# $FF 

E1A6: 

A0 

FF 


LDY 

# $FF 

E1A8: 

88 



DEY 



Prozessorport Datenregister mit 
Standardwert $E3 initialisieren 
Prozessorport Datenrichtungsregister 
mit Standardwert $2F initialisieren 
PAL/NTSC Zeiger initialisieren (PAL) 
Warten bis das MSB des Rasterzeilen- 
Interrupt-Zeigers gesetzt ist 
Vergleichswert für PAL/NTSC-Version 
Mit Lo Byte Raster-Interrupt vgl. 
Kleiner als 8, dann PAL Version 
Warten, bis das MSB des Rasterzeilen 
Interrupts gelöscht ist. 
PAL/NTSC-Zeiger auf NTSC setzen ($0) 
PAL/NTSC-Versionszeiger sichern 
Initialisierungswert f. Zeiger 
X-Reg Speicher für Bank Operationen 
80 Zeichen VDC Hilfsspeicher 
Indirekter IRQ Vektor (Kassette) 

IRQ Hilfszeiger initialisieren 
Rasterzeile für R-Interrupt auslösen 
Standard Eingabegerät = Tastatur 
Z-Page Speicher f. Standard Ausgabe¬ 
gerät auf 3 (= Bildschirm) setzen 
49 Bytes sind zu übertragen 
Initialisierungstabelle für VIC Chip 
in Vic Steuerregister kopieren 
Schleifen-/Displacement- Zähler -1 
Schleifen, bis 49 Werte übertragen 
Schleifenzähler für VDC Init. setzen 
Initialisiere VDC Register 
VDC Status abfragen 
Prüfe, ob Bits 0-2 gelöscht sind 
Ja, Skip Initialisierung d. VDC-Reg. 
Displacementzeiger auf VDC Tab. 
Initialisiere VDC Register 
Prüfe auf PAL/NTSC Version 
Skip, wenn NTSC Version 
Displacementzeiger auf VDC Tab. 
Initialisiere VDC Register 
Prüfe NMI/Reset Status Zeiger 
VDC schon initialisiert, dann Skip 
Routine INIT80: Initi. 80 Zeichen 
Bit 7 im Akku setzen, diesen Wert 
mit dem NMI/VDC Status verknüpfen 
und in Status Flag zurückschreiben 
Schleifenzähler Hi auf High-Value 
Schleifenzähler Lo auf High-Value 
Schleifenzähler Lo um 1 vermindern 
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E1A9 

DO 

FD 


BNE 

$E1A8 

Schleife Lo fertig? Nein, weiter 

E1AB 

CA 



DEX 


Schleifenzähler Hi um 1 vermindern 

El AC 

DO 

FA 


BNE 

$E1A8 

Schleife Hi fertig? Nein, weiter 

El AE 

A9 

00 


LDA 

# $00 

Initialisierungswert f. SID-Register 

E1 BO 

A2 

18 


LDX 

# $18 

SID Disp.- und Schleifenzähler 

E1B2 

9D 

00 

D4 

STA 

$D400,X 

SID Register löschen (Low-Value) 

E1B5 

CA 



DEX 


Schleifen und Disp. Zähler -1 

El 86 

10 

FA 


BPL 

SE1B2 

Schleifen, bis 19 Reg. gelöscht sind 

E1B8 

A2 

01 


LDX 

# $01 

X-Reg mit #1 vorladen 

E1BA 

8E 

1A 

DO 

STX 

$D01A 

IRQ Maskenregister setzen 

E1BD 

CA 



DEX 


X-Reg auf #0 herunterzäh len 

EIBE 

8E 

IC 

OA 

STX 

$0A1C 

Fast seriell Mode Zeiger löschen 

E1C1 

8E 

OF 

OA 

STX 

$OAOF 

RS-232 NMI Status Register löschen 

E1C4 

CA 



DEX 


X-Reg auf High-Value ($FF) setzen 

E1C5 

8E 

06 

DC 

STX 

$DC06 

Uert im Timer B Lo ablegen 

E1C8 

8E 

07 

DC 

STX 

$DC07 

Wert im Timer B Hi ablegen 

E1CB 

A2 

11 


LDX 

# $11 

Code für “Force Load" und Timer A 

El CD 

8E 

OF 

DC 

STX 

$DCOF 

starten in das CIA Steueregister 

E1D0 

20 

C3 

E5 

JSR 

$E5C3 

Testroutine, ob der Fast Seriell 

E1D3 

20 

D6 

E5 

JSR 

$E5D6 

Modus am Diskettenlaufwerk erkannt 

E1D6 

20 

C3 

E5 

JSR 

$E5C3 

und beantwortet wird 

E1D9 

4C 

4E 

E5 

JMP 

$E54E 

Clock Lo Signal und RTS 

****************************** 

Initialisieren der VDC Register 

E1DC 

BC 

F8 

E2 

LDY 

$E2F8, X 

Registerauswahl aus Tab. holen 

E1DF 

30 

OD 


BMI 

$E1EE 

Endekriterium (Bit 7 = on) prüfen 

EIEI 

E8 



INX 


Displacement auf VDC Tabelle +1 

E1E2 

BD 

F8 

E2 

LDA 

$E2F8,X 

Register Schreibwert aus Tab. holen 

E1E5 

E8 



INX 


Displacement auf VDC Tabelle +1 

E1E6 

8C 

00 

D6 

STY 

$D600 

VDC Register Auswahl-Port setzen 

E1E9 

8D 

01 

D6 

STA 

$D601 

VDC Register Daten-Port beschreiben 

E1EC 

10 

EE 


BPL 

$E 1DC 

Sprung zum Schleifenanfang 

E1EE 

E8 



INX 


Displacement auf VDC Tabelle +1 

E1EF 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Prüfe auf <CBM> Code in RAM 1 

El FO 

A2 

F5 


LDX 

U $F5 

Den 2 Byte Zero-Page Zeiger in den 

E1F2 

AO 

FF 


LDY 

# $FF 

Adressen $C3 (Lo) - $C4 (Hi) mit 

El F4 

86 

C3 


STX 

* $C3 

der Anfangsadresse auf die Kernal- 

E1F6 

84 

C4 


STY 

* $C4 

Vektortabelle initialisieren ($FFF5) 

E1F8 

A9 

C3 


LDA 

# $C3 

FETVEC für die FETCH Routine auf den 

EIFA 

8D 

AA 

02 

STA 

$02AA 

Anfang der Vektortabelle setzen 

E1FD 

AO 

02 


LDY 

# $02 

Displacement für FETCH Routine 

E1FF 

A2 

7F 


LDX 

# $7F 

Konfigurationscode (RAM 1 only) 

E201 

20 

A2 

02 

JSR 

$02A2 

FETCH Rout.: LDA von beliebiger Bank 

E204 

D9 

C4 

E2 

CMP 

$E2C4,Y 

Prüft auf Code <C> <B> <M> 
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E207 

00 

1B 

BNE 

SE224 

Nicht gleich, dann Exit 

E209 

88 


DEY 


Schleifen, bis die drei Kenn- 

E20A 

10 

F3 

BPL 

$E1 FF 

buchstaben überprüft sind 

E20C 

A2 

F8 

LDX 

# $F8 

Den 2 Byte Zero-Page Zeiger in den 

E20E 

A0 

FF 

LDY 

# $FF 

Adressen $C3 (Lo) - $C4 (Hi) mit 

E210 

86 

C3 

STX 

* $C3 

mit der Adresse des Kernal C-128 

E212 

84 

C4 

STY 

* $C4 

Mode Vektors initialisieren ($FFF8) 

E214 

AO 

01 

LDY 

# $01 

Displacement für FETCH Routine 

E216 

A2 

7F 

LDX 

# $7F 

Konfigurationscode (RAM 1 only) 

E218 

20 

A2 02 

JSR 

S02A2 

FETCH Rout.: LDA von beliebiger Bank 

E21B 

99 

02 00 

STA 

$0002, Y 

Einsprungadresse Hi - Lo in 

E21E 

88 


DEY 


Z-Page $02-$03 bringen. Schleifen, 

E21F 

10 

F5 

BPL 

$E216 

bis beide Adressen übertragen sind. 

E221 

6C 

02 00 

JMP 

($0002) 

Indirekter Sprung über Z-Page 

****************************** 

Kernal Vektor: C128MODE 

E224 

A9 

40 

LDA 

# $40 

RAM 1, alle System ROMs einschalten 

E226 

8D 

00 FF 

STA 

$FFOO 

und Konfiguration setzen 

E229 

A9 

24 

LDA 

U $24 

Den 2 Byte Kernal Vektor 

E22B 

AO 

E2 

LDY 

# $E2 

für den C-128 Mode mit 

E22D 

8D 

F8 FF 

STA 

$FFF8 

dem Standardwert 

E230 

8C 

F9 FF 

STY 

$FFF9 

$E224 initialisieren 

E233 

A2 

03 

LDX 

# $03 

Schteifenzähler für 3 Übertragungen 

E235 

BD 

C3 E2 

LDA 

$E2C3,X 

<C> <B> <M> aus Tabelle laden 

E238 

9D 

F4 FF 

STA 

$FFF4,X 

und in den Vektorbereich der RAM 1 

E23B 

CA 


DEX 


Bank kopieren. Schleifen, bis die 

E23C 

DO 

F7 

BNE 

$E235 

drei Kennbuchstaben übertragen sind 

E23E 

8E 

00 FF 

STX 

$FFOO 

RAM 0, alle System ROMs einschalten 

E241 

60 


RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Prüfe,ob EXROM Eingang am MCR belegt 






Dient der Umschaltung bei 






eingesteckten 64er Modulen 

E242 

AO 

05 D5 

LDA 

$D505 

Das MCR Register der MMU auslesen 

E245 

29 

30 

AND 

# $30 

Prüfe, ob Bit 5 für den EXROM 

E247 

C9 

30 

CMP 

n $30 

Eingang gesetzt ist. 

E249 

FO 

20 

BEO 

$E26B 

Ja, kein 64er Modul vorhanden 

****************************** 

Kernal Routine: G064M00E 






System als C-64 konfigurieren 

E24B 

A9 

E3 

LDA 

# $E3 

C-64 System Werte in 

E24D 

85 

01 

STA 

* $01 

Datenregister Prozessorport 

E24F 

A9 

2F 

LDA 

# $2F 

C-64 System Uerte in 

E251 

85 

00 

STA 

* $00 

Datenrichtungsregister Prozessorport 

E253 

A2 

08 

LDX 

# $08 

8 Bytes sind zu kopieren 
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E255 

BD 

62 

E2 

LDA 

SE262, X 

E258 

95 

01 


STA 

* $01, X 

E25A 

CA 



DEX 


E25B 

DO 

F8 


BNE 

$E255 

E25D 

8E 

30 

DO 

STX 

$D030 

E260 

4C 

02 

00 

JMP 

$0002 


****************************** 


E263: 

A9 

F7 


LDA 

# $F7 

E265: 

8D 

05 

D5 

STA 

$D505 

E268: 

6C 

FC 

FF 

JMP 

( $ F F F C) 


****************************** 


E26B: 

A2 

03 


LDX 

n $03 

E26D: 

8E 

CO 

0A 

STX 

$0AC0 

E270: 

A9 

00 


LDA 

# $00 

E272: 

9D 

CI 

0A 

STA 

$0AC1,X 

E275: 

CA 



DEX 


E276: 

10 

FA 


BPL 

$E272 

E278: 

85 

9E 


STA 

* $9E 

E27A: 

A0 

09 


LOY 

# $09 

E27C: 

AE 

CO 

0A 

LDX 

$0AC0 

E27F: 

BD 

BC 

E2 

LDA 

$E2BC,X 

E282: 

85 

9F 


STA 

* $9F 

E284: 

BD 

CO 

E2 

LDA 

$E2C0,X 

E287: 

85 

02 


STA 

* $02 

E289: 

A6 

02 


LDX 

* $02 

E28B: 

A9 

9E 


LDA 

H $9E 

E28D: 

20 

DO 

F7 

JSR 

$F7D0 

E290: 

D9 

BD 

E2 

CMP 

$E2BD, Y 

E293: 

DO 

21 


BNE 

$E2B6 

E295: 

88 



DEY 


E296: 

CO 

07 


CPY 

# $07 

E298: 

B0 

EF 


BCS 

$E289 

E29A: 

A6 

02 


LDX 

* $02 

E29C: 

A9 

9E 


LDA 

# $9E 

E29E: 

20 

DU 

F7 

JSR 

$F7D0 

E2A1: 

AE 

CO 

0A 

LDX 

$0AC0 

E2A4: 

90 

CI 

0A 

STA 

$0AC1, X 

E2A7: 

C9 

01 


CMP 

* $01 

E2A9: 

DO 

OB 


BNE 

$E2B6 

E2AB: 

A5 

9E 


LDA 

* $9E 

E2AD: 

A4 

9F 


LDY 

* $9F 


Hier wird das ROM Original der 
Routine, die den C-64 konfiguriert, 
in die Z-Page kopiert, da diese 
Routine nur dort ablaufen darf. 
Taktfrequenz auf 1MHz setzen 
Zur Z-Page Routine: Konfig. C-64 

Diese Routine dient dazu, den C-128 
als C-64 zu konfigurieren. Sie kann 
nur in der Z-Page ablaufen, da alle 
anderen Bereiche abgeschaltet werden 

Initialisierungswert für C-64 System 
in das MCR Register d. MMU schreiben 
RESET Vektor C-64 anspringen 

Funktion-ROM Test im C-128 Mode 

Schleifen- und Displacementzähler 
für Modultest initialisieren 
Die ersten 4 Bytes der PAT 
(Physikalische Adreß-Tabelle der 
Erweiterungskarten) werden hier 
gelöscht. ($00 initialisiert) 

Lo Adreßwert für Modultest 
Displacement auf Modulcode (CBM) 
Displacement zähl er für Modulcheck 
Holt Hi Adreßwert aus Tabelle 
und legt ihn in Z-Page ab 
Holt Bank Wert für Test aus Tabelle 
und legt ihn in Z-Page Bank Byte ab 
Hole Bank Code aus Z-Page 
Hole Adresse $9E als VETVEC in Akku 
Rout. INDFET: LDA(fetvec),Y bei.Bank 
1 Zeichen auf "CBM" Code testen 
Nicht gleich, nächste Bank/Adresse 
Ueiter auf "CBM" Code prüfen 
Wenn die 3 Codezeichen erkannt sind, 
weiter, sonst in Testschleife 
Hole Bank Code des aktuellen Tests 
Hole Adresse $9E als FETVEC in Akku 
Rout. INDFET: LDA(fetvec),Y bei.Bank 
Hole F-ROM Displacement Zeiger 
Prüfe ID-Tab. der Erweiterungskarten 
Prüfe, ob Erweiterung angemeldet ist 
Nein, dann Skip zum nächsten Test 
Lo der Einsprungadresse in Akku 
Hi der Einsprungadresse in Y-Reg 
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E2AF 

85 

04 


STA 

* $04 

E281 

CO 

03 


STY 

* $03 

E2B3 

20 

CO 

02 

JSR 

$02CD 

E2B6 

CE 

CO 

OA 

DEC 

$0AC0 

E2B9 

10 

BF 


BPL 

$E27A 

E2BB 

60 



RTS 



****************************** 

E2BC: CO 80 CO 80 

****************************** 

E2C0: 04 04 08 08 

****************************** 

E2C4: 43 42 40 

****************************** 


E2C7 

00 

00 

00 

00 

00 

00 

00 

00 

E2CF 

00 

00 

00 

00 

00 

00 

00 

00 

E2D7 

00 

1B 

FF 

00 

00 

00 

08 

00 

E2DF 

14 

FF 

01 

uo 

00 

00 

00 

00 

E2E7 

0D 

OB 

01 

02 

03 

01 

02 

00 

E2EF 

01 

02 

03 

04 

05 

06 

0/ 

FF 

E2F7 

FC 









****************************** 


E2F8 

00 

7E 

01 

50 

02 

66 

03 

49 

E300 

04 

20 

05 

00 

06 

19 

07 

ID 

E308 

08 

00 

09 

07 

OA 

20 

OB 

07 

E310 

OC 

00 

00 

00 

OE 

00 

OF 

00 

E318 

14 

08 

15 

00 

17 

08 

18 

20 

E320 

19 

40 

1 A 

FO 

1B 

00 

IC 

20 

E328 

ID 

07 

22 

7D 

23 

64 

24 

05 

E330 

16 

78 







E332 

FF 




.Byte 

$FF 

E333 

19 

47 







E335 

FF 




.Byte 

$FF 

E336 

04 

27 

07 

20 





E33A 

FF 




.Byte 

$FF 


****************************** 

ORA # $40 


Lo der Einsprungadresse in PC-Lo 
Hi der Einsprungadresse in PC-Hi 
JSRFAR Rout.: JSR beiiebig.Bank +RTS 
Sch leiten-/Displacementzähl er -1 
Nicht Null, dann weiter testen 
Rücksprung aus dem Unterprogramm 

Hi Adressen für Modulprüfung 


Bank Nummer für Modulprüfung 
Int.ROM, Int.ROM, Ext.ROM, Ext.ROM 


Initialisierungstabelle für VIC Reg. 


Initialisierungstabelle für VDC Reg. 
VDC-Tab 1 


Trennzeichen 
VDC-Tab 2 
Trennzeichen 
VDC-Tab 3 
Trennzeichen 

Kernal Routine: TALK 

Bit 6 für TALK setzen 


$C000, $8000, $C000, $8000 


Code zur Modulkennzeichnung 
<C> <B> <M> 


E33B: 09 40 
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E33D 

2C 



.Byte $2C 

Skip nach $E340 

E33E 

09 

20 


ORA 

# $20 

Bit 5 für LISTN setzen 

E340 

20 

EC 

E7 

JSR 

$E7EC 

Ende der RS-232 Übertragung abwarten 

***★*★*★*★★********★**★***★★*★ 

Kernat Routine: LISTN 

E343 

48 



PHA 


TALK/LISTN KZ auf Stapel sichern 

E344 

24 

94 


BIT 

* $94 

Ist weiteres Byte auszugeben? 

E346 

10 

OA 


BPL 

$E352 

Nein, dann weiter 

E348 

38 



SEC 


Carry für Rotation setzen 

E349 

66 

A3 


ROR 

* $A3 

Flag für EOI setzen 

E34B 

20 

8C 

E3 

JSR 

$E38C 

Byte auf IEC Bus ausgeben 

E34E 

46 

94 


LSR 

* $94 

Zeichen im Puffer KZ löschen 

E350 

46 

A3 


LSR 

* $A3 

Flag für EOI wieder löschen 

E352 

68 



PLA 


Alten Akku Inhalt zurückholen 

E353 

85 

95 


STA 

* $95 

auszugebendes Byte in Z-Page sichern 

E355 

20 

73 

E5 

JSR 

$E573 

SEI, 1 MHz, Sprites abschalten 

E358 

20 

57 

E5 

JSR 

$E557 

Data Hi ausgeben 

E35B 

AD 

00 

DD 

LDA 

$DD00 

Prüfe, ob am Datenport A des CIA 2 

E35E 

29 

08 


AND 

# $08 

das ATN Signal gesetzt ist 

E360 

DO 

12 


BNE 

$E374 

Nicht gesetzt, dann Skip 

E362 

20 

D6 

E5 

JSR 

$E5D6 

Impuls für schnellen seriellen Modus 

E365 

A9 

FF 


LDA 

# $FF 

Ein-/Ausgabe Datenpuffer f. serielle 

E367 

8 D 

OC 

DC 

STA 

$DCOC 

Übertragung auf High-Value setzen 

E36A 

20 

BC 

E5 

JSR 

$E5BC 

Rückmeldung vom Bus abwarten 

E360 

8 A 



TXA 


X-Reg Inhalt in Akku sichern 

E36E 

A2 

14 


LDX 

# $14 

Schleifenzähler auf 20 setzen 

E370 

CA 



DEX 


Schleifenzähler um 1 vermindern 

E371 

DO 

FD 


BNE 

$E370 

Warten, bis Schleife heruntergezählt 

E373 

AA 



TAX 


Alten X-Reg Inhalt wiederherstellen 

E374 

AD 

00 

DD 

LDA 

$DD00 

Port A des CIA 2 aus lesen 

E377 

09 

08 


ORA 

U $08 

ATN Lo Signal setzen und in den 

E379 

8 D 

00 

DD 

STA 

$DDOO 

Port A des CIA 2 zurückschreiben 

E37C 

20 

73 

E5 

JSR 

$E573 

Taktfrequenz 1MHz,Sprites abschalten 

E37F 

20 

4E 

E5 

JSR 

$E54E 

Clock Lo ausgeben 

E382 

20 

57 

E5 

JSR 

$E557 

Data Hi ausgeben 

***** 

***** 

* * 

k * * * 



Verzögerungsschleife ca. 1 Millisek. 

E385 

8 A 



TXA 


X-Reg Inhalt im Akku sichern 

E386 

A2 

B8 


LDX 

# $B8 

Schleifenzähler auf 184 setzen 

E388 

CA 



DEX 


Schleifenzähler um 1 vermindern 

E389 

DO 

FD 


BNE 

$E388 

Schleifen, bis Zähler - Null ist 

E38B 

AA 



TAX 


X-Reg Inhalt wiederherstellen 

...* 

Byte auf IEC Bus (vorbereiten) 

E38C 

20 

73 

E5 

JSR 

$E573 

Taktfrequenz 1MHz,Sprites abschalten 
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E38F: 

20 

57 

E5 

JSR 

$E557 

Data Hi ausgeben 

E392: 

20 

69 

E5 

JSR 

$E569 

Bit vom IEC Bus ins Carry holen 

E395: 

90 

03 


BCC 

$E39A 

Data nicht Lo, dann Ok und Skip 

E397: 

4C 

28 

E4 

JMP 

$E428 

"Device not present"in System Status 

E39A: 

2C 

OD 

DC 

BIT 

$DCOD 

Teste CIA Interrupt Steuerregister 

E39D: 

20 

45 

E5 

JSR 

SE545 

Clock Hi ausgeben 

E3A0: 

24 

A3 


BIT 

* $A3 

Z-Page Zeiger für EOI gesetzt? 

E3A2: 

10 

OA 


BPL 

$E3AE 

Nein, dann Skip 

E3A4: 

20 

69 

E5 

JSR 

$E569 

Bit vom IEC Bus ins Carry holen 

E3A7: 

90 

FB 


BCC 

SE3A4 

Warten auf Data Lo Signal 

E3A9: 

20 

69 

E5 

JSR 

$E569 

Bit vom IEC Bus ins Carry holen 

E3AC: 

BO 

FB 


BCS 

SE3A9 

Uarten auf Data Hi Signal 

E3AE: 

AD 

00 

DD 

LDA 

SDDOO 

Hier werden die Daten vom Port A 

E3B1: 

CD 

00 

DD 

CHP 

$DDOO 

des CIA 2 gelesen und die gelesenen 

E3B4: 

DO 

F8 


BNE 

SE3AE 

Daten entprelIt 

E3B6: 

48 



PHA 


Gelesene Daten auf Stack sichern 

E3B7: 

AD 

OD 

DC 

LDA 

SDCOD 

Prüfe Interrupt Steuerregister 

E3BA: 

29 

08 


AND 

# $08 

Ist Timer A auf "One Shot"? 

E3BC: 

FO 

üb 


BEO 

$E3C3 

Ja, dann Skip 

E3BE: 

A9 

CO 


LDA 

U SCO 

Kontrollbit 6 und 7 im System-Zeiger 

E3C0: 

8D 

IC 

OA 

STA 

S0A1C 

für schnellen seriellen Modus setzen 

E3C3: 

68 



PLA 


Gelesene Daten vom Stack zurückholen 

E3C4: 

10 

E8 


BPL 

$E3AE 

Bit 7 gelöscht, dann Skip 

E3C6: 

09 

10 


ORA 

# $10 

Bit 4 für Clock Ausgang an ser. Bus 

E3C8: 

80 

00 

DD 

STA 

SDDOO 

setzen und in Port A schreiben 

E3CB: 

29 

08 


AND 

# $08 

Prüfe, ob Bit 3 gesetzt ist 

E3CD: 

DO 

13 


BNE 

SE3E2 

Nein, dann Skip 

E3CF: 

2C 

IC 

OA 

BIT 

S0A1C 

Prüfe Bit 7 des ser. Mode Zeigers 

E3D2: 

10 

OE 


BPL 

SE3E2 

Bit 7 gelöscht, dann Skip 

E3D4: 

20 

06 

E5 

JSR 

SE5D6 

Impuls für schnellen seriellen Modus 

E3D7: 

A5 

95 


LDA 

* $95 

Gesichertes Byte zurückholen und in 

E3D9: 

80 

oc 

DC 

STA 

SDCOC 

CIA Ein-/Ausgabe Register schreiben 

E3DC: 

20 

BC 

E5 

JSR 

SE5BC 

Rückmeldung vom Bus abwarten 

E3DF: 

4C 

12 

E4 

JMP 

$E412 

Byteausgabe über seriellen Bus 

****************************** 

Byte auf IEC Bus (ausgeben) 

E3E2: 

A9 

08 


LDA 

tt $08 

Zähler für die Anzahl der zu 

E3E4: 

85 

Ab 


STA 

* $A5 

sendenden Bits mit 8 initialisieren 

E3E6: 

AD 

00 

DD 

LDA 

SDDOO 

Hier werden die Daten vom Port A 

E3E9: 

CD 

00 

DD 

CMP 

SDDOO 

des CIA 2 gelesen und die gelesenen 

E3EC: 

DO 

F8 


BNE 

$E3E6 

Daten noch entprelIt. 

E3EE: 

OA 



ASL 

A 

Data in das Carry Flag schieben 

E3EF: 

90 

34 


BCC 

$E425 

Data Hi ausgeben, "time out" ausgeben 

E3F1: 

66 

95 


ROR 

* $95 

Bit zur Ausgabe bereitstellen 

E3F3: 

BO 

05 


BCS 

SE3FA 

Prüfe, ob Bit gesetzt ist 

E3F5: 

20 

60 

E5 

JSR 

$E560 

Nein, dann Data Lo ausgeben 

E3F8: 

DO 

03 


BNE 

SE3FD 

und zur Clock Hi Ausgabe springen 
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E3FA 

20 

57 

E5 

JSR 

$E557 

Data Hi ausgeben 

E3FD 

20 

45 

E5 

JSR 

$E545 

Clock Hi ausgeben 

E400 

EA 



NOP 


Leerschritt: No Operation 

E401 

EA 



NOP 


Leerschritt: No Operation 

E402 

EA 



NOP 


Leerschritt: No Operation 

E403 

EA 



NOP 


Leerschritt: No Operation 

E404 

AD 

00 

DD 

LDA 

$DD00 

Port A des CIA 2 auslesen 

E407 

29 

DF 


AND 

# $DF 

Bit 5: Data Ausgang ser. Bus löschen 

E409 

09 

10 


ORA 

# $10 

Bit 4: Clock Ausgang ser. Bus setzen 

E40B 

8 D 

00 

DD 

STA 

$DD00 

in den Datenport A zurückschreiben 

E40E 

C6 

A5 


DEC 

* $A5 

Bitzähler um 1 vermindern. Wenn 

E410 

DO 

D4 


BNE 

SE3E6 

weiteres Bit ausgeben,dann schleifen 

E412 

8 A 



TXA 


Inhalt des X-Reg in Akku kopieren 

E413 

48 



PHA 


und X-Reg auf Stack sichern 

E414 

A2 

22 


LDX 

# $22 

Hi Impuls Zahler auf #34 setzen 

E416 

r\j 

o 

69 

E5 

JSR 

$E569 

Ein Bit vom IEC Bus ins Carry holen 

E419 

BO 

05 


BCS 

$E420 

Data Hi, dann Skip 

E41B 

68 



PLA 


Alten X-Reg Inhalt vom Stack holen 

E41C 

AA 



TAX 


und X-Reg Inhalt wiederherstellen 

E41D 

4C 

9F 

E5 

JMP 

$E59F 

Taktfrequenz + Sprites zurücksetzen 

E420 

CA 



DEX 


Data Hi Zähler um 1 vermindern 

E421 

DO 

F3 


BNE 

$E416 

Noch keine 22 Hi Impulse,dann weiter 

E423 

68 



PLA 


Alten X-Reg Inhalt vom Stack holen 

E424 

AA 



TAX 


und X-Reg Inhalt wiederherstellen 

E425 

A9 

03 


LDA 

n $03 

Code für System Status: Time out 

E427 

2C 



.Byte $2C 

Skip nach $E42A 

E428 

A9 

80 


LDA 

n $80 

Code für Status: Device not present 

E42A 

48 



PHA 


Status Code auf Stapel sichern 

E42B 

AD 

IC 

0A 

LDA 

$0A1C 

Prüfe den Fast seriell Mode Zeiger 

E42E 

29 

7F 


AND 

# $7F 

Bit 7 ausblenden, nur fast/slow 

E430 

8 D 

IC 

0A 

STA 

$0A1C 

In Fast Mode Flag zurückschreiben 

E433 

68 



PLA 


Status Fehler Code zurückholen 

E434 

20 

57 

F7 

JSR 

$F757 

System Status neu setzen 

E437 

20 

9F 

E5 

JSR 

$E59F 

Taktfrequenz + Sprites zurücksetzen 

E43A 

18 



CLC 


Kennzeichen für OK setzen 

E43B 

4C 

35 

E5 

JMP 

$E535 

Gerät über UNLSN Routine abhängen 


Kernal Routine: ACPTR 







Byte vom seriellen Bus holen 

E43E 

20 

73 

E5 

JSR 

$E573 

Systemtakt 1MHz, Sprites abschalten 

E441 

A9 

00 


LDA 

# $00 

Den Z-Page Zeiger für die serielle 

E443 

85 

A5 


STA 

* $A5 

EOI Kennzeichnung löschen 

E445 

2C 

OL) 

DC 

BIT 

$DC0D 

Bit 7 des CIA-1SR auslesen 

E448 

8 A 



TXA 


Den aktuellen Inhalt des X-Reg über 

E449 

48 



PHA 


den Akku auf dem Stapel sichern 

E44A 

20 

45 

E5 

JSR 

$E545 

Clock Hi Signal an Port A 

E44D 

20 

69 

E5 

JSR 

$E569 

Bit vom IEC Bus ins Carry holen 






292 


E450: 
E452: 
E454: 
E457: 
E459: 
E45C: 
E45F: 
E462: 
E464: 
E465: 
E467: 
E468: 
E46A: 
E46C: 
E46E: 
E471: 
E474: 
E476: 
E479: 
E47B: 
E47D: 
E47E: 
E47F: 
E481: 
E484: 
E486: 
E489: 
E48B: 
E48D: 
E490: 
E493: 
E495: 
E496: 
E498: 
E49A: 
E49D: 
E4A0: 
E4A2: 
E4A3: 
E4A5: 
E4A6: 
E4A8: 
E4AB: 
E4AE: 
E4B0: 
E4B1: 
E4B3: 
E4B5: 


128 Intern 


10 

FB 

BPL 

SE44D 

Warten auf DATA Hi Signal 

A2 

OD 

LDX 

# $0D 

Schleifenzähler mit #13 initial. 

AD 

00 DD 

LDA 

SDDOO 

Datenport A des CIA 2 auslesen 

29 

DF 

AND 

# $DF 

Bit 6: "Ser. Bus Impuls ein" löschen 

80 

00 DD 

STA 

SDDOO 

und in Datenport zurückschreiben 

AD 

00 DD 

LDA 

SDDOO 

Datenport A des CIA 2 lesen und 

CD 

00 DD 

CMP 

SDDOO 

warten, bis ein Bit über den Bus 

DO 

F8 

BNE 

SE45C 

am Port angekommen ist 

OA 


ASL 

A 

Datenbit in das Carry Flag schieben 

10 

ID 

BPL 

SE484 

Datenbyte vom Bus holen 

CA 


DEX 


Schleifenzähler um 1 vermindern 

DO 

F2 

BNE 

SE45C 

Schleife nicht Null, dann Skip 

A5 

A5 

LDA 

* SA5 

Prüfe Z-Page EOI Zeiger 

DO 

OF 

BNE 

SE47D 

Bei #0, EOI empfangen, sonst Skip 

20 

60 E5 

JSR 

SE560 

Data Lo Signal an seriellen Bus 

20 

45 E5 

JSR 

SE545 

Clock Hi Signal an seriellen Bus 

A9 

40 

LDA 

# $40 

Code für Status: EOI-Leitung 

20 

57 F7 

JSR 

SF757 

System Status neu setzen 

E6 

A5 

INC 

* SA5 

EOI Zeiger auf Zeitfehler b. Timeout 

DO 

D5 

BNE 

SE452 

Datenbyte nach EOI holen 

68 


PLA 


Den gesicherten X-Reg Inhalt über 

AA 


TAX 


den Akku vom Stack zurückholen 

A9 

02 

LDA 

# S02 

Code für Status: Timeout b. Lesen 

4C 

2A E4 

JMP 

SE42A 

System Status neu setzen 

A2 

08 

LDX 

# $08 

Zähler für 8 Datenbits setzen 

AD 

OD DC 

LDA 

SDCOD 

Interrupt Steuerregister auslesen 

29 

08 

AND 

# $08 

Prüfe, auf Timer, Clock oder Bus 

DO 

28 

BNE 

SE4B5 

Interrupt. Ja, dann Skip 

AD 

00 DD 

LDA 

SDDOO 

Datenport A des CIA 2 lesen und 

CD 

00 DD 

CMP 

SDDOO 

warten, bis ein Bit über den Bus 

DO 

F8 

BNE 

SE48D 

am Port angekommen ist 

OA 


ASL 

A 

Datenbit in das Carry Flag schieben 

10 

EE 

BPL 

SE486 

Nein, warten bis Daten gültig sind 

66 

A4 

ROR 

* SA4 

Enpfangenes Datenbit in Bitspeicher 

AD 

00 DD 

LDA 

SDDOO 

Datenport A des CIA 2 lesen und 

CD 

00 DD 

CMP 

SDDOO 

warten, bis ein Bit über den Bus 

DÜ 

F8 

BNE 

SE49A 

am Port angekommen ist 

OA 


ASL 

A 

Datenbit in das Carry Flag schieben 

30 

F5 

BMI 

SE49A 

Nein, dann warten 

CA 


DEX 


Zähler für die Datenbitzahl -1 

FO 

17 

BEO 

SE4BF 

8 Datenbits angekommen, dann Skip 

AD 

00 DD 

LDA 

SDDOO 

Datenport A des CIA 2 lesen und 

CD 

00 DD 

CMP 

SDDOO 

warten, bis ein Bit über den Bus 

DO 

F8 

BNE 

SE4A8 

am Port angekommen ist 

OA 


ASL 

A 

Datenbit in das Carry Flag schieben 

10 

F5 

BPL 

SE4A8 

Sprung, wenn empfangenes Bit "0" 

30 

E3 

BMI 

SE498 

Sprung, wenn empfangenes Bit "1" 

AD 

OC DC 

LDA 

SDCOC 

Inhalt des Ein-/Ausgabe Datenpuffers 
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E4B8 

85 

A4 


STA 

* $A4 

E4BA 

A9 

CO 


LDA 

# SCO 

E4BC 

8 D 

IC 

0A 

STA 

S0A1C 

E4BF 

68 



PLA 


E4C0 

AA 



TAX 


E4C1 

20 

60 

E5 

JSR 

SE560 

E4C4 

24 

90 


BIT 

* $90 

E4C6 

50 

03 


BVC 

SE4CB 

E4C8 

20 

38 

E5 

JSR 

SE538 

E4CB 

20 

9F 

E5 

JSR 

SE59F 

E4CE 

A5 

A4 


LDA 

* SA4 

E4D0 

18 



CLC 


E4D1 

60 



RTS 



****************************** 


E4D2 

in 

CO 

95 


STA 

* $95 

E4D4 

20 

7C 

E3 

JSR 

$E37C 

E4D7 

AD 

00 

DD 

LDA 

$DD00 

E4DA 

29 

F7 


AND 

# $F7 

E4DC 

8 D 

00 

DD 

STA 

$DD00 

E4DF 

60 



RTS 



****************************** 


E4E0 

85 

95 


STA 

* $95 

E4E2 

20 

7C 

E3 

JSR 

SE37C 

E4E5 

24 

90 


BIT 

* $90 

E4E7 

30 

4C 


BMI 

$E535 

E4E9 

20 

73 

E5 

JSR 

$E573 

E4EC 

20 

60 

E5 

JSR 

$E560 

E4EF 

20 

D7 

E4 

JSR 

$E4D7 

E4F2 

20 

45 

E5 

JSR 

SE545 

E4F5 

AD 

00 

DD 

LDA 

$DD00 

E4F8 

CD 

00 

DD 

CMP 

$DD00 

E4FB 

DO 

F8 


BNE 

SE4F5 

E4FD 

0A 



ASL 

A 

E4FE 

30 

F5 


BMI 

SE4F5 

E500 

4C 

9F 

E5 

JMP 

$E59F 


****************************** 


E503 

24 94 

BIT 

* $94 

E505 

30 05 

BMI 

SE50C 

E507 

38 

SEC 


E508 

66 94 

ROR 

* $94 

E50A 

DO 05 

BNE 

$E511 


in der Z-Page Zwischenspeichern 
Bit 6 und 7 im System Flag für den 
Fast seriell Mode setzen 
Den gesicherten X-Reg Inhalt über 
den Akku vom Stapel zurückholen 
Data Lo Signal an seriellen Bus 
STATUS auf gesetztes EOF Bit testen 
Kein EOF gefunden, dann weiter 
Gerät über UNLSN Routine abhängen 
Taktfrequenz + Sprites zurücksetzen 
Datenbyte in den Akku holen 
Kennzeichen für OK setzen 
Rücksprung aus dem Unterprogramm 

Kernal Routine: SECND 
Sekundäradresse nach LISTN senden 

Sekundäradresse in Z-Page sichern 
mit Attention (ATN) ausgeben 
Datenport A des CIA 2 lesen 
Bit 3 ausblenden und so das ATN 
Signal an ser. Bus zurücknehmen 
Rücksprung aus dem Unterprogramm 

Kernal Routine: TKSA 

Sekundäradresse in Z-Page sichern 
mit Attention (ATN) ausgeben 
STATUS auf gesetztes EOF Bit testen 
EOF aufgetreten, dann in UNLSN Rout. 
Taktfrequenz 1MHz,Sprites abschalten 
Data Lo Signal an seriellen Bus 
Einsprung in SECND Routine 
Clock Hi Siganl an ser. Bus 
Datenport A des CIA 2 lesen und 
warten, bis ein Bit über den Bus 
am Port angekommen ist 
Datenbit ins Carry Flag schieben 
und auf Data Hi warten 
Taktfrequenz + Sprites zurücksetzen 

Kernal Routine: CI OUT 

Ist noch weiteres Byte auszugeben? 
Ja, dann in Ausgabeschleife 
Carry für Rotation auf "1" setzen 
Flag für gepuffertes Byte setzen 
Ausgabeschleife überspringen 
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E50C 

48 



PHA 


E50D 

20 

8 C 

E3 

JSR 

SE38C 

E510 

68 



PLA 


E511 

85 

95 


STA 

* $95 

E513 

18 



CLC 


E514 

60 



RTS 


****************************** 

E515 

20 

73 

E5 

JSR 

$E573 

E518 

20 

4E 

E5 

JSR 

$E54E 

E51B 

AD 

00 

DD 

LDA 

$DD00 

E51E 

09 

08 


ORA 

# $08 

E520 

8 D 

00 

DD 

STA 

$DD00 

E523 

A9 

5 F 


LDA 

# $5F 

E525 

2C 



.Byte $2C 

****************************** 

E526 

A9 

3F 


LDA 

U $3F 

E528 

48 



PHA 


E529 

AD 

IC 

OA 

LDA 

$0A1C 

E52C 

29 

7F 


AND 

# $7F 

E52E 

80 

IC 

0A 

STA 

$0A1C 

E531 

68 



PLA 


E532 

20 

43 

E3 

JSR 

$E343 

E535 

20 

D7 

E4 

JSR 

$E4D7 

E538 

8 A 



TXA 


E539 

A2 

0A 


LDX 

# $0A 

E53B 

CA 



DEX 


E53C 

DO 

FD 


BNE 

$E53B 

E53E 

AA 



TAX 


E53F 

20 

45 

E5 

JSR 

$E545 

E542 

4C 

57 

E5 

JMP 

$E557 

****************************** 

E545 

AD 

00 

DD 

LDA 

$DD00 

E548 

29 

EF 


AND 

# $EF 

E54A 

8 D 

00 

DD 

STA 

$DD00 

E54D 

60 



RTS 


****************************** 

E54E 

AD 

00 

DD 

LDA 

$DD00 

E551 

09 

10 


ORA 

U $10 

E553 

80 

00 

DD 

STA 

$DD00 


Das Byte auf den Stack retten 
Gepuffertes Byte auf Bus ausgeben 
Byte vom Stack zurückholen 
Im Z-Page Ausgabespeicher ablegen 
Carry für "OK" KZ setzen 
Rücksprung aus dem Unterprogramm 


Taktfrequenz zurücksetzen 

Clock Lo Signal an Port A 

Datenport A des CIA 2 lesen 

Bit 3 in diesen Wert einblenden und 

ATN LO Signal auf Bus geben 

Code für UNTLK in Akku laden 

Skip nach $E528 

Kernal Routine: UNLSN 

Code für UNLSN in Akku laden 

und auf dem Stapel Zwischenspeichern 

Status Zeiger für "Fast Seriell" 

Bit 7 ausblenden 

und wieder zurückschreiben 

Alten Akku Inhalt wiederherstellen 

Kernal Routine: LISTN 

ATN zurücksetzen, Hi 

X-Reg Inhalt im Akku sichern 

Zeitschleife für 40 Mikrosekunden 

Schleifenzähler um 1 vermindern 

Warten bis Schleife abgearbeitet 

Alten X-Reg Inhalt wiederherstellen 

Clock Hi Signal an Port A 

Data Hi Signal an Port A und RTS 

Clock Hi Signal 

Datenport A des CIA 2 lesen 
Bit 4 für Clock Ausgang an ser. Bus 
löschen und in Port A schreiben 
Rücksprung aus dem Unterprogramm 

Clock Lo Signal 

Datenport A des CIA 2 lesen 

Bit 4 für Clock Ausgang an ser. Bus 

setzen und in Port A schreiben 


Kernal Routine: UNTLK 
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E556: 60 RTS 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★in* 


E557: 

AD 

00 

DD 

LDA 

IDD00 

E55A: 

29 

DF 


AND 

# $DF 

E55C: 

8 D 

00 

DD 

STA 

$DD00 

E55F: 

60 



RTS 





E560: 

AD 

00 

DD 

LDA 

$DD00 

E563: 

09 

20 


ORA 

n $20 

E565: 

8 D 

00 

DD 

STA 

$DD0O 

E568: 

60 



RTS 



★ ★*★★★*★***★★★** 1 » *****★★★★**★* 


E569: 

AD 

00 

DD 

LDA 

SDDOO 

E56C: 

CD 

00 

DD 

CMP 

$DD00 

E56F: 

DO 

F8 


BNE 

$E569 

E571: 

0A 



ASL 

A 

E572: 

60 



RTS 





E573: 

78 



SEI 


E574: 

2C 

3A 

0A 

BIT 

S0A3A 

E577: 

30 

25 


BMI 

$E59E 

E579: 

2C 

57 

0A 

BIT 

$0A37 

E57C: 

30 

20 


BMI 

$E59E 

E57E: 

AD 

30 

DO 

LDA 

$D030 

E581: 

8 D 

37 

0A 

STA 

$0A37 

E584: 

AD 

15 

DO 

LDA 

$D015 

E587: 

8 D 

58 

0A 

STA 

$0A38 

E58A: 

A9 

00 


LDA 

U $00 

E58C: 

8 D 

15 

DO 

STA 

$D015 

E58F: 

8 D 

30 

DO 

STA 

$0030 

E592: 

AD 

38 

OA 

LDA 

$0A38 

E595: 

F0 

07 


BEO 

$E59E 

E597: 

8 A 



TXA 


E598: 

A2 

00 


LDX 

» $00 

E59A: 

CA 



DEX 


E59B: 

DO 

FD 


BNE 

$E59A 

E59D: 

AA 



TAX 


E59E: 

60 



RTS 



Rücksprung aus dem Unterprogramm 

Data Hi Signal 

Datenport A des CIA 2 lesen 
Bit 5 für Data Ausgang an ser. Bus 
löschen und in Port A schreiben 
Rücksprung aus dem Unterprogramm 

Data Lo Signal 

Datenport A des CIA 2 lesen 
Bit 5 für Data Ausgang an ser. Bus 
setzen und in Port A schreiben 
Rücksprung aus dem Unterprogramm 

Ein Bit vom IEC Bus ins Carry holen 

Oatenport A des CIA 2 lesen und 
warten, bis ein Bit über den Bus 
am Port angekommen ist. 

Empfangenes Bit (Bit 7) ins Carry 
Rücksprung aus dem Unterprogramm 

Systemtaktfrequenz auf 1MHz setzen 
und alle Sprites abschalten 

Alle System Interrupts verhindern 
Prüfe Interrupt Sicherungsspeicher 
Bit 7 gesetzt, dann Rücksprung 
Prüfe Taktfreq. Sicherungsspeicher 
Bit 7 gesetzt, dann Rücksprung 
VIC Register für Taktfrequenz 
in Systemspeicher sichern 
VIC Register für Sprite enable 
in Systemspeicher sichern 
Init. Status f. 1 MHz, keine Sprites 
Alle Sprites abschalten 
Taktfrequenz auf 1 MHz setzen 
Uaren Sprites eingeschaltet? 

Nein, dann Rücksprung 
X-Reg Inhalt im Akku sichern 
Warteschleife für 1.3 Millisekunden 
Schleifenzähler um 1 vermindern 
Uarteschleife ganz abarbeiten 
Alten X-Reg Inhalt zurückholen 
Rücksprung aus dem Unterprogramm 
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****************************** 

Taktfrequenz + Spritezeiger auf den 







ursprünglichen Status zurücksetzen 

E59F 

2C 

3A 

OA 

BIT 

$0A3A 

Prüfe Interrupt Sicherungsspeicher 

E5A2 

30 

16 


BMI 

$E5BA 

Bit 7 gesetzt, dann Rücksprung 

E5A4 

2C 

37 

OA 

BIT 

$0A37 

Prüfe Taktfreq. Sicherungsspeicher 

E5A7 

10 

11 


BPL 

$E5BA 

Frequenz nicht geändert, dann Skip 

E5A9 

AD 

38 

OA 

LDA 

$0A38 

Den gesicherten Wert des Sprite- 

E5AC 

8 D 

15 

DO 

STA 

$D015 

Enable Registers zurückschreiben 

E5AF 

AD 

37 

OA 

LDA 

$0A37 

Den gesicherten Uert für die 

E5B2 

8 D 

30 

DO 

STA 

SD030 

System Taktfrequenz zurückschreiben 

E5B5 

A9 

00 


LDA 

tt $00 

Zwischenspeicher für Sicherung der 

E5B7 

8 D 

37 

OA 

STA 

S0A37 

System-Taktfrequenz löschen 

E5BA 

58 



CLI 


Alle System Interrupts freigeben 

E5BB 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Rückmeldung vom Bus abwarten 

E5BC 

AD 

OD 

DC 

LDA 

$DCOD 

Hole CIA Interrupt Steuerregister 

E5BF 

29 

08 


AND 

# $08 

Warte, bis Bit 4 (SRQ Eingabe vom 

E5C1 

F0 

F9 


BEQ 

$E5BC 

seriellen Bus) gelöscht ist. 

E5C3 

AD 

OE 

DC 

LDA 

$DCOE 

Steuerregister A des CIA auslesen 

E5C6 

29 

80 


AND 

# $80 

Bit 7 f. 50 Hz Frequenz eliminieren 

E5C8 

09 

08 


ORA 

# $08 

Timer auf Modus Toggle und 

E5CA 

8 D 

OE 

DC 

STA 

$DCOE 

"One Shot" setzen und Timer starten 

E5CD 

AD 

05 

D5 

LDA 

$D505 

Das Kontrollbit für den Fast-Seriell 

E5D0 

29 

F7 


AND 

# $F7 

Mode im Mode Configuration Register 

E5D2 

8 D 

05 

D5 

STA 

$D505 

der MMU ausblenden 

E5D5 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Fast Impuls an seriellen Bus 

E5D6 

AD 

05 

D5 

LDA 

$D505 

Das Kontrollbit für den Fast seriell 

E5D9 

09 

08 


ORA 

# $08 

Mode im Mode Configuration Register 

E5DB 

8 D 

05 

D5 

STA 

$0505 

der MMU setzen 

E5DE 

A9 

7F 


LDA 

# $7F 

Code für Interrupts löschen 

E5E0 

8 D 

OD 

DC 

STA 

$DCOD 

an Interrupt Steuerregister 

E5E3 

A9 

00 


LDA 

n $00 

Den Timer A Hi im CIA 2 mit dem 

E5E5 

8 D 

05 

DC 

STA 

$DC05 

High-Wert #0 vorladen 

E5E8 

A9 

04 


LDA 

n $04 

Den Timer A Lo im CIA 2 mit dem 

E5EA 

8 D 

04 

DC 

STA 

$DC04 

Low-Wert #4 vorladen 

E5ED 

AD 

OE 

DC 

LDA 

$DCOE 

Steuerregister A des CIA auslesen 

E5F0 

29 

80 


AND 

# $80 

Bit 7 f. 50 Hz Frequenz eliminieren 

E5F2 

09 

55 


ORA 

U $55 

Timer auf Modus Force Load, Toggle, 

E5F4 

8 D 

OE 

DC 

STA 

$DCOE 

ser. Bus aus und Timer A starten 

E5F7 

2C 

OD 

DC 

BIT 

$DCOD 

Interrupt Steuerregister auslesen 

E5FA 

60 



RTS 


Rücksprung aus dem Unterprogramm 
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****************************** 


E5FB 

90 

C6 

BCC 

$E5C3 

E5FD 

BO 

D7 

BCS 

$E5D6 

****************************** 

E5FF 

A5 

B4 

LDA 

* $B4 

E601 

F0 

47 

BEQ 

$E64A 

E603 

30 

3F 

BMI 

$E644 

E605 

46 

B6 

LSR 

* $B6 

E607 

A2 

00 

LDX 

# $00 

E609 

90 

01 

BCC 

$E60C 

E60B 

CA 


DEX 


E60C 

8 A 


TXA 


E60D 

45 

BD 

EOR 

* $BD 

E60F 

85 

BD 

STA 

* $BD 

E611 

C6 

B4 

DEC 

* $B4 

E613 

F0 

06 

BEQ 

$E61B 

E615 

8 A 


TXA 


E616 

29 

04 

AND 

# $04 

E618 

85 

B5 

STA 

* $B5 

E61A 

60 


RTS 


****************************** 

E61B 

A9 

20 

LDA 

U $20 

E61D 

2C 

11 0A 

BIT 

$0A11 

E620 

F0 

14 

BEQ 

$E636 

E622 

30 

IC 

BMI 

$E640 

E624 

70 

14 

BVS 

$E63A 

E626 

A5 

BD 

LDA 

* $BD 

E628 

00 

01 

BNE 

$E62B 

E62A 

CA 


DEX 


E62B 

C6 

B4 

DEC 

* $B4 

E62D 

AD 

10 0A 

LDA 

$0A10 

E630 

10 

E3 

BPL 

$E615 

E632 

C6 

B4 

DEC 

* $B4 

E634 

DO 

DF 

BNE 

$E615 

E636 

E6 

B4 

INC 

* $84 

E638 

DO 

F0 

BNE 

$E62A 

E63A 

A5 

BD 

LDA 

* $BD 

E63C 

F0 

ED 

BEQ 

$E62B 

E63E 

DO 

EA 

BNE 

$E62A 

E640 

70 

E9 

BVS 

$E62B 

E642 

50 

E6 

BVC 

$E62A 

E644 

E6 

B4 

INC 

* $B4 

E646 

A2 

FF 

LDX 

# $FF 


Kernal Routine: FSTMOD 

Rückmeldung vom ser. Bus abwarten 
Fast Impuls an seriellen Bus 

RS-232 Ausgabe 

Anzahl der zu sendenden Bits 
Ist Byte komplett übertragen? 

Ist Stopbit erforderlich? 

Nächstes Bit ins Carry Flag schieben 
X-Reg als KZ mit $00 initialisieren 
Bit gelöscht? 

Nein, dann X-Reg auf $FF setzen 
Bit gelöscht, KZ in Akku kopieren, 
mit Parity Status verknüpfen und 
wieder in Z-Page Parity abspeichern 
Bitzähler um 1 vermindern 
Alle Bits übertragen, dann weiter 
X-Reg Inhalt in Akku kopieren 
Bit 2 isolieren 
und in Ausgaberegister bringen 
Rücksprung aus dem Unterprogramm 

Sendeparität überprüfen 

Bit 5 für Parity in Akku einblenden 
Prüfe RS-232 Befehlsregister 
Betriebsmodus ohne Parity, dann Skip 
Betriebsmodus mit fester Parität? 
Betriebsmodus für ungerade Parität? 
Parität gleich eins? 

Nein, dann Skip 

Parität auf JFFsetzen 

Bitzähler auf $FF setzen 

Hole RS-232 KontrolIregister in Akku 

Sind zwei Stopbits erforderlich? 

Bitzähler auf $FE setzen 

Nicht Null, Stopbits berechnen 

Bitzähler +1, keine Parität 

Nicht Null, Stopbits berechnen 

Hole Parity Wert aus Z-Page 

Bei Null ein O-Bit ausgeben 

Nicht Null, dann ein 1-Bit ausgeben 

Routine: O-Bit ausgeben 

Routine: 1-Bit ausgeben (Parity fix) 

Bitzähler um 1 erhöhen 

Codewert f. Stopbit in X-Reg bringen 
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Unbedingter Sprung 


E648: DO CB BNE $E615 
**★***★*★*★★★★*★★★**★******★★★ 


E64A: 

AD 

11 

0A 

LDA 

$0A11 

E64D: 

4A 



LSR 

A 

E64E: 

90 

07 


BCC 

$E657 

E650: 

2C 

01 

DD 

BIT 

$DD01 

E653: 

10 

ID 


BPL 

$E672 

E655: 

50 

IE 


BVC 

$E675 

E657: 

A9 

00 


LDA 

# $00 

E659: 

85 

BD 


STA 

* $BD 

E65B: 

85 

B5 


STA 

* $B5 

E65D: 

AE 

15 

0A 

LDX 

$0A15 

E660: 

86 

B4 


STX 

* $B4 

E662: 

AC 

1A 

0A 

LDY 

$0A1 A 

E665: 

CC 

1B 

0A 

CPY 

$OA1B 

E668: 

F0 

13 


BEO 

$E67D 

E66A: 

Bl 

CA 


LDA 

($CA).Y 

E66C: 

85 

B6 


STA 

* $B6 

E66E: 

EE 

1A 

0A 

INC 

$0A1 A 

E671: 

60 



RTS 


★★★★★★★★★★★★★★★★★★★*********** 

E672: 

A9 

40 


LDA 

# $40 

E674: 

2C 



.Byte $2C 

E675: 

A9 

10 


LDA 

n $io 

E677: 

0D 

14 

0A 

ORA 

$0A14 

E67A: 

8D 

14 

0A 

STA 

$0A14 

E67D: 

A9 

01 


LDA 

# $01 

E67F: 

8D 

0D 

DD 

STA 

$DD0D 

E682: 

4D 

0F 

0A 

EOR 

$OA0F 

E685: 

09 

80 


ORA 

# $80 

E687: 

8D 

0F 

0A 

STA 

$oaof 

E68A: 

8D 

ii[) 

DD 

STA 

$DD0D 

E68D: 

60 



RTS 


****************************** 

E68E: 

A2 

09 


LDX 

# $09 

E690: 

A9 

20 


LDA 

# $20 

E692: 

2C 

10 

0A 

BIT 

$0A10 

E695 : 

F0 

01 


BEO 

$E698 

E697: 

CA 



DEX 


E698: 

50 

02 


BVC 

$E69C 

E69A : 

CA 



DEX 


E69B: 

CA 



DEX 



3-Line / X-Line Handshake Test 

Lade Akku mit RS-232 Befehlsregister 
Bit 0 in das Carry Flag schieben 
3-Line Handshake Abfrage übergehen 
Port B des CIA 2 auslesen 
Fehlt DATA SET READY (DSR) Signal? 
Fehlt CLEAR TO SEND (CTS) Signal? 
Den Z-Page Puffer für die RS-232 
Parität löschen ($00) und den Z-Page 
Speicher für zu sendendes Startbit 
Anzahl der zu übertragenden Bits 
als Zähler in Z-Page kopieren 
Index auf Anfang Ausgabepuffer mit 
Ende vergleichen. Wenn alle Bytes 
übertragen, dann abschließen 
Datenbyte aus RS-232 Puffer holen 
und in Sendespeicher übergeben 
Index: Anfang Ausgabepuffer erhöhen 
Rücksprung aus dem Unterprogramm 

NMI Status für RS-232 setzen 

Code für DATA SET READY (DSR) fehlt 
Skip nach $E677 

Code für CLEAR TO SEND (CTS) fehlt 
Mit RS-232 Statusregister verknüpfen 
und im Statusregister ableqen 
Akku mit $01 laden und den 
NMI für den Timer A löschen 
Mit RS-232 NMI Status verknüpfen 
Flag für RS-232 umdrehen und diesen 
Wert im RS-232 NMI Status ableqen 
Alle weiteren NMI's zulassen 
Rücksprung aus dem Unterprogramm 

Anzahl d. RS-232 Datenbits berechnen 

Defaultwert auf 8 Datenbits 
Prüfwert für Anzahl der Datenbits 
RS-232 Kontrollregister überprüfen 
Bit 5 qelöscht? 

Datenbitzahl um 1 vermindern 
Bit 6 qelöscht? 

Datenbitzahl um 1 vermindern 
Datenbitzahl um 1 vermindern 
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E69C: 60 RTS 

****************************** 


E69D 

A6 

A9 

LDX 

* $A9 

E69F 

DO 

33 

BNE 

SE6D4 

E6A1 

C6 

A8 

DEC 

* $A8 

E6A3 

F0 

3A 

BEO 

SE6DF 

E6A5 

30 

0D 

BMI 

SE6B4 

E6A7 

A5 

A 7 

LDA 

* $A7 

E6A9 

45 

AB 

EOR 

* SAB 

E6AB 

85 

AB 

STA 

* SAB 

E6AD 

46 

A7 

LSR 

* SA7 

E6AF 

66 

AA 

ROR 

* SAA 

E6B1 

60 


RTS 



****************************** 


E6B2 

C6 

A8 


DEC 

* SA8 

E6B4 

A5 

A7 


LDA 

* SA7 

E6B6 

F0 

6B 


BEQ 

SE723 

E6B8 

AD 

10 

OA 

LDA 

S0A10 

E6BB 

0A 



ASL 

A 

E6BC 

A9 

01 


LDA 

# SOI 

E6BE 

65 

A8 


ADC 

* SA8 

E6C0 

DO 

EF 


BNE 

SE6B1 

E6C2 

A9 

90 


LDA 

# $90 

E6C4 

8D 

0D 

DD 

STA 

SDD0D 

E6C7 

0D 

0F 

0A 

ORA 

SOAOF 

E6CA 

8D 

0F 

0A 

STA 

SOAOF 

E6CD 

85 

A9 


STA 

* SA9 

E6CF 

A9 

02 


LDA 

# $02 

E6D1 

4C 

7F 

E6 

JMP 

SE67F 

**************************** 

E6D4 

A5 

A 7 


LDA 

* SA 7 

E6D6 

DO 

EA 


BNE 

SE6C2 

E6D8 

85 

A9 


STA 

* SA9 

E6DA 

A9 

01 


LDA 

tt SOI 

E6DC 

85 

AB 


STA 

* SAB 

E6DE 

60 



RTS 


**********.********. 

E6DF 

AC 

18 

0A 

LDY 

S0A18 

E6E2 

C8 



INY 



Rücksprung aus dem Unterprogramm 

Empfangenes Bit verarbeiten 

Prüfe, ob es sich dabei um 
ein Startbit handelt. Nein, Skip 
Bitzähler um 1 vermindern 
Alle Bits empfangen, dann weiter 
Wenn Stopbits zu erwarten, dann Skip 
Empfangenes Bit in Akku holen 
und für Parität verknüpfen 
Paritätswert in Z-Page ablegen 
Empfangenes Bit ins Carry Flag und 
in Eingabebyte Puffer schieben 
Rücksprung aus dem Unterprogramm 

Startbitzeiger setzen, wenn alle 
Stopbits empfangen wurden 

Bitzähler um 1 vermindern 
Stopbit-Uert in Akku holen und 
prüfen, ob dieser Null ist. Skip 
RS-232 KontrolIregister in Akku 
Anzahl der Stopbits ins Carry 
Additionswert für Stopbitzahl 
Oatenbits und Stopbits addieren 
Nicht alle Stopbits empfangen, Skip 
RXD über Flag empfangen in Akku 
und den NMI damit freigeben 
Mit RS-232 NMI Status verknüpfen 
und im RS-232 NMI Status ablegen 
Flag für Startbit setzen 
Akku für Übergabe mit 2 init. 
und den NMI für Timer B löschen 

Prüfe auf RS-232 Startbit 

Startbitwert in Akku holen 
Nicht Null, dann Skip. Sonst das 
Z-Page Startbit Flag zurücksetzen 
und den Z-Page Zeiger für RS-232 
Eingabeparität zurücksetzen 
Rücksprung aus dem Unterprogramm 

Empfangenes Byte verarbeiten 

Den Index auf den Anfang des RS-232 
Eingabepuffers um 1 erhöhen 
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E6E3 

CC 

19 OA 

CPY 

$0A19 

E6E6 

F0 

2A 

BEQ 

$E712 

E6E8 

8C 

18 OA 

STY 

$0A18 

E6EB 

88 


DEY 


E6EC 

A5 

AA 

LDA 

* $AA 

E6EE 

AE 

15 0A 

LDX 

$0A15 

E6F1 

E0 

09 

CPX 

tt $09 

E6F3 

F0 

04 

BEQ 

$E6F9 

E6F5 

4A 


LSR 

A 

E6F6 

E8 


INX 


E6F7 

DO 

F8 

BNE 

SE6F1 

E6F9 

91 

C8 

STA 

($C8),Y 

E6FB 

A9 

20 

LDA 

tt $20 

E6FD 

2C 

11 0A 

BIT 

$0A11 

E700 

F0 

B0 

BEQ 

$E6B2 

E702 

30 

AD 

BMI 

$E6B1 

E704 

A5 

A7 

LDA 

* $A7 

E706 

45 

AB 

EOR 

* $AB 

E708 

F0 

03 

BEQ 

$E70D 

E70A 

70 

A5 

BVS 

$E6B1 

E70C 

2C 


.Byte $2C 

E70D 

50 

A2 

BVC 

$E6B1 

E70F 

A9 

01 

LDA 

tt $01 

E711 

2C 


.Byte $2C 

E712 

A9 

04 

LDA 

tt $04 

E714 

2C 


.Byte $2C 

E715 

A9 

80 

LDA 

tt $80 

E717 

2C 


.Byte $2C 

E718 

A9 

02 

LDA 

tt $02 

E71A 

0D 

14 0A 

ORA 

$0A14 

E71D 

8D 

14 0A 

STA 

$0A14 

E720 

4C 

C2 E6 

JMP 

$E6C2 

****************************** 

E723 

A5 

AA 

LDA 

* $AA 

E725 

DO 

Fl 

BNE 

$E718 

E727 

F0 

EC 

BEQ 

$E715 

E729 

85 

9A 

STA 

* $9A 

E72B 

AD 

11 0A 

LDA 

$0A11 

E72E 

4A 


LSR 

A 

E72F 

90 

29 

BCC 

$E75A 

E731 

A9 

02 

LDA 

tt $02 

E733 

2C 

01 DD 

BIT 

$DD01 

E736 

10 

ID 

BPL 

$E755 

E738 

DO 

20 

BNE 

$E75A 

E73A 

AD 

0F 0A 

LDA 

$0A0F 

E73D 

29 

02 

AND 

tt $02 


Hit Ende vergleichen. Wenn Puffer, 
dann entsprechend Status setzen 
Pufferindex zurückschreiben 
und wieder um 1 vermindern 
Empfangenes Byte aus Z-Page holen 
Anzahl der Datenbits in X-Reg 
8 Bits, 1 Stopbit empfangen? 

Ja, dann alles OK 

Bits in richtige Position schieben 
Datenbitzähler um 1 erhöhen 
Sprung zur Byte-Justierung 
Byte in Eingabepuffer schreiben 
Kontrollwert für Paritätsprüfung 
RS-232 Kommandoregister prüfen 
Übertragung ist ohne Parität 
Fester Bitwert für Parität 
Empfangenes Paritätsbit in Akku 
mit errechneter Parität vergleichen 
Gleich, dann weiter mit OK 
Gerade Parität, dann weiter mit OK 
Skip nach $E70F 

Ungerade Parität, dann weiter mit OK 
Code für Paritätsfehler in Akku 
Skip nach $E714 

Empfangspuffer voll Code in Akku 

Skip nach $E717 

Break Befehl empfangen in Akku 

Skip nach $E71A 

Rahmen-Fehler Code in Akku 

Code mit RS-232 Status verknüpfen 

und im RS-232 Statusregister ablegen 

Sprung: Empfang des nächsten Bytes 

RS-232 CKOUT, Ausgabe auf RS-232 

Empfangenes Byte in Akku holen 

Rahmen-Fehler 

Break Befehl empfangen 

Gerätenummer in Z-Page ablegen 

RS-232 Kommandoregister laden 

Bit 0 (Handshake) ins Carry schieben 

Sprung bei 3-Line Handshake 

Code für DATA SET READY Test in Akku 

Port B des CIA 2 auslesen 

Kein DSR Signal, dann Fehler 

Kein Request to Send Signal 

RS-232 NMI Status in Akku holen 

Wenn Datenempfang aktiv ist, dann 
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E73F 

DO 

F9 


BNE 

$E73A 

E741 

2C 

01 

DD 

BIT 

$DD01 

E744 

70 

FB 


BVS 

$E741 

E746 

AD 

01 

DD 

LDA 

$DD01 

E749 

09 

02 


ORA 

# $02 

E74B 

8D 

01 

DD 

STA 

$DD01 

E74E 

2C 

01 

DD 

BIT 

$DD01 

E751 

70 

07 


BVS 

$E75A 

E753 

30 

F9 


BMI 

$E74E 

E755 

A9 

40 


LDA 

U $40 

E757 

8D 

14 

0A 

STA 

$0A14 

E75A 

18 



CLC 


E75B 

60 



RTS 



****************************** 


E75C: 

20 

70 

E7 

JSR 

$E770 

E75F: 

AC 

1B 

OA 

LDY 

$0A1 B 

E762: 

C8 



INY 


E763: 

CC 

1A 

0A 

CPY 

$0A1 A 

E766: 

F0 

F4 


BEQ 

$E75C 

E768: 

8C 

1B 

OA 

STY 

$0A1 B 

E76B: 

88 



DEY 


E76C: 

A5 

9E 


LDA 

* $9E 

E76E: 

91 

CA 


STA 

($CA), Y 

E770: 

AD 

0F 

0A 

LDA 

$0A0F 

E773: 

4A 



LSR 

A 

E774: 

B0 

IE 


BCS 

$E794 

E776: 

A9 

10 


LDA 

# $10 

E778: 

8D 

0E 

DD 

STA 

$DD0E 

E77B: 

AD 

16 

0A 

LDA 

$0A16 

E77E: 

8D 

04 

DD 

STA 

$DD04 

E781 : 

AD 

17 

0A 

LDA 

$0A17 

E784: 

8D 

05 

DD 

STA 

$DD05 

E787: 

A9 

81 


LDA 

U $81 

E789: 

20 

7F 

E6 

JSR 

$E67F 

E78C: 

20 

4A 

E6 

JSR 

$E64A 

E78F: 

A9 

11 


LDA 

# $11 

E791: 

8D 

0E 

DD 

STA 

$DD0E 

E794: 

60 



RTS 


****************************** 

E795: 

85 

99 


STA 

* $99 

E797: 

AD 

11 

0A 

LDA 

$0A11 

E79A: 

4A 



LSR 

A 


warten, bis Empfang beendet ist. 

Port B des CIA 2 auslesen und auf 

Ctear to Send Signal warten 

Port B des CIA 2 auslesen und Bit 2 

f. Request to Send Signal einblenden 

In Port B zurückschreiben 

Port B des CIA2 auslesen und auf 

Clear to Send Signal warten 

Data Set Ready abfragen 

Code für fehlendes Data Set Ready 

Signal in RS-232 Status schreiben 

Carry für Kennzeichen OK setzen 

Rücksprung aus dem Unterprogramm 


Falls notwendig, Übertragung starten 
Index auf Ende RS-232 Ausgabepuffer 
in Y-Reg holen und um 1 erhöhen 
Mit Index Anfang Ausgabepuffer vgl. 
Puffer voll, dann warten 
Neuen Index auf Ausgabepuffer setzen 
und diesen Zeiger um 1 vermindern 
Auszugebendes Byte in Akku holen 
und in Ausgabepuffer schreiben 
RS-232 NMI Flag in Akku kopieren 
Teste, ob Bit 0 gesetzt ist 
Läuft der Sendebetrieb schon? 

Den Timer A mit $10 initialisieren 

und anschließend starten 

Den 2 Byte Timer für die 

Sende Baud-Rate in 

$DD04-$DD05 

neu setzen 

Code für Timer A Unterlaufs NMI 
NMI bei Unterlauf von Timer A 
CTS+DSR prüfen,Übertragung freigeben 
Den Timer A mit $11 initialisieren 
und anschließend starten 
Rücksprung aus dem Unterprogramm 

RS-232 CHKIN, RS-232 Eingabe setzen 

Gerätenummer in Z-Page ablegen 
RS-232 Kommandoregister in Akku 
Bit 0 (Handshake) ins Carry schieben 


Ausgabe in RS-232 Puffer 
CTS = Clear to send 
DSR = Data set ready 
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E79B 

90 

28 


BCC 

$E7C5 

E79D 

29 

08 


AND 

# $08 

E79F 

F0 

24 


BEQ 

$E7C5 

E7A1 

A9 

02 


LDA 

# $02 

E7A3 

2C 

01 

DD 

BIT 

$DD01 

E7A6 

10 

AD 


BPL 

$E755 

E7A8 

F0 

22 


BEO 

$E7CC 

E7AA 

AD 

0F 

0A 

LDA 

$0A0F 

E7AD 

4A 



LSR 

A 

E7AE 

B0 

FA 


BCS 

SE7AA 

E7B0 

AD 

01 

DD 

LDA 

$DD01 

E7B3 

29 

FD 


AND 

# $FD 

E7B5 

8D 

01 

DD 

STA 

$DD01 

E7B8 

AD 

01 

DD 

LDA 

$DD01 

E7BB 

29 

04 


AND 

# $04 

E7BD 

F0 

F9 


BEO 

SE7B8 

E7BF 

A9 

90 


LDA 

# $90 

E7C1 

18 



CLC 


E7C2 

4C 

7F 

E6 

JMP 

$E67F 

****************************** 

E7C5 

AD 

0F 

0A 

LDA 

$0A0F 

E7C8 

29 

12 


AND 

# $12 

E7CA 

F0 

F3 


BEQ 

$E7BF 

E7CC 

18 



CLC 


E7CD 

60 



RTS 


****************************** 

E7CE 

AD 

14 

0A 

LDA 

$0A14 

E7D1 

AC 

19 

0A 

LDY 

$0A19 

E7D4 

CC 

18 

0A 

CPY 

$0A18 

E7D7 

F0 

OB 


BEQ 

$E7E4 

E7D9 

29 

1 2 


AND 

# $F7 

E7DB 

8D 

14 

0A 

STA 

$0A14 

E7DE 

Bl 

C8 


LDA 

($C8),Y 

E7E0 

EE 

19 

0A 

INC 

$0A19 

E7E3 

60 



RTS 


****************************** 

E7E4 

09 

08 


ORA 

# $08 

E7E6 

8D 

14 

0A 

STA 

$0A14 

E7E9 

A9 

00 


LDA 

# $00 

E7EB 

60 



RTS 



3-Line Handshake, dann weiter 

Duplex Betrieb testen 

Voll Duplex, dann weiter 

Code für DSR Signal Test 

Port B des CIA 2 abfragen auf DSR 

Fehlt, dann Status setzen und Exit 

Ready to Send Signal abfragen 

RS-232 NMI Status Flag in Akku 

Wenn Sendebetrieb aktiv ist, dann 

warten bis Übertragung beendet 

Port B des CIA 2 auslesen und 

Bit 0 f. Request to Send eliminieren 

Signal an Port B zurückgeben 

Port B des CIA 2 auslesen und 

DATA TERMINAL READY Signal prüfen 

Nicht vorhanden, dann warten 

NMI Maske für "Flag" in Akku holen 

Carry als OK Kennzeichen löschen 

RS-232 NMI freigeben 

RS-232 CHKIN bei 3-Line Handshake 

RS-232 NMI Status in Akku holen 
Wenn die RS-232 noch nicht aktiv 
ist, dann starten 
Carry als OK Kennzeichen löschen 
Rücksprung aus dem Unterprogramm 

GET von RS-232 

RS-232 Status Byte in Akku holen 
Index auf Ende RS-232 Eingabepuffers 
Mit Index Anfang Eingabepuffer vgl. 
Wenn gleich, dann Puffer leer: Skip 
Bit 3 (Puffer leer) ausblenden 
und im RS-232 Status löschen 
Ein Byte aus RS-232 Puffer lesen 
Index auf RS-232 Eingabepuffer + 1 
Rücksprung aus dem Unterprogramm 

GET von RS-232 wenn Puffer leer 

Das Bit 3 (Kennzeichen für Puffer 
leer) im RS-232 Status einblenden 
$00 als gelesenes Zeichen übergeben 
Rücksprung aus dem Unterprogramm 
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****************************** 


Ende der RS-232 Übertragung abwarten 


E7EC: 

48 



PHA 


E7ED: 

AD 

0F 

0A 

LDA 

$0A0F 

E7F0: 

F0 

11 


BEQ 

SE803 

E7F2: 

AD 

0F 

0A 

LDA 

S0A0F 

E7F5: 

29 

03 


AND 

# *03 

E7F7: 

DO 

F9 


BNE 

$E7F2 

E7F9: 

A9 

10 


LDA 

# $10 

E7FB: 

8D 

0D 

DD 

STA 

$DD0D 

E7FE: 

A9 

00 


LDA 

n $00 

E800: 

8D 

0F 

0A 

STA 

$0A0F 

E803: 

68 



PLA 


E804: 

60 



RTS 



Akku Inhalt auf Stack retten 

RS-232 NMI Flag holen 

Nicht gesetzt, dann OK und weiter 

RS-232 NMI Flag erneut lesen 

Bit 0 = senden, Bit 1 = empfangen 

Ende abwarten 

Akku mit $10 laden 

Interrupt über "Flag" Leitung 

RS-232 NMI Flag 

auf Status "OK" setzen 

Alten Akku Inhalt zurückholen 

Rücksprung aus dem Unterprogramm 


NMI Routine für RS-232 


****************************** 


E805 

98 



TYA 


E806 

2D 

0F 

0A 

AND 

$0A0F 

E809 

AA 



TAX 


E80A 

29 

01 


AND 

« $01 

E80C 

F0 

28 


BEO 

$E836 

E80E 

AD 

00 

DD 

LDA 

$DD00 

E811 

29 

FB 


AND 

U $FB 

E813 

05 

B5 


ORA 

* $85 

E815 

8D 

00 

DD 

STA 

$DD00 

E818 

AD 

0F 

OA 

LDA 

$0A0F 

E81B 

8D 

0D 

DD 

STA 

$DD0D 

E81E 

8A 



TXA 


E81F 

29 

12 


AND 

# $12 

E821 

F0 

00 


BEO 

$E830 

E823 

29 

02 


AND 

U $02 

E825 

F0 

06 


BEQ 

$E82D 

E827 

20 

78 

E8 

JSR 

$E878 

E82A 

4C 

30 

E8 

JMP 

$E830 

E82D 

20 

A9 

E8 

JSR 

$E8A9 

E830 

20 

FF 

E5 

JSR 

$E5FF 

E833 

4C 

49 

E8 

JMP 

$E849 

E836 

8A 



TXA 


E837 

29 

02 


AND 

# $02 

E839 

F0 

06 


BEQ 

$E841 

E83B 

20 

78 

E8 

JSR 

$E878 

E83E 

4C 

49 

E8 

JMP 

$E849 

E841 

8A 



TXA 


E842 

29 

10 


AND 

tt $10 

E844 

F0 

03 


BEO 

$E849 

E846 

20 

A9 

E8 

JSR 

$E8A9 


Interrupt Control Register (ICR) 
mit RS-232 NMI Flag verknüpfen 
und Ergebnis im X-Reg sichern 
Bits 1-7 ausblenden und prüfen, ob 
Sendebetrieb aktiv ist. Nein: Skip 
Akku mit Datenport laden 
Bit 2 (TXD) löschen und das zu 
sendende Bit übergeben 
Anschließend im Datenport speichern 
RS-232 NMI Flag in den Akku kopieren 
und wieder in das ICR schreiben 
ICR/RS-232 NMI Verknüpfung in Akku 
Die Bits 1 und 4 isolieren 
Nicht gesetzt, Byteempfang einleiten 
Bit 1, Aufruf von Timer B isolieren 
Nicht gesetzt, dann Startbit 
Empfangenes Bit weiterverarbeiten 
Empfang eines Bytes einleiten 
Vorbereitung f.Empfang nächstes Byte 
Empfang des Bytes einleiten 
Rückkehr zum Interrupt 
X-Reg Inhalt im Akku sichern 
Datenempfang? 

Nein, dann Skip Verarbeitung 
Empfangenes Bit verarbeiten 
Rückkehr vom Interrupt 
Alten X-Reg Inhalt wiederherstellen 
Prüfe, ob auf ein Startbit gewartet 
werden muß. Nein, dann weiter 
Nächsten Bitempfang vorbereiten 
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E849: 

AD 

0F 

0A 

LDA 

$0A0F 

E84C: 

8D 

0D 

DD 

STA 

$DD0D 

E84F: 

60 



RTS 



****************************** 


E850 

CI 

27 

( = 

10177) 

E852 

3E 

1A 

( = 

6718) 

E854 

C5 

11 

( = 

4549) 

E856 

74 

OE 

( = 

3700) 

E858 

ED 

OC 

( = 

3309) 

E85A 

45 

06 

( = 

1605) 

E85C 

F0 

02 

( = 

752) 

E85E 

46 

01 

( = 

326) 

E860 

B8 

00 

( = 

184) 

E862 

71 

00 

( = 

113) 


****************************** 


E864 

19 

26 

( = 

9753) 

E866 

44 

19 

( = 

6468) 

E868 

1A 

11 

( = 

4378) 

E86A 

E8 

0D 

( = 

3560) 

E86C 

70 

0C 

( = 

3184) 

E86E 

06 

06 

( = 

1542) 

E870 

Dl 

02 

( = 

736) 

E872 

37 

01 

( = 

311) 

E874 

AE 

00 

( = 

174) 

E876 

69 

00 

< = 

105) 


****************************** 


E878 

AD 

01 

DD 

LDA 

$DD01 

E87B 

: 29 

01 


AND 

# $01 

E87D 

03 

Ul 

A7 


STA 

* $A7 

E87F 

AD 

06 

DD 

LDA 

$DD06 

E882 

E9 

28 


SBC 

n $28 

E884 

6D 

16 

0A 

ADC 

$0A16 

E887 

8D 

06 

DD 

STA 

$DD06 

E88A 

AD 

07 

DD 

LDA 

$DD07 

E88D 

6D 

17 

0A 

ADC 

$0A17 

E890 

8D 

0/ 

DD 

STA 

$DD07 

E893 

A9 

11 


LDA 

# $11 

E895 

80 

0F 

DD 

STA 

$DD0F 

E898 

AD 

0F 

0A 

LDA 

$0A0F 

E89B 

8D 

0D 

DD 

STA 

$DD0D 


RS-232 

NMI Flag laden 

und in 

ICR des CIA 2 kopieren 

Rücksprung aus dem Unterprogramm 

Timerkonstanten für RS-232 Baudrate 
Tabelle 1 für NTSC Version 

50 

Baud 

75 

Baud 

110 

Baud 

134,5 

Baud 

150 

Baud 

300 

Baud 

600 

Baud 

1200 

Baud 

1800 

Baud 

2400 

Baud 

Timerkonstanten für RS-232 Baudrate 
Tabelle 2 für PAL Version 

50 

Baud 

75 

Baud 

110 

Baud 

134.5 

Baud 

150 

Baud 

300 

Baud 

600 

Baud 

1200 

Baud 

1800 

Baud 

2400 

Baud 


NMI Routine für RS-232 Eingabe 

Oatenport B des CIA 2 aus lesen 
Bit für Receive Data isolieren 
und in Z-Page RS-232 Eingabebitflag 
Lo Uert des CIA 2 Timers B holen 
und davon 28 subtrahieren 
Full-Bit-Time Baudrate Lo addieren 
und Timer B neu setzen 
Hi Wert des CIA 2 Timers B holen 
Full-Bit-Time Baudrate Hi addieren 
und Timer B Hi neu setzen 
$11 in das Kontrollregister des 
CIA 2 schreiben = Timer B starten 
RS-232 NMI Status in Akku holen 
und CIA Interrupt-Steuerreg. setzen 
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E89E: 

A9 

FF 

LDA 

# $FF 

E8A0: 

8D 

06 DD 

STA 

$DD06 

E8A3: 

8D 

07 DD 

STA 

$DD07 

E8A6: 

4C 

9D E6 

JMP 

$E69D 


****************************** 


E8A9 

AD 

12 OA 

LDA 

$0A12 

E8AC 

8D 

06 DD 

STA 

$DD06 

E8AF 

AD 

13 OA 

LDA 

$0A13 

E8B2 

8D 

07 DD 

STA 

$DD07 

E8B5 

A9 

11 

LDA 

# $11 

E8B7 

8D 

0F DD 

STA 

$DD0F 

E8BA 

A9 

12 

LDA 

# $12 

E8BC 

4D 

0F 0A 

EOR 

$0A0F 

E8BF 

8D 

0F OA 

STA 

$0A0F 

E8C2 

A9 

FF 

LDA 

U $FF 

E8C4 

8D 

06 DD 

STA 

$DD06 

E8C7 

8D 

07 DD 

STA 

$DD07 

E8CA 

AE 

15 0A 

LDX 

$0A15 

E8CD 

86 

A8 

STX 

* $A8 

E8CF 

60 


RTS 


****************************** 

E8D0 

A5 

93 

LDA 

* $93 

E8D2 

48 


PHA 


E8D3 

20 

F2 E9 

JSR 

$E9F2 

E8D6 

68 


PLA 


E8D7 

85 

93 

STA 

* $93 

E8D9 

B0 

3D 

BCS 

$E918 

E8DB 

A0 

00 

LDY 

# $00 

E8DD 

Bl 

B2 

LDA 

($B2),Y 

E8DF 

C9 

05 

CMP 

tt $05 

E8E1 

F0 

34 

BEO 

$E917 

E8E3 

C9 

01 

CMP 

H $01 

E8E5 

F0 

08 

BEO 

$E8EF 

E8E7 

C9 

03 

CMP 

# $03 

E8E9 

F0 

04 

BEO 

$E8EF 

E8EB 

C9 

04 

CMP 

# $04 

E8ED 

DO 

El 

BNE 

$E8D0 

E8EF 

AA 


TAX 


E8F0 

24 

9D 

BIT 

* $90 

E8F2 

10 

22 

BPL 

$E916 

E8F4 

A0 

63 

LDY 

U $63 

E8F6 

20 

22 F7 

JSR 

$F722 

E8F9 

A0 

05 

LDY 

# $05 

E8FB 

Bl 

B2 

LDA 

($B2),Y 


Initialisierungswert für Timer B 
Timer B Lo auf High Value setzen 
Timer B Hi auf High Value setzen 
Empfangenes Bit verarbeiten 

NMI Routine für RS-232 Ausgabe 

RS-232 Benutzerbaudrate in Akku 
und in Timer B Lo des CIA 2 
RS-232 Benutzerbaudrate in Akku 
und in Timer B Hi des CIA 2 
$11 in das KontrolIregister des 
CIA 2 schreiben = Timer starten 
Bits 0, 1 und 4 des RS-232 NMI 
Flags invertieren. Diesen Wert 
zurück in das NMI Flag 
Initialisierungswert für Timer B 
Timer B Lo auf High Value setzen 
Timer B Hi auf High Value setzen 
Anzahl der zu sendenden Bits 
in Z-Page: Zähler für RS-232 Bits 
Rücksprung aus dem Unterprogramm 

Programm Header vom Band lesen 

Load/Verify Zeiger über den Akku 
auf dem Systemstack retten 
Routine: Datenblock v. Band lesen 
Das Load/Verify Flag vom Stack 
zurückholen und wieder in Z-Page 
Wenn Fehler aufgetreten, Rücksprung 
Displacement auf Bandpuffer setzen 
Hole Byte des gelesenen Headerblocks 
War es das EOT Kennzeichen? 

Ja, dann Rücksprung 
Header-Typ für Basic-Programm? 

Ja, dann entsprechend auswerten 
Header-Typ für Maschinenprogramm? 

Ja, dann entsprechend auswerten 
Header Typ für Datenblock? 

Nein, dann neu einiesen 
Header Typ in X-Reg sichern 
Prüfe Kernal Nachrichten Flag 
Steuermeldungen nicht erlaubt, Skip 
Displacement auf "FOUND" Meldung 
Steuermeldung ausgeben 
Displ. auf Dateinamenanfang setzen 
Zeichen aus Bandpuffer lesen 
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E8FD: 

20 D2 FF 

JSR 

SFFD2 

E900: 

C8 

INY 


E901: 

CO 15 

CPY 

# $15 

E903: 

DO F6 

BNE 

$E8FB 

E905: 

A5 AI 

LDA 

* $A1 

E907: 

69 02 

ADC 

# $02 

E909: 

A4 91 

LDY 

* $91 

E90B: 

C8 

INY 


E90C: 

DO 04 

BNE 

$E912 

E90E: 

C5 AI 

CMP 

* $A1 

E910: 

DO F7 

BNE 

$E909 

E912: 

CO F0 

CPY 

U $F0 

E914: 

F0 BA 

BEO 

$E8D0 

E916: 

18 

CLC 


E917: 

88 

DEY 


E918: 

60 

RTS 



★★*★**★*★*★*★***********★★*★** 


E919: 

85 9E 

STA 

* $9E 

E91B: 

20 80 E9 

JSR 

$E980 

E91E: 

90 5F 

BCC 

$E97F 

E920: 

A5 C2 

LDA 

* $C2 

E922: 

48 

PHA 


E923: 

A5 CI 

LDA 

* $C1 

E925: 

48 

PHA 


E926: 

A5 AF 

LDA 

* $AF 

E928: 

48 

PHA 


E929: 

A5 AE 

LDA 

* $AE 

E92B: 

48 

PHA 


E92C: 

A0 BF 

LDY 

# $BF 

E92E: 

A9 20 

LDA 

# $20 

E930: 

91 B2 

STA 

($B2),Y 

E932: 

88 

DEY 


E933: 

DO FB 

BNE 

$E930 

E935: 

A5 9E 

LDA 

* $9E 

E937: 

91 B2 

STA 

($B2),Y 

E939: 

C8 

INY 


E93A: 

A5 CI 

LDA 

* $C1 

E93C: 

91 B2 

STA 

($B2),Y 

E93E: 

C8 

INY 


E93F: 

A5 C2 

LDA 

* $C2 

E941: 

91 B2 

STA 

($82),Y 

E943: 

C8 

INY 


E944: 

A5 AE 

LDA 

* $AE 

E946: 

91 B2 

STA 

($B2),Y 


Kernal BSOUT: Ein Zeichen ausgeben 
Displacementzeiger um 1 erhöhen 
Maximale Dateinamenlänge =16 Zeichen 
Noch nicht erreicht, dann weiter 
Mittelwertiges Time Byte in Akku 
Uarteschleife für 8,5 Sekunden 
Prüfe Z-Page Stop / C= Tasten Flag 
erhöhe diesen Wert um 1 
Taste gedrückt, dann weiter 
Prüfe die 8.5 Sekunden Uarteschleife 
Zeit nicht um, dann weiter warten 
Uurde die Space Taste gedrückt? 

Ja, dann Header einiesen 
Kennzeichen für alles OK setzen 
Alten Stop / C= Tasten Flagwert 
Rücksprung aus dem Unterprogramm 

Datenblock auf Band schreiben 
Header auf Band schreiben, Headertyp 
im Akku: 3 = Maschinenspr.,1 = Basic 

Headertyp in Z-Page ablegen 
Hole Bandpufferadresse aus Z-Page 
Adresse ungültig, dann Skip 
Startadresse Hi in den Akku bringen 
und auf dem Stack sichern 
Startadresse Lo in den Akku bringen 
und auf dem Stack sichern 
Endadresse Hi in den Akku bringen 
und auf dem Stack sichern 
Endadresse Lo in den Akku bringen 
und auf dem Stack sichern 
Bandpuffer länge für Schleife holen 
Akku mit Zeichen für <Blank> laden 
Bandpuffer löschen 
Schleifen, bis die ganze in Y-Reg 
übergebene Länge gelöscht ist 
Hole den gesicherten Header-Typ 
an 1. Position im Bandpuffer 
Displacement auf Bandpuffer + 1 
Hole Startadresse Lo aus Z-Page 
und bringe sie in den Bandpuffer 
Displacement auf Bandpuffer + 1 
Hole Startadresse Hi aus Z-Page 
und bringe sie in den Bandpuffer 
Displacement auf Bandpuffer + 1 
Hole Endadresse Lo aus Z-Page 
und bringe sie in den Bandpuffer 
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E948: 

C8 


INY 


E949: 

A5 

AF 

LDA 

* $AF 

E94B: 

91 

B2 

STA 

($B2),Y 

E94D: 

C8 


INY 


E94E: 

84 

9F 

STY 

* $9F 

E950: 

A0 

00 

LDY 

# $00 

E952: 

84 

9E 

STY 

* $9E 

E954: 

A4 

9E 

LDY 

* $9E 

E956: 

C4 

87 

CPY 

* $B7 

E958: 

F0 

0D 

BEQ 

$E967 

E95A: 

20 

AE F7 

JSR 

$F7AE 

E95D: 

A4 

9F 

LDY 

* $9F 

E95F: 

91 

B2 

STA 

($B2),Y 

E961 : 

E6 

9E 

INC 

* $9E 

E963: 

E6 

9F 

INC 

* $9F 

E965: 

DO 

ED 

BNE 

$E954 

E967: 

20 

87 E9 

JSR 

$E987 

E96A: 

A9 

69 

LDA 

# $69 

E96C: 

85 

AB 

STA 

* $AB 

E96E: 

20 

IC EA 

JSR 

$EA1C 

E971: 

A8 


TAY 


E972: 

68 


PLA 


E973: 

85 

AE 

STA 

* $AE 

E975: 

68 


PLA 


E976: 

85 

AF 

STA 

* $AF 

E978: 

68 


PLA 


E979: 

85 

CI 

STA 

* $C1 

E97B: 

68 


PLA 


E97C: 

85 

C2 

STA 

* $C2 

E97E: 

98 


TYA 


E97F: 

60 


RTS 



****************************** 


Displacement auf Bandpuffer + 1 
Hole Endadresse Hi aus Z-Page 
und bringe sie in den Bandpuffer 
Displacement auf Bandpuffer + 1 
Displ. im Bandpuffer merken 
Zähler für Länge des Datei namens 
in Z-Page löschen 
Zähler für Dateinamenlänge holen 
und mit echter Länge vergleichen 
Alle Buchstaben im Puffer, dann Skip 
Buchstaben aus Dateinamens holen 
Displ. auf Bandpuffer zurückholen 
Buchstabe des Dateinamen in Puffer 
Zähler für Dateinamenlänge + 1 
Displacement auf Bandpuffer + 1 
Schleifen für nächsten Buchstaben 
Start- und Endadresse auf Bandpuffer 
Checksumme für Header- Datenblock 
($69) in Z-Page Zwischenspeichern 
Block auf Band schreiben 
Aktuellen Akku Inhalt retten 
Endadresse Hi vom Stack zurückholen 
und wieder in Z-Page ablegen 
Endadresse Lo vom Stack zurückholen 
und wieder in Z-Page ablegen 
Startadresse Hi v. Stack zurückholen 
und wieder in Z-Page ablegen 
Startadresse Lo v. Stack zurückholen 
und wieder in Z-Page ablegen 
Gesicherten Akku Inhalt zurückholen 
Rücksprung aus dem Unterprogramm 

Hole Bandpuffer Adresse und prüfe 
auf Gültigkeit 


E980 

A6 B2 

LDX 

* $B2 

E982 

A4 B3 

LDY 

* $B3 

E984 

C0 02 

CPY 

# $02 

E986 

60 

RTS 


****************************** 

E987 

20 80 E9 

JSR 

$E980 

E98A 

8A 

TXA 


E98B 

85 CI 

STA 

* $C1 

E98D 

18 

CLC 


E98E 

69 C0 

ADC 

tt $C0 

E990 

85 AE 

STA 

* $AE 


Anfang Bandpuffer Lo in X-Reg 
Anfang Bandpuffer Hi in Y-Reg 
Zero-Page und Stack nicht erlaubt 
Rücksprung aus dem Unterprogramm 

Bandendadresse = Startadresse + 192 

Hole Bandpuffer Adresse 
Anfang Bandpuffer Lo in Akku 
und in Z-Page E-/A Startadresse Lo 
Carry für Addition löschen 
Endadresse = Startadresse + 192 
Neue Endadresse Lo in Z-Page 
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E992 

98 

TYA 



E993 

85 C2 

STA 

* 

$C2 

E995 

69 00 

ADC 

# 

$00 

E997 

85 AF 

STA 

* 

$AF 

E999 

60 

RTS 




****************************** 


E99A 

20 

DO 

E8 

JSR 

$E8D0 

E99D 

B0 

IE 


BCS 

SE9BD 

E99F 

A0 

05 


LDY 

# $05 

E9A1 

84 

9F 


STY 

* $9F 

E9A3 

A0 

00 


LDY 

# $00 

E9A5 

84 

9E 


STY 

* $9E 

E9A7 

C4 

B7 


CPY 

* $B7 

E9A9 

F0 

11 


BEQ 

$E9BC 

E9AB 

20 

AE 

F7 

JSR 

$F7AE 

E9AE 

A4 

9F 


LDY 

* $9F 

E9B0 

Dl 

B2 


CMP 

($B2),Y 

E9B2 

DO 

E6 


BNE 

$E99A 

E9B4 

E6 

9E 


INC 

* $9E 

E9B6 

E6 

9F 


INC 

* $9F 

E9B8 

A4 

9E 


LDY 

* $9E 

E9BA 

DO 

EB 


BNE 

$E9A7 

E9BC 

18 



CLC 


E9BD 

60 



RTS 


****************************** 

E9BE 

20 

80 

E9 

JSR 

$E980 

E9C1 

E6 

A6 


INC 

* $A6 

E9C3 

A4 

A6 


LDY 

* $A6 

E9C5 

CO 

CU 


CPY 

n $co 

E9C7 

60 



RTS 


****************************** 

E9C8 

20 

DF 

E9 

JSR 

$E9DF 

E9CB 

F0 

1A 


BEQ 

$E9E7 

E9CD 

A0 

1B 


LDY 

U $1B 

E9CF 

20 

22 

F7 

JSR 

$F722 

E9D2 

20 

8F 

EA 

JSR 

$EA8F 

E9D5 

20 

DF 

E9 

JSR 

$E9DF 

E9D8 

DO 

F8 


BNE 

$E9D2 

E9DA 

A0 

6A 


LDY 

# $6A 

E9DC 

4C 

22 

F 7 

JMP 

$F722 


Anfang Bandpuffer Hi in Akku 
und in Z-Page E-/A Startadresse Hi 
Endadresse Hi = Startadresse Hi + 
Überlauf, Endadresse Hi in Z-Page 
Rücksprung aus dem Unterprogramm 

Bandheader nach Namen suchen 

Nächsten Bandheader suchen 
Wenn EOT gefunden, dann Rücksprung 
Displacement auf Namen in Kas-Puffer 
in Z-Page Zwischenspeicher bringen 
Zähler für die Länge des Dateinamens 
in der Zero-Page initialisieren 
Mit Länge Suchnamen vergleichen 
Uenn gleich, dann weiter auswerten 
Zeichen des "Such-Dateinamens" holen 
Displ. auf Dateinamen im Bandpuffer 
Mit Suchzeichen vergleichen 
Nicht gleich, dann nicht gefunden 
Dateinamenlängenzähler +1 
Dateinamendispl. auf Kas-Buffer +1 
Dateinamen längenzähl er in Y-Reg 
Nächster Zeichenvergleich 
Kennzeichen für OK setzen 
Rücksprung aus dem Unterprogramm 

Bandpuffer-Zeiger erhöhen 

Hole die Bandpufferadresse 
Z-Page Kassettenpufferzeiger +1 
und anschließend auf den 
Maximalwert 192 vergleichen 
Rücksprung aus dem Unterprogramm 

Wartet auf Taste an der Datassette 

Prüfen, ob Taste gedrückt 

Taste gedrückt, dann OK und weiter 

Displ. auf "Press Play on Tape" in Y 

Steuermeldung ausgeben 

Teste auf Stop Tasten Unterbrechung 

Prüfen, ob Taste gedrückt 

Nein, dann in Warteschleife 

Displacement für "OK" Meldung 

Steuermeldung ausgeben 
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****************************** 


E9DF 

A9 

10 

LDA 

# 

$10 

E9E1 

24 

01 

BIT 

* 

$01 

E9E3 

DO 

02 

BNE 

$E9E7 

E9E5 

24 

01 

BIT 

★ 

$01 

E9E7 

18 


CLC 



E9E8 

60 


RTS 




****************************** 


E9E9 

20 

DF E9 

JSR 

$E9DF 

E9EC 

F0 

F9 

BEQ 

$E9E7 

E9EE 

A0 

2E 

LDY 

# $2E 

E9F0 

DO 

DD 

BNE 

$E9CF 

****************************** 

E9F2 

A9 

00 

LDA 

# $00 

E9F4 

85 

90 

STA 

* $90 

E9F6 

85 

93 

STA 

* $93 

E9F8 

20 

87 E9 

JSR 

$E987 

****************************** 

E9FB 

20 

C8 E9 

JSR 

$E9C8 

E9FE 

B0 

1F 

BCS 

$EA1 F 

EAOO 

78 


SEI 


EA01 

A9 

00 

LDA 

# $00 

EA03 

85 

AA 

STA 

* $AA 

EA05 

85 

B4 

STA 

* $B4 

EA07 

85 

B0 

STA 

* $B0 

EA09 

85 

9E 

STA 

* $9E 

EA0B 

85 

9F 

STA 

* $9F 

EA0D 

85 

9C 

STA 

* $9C 

EA0F 

A9 

90 

LDA 

# $90 

E A11 

A2 

0E 

LDX 

# $0E 

EA13 

DO 

11 

BNE 

$EA26 

****************************** 

EA15 

20 

87 E9 

JSR 

$E987 

EA18 

A9 

14 

LDA 

# $14 

EA1A 

85 

AB 

STA 

* $AB 


****************************** 

EA1C: 20 E9 E9 JSR $E9E9 


Prüfen, ob Band Taste gedrückt ist 

Für Tastentest Bit 4 setzen 
Prüfe Datenregister Prozessorport 
Nicht gedrückt, dann Exit 
Erneut prüfen (Entprellung) 

Ja: Zero-Flag = 1, Nein Z-Flag = 0 
Rücksprung aus dem Unterprogramm 

Warten auf "Record & Play" Taste 

Prüfen, ob Band Taste gedrückt ist 
Taste gedrückt, dann OK und weiter 
Displ. auf "Press R & P on Tape" 
Tasten Warteschleife / Stop Abfrage 

Datenblock vom Band einiesen 

Systemstatus mit Kennzeichen 
für alles OK initialisieren 
Load/Verify Zeiger löschen 
Bandpufferadresse/Endadresse holen 

Programm vom Band laden 

Wartet auf Taste an Datassette 
STOP-Taste gedrückt, Rücksprung 
Alle System Interrupts verhindern 
Initialisierungswert f. IRQ-Speicher 
Band Read Modus Eingabebyte Speicher 
Band Hilfszeiger 
Kassetten Zeitkonstante 
Kassettenfehler Pass 1 
Kassettenfehler Pass 2 
Band Flag für Byte empfangen 
IRQ an Pin "Flag" 

Nummer des IRQ Vektors (SEAEB) 
Datenblock auf Band schreiben 

Bandpuffer auf Band schreiben 

Bandpufferadresse laden 

Länge des WRITE Vorspanns setzen 

in Z-Page Zwischenspeichern 

Datenblock auf Band schreiben 

Warte auf "Record & Play" Taste 
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EA1F: 

BO 

7A 


BCS 

SEA9B 

STOP Taste gedrückt, Rücksprung 

EA21: 

78 



SEI 


Alte System Interrupts verhindern 

EA22: 

A9 

82 


LDA 

# $82 

IRQ bei Unterlauf des Timers B 

EA24: 

A2 

08 


LDX 

U $08 

Nummer des IRQ Vektors ($EE2E) 

EA26: 

AO 

00 


LDY 

# $00 

Interrupt Maskenregister im CIA 

EA28: 

8C 

1A 

DO 

STY 

$D01 A 

auf *0 setzen (Interrupt disable) 

EA2B: 

88 



DEY 


Y-Reg auf $FF herunterzäh len und 

EA2C: 

8C 

19 

DO 

STY 

$D019 

Interrupt Request Register setzen 

EA2F: 

8D 

OD 

DC 

STA 

$DCOD 

IRQ Maske neu setzen 

EA32: 

AD 

OE 

DC 

LDA 

$DCOE 

CIA Steuerregister A laden, Timer B 

EA35: 

09 

19 


ORA 

# $19 

laden, "One shot" und starten 

EA37: 

80 

OF 

DC 

STA 

$DCOF 

Steuerregister B, IRQ an Timer B 

EA3A: 

29 

91 


AND 

# $91 

Zeitvergleichszeiger für Band¬ 

EA3C: 

8D 

OB 

OA 

STA 

$OAOB 

operationen entsprechend setzen 

EA3F: 

20 

FC 

E7 

JSR 

$E7EC 

Ende der RS-232 Übertragung abwarten 

EA42: 

AD 

11 

DO 

LDA 

$D011 

VIC Steuerregister in Akku und in 

EA45: 

A8 



TAY 


Y-Reg kopieren 

EA46: 

29 

10 


AND 

# $10 

Bit 4, Bi Idschirm ein, setzen 

EA48: 

8D 

39 

OA 

STA 

$0A39 

Wert im VDC Hilfsspeicher sichern 

EA4B: 

98 



TYA 


Atten Wert zurück in den Akku 

EA4C: 

29 

6F 


AND 

# $6F 

Bit 8 des Rastervergleichs löschen 

EA4E: 

8D 

11 

DO 

STA 

$D011 

und den Bildschirm abschalten 

EA51: 

20 

74 

E5 

JSR 

$E574 

Takt auf 1MHz und Sprites abschalten 

EA54: 

AD 

14 

03 

LDA 

$0314 

IRQ-Vektor Lo Adresse in IRQ 

EA57: 

8D 

09 

OA 

STA 

$0A09 

Zwischenspeicher für Bandoperationen 

EA5A: 

AD 

15 

03 

LDA 

$0315 

IRQ-Vektor Hi Adresse in IRQ 

EA5D: 

8D 

OA 

OA 

STA 

$OAOA 

Zwischenspeicher für Bandoperationen 

EA60: 

20 

9B 

EE 

JSR 

$EE9B 

IRQ-Vektor für Band I/O neu setzen 

EA63: 

A9 

02 


LDA 

* $02 

Anzahl der zu lesenden Datenblöcke 

EA65: 

85 

BE 


STA 

* $BE 

in Z-Page Speicher merken 

EA67: 

20 

5A 

ED 

JSR 

$ED5A 

Bit Zähler initialisieren, Ser. I/O 

EA6A: 

A5 

01 


LDA 

* $01 

Motor des Kassettenrekorders über 

EA6C: 

29 

1F 


AND 

# $1F 

Einblenden des 4. Bits in das 

EA6E: 

85 

01 


STA 

* $01 

Prozessorport Datenreg. einschalten 

EA70: 

85 

CO 


STA 

* $C0 

Zeiger für Band Motor setzen 

EA72: 

A2 

FF 


LDX 

# $FF 

Zähler für Warteschleife Hi 

EA74: 

AO 

FF 


LDY 

# $FF 

Zähler für Warteschleife Lo 

EA76: 

88 



DEY 


Hier werden das X-Reg und Y-Reg 

EA77: 

DO 

FD 


BNE 

$EA76 

von 65535 bis 0 heruntergezählt, um 

EA79: 

CA 



DEX 


so die nötige Wartezeit für den 

EA7A: 

DO 

F8 


BNE 

$EA74 

Bandanlauf zu überbrücken 

EA7C: 

58 



CLI 


Interrupt für Band I/O freigeben 

****************************** 

Band I/O Abschluß abwarten 

EA7D: 

AD 

OA 

OA 

LDA 

$OAOA 

Band IRQ Vektor mit dem normalen 

EA80: 

CD 

15 

03 

CMP 

$0315 

IRQ Zeiger Hi vergleichen 

EA83: 

18 



CLC 


Kennzeichen für OK setzen 




EA84 

FO 

15 


BEQ 

$EA98 

IRQ Vektoren gleich, dann fertig 

EA86 

20 

8F 

EA 

JSR 

$EA8F 

Prüfe, ob STOP Taste gedrückt 

EA89 

20 

30 

F6 

JSR 

$F63D 

Uenn gedrückt, Flag entsp. setzen 

EA8C 

4C 

7D 

EA 

JMP 

$EA7D 

Weiter auf Abschluß warten 

****************************** 

Testen auf STOP-Taste 

EA8F 

20 

El 

FF 

JSR 

$F FEI 

Kernal STOP: Auf Stop Taste prüfen 

EA92 

18 



CLC 


Kennzeichen für alles OK setzen 

EA93 

DO 

OB 


BNE 

SEAAO 

STOP nicht gedrückt, dann RTS Exit 

EA95 

20 

57 

EE 

JSR 

$EE57 

Motor aus, normalen IRQ setzen 

EA98 

38 



SEC 


Carry für Fehler-KZ setzen 

EA99 

68 



PLA 


Die Rücksprungadresse vom 

EA9A 

68 



PLA 


Stack zurückholen und löschen 

EA9B 

A9 

00 


LDA 

# $00 

Code für "Abbruch" in Akku laden 

EA9D 

8D 

(JA 

OA 

STA 

SOAOA 

und Kennzeichen f. norm. IRQ setzen 

EAAO 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Kassettensynchronisation vorbereiten 

EAA1 

86 

Bl 


STX 

* $81 

X-Reg Inhalt in Z-Page sichern 

EAA3 

A5 

BO 


LDA 

* $B0 

Timing Konstante für Band in Akku 

EAA5 

OA 



ASL 

A 

Die Timing Konstante wird mit 

EAA6 

OA 



ASL 

A 

dem Faktor 4 multipliziert 

EAA7 

18 



CLC 


Carry für Addition löschen 

EAA8 

65 

BO 


ADC 

* $B0 

Timing Konstante addieren (entsp.*5) 

EAAA 

18 



CLC 


Carry für Addition löschen 

EAAB 

65 

Bl 


ADC 

m 

* 

Alten X-Reg Inhalt dazuaddieren und 

EAAD 

85 

Bl 


STA 

* $B1 

diesen Wert in Z-Page ablegen 

EAAF 

A9 

00 


LDA 

# $00 

Low-Value für Timer A laden 

EAB1 

24 

BO 


BIT 

* $B0 

Prüfe, ob Timing Konstante >128 ist 

EAB3 

30 

01 


BMI 

$EAB6 

Ja, dann Skip Abgleich 

EAB5 

2A 



ROL 

A 

Durch die entsprechende Rotation 

EAB6 

06 

Bl 


ASL 

* $B1 

des Akku Inhalts in Verbindung 

EAB8 

2A 



ROL 

A 

mit einer Verschiebung der Band 

EAB9 

06 

Bl 


ASL 

* $B1 

Timing Konstante wird der Init.-Uert 

EABB 

2A 



ROL 

A 

für Timer A vervierfacht. 

EABC 

AA 



TAX 


Hi dieses Timer Wertes in X sichern 

EABD 

AD 

06 

DC 

LDA 

$DC06 

Lo Wert des CIA 1 Timers B in Akku 

EACO 

C9 

16 


CMP 

« $16 

Veränderung von Timer B Hi bis 63755 

EAC2 

90 

F9 


BCC 

$EABD 

Ja, dann schleife zur Timer Abfrage 

EAC4 

65 

Bl 


ADC 

* $B1 

Lo für Initialisierung addieren 

EAC6 

8D 

04 

DC 

STA 

$DC04 

und in Timer A Lo setzen 

EAC9 

8A 



TXA 


Hi Wert der Initialisierung in Akku 

EACA 

6D 

07 DC 

ADC 

$DC07 

mit Überl. zu Timer B Hi addieren 

EACD 

8D 

05 

DC 

STA 

$DC05 

und in Timer A Hi setzen 

EADO 

AD 

OB 

OA 

LDA 

$0A0B 

Init. Wert aus Band Zeitkonstante 

EAD3 

8D 

OE 

DC 

STA 

$DCOE 

zum Starten des Timers A kopieren 
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EAD6 

8D 

0D 

0A 

STA 

J0A00 

EAD9 

AD 

0D 

DC 

LDA 

SDCOD 

EADC 

29 

10 


AND 

# $10 

EADE 

F0 

09 


BEO 

$EAE9 

EAEO 

A9 

EA 


LDA 

# $EA 

EAE2 

48 



PHA 


EAE3 

A9 

E9 


LDA 

# $E9 

EAE5 

48 



PHA 


EAE6 

4C 

C8 

EE 

JMP 

$EEC8 

EAE9 

58 



CLI 


EAEA 

60 



RTS 



EAEB 

AE 

07 

DC 

LDX 

$DC07 

EAEE 

A0 

FF 


LDY 

# $FF 

EAFO 

98 



TYA 


EAF1 

ED 

06 

DC 

SBC 

$DC06 

EAF4 

EC 

07 

DC 

CPX 

$DC07 

EAF7 

DO 

F2 


BNE 

SEAEB 

EAF9 

86 

Bl 


STX 

* SB 1 

EAFB 

AA 



TAX 


EAFC 

8C 

06 

DC 

STY 

SDC06 

EAFF 

8C 

0 7 

DC 

STY 

$DC07 

EB02 

A9 

19 


LDA 

# $19 

EB04 

8D 

0F 

DC 

STA 

$DC0F 

EB07 

AD 

00 

DC 

LDA 

$DC0D 

EBOA 

8D 

0C 

0A 

STA 

$0A0C 

EBOD 

98 



TYA 


EBOE 

E5 

Bl 


SBC 

* $B1 

EB10 

86 

Bl 


STX 

* $B1 

EB12 

4A 



LSR 

A 

EB13 

66 

Bl 


ROR 

# $B1 

EB15 

4A 



LSR 

A 

EB16 

66 

Bl 


ROR 

# $B1 

EB18 

A5 

B0 


LDA 

* $B0 

EB1A 

18 



CLC 


EB1B 

69 

3C 


ADC 

# $3C 

EB1D 

C5 

Bl 


CMP 

* $B1 

EB1F: BO 

4A 


BCS 

$EB6B 

EB21 

A6 

9C 


LDX 

* $9C 

EB23 

F0 

03 


BEQ 

$EB28 

EB25 

4C 

1 F 

EC 

JMP 

$EC1F 

EB28 

A6 

A3 


LDX 

* $A3 

EB2A 

30 

1B 


BMI 

$EB47 

EB2C 

A2 

00 


LDX 

# $00 

EB2E 

69 

30 


ADC 

# $30 

EB30 

65 

B0 


ADC 

* $B0 


Timer A Flag zurücksetzen 
Interrupt Control Register in Akku 
Prüfe, ob negative Flanke an FLAG 
Nein, dann warte auf neg. Flanke 
Den Inhalt der beiden Z-Page 
Speicher $Ea und $E9 als 
quasi Rücksprungadresse auf 
den System Stapel ablegen 
Simulierendes Interrupt-Aufrufs 
Alte System Interrupts freigeben 
Rücksprung aus dem Unterprogramm 

Interrupt Rout, für Band lesen 

CIA 1 Timer B Hi in X-Reg 
Y-Reg mit High-Value Wert init. 
und für Subtraktion in Akku 
Timer B Lo von #255 subtrahieren 
Ist Timer B Hi schon vermindert? 

Ja, zurück zum Timervergleich 
Timer B Hi in Z-Page ablegen 
Zeit Lo seit letzter Flanke in X-Reg 
Timer B Lo auf High-Value 
Timer B Hi auf High-Value 
Arbeitsmodus für Timer B festlegen 
und Timer B starten 
Interrupt Control Register in Akku 
und in Systemspeicher für Band 
Akku mit #255 initialisieren 
Timer B Hi von #255 subtrahieren 
Verstrichene Zeit in Z-Page sichern 
Der im Akku gesicherte Wert 
für die vergangene Zeit 
wird durch den Faktor 4 
dividiert 

Timing Konstante aus Z-Page holen 
Carry für Addition löschen 
#60 zur Timing-Konstante addieren 
Größer als Zeit seit letzter Flanke? 
Ja, dan keine Information, Skip 
Wurde ein Byte empfangen? 

Nein, dann Skip 

Weiter bei Routine Byte empfangen 
Wurde Byte vollständig gelesen? 

Ja, dann entspr. auswerten 
Code für kurzen Impuls in X-Reg (0) 
Akku für Impulsabfrage setzen 
und Timing Konstante addieren 
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EB32: 
EB34: 
EB36: 
EB37: 
EB39: 
EB3B: 
EB3D: 
EB3F: 
EB41: 
EB43: 
EB45: 
EB47: 
EB4A: 
EB4C: 
EB4E: 
EB50: 
EB52: 
EB54: 
EB56: 
EB58: 
EB59: 
EB5B: 
EB5D: 
EB3F: 
EB61: 
EB63: 
EB65: 
EB67: 
EB69: 
EB6B: 
EB6D: 
EB6F: 
EB72: 
EB74: 
EB76: 
EB79: 
EB7B: 
EB7D: 
EB7F: 
EB82: 
EB84: 
EB86: 
EB88: 
EB8A: 
EB80: 
EB8F: 
EB91: 
EB94: 
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C5 

Bl 

CMP 

* $B1 

Kurzer Zeitimpuls empfangen? 

BO 

IC 

BCS 

$EB52 

Ja, dann Skip langen Impuls 

E8 


1 NX 


Code für langen Impuls in X-Reg (1) 

69 

26 

ADC 

# $26 

Akku für Impulsabfrage setzen 

65 

BO 

ADC 

* $B0 

und Timing Konstante addieren 

C5 

Bl 

CMP 

* $B1 

Langen Zeitimpuls empfangen? 

BO 

17 

BCS 

$EB56 

Ja, dann Skip andere Impulsdauer 

69 

2C 

ADC 

# $2C 

Prüfe, ob der vergangene Zeit- 

65 

BO 

ADC 

* $B0 

Impuls noch länger war. Wenn ja. 

C5 

Bl 

CMP 

* $B1 

so ist es ein Byte-Header Impuls 

90 

03 

BCC 

SEB4A 

Nein, dann Skip Verarbeitung 

4C 

CF EB 

JMP 

$EBCF 

Empfangenes Byte verarbeiten 

A5 

B4 

LDA 

* $B4 

Prüfe, ob der Timer A freigegeben 

FO 

ID 

BEQ 

$EB6B 

ist. Nein, dann Skip 

85 

A8 

STA 

* $A8 

Zeiger für "READ ERROR" setzen 

DO 

19 

BNE 

$EB6B 

Sprung zur Timer Interrupt Abfrage 

E6 

A9 

INC 

* $A9 

Zeiger für Impulslängenwechsel +1 

BO 

02 

BCS 

$EB58 

Skip Verminderung des Wechsels 

C6 

A9 

DEC 

* $A9 

Zeiger für Impulslängenwechsel -1 

58 


SEC 


Carry für Subtraktion setzen 

L9 

13 

SBC 

# $13 

Vom Abfragewert #19, sowie die 

E5 

Bl 

SBC 

* $B1 

vergangene Zeit subtrahieren 

65 

92 

ADC 

* $92 

Z-Page Speicher f. Timinig Korrektur 

85 

92 

STA 

* $92 

Flag addieren und darin abspeichern 

A5 

A4 

LDA 

* $A4 

Das Zero-Page Flag für den Empfang 

49 

01 

EOR 

# $01 

beider Impulse invertieren 

85 

A4 

STA 

* $A4 

und wieder in Z-Page ablegen 

FO 

2B 

BEQ 

$EB94 

Beide Impuls empfangen, dann Skip 

86 

C5 

STX 

* $C5 

Empfangenes Signal in Z-Page sichern 

A5 

B4 

LDA 

* $B4 

Prüfe, ob Timer A freigegeben ist 

FO 

22 

BEQ 

$EB91 

Nein, dann Interrupt abschließen 

AD 

OC OA 

LDA 

$0A0C 

Hole Inhalt des ICR in Akku 

8V 

01 

AND 

# $01 

War es ein Timer A Interrupt? 

DO 

05 

BNE 

$EB7B 

Ja, dann Skip 

AD 

OD OA 

LDA 

$OAOD 

Prüfe, ob Timer A abgelaufen ist 

DO 

16 

BNE 

$EB91 

Nein, dann Interrupt abschließen 

A9 

00 

LDA 

# $00 

Das Zero-Page Flag für die 

85 

A4 

STA 

* $A4 

Impulszählung löschen (Low-Value) 

ÖD 

OD OA 

STA 

$0A0D 

Zeiger für "Timeout" Timer A setzen 

A5 

A3 

LDA 

* $A3 

Prüfe, ob Byte vollständig gelesen 

10 

30 

BPL 

$EBB6 

wurde. Nein, dann Skip 

30 

BF 

BMI 

$E847 

Ja, dann entspr. verarbeiten 

A? 

A6 

LDX 

# $A6 

Initialisierungswert für Timer A 

20 

AI EA 

JSR 

$EAA1 

Band zum Lesen vorbereiten 

A5 

9B 

LDA 

* $9B 

Z-Page Band Paritätsbyte in Akku 

DO 

B9 

BNE 

$EB4A 

Nicht Null, dann Paritätsfehler 

4r 

33 FF 

JM'' 

$FF33 

Zurück zum Kernal Interrupt 

A5 

92 

LDA 

* $92 

Timing-Korrektur-Zeiger in Akku 
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EBD1: 
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EBD5: 
EBD7: 
EBD9: 
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EBOE: 
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EBE2: 
EBE3: 
EBE5: 
EBE7: 
EBE8: 
EBE9: 
EBEC: 
EBEE: 
EBFO: 
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FO 

07 

BEO 

$EB9F 

Flag gelöscht, dann Skip 

30 

03 

BMI 

$EB9D 

Kleiner Null, Skip Dec der Konstante 

C6 

BO 

DEC 

* $B0 

2-Page Timing Konstante -1 

2C 


.Byte $2C 

Skip nach $EB9F 

E6 

BO 

INC 

* SDO 

Z-Page Timing Konstante +1 

A9 

00 

LDA 

# $00 

Z-Page Zeiger für Timing-Konstanten 

85 

92 

STA 

* $92 

Korrektur löschen (Low-Value) 

E4 

C5 

CPX 

* $C5 

Vgl. empf. Impuls mit vorherigem 

DO 

OF 

BNE 

$EBB6 

Nicht gleich, dann OK und Skip 

8A 


TXA 


Prüfe, ob kurzer Impuls empfangen 

DO 

AO 

BNE 

$EB4A 

Nein, dann Lesefehler. Skip 

A5 

A9 

LDA 

* $A9 

Impuls längenwechselzeiger in Akku 

30 

BD 

BMI 

$EB6B 

Negativer Wert, dann Skip 

09 

10 

CMP 

# $10 

Wurden 16 kurze Impulse empfangen? 

90 

B9 

BCC 

$EB6B 

Nein, dann wie negativer Wert 

85 

96 

STA 

* $96 

Ja, dann EOB Flag empfangen 

BO 

B5 

BCS 

$EB6B 

Unbedingter Sprung 

8A 


TXA 


Empfangenes Bit in Akku bringen. 

45 

9B 

EOR 

* $9B 

mit Band-Parität verknüpfen und 

85 

9B 

STA 

* $9B 

wieder in Band-Parität speichern 

A5 

B4 

LDA 

* $B4 

Prüfe, ob Timer A freigegeben ist 

FO 

D2 

BEO 

$EB91 

Nein, dann Interrupt beenden 

C6 

A3 

DEC 

* $A3 

Z-Page Speicher f. Bitzähler -1 

30 

C5 

BMI 

$EB88 

Paritätsbit empfangen? Ja, dann Skip 

46 

C5 

LSR 

* $C5 

Nein, dann gelesenes Bit in 

66 

BF 

ROR 

# $BF 

Z-Page Speicher f. Banddaten gelesen 

A2 

DA 

LDX 

# $DA 

Initialisierungswert f. Timer A 

20 

AI EA 

JSR 

$EAA1 

Kassettensynchronisation vorbereiten 

40 

33 FF 

JMP 

$FF33 

Zurück zur IRQ Routine 

A5 

96 

LDA 

* $96 

Prüfe, ob EOB empfangen wurde 

FO 

04 

BEQ 

$EBD7 

Nein, Skip Timer Abfrage 

A5 

B4 

LDA 

* $B4 

Prüfe, ob Timer A freigegeben ist 

FO 

07 

BEO 

$EBDE 

Nein, überspringe Bit-Zähler-Test 

A5 

A3 

LDA 

* $A3 

Prüfe, ob Z-Page Bitzähler negativ 

30 

03 

BMI 

$EBDE 

Ja, Bytes-Header abwarten 

4C 

56 EB 

JMP 

$EB56 

Verarb.lang.Impuls, kein Byte-Header 

46 

Bl 

LSR 

* $B1 

Halbiere die vergangene Zeit seit 

A9 

93 

LDA 

« $93 

der letzten neqativen Flanke und 

38 


SEC 


subtrahiere diesen Wert von der 

E5 

Bl 

SBC 

* 

V» 

CD 

Konstante #147. 

65 

BO 

ADC 

* $B0 

Z-Page Timing Konstante addieren 

OA 


ASL 

A 

und diesen Wert verdoppeln 

AA 


TAX 


Als Init.Wert f. Timer A nach X-Reg 

20 

AI EA 

JSR 

$EAA1 

Kassettensynchronisation vorberei ten 

E6 

9C 

INC 

* $9C 

Setze Z-Page Zeiger:"Byte empfangen" 

A5 

B4 

LDA 

* $B4 

Prüfe, ob Timer A freigegeben ist 

DO 

11 

BNE 

$EC03 

Ja, dann Skip 

A5 

96 

LDA 

* $96 

Prüfe, ob EOB empfangen wurde 



Das 


EBF4: 
EBF6: 
EBF8: 
EBFA: 
EBFC: 
EBFE: 
EC01: 
EC03: 
EC05: 
EC07: 
EC09: 
ECOB: 
ECOD: 
ECOF: 
EC12: 
ECK: 
EC16: 
EC18: 
EC1A: 
EC1C: 
EC1F: 
EC22: 
EC24: 
EC26: 
EC29: 
EC2B: 
EC2D: 
EC2F: 
EC31: 
EC33: 
EC35: 
EC37: 
EC39: 
EC3B: 
EC3C: 
EC3E: 
EC40: 
EC43: 
EC45: 
EC47: 
EC49: 
EC4C: 
EC4E: 
EC50: 
EC52: 
EC54: 
EC56: 
EC58: 
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FO 

26 

BEQ 

SEC1C 

Nein, zur norm. IRQ-Routine 

85 

A8 

STA 

* $A8 

Z-Page Zeiger f. Lesefehler setzen 

A9 

00 

LDA 

# $00 

Z-Page Speicher für EOB-Kennzeichen 

85 

96 

STA 

* $96 

löschen (Low-Value) 

A9 

81 

LDA 

# $81 

Codewert f.Timer A Interruptfreigabe 

8D 

OD DC 

STA 

$DCOD 

Interrupt f. Timer A freigeben 

85 

B4 

STA 

* $B4 

Setze Z-Page Flag f. Timer A möglich 

A5 

96 

LDA 

* $96 

Das Z-Page Flag für empfangenes EOB 

85 

B5 

STA 

* $B5 

in Flag f. gültiges EOB kopieren 

FO 

09 

BEQ 

$EC12 

Kein EOB Kennzeichen, dann Skip 

A9 

00 

LDA 

# $00 

Steuercode für Timer A disable 

85 

B4 

STA 

* $B4 

in entspr. Z-Page Zeiger bringen 

A9 

01 

LDA 

# $01 

Steuercode zum Sperren des Timers A 

8D 

OD DC 

STA 

$DCOD 

Interrupts ins CIA Steuerregister 

AS 

BF 

LDA 

* $BF 

Z-Page Shift-Register für READ in 

85 

BD 

STA 

* $BD 

Z-Page Speicher f. gelesenes Byte 

A5 

A8 

LDA 

* $A8 

Z-Page Zeiger für Lesefehler mit 

05 

A9 

ORA 

* $A9 

Impulslängenwechselzei ger verknüpfen 

85 

B6 

STA 

* $B6 

in Fehlercode des Bytes ablegen 

4C 

33 FF 

JMP 

$FF33 

Zurück zun normalen IRQ-Aufruf 

20 

5A ED 

JSR 

$ED5A 

Bitzähler für serielle Ausgabe setzen 

85 

9C 

STA 

* $9C 

Zeiger: "Byte empfangen" zurücksetzen 

A2 

DA 

LDX 

# $DA 

Initialisierungswert für Timer A 

20 

AI EA 

JSR 

$EAA1 

Kassettensynchronisation vorbereiten 

A5 

BE 

LDA 

* $BE 

Prüfe, ob Anzahl der verbliebenen 

f 0 

02 

BEQ 

$EC2F 

Blöcke Null ist. Ja, dann Skip 

85 

A7 

STA 

* $A7 

Blockzahl z. Lesen neu setzen 

A9 

OF 

LDA 

tt $0F 

Maskenwert für Zählung vor dem Lesen 

24 

AA 

BIT 

* $AA 

Prüfe Zeiger für Lesen von Band 

10 

17 

BPL 

$EC4C 

Uenn alle Zeichen empfangen, Ende 

A5 

B5 

LDA 

* $B5 

Prüfe, ob gültiges EOB empfangen 

DO 

OC 

BNE 

$EC45 

Ja, dann Skip 

A6 

BE 

LDX 

* $BE 

Ist die Anzahl der zum Lesen 

CA 


DEX 


verbliebenen Blöcke = 1? 

DO 

OB 

BNE 

$EC49 

Nein, zum normalen IRQ-Aufruf 

A9 

08 

LDA 

U $08 

Bit 3 für "Long Block" in A setzen 

20 

57 F7 

JSR 

$F757 

System Statuszeiger neu setzen 

DO 

04 

BNE 

$EC49 

Unbed. Sprung zur normalen IRQ-Rout. 

A9 

00 

LDA 

U $00 

Z-Page Zeiger für "Lesen von Band" 

85 

AA 

STA 

* $AA 

auf "Abtastung" setzen (Low-Value) 

4C 

33 FF 

JMP 

$FF33 

Zurück zur normalen IRQ-Routine 

70 

31 

BVS 

$EC7F 

Skip bei Bandlesezeiger auf "Lesen" 

DO 

18 

BNE 

$EC68 

Skip bei Bandlesezeiger auf "Zählen" 

A5 

B5 

LDA 

* $85 

Prüfe, ob EOB empfangen wurde 

DO 

F5 

BNE 

$EC49 

Ja, zurück zur normalen IRQ-Routine 

A5 

B6 

LDA 

* $B6 

Prüfe,ob Byte-Lesefehler aufgetreten 

DO 

Fl 

BNE 

$EC49 

Ja, zurück zur normalen IRQ-Routine 

A5 

A7 

LDA 

* $A7 

Hole Zahl d. noch zu lesenden Blocks 
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EC5A: 

4A 



LSR 

A 

und schiebe Bit 0 ins Carry Flag 

EC5B: 

A5 

BD 


LDA 

* $8D 

Hole gelesenes Byte aus Z-Page 

EC5D: 

30 

03 


BMI 

$EC62 

Ist es ein Zählbyte, dann Skip 

EC5F: 

90 

18 


BCC 

$EC79 

Noch mehr als ein Block lesen, Skip 

EC61: 

18 



CLC 


Carry Flag Zeiger zurücksetzen 

EC62: 

BO 

15 


BCS 

$EC79 

Skip, wenn nur ein Block zu lesen 

EC64: 

29 

OF 


AND 

# $0F 

Obere Tetrade (Bit 4-7) ausmaskieren 

EC66: 

85 

AA 


STA 

* $AA 

Als Zählwert abspeichern, Zähler -1 

EC68: 

C6 

AA 


DEC 

* $AA 

und prüfe, ob alle Sync.-Bytes 

EC6A: 

DO 

DD 


BNE 

$EC49 

empfangen. Nein, zum normalen IRQ 

EC6C: 

A9 

40 


LDA 

# $40 

Setze Bit 6 im Akku und den Z-Page 

EC6E: 

in 

CO 

AA 


STA 

* SAA 

Bandlesezeiger auf KZ: "Lesen" 

EC70: 

20 

51 

ED 

JSR 

$ED51 

Ein-/Ausgabe Startadresse kopieren 

EC73: 

A9 

00 


LDA 

# $00 

Z-Page Zeiger für Leseprüfsumme 

EC75: 

85 

AB 


STA 

* SAB 

löschen (auf Low-Value setzen) 

EC77: 

FO 

DO 


BEO 

SEC49 

Zurück zur normalen IRQ-Routine 

EC79: 

A9 

o 

co 


LDA 

# $80 

Setze Bit 7 im Akku und den Z-Page 

EC7B: 

85 

AA 


STA 

* SAA 

Bandlesezeiger auf KZ: "Ende" 

EC7D: 

DO 

CA 


BNE 

SEC49 

Zurück zur normalen IRQ-Routine 

EC7F: 

A5 

B5 


LDA 

* $B5 

Prüfe, ob EOB Kennzeichen gesetzt 

EC81: 

FO 

OA 


BEQ 

SEC8D 

Nein, dann Skip 

EC83: 

A9 

04 


LDA 

U $04 

Bit 2 für kurzen Block in A setzen 

EC85: 

20 

57 

F7 

JSR 

SF757 

System Statuszeiger neu setzen 

EC88: 

A9 

00 


LDA 

# $00 

Code für Lesezeiger auf "Abtasten" 

EC8A: 

4C 

OC 

ED 

JMP 

SEDOC 

setzen und unbedingt springen 

EC8D: 

20 

B7 

EE 

JSR 

SEEB7 

Prüfe, ob Ende schon erreicht 

EC90: 

90 

03 


BCC 

SEC95 

Nein, dann normal weiter 

EC92: 

4C 

OA 

ED 

JMP 

$ED0A 

Zum Read Ende für einen Block 

EC95: 

A6 

A 7 


LDX 

* $A7 

Ist die Anzahl der zum Lesen 

EC97: 

CA 



DEX 


verbleibenden Blöcke = 1? 

EC98: 

FO 

2E 


BEO 

SECC8 

Ja, dann Pass 2 (Korrekturpass) 

EC9A: 

A5 

93 


LDA 

* $93 

Prüfe, ob Verify KZ gesetzt ist 

EC9C: 

FO 

OD 


BEO 

$ECAB 

Nein, dann Skip 

EC9E: 

AO 

00 


LDY 

# $00 

Displ. für Vgl. auf #0 setzen 

ECAO: 

20 

CC 

F7 

JSR 

SF7CC 

FETCH Routine für LSV Aufrufe 

ECA3: 

C5 

BD 


CMP 

* $BD 

mit gelesenem Byte vergleichen 

ECA5: 

FO 

04 


BEO 

SECAB 

Beide gleich, dann OK und Skip 

ECA7: 

A9 

01 


LDA 

# $01 

Code für gefundenen Zeichen-Lese¬ 

ECA9: 

85 

B6 


STA 

* $B6 

fehler in Z-Page Band-HiIfszeiger 

ECAB: 

A5 

B6 


LDA 

* $B6 

Teste Band-Hilfszeiger für Fehler 

EC AD: 

FO 

4C 


BEO 

SECFB 

Kein Fehler aufgetreten, dann Skip 

ECAF: 

A2 

3D 


LDX 

# $3D 

Prüfe, ob beim Lesen schon 31 

ECB1: 

E4 

9E 


CPX 

* $9E 

Lesefehler aufgetreten sind 

ECB3: 

90 

3F 


BCC 

SECF4 

Ja, dann nicht korrigierbar, Skip 

ECB5: 

A6 

9E 


LDX 

* $9E 

Displ. für Adr. Lesefehler im Stack 

ECB7: 

A5 

AD 


LDA 

* SAD 

Hole Adreßbyte des Fehlers Lo 

ECB9: 

9D 

01 

01 

STA 

$0101,X 

und sichere Fehleradresse im Stack 

ECBC: 

A5 

AC 


LDA 

* $AC 

Hole Adreßbyte des Fehlers Hi 
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ECBE: 

9D 

00 01 

STA 

$0100,X 

und sichere Fehleradresse im Stack 

ECC1: 

E8 


1 NX 


Fehleradresse-Displacementzeiger + 

ECC2: 

E8 


1NX 


Fehlerzahl-Zähler um 2 erhöhen 

ECC3: 

86 

9E 

STX 

* $9E 

und wieder im Fehlerzähler ablegen 

ECC5: 

4C 

FB EC 

JMP 

$ECFB 

Weiter, wie kein Fehler aufgetreten 

ECC8: 

A6 

9F 

LDX 

* $9F 

Prüfe, ob bereits alle Lesefehler 

ECCA: 

E4 

9E 

CPX 

* $9E 

korrigiert sind 

ECCC: 

FO 

37 

BEQ 

$ED05 

Ja, dann weiter 

ECCE: 

A5 

AC 

LDA 

* $AC 

Hole aktuelles Adreßbyte Lo-Wert 

ECDO: 

DD 

00 01 

CMP 

$0100,X 

Mit Fehleradreßbyte Lo vergleichen 

ECD3: 

DO 

30 

BNE 

$ED05 

Nicht gleich, dann Skip 

ECD5: 

A5 

AD 

LDA 

* $AD 

Hole aktuelles Adreßbyte Hi-Wert 

ECD7: 

DD 

01 01 

CMP 

$0101,X 

Mit Fehleradreßbyte Hi vergleichen 

ECDA: 

DO 

29 

BNE 

$ED05 

Nicht gleich, dann Skip 

ECDC: 

E6 9F 

INC 

* $9F 

Den Z-Page Korrekturzähler für den 

ECDE: 

E6 

9F 

INC 

* $9F 

Pass 2 um 2 erhöhen 

ECEO: 

A5 

93 

LDA 

* $93 

Prüfe ob Verify KZ gesetzt ist 

ECE2: 

FO 

OC 

BEQ 

$ECFO 

Nein, dann Skip 

ECE4: 

AO 

00 

LDY 

n $oo 

Displacement für FETCH Routine 

ECE6: 

20 

CC F7 

JSR 

$F7CC 

FETCH Routine für LSV Aufrufe 

ECE9: 

C5 

BD 

CMP 

* $BD 

Gelesenes Byte gleich Speicherbyte? 

ECEB: 

FO 

18 

BEQ 

$ED05 

Ja, dann Skip 

ECED: 

C8 


I NY 


Displacementzeiger um 1 erhöhen 

ECEE: 

84 

B6 

STY 

* $B6 

und in Z-Page Fehlerzeiger bringen 

ECFO: 

A5 

B6 

LDA 

* $B6 

Prüfe, ob Fehler aufgetreten 

ECF2: 

FO 

07 

BEQ 

$ECFB 

Nein, dann Skip 

ECF4: 

A9 

10 

LDA 

# $10 

Bit 4 setzen (nicht kor. Lesefehler) 

ECF6: 

20 

57 F7 

JSR 

$F757 

System Statuszeiger neu setzen 

ECF9: 

DO 

OA 

BNE 

$ED05 

Unbedingter Sprung 

ECFB: 

A5 

93 

LDA 

* $93 

Prüfe, ob Verify KZ gesetzt ist 

ECFD: 

DO 

06 

BNE 

$ED05 

Ja, dann Skip 

ECFF: 

A8 


TAY 


Displacementzeiger auf #0 setzen 

EDOO: 

A5 

BD 

LDA 

* $BD 

Gelesenes Byte in Akku holen 

ED02: 

20 

BC F7 

JSR 

$F7BC 

STASH Routine für LSV Routinen 

ED05: 

20 

CI EE 

JSR 

$EEC1 

Ein-/Ausgabe Startadresse erhöhen 

ED08: 

DO 

44 

BNE 

$ED4E 

Zurück zur normalen IRQ-Routine 

EDOA: 

A9 

80 

LDA 

H $80 

Code für Lesezeiger auf "Ende" 

EDOC: 

85 

AA 

STA 

* $AA 

Bandlesezeiger entsp. Akku setzen 

EDOE: 

78 


SEI 


Alle System Interrupts verhindern 

EDOF: 

A2 

01 

LDX 

# $01 

Codewert für Interrupt des Timers A 

ED 11: 

8E 

OD DC 

STX 

$DCOD 

verhindern ins ICR Register 

ED14: 

AE 

OD DC 

LDX 

$DCOD 

Interrupt Zeiger zurücksetzen 

ED17: 

A6 

BE 

LDX 

* $BE 

Prüfe, ob die Anzahl der noch zu 

ED19: 

CA 


DEX 


verarbeitenden Blöcke Null ist. 

ED1A: 

30 

02 

BMI 

$ED1E 

Ja, dann Skip 

EDI C: 

86 

BE 

STX 

* $BE 

Neue Anzahl in Z-Page sichern 

ED1E: 

C6 A7 

DEC 

* $A 7 

Z-Page Blockzähler um 1 vermindern 

ED20: 

FO 

08 

BEQ 

$ED2A 

Blockzähler = 0, dann Skip 
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ED22 

A5 

9E 

LDA 

* $9E 

ED24 

DO 

28 

BNE 

$ED4E 

ED26 

85 

BE 

STA 

* $BE 

ED28 

F0 

24 

BEQ 

$ED4E 

ED2A 

20 

57 EE 

JSR 

$EE57 

ED2D 

20 

51 ED 

JSR 

SED51 

ED30 

A0 

00 

LDY 

# $00 

ED32 

84 

AB 

STY 

* $AB 

ED34 

20 

CC F7 

JSR 

$F7CC 

ED37 

45 

AB 

EOR 

* $AB 

ED39 

85 

AB 

STA 

* $AB 

ED3B 

20 

CI EE 

JSR 

$EEC1 

ED3E 

20 

B7 EE 

JSR 

$EEB7 

ED41 

90 

Fl 

BCC 

$ED34 

ED43 

A5 

AB 

LDA 

* $AB 

ED45 

45 

BD 

EOR 

* $BD 

ED47 

F0 

05 

BEQ 

$ED4E 

ED49 

A9 

20 

LDA 

# $20 

ED4B 

20 

57 F7 

JSR 

$F757 

ED4E 

4C 

33 FF 

JMP 

SFF33 

***★****★★★★******★******★■****: 

ED51 

A5 

C2 

LDA 

* $C2 

ED53 

85 

AD 

STA 

* $AD 

ED55 

A5 

CI 

LDA 

* $C1 

ED57 

85 

AC 

STA 

* $AC 

ED59 

60 


RTS 


****************************** 

ED5A 

A9 

08 

LDA 

# $08 

ED5C 

85 

A3 

STA 

* $A3 

ED5E 

A9 

00 

LDA 

# $00 

ED60 

85 

A4 

STA 

* $A4 

ED62 

85 

A8 

STA 

* $A8 

ED64 

85 

9B 

STA 

* $9B 

ED66 

85 

A9 

STA 

* $A9 

ED68 

60 


RTS 


****************************** 

ED69 

A5 

BD 

LDA 

* $BD 

ED6B 

4A 


LSR 

A 

ED6C 

A9 

60 

LDA 

# $60 

ED6E 

90 

02 

BCC 

$ED72 

ED70 

A9 

B0 

LDA 

# $B0 

ED72 

A2 

00 

LDX 

tt $00 


Prüfe, ob Fehler in Pass 1 
augetreten ist. Ja, dann Skip 
Anzahl der zu verarbeitenden Bl.: #0 
Zurück zur normalen IRQ-Routine 
Routine: Ende Band I/O 
Startadresse in Ladezeiger kopieren 
Den Zero-Page Zeiger für Prüfsumme 
löschen. Displ. auf Null setzen 
FETCH Routine für LSV Operationen 
Speicherbyte m. Prüfsumae verknüpfen 
und im Prüfsummenzeiger ablegen 
Ein-/Ausgabe Startadresse erhöhen 
Prüft auf Erreichen der Endadresse 
Nicht Endadresse, dann weiter 
Vergleiche die gebildete Prüfsumme 
mit der gelesenen Prüfsumme 
Gleich, dann OK und weiter 
Bit 5 setzen (Prüfsummenfehler) 
System Statuszeiger neu setzen 
Zurück zur normalen IRQ-Routine 

Ein-/Ausgabe Startadresse kopieren 

Hole Ein-/Ausgabe Startadresse Hi 
Sichere Hi Uert in Z-Page $AD 
Hole Ein-/Ausgabe Startadresse Lo 
Sichere Lo Wert in Z-Page $AC 
Rücksprung aus dem Unterprogramm 

Setze Bitzähler für serielle Ausgabe 

Zähler für 8 zu übertragende Bits 
in Z-Page initialisieren 
Das Hi-Byte des 2 Byte Z-Page 
Zählers auf $00 setzen 
Band Lesefehler Flag löschen 
Paritätsbyte v. Band initialisieren 
Band 0 Leseflag initialisieren 
Rücksprung aus dem Unterprogramm 

Ein Bit auf Band schreiben 

Auszugebendes Bit aus Z-Page in Akku 
und auszugebendes Bit (0) ins Carry 
Zeit für "O-Bit" setzen 
Timer setzen und ausgeben 
Zeit für "1-Bit" setzen 
Low-Value für Timer Hi-Bytes 
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ED74 

8D 

06 

DC 

STA 

$DC06 

ED77 

8E 

07 

DC 

STX 

$DC07 

ED7A 

AD 

0D 

DC 

LDA 

SDC0D 

ED7D 

A9 

19 


LDA 

# $19 

ED7F 

8D 

OF 

DC 

STA 

$DC0F 

ED82 

A5 

01 


LDA 

* $01 

ED84 

49 

08 


EOR 

# $08 

ED86 

85 

01 


STA 

* $01 

ED88 

29 

08 


AND 

# $08 

ED8A 

60 



RTS 


****************************** 

ED8B 

38 



SEC 


ED8C 

66 

B6 


ROR 

* $B6 

ED8E 

30 

3C 


BMI 

$EDCC 

****************************** 

ED90 

A5 

A8 


LDA 

* $A8 

ED92 

DO 

1? 


BNE 

$EDA6 

ED94 

A9 

10 


LDA 

# $10 

ED96 

A2 

01 


LDX 

# $01 

ED98 

20 

74 

ED 

JSR 

$ED74 

ED9B 

DO 

2F 


BNE 

$EDCC 

ED9D 

E6 

A8 


INC 

* $A8 

ED9F 

A5 

116 


LDA 

* $B6 

EDAl 

10 

29 


BPL 

$EDCC 

EDA3 

4C 

1B 

EE 

JMP 

$EE1B 

EDA6 

A5 

A9 


LDA 

* $A9 

EDA8 

DO 

09 


BNE 

$EDB3 

EDAA 

20 

AI 

ED 

JSR 

$ED70 

EDAD 

DO 

ID 


BNE 

$EDCC 

EDAF 

E6 

A9 


INC 

* $A9 

EDBl 

DO 

19 


BNE 

$EDCC 

EDB3 

20 

69 

ED 

JSR 

$ED69 

EDB6 

DO 

14 


BNE 

$EDCC 

EDB8 

A5 

A4 


LDA 

* $A4 

EDBA 

49 

01 


EOR 

U $01 

EDBC 

85 

A4 


STA 

* $A4 

EDBE 

F0 

0F 


BEQ 

$EDCF 

EDCO 

A5 

BD 


LDA 

* $BD 

EDC2 

49 

01 


EOR 

# $01 

EDC4 

85 

BD 


STA 

* $BD 

EDC6 

29 

01 


AND 

« $01 

EDC8 

45 

9B 


EOR 

* $9B 

EDCA 

85 

9B 


STA 

* $9B 

EDCC 

4C 

33 

FF 

JMP 

$FF33 


CIA 1 Timer B Low Byte auf Bitzeit 
CIA 1 Timer B Hi Byte auf Low Value 
Interrupt Flag löschen 
Timer B laden, "One shot" und CIA 
Steuerregister starten. IRQ an Timer 
Invertierungswert für Ausgabebit 
im Prozessorport invertieren und 
wieder in Prozessorport bringen 
augenblicklichen Pegel merken 
Rücksprung aus dem Unterprogramm 

Zeiger f. "Block geschrieben" setzen 

Carry für Rotation setzen 
"Block geschrieben" Flag negieren 
Interrupt Rücksprung 

Interrupt Routine für Band schreiben 

Prüfe, ob Byte Impuls geschrieben 
Ja, dann Skip Byte Impuls schreiben 
Lo-Wert für Byte-Frequenz in Akku 
Hi-Wert für Byte-Frequenz in X-Reg 
"Byte" Impuls auf Band schreiben 
Wenn erste Halbwelle, zum norm. IRQ 
Zeiger für Impuls geschrieben setzen 
Prüfe "Block geschrieben" Zeiger 
Ja, dann zurück zum normalen IRQ 
Block fertig, dann Write fortsetzen 
Prüfe, ob langer Impuls geschrieben 
Ja, dann Skip langen Impuls 
Langen Impuls auf Band schreiben 
Wenn erste Halbwelle, zum norm. IRQ 
Zeiger für Impuls geschrieben setzen 
Zurück zur normalen IRQ-Routine 
Ein Bit auf Band schreiben 
Wenn erste Halbwelle, zum norm. IRQ 
Den Z-Page Bit-Impuls 
Zeiger invertieren und 
wieder zurückspeichern 
Wenn #0, beide Impulse geschrieben 
Das Bit 0 des Zero-Page Bit-Shift 
Speichers invertieren 
und wieder zurückspeichern 
Aktuelles Bit eliminieren und mit 
Paritäts-Bit des Bytes verknüpfen 
und in Paritäts Flag zurückspeichern 
Zurück zur normalen IRQ-Routine 
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EDCF: 
EDD1: 
EDD3: 
EDD5: 
EDD7: 
EDD9: 
EDDC: 
EDDD: 
EDDF: 
EDE1: 
EDE3: 
EDE5: 
EDE7: 
EDE9: 
EDEB: 
EDED: 
EDEF: 
EDF1: 
EDF3: 
EDF6: 
EDF8: 
EDFA: 
EDFC: 
EDFE: 
EE00: 
EE02: 
EE04: 
EE07: 
EE09: 
EEOB: 
EEOD: 
EE10: 
EE12: 
EE14: 
EE16: 
EE18: 
EE1B: 
EE1D: 
EE1F: 
EE22: 
EE24: 
EE26: 
EE28: 
EE29: 
EE2C: 
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46 

BD 


LSR 

* $BD 

Bit herausschieben und den 

C6 

A3 


DEC 

* $A3 

Z-Page Bitzähler um 1 vermindern 

A5 

A3 


LDA 

* $A3 

Ist Ende schon erreicht? 

FO 

3B 


BEQ 

SEE 12 

Ja, dann bilde Prüfsumme. Skip 

10 

F 3 


BPL 

SEDCC 

Nein, dann zurück zum norm. IRQ 

20 

5A 

ED 

JSR 

$ED5A 

Setze Bitzähler für serielle Ausgabe 

58 



CU 


Alle System Interrupts freigeben 

A5 

A5 


LDA 

* $A5 

Prüfe, ob Symc. Bytes geschrieben 

FO 

12 


BEQ 

SEDF3 

Ja, dann Skip 

A2 

00 


LDX 

# $00 

Den Prüfsummenspeicher für den 

86 

C5 


STX 

* $C5 

Lesepuffer löschen (Low-Value) 

C6 

A5 


DEC 

* $A5 

Sync. Zähler um 1 vermindern 

A6 

BE 


LDX 

* $BE 

Prüfe, ob der erste Block 

EO 

02 


CPX 

# $02 

schon geschrieben ist 

DO 

02 


BNE 

$EDEF 

Nein, dann Skip 

09 

80 


ORA 

n $80 

Bit 7 im Sync. Byte einblenden 

85 

BD 


STA 

* $BD 

und in Z-Page Bit-Shift Speicher 

DO 

D9 


BNE 

$EDCC 

Zurück zur normalen IRQ-Routine 

20 

B7 

EE 

JSR 

$EEB7 

Prüfe auf Erreichen der Endadresse 

90 

OA 


BCC 

$EE02 

Nicht erreicht, weiter schreiben 

DO 

91 


BNE 

$ED8B 

"Block geschrieben" Zeiger setzen 

E6 

AD 


INC 

* $AD 

Aktuelles Adreßbyte +1 

A5 

C5 


LDA 

* $C5 

Hole Puffer Prüfsumme aus Zero-Page 

85 

KD 


STA 

* $BD 

Sichere Wert im Bit-Shift Speicher 

BO 

CA 


BCS 

$EDCC 

Zurück zur normalen IRQ-Routine 

AO 

00 


LDY 

# $00 

Displacementzeiger auf #0 setzen 

20 

CC 

F7 

JSR 

$F7CC 

FETCH Routine für LSV Operationen 

85 

BD 


STA 

* $BD 

Bringe Zeichen in Bit-Shift Speicher 

45 

C5 


EOR 

* $C5 

Mit Prüfsummenspeicher verknüpfen 

85 

C5 


STA 

* $C5 

und wieder zurückspeichern 

20 

CI 

EE 

JSR 

$EEC1 

Ein-/Ausgabe Startadresse erhöhen 

DO 

BA 


BNE 

$EDCC 

Zurück zur normalen IRQ-Routine 

A5 

98 


LDA 

* $9B 

Paritäts-Bit des Bytes aus Z-Page 

49 

01 


EOR 

U $01 

invertieren und in den Bit-Shift 

85 

BD 


STA 

* $BD 

Speicher kopieren 

4C 

33 

FF 

JMP 

$FF33 

Zurück zur normalen IRQ-Routine 

C6 

BE 


DEC 

* $BE 

Prüfe, ob alle Blöcke geschrieben 

DO 

03 


BNE 

$EE22 

Nein, dann Skip 

20 

BO 

EE 

JSR 

$EEBO 

Rekordermotor ausschalten 

A9 

50 


LDA 

# $50 

Z-Page Zähler für die Länge 

85 

A7 


STA 

* $A7 

der "Shorts" neu initialisieren 

A2 

08 


LDX 

n $08 

Displacement für IRQ #1 (Urite) 

78 



SEI 


Alle System Interrupts verhindern 

20 

9B 

EE 

JSR 

$EE9B 

Setzen der IRQ-Vektoren 

DO 

EA 


BNE 

$E E18 

Zurück zur normalen IRQ-Routine 
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Schreiben des Headers (IRQ #1) 


EE2E: 

A9 

78 


LDA 

# $78 

EE30: 

20 

72 

ED 

JSR 

SED72 

EE33: 

DO 

E3 


BNE 

SEE 18 

EE35: 

C6 

A 7 


DEC 

* $A7 

EE37: 

DO 

DF 


BNE 

$EE18 

EE39: 

20 

5A 

ED 

JSR 

$ED5A 

EE3C: 

C6 

AB 


DEC 

* SAB 

EE3E: 

10 

D8 


BPL 

$EE18 

EE40: 

A2 

0A 


LDX 

# $0A 

EE42: 

20 

9B 

EE 

JSR 

$EE9B 

EE45: 

58 



CLI 


EE46: 

E6 

AB 


INC 

* SAB 

EE48: 

A5 

BE 


LDA 

LU 

CO 

tA 

« 

EE4A: 

F0 

49 


BEQ 

SEE95 

EE4C: 

20 

51 

ED 

JSR 

SED51 

EE4F: 

A2 

U9 


LDX 

# $09 

EE51: 

86 

A5 


STX 

* SA5 

EE53: 

86 

B6 


STX 

* SB6 

EE55: 

DO 

82 


BNE 

SEDD9 




EE57: 

08 



PHP 


EE58: 

78 



SEI 


EE59: 

AD 

11 

DO 

LDA 

$0011 

EE5C: 

0D 

39 

0A 

ORA 

S0A39 

EE5F: 

29 

7F 


AND 

# S7F 

EE61: 

8D 

11 

DO 

STA 

SD011 

EE64: 

2C 

3A 

0A 

BIT 

$0A3A 

EE67: 

30 

16 


BMI 

SEE7F 

EE69: 

2C 

37 

0A 

BIT 

S0A37 

EE6C: 

10 

11 


BPL 

SEE7F 

EE6E: 

AD 

38 

0A 

LDA 

S0A38 

EE71: 

8D 

15 

DO 

STA 

$0015 

EE74: 

AD 

37 

0A 

LDA 

$0A37 

EE77: 

8D 

30 

DO 

STA 

SD030 

EE7A: 

A9 

0Ü 


LDA 

* $00 

EE7C: 

80 

37 

0A 

STA 

$0A37 

EE7F: 

20 

HO 

EE 

JSR 

SEE B0 

EE82: 

20 

B8 

El 

JSR 

SE1B8 

EE85: 

AD 

0A 

0A 

LDA 

$0A0A 

EE88: 

F0 

09 


BEQ 

$EE93 

EE8A: 

80 

15 

03 

STA 

$0315 

EE8D: 

AD 

1)9 

0A 

LDA 

S0A09 

EE90: 

8D 

14 

03 

STA 

$0314 

EE93: 

28 



PLP 



Code für "Header Impuls" in Akku 
und Header Impuls schreiben 
Wenn erste Halbwelle, zum norm. IRQ 
Headerzähler um 1 vermindern 
Kein Ende,dann zur norm. IRQ-Routine 
Bitzähler f. serielle Ausgabe setzen 
Dauer der Shorts vor und nach Daten 
Kein Ende,dann zur norm. IRQ-Routine 
Displacement für IRQ #2 (Write) 
Setzen des IRQ Vektors 
Alle System Interrupts freigeben 
Dauer der Shorts um 1 vermindern 
Prüfe, ob alle Blöcke geschrieben 
Ja, dann Skip 

Ein-/Ausgabe Endadresse kopieren 
Den Z-Page Zeiger für die Sync. 
mit #9 neu setzen und den "Block 
geschrieben" Zeiger zurücksetzen 
Unbedingter Sprung 

Rekorderbetrieb beenden 

Prozessor Status auf Stack retten 
Alle System Interrupts verhindern 
Inhalt des VIC Steuerregisters in A 
Mit VDC Hilfszeiger verknüpfen 
Bildschirm wieder einschalten 
und Wert in VIC-Reg zurückschreiben 
Prüfe IRQ Sicherungsspeicher 
Bit 7 gesetzt, dann Skip 
Prüfe Taktfrequenz Sicherungsspeich. 
Bit 7 gelöscht, dann kein Update 
Hole gesicherten Status für Sprites 
und setze Sprite-Anzeige Register 
Hole gesicherte Taktfrequenz und 
setzte System auf alten Wert zurück 
Zwischenspeicher für Sicherung der 
System Taktfrequenz wieder löschen 
Rekordermotor ausschalten 
Timing und CIAs auf Standard setzen 
Ist Interruptvektor auf Standard? 

Ja, dann Exit 

System IRQ-Vektor Hi auf Standard 
gesicherte IRQ Lo Adresse holen 
System IRQ-Vektor Lo auf Standard 
Prozessor Status wieder zurückholen 
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EE94: 60 RTS Rücksprung aus dem Unterprogramm 

****************************** Bandbetrieb abschließen 


EE95: 20 57 EE JSR $EE57 Rekorderbetrieb beenden 

EE98: 4C 33 FF JMP $FF33 Zurück zur normalen IRQ Routine 


****************************** 


EE9B 

BD 

A0 

EE 

LDA 

$EEA0,X 

EE9E 

8 D 

14 

03 

STA 

$0314 

EEA1 

BD 

AI 

EE 

LDA 

$EEA1, X 

EEA4 

8 D 

15 

03 

STA 

$0315 

EEA7 

60 



RTS 


****************************** 

EEA8 

2E 

EE 


($EE2E) 

EEAA 

90 

ED 


($ED90) 

EEAC 

65 

FA 


($FA65) 

EEAE 

EB 

EA 


($EAEB) 

****************************** 

EEBO 

A5 

01 


LDA 

* $01 

EEB2 

09 

20 


ORA 

n $20 

EEB4 

85 

01 


STA 

* $01 

EEB6 

60 



RTS 



****************************** 


EEB7 

38 


SEC 



EEB8 

A5 

AC 

LDA 

* 

$AC 

EEBA 

E5 

AE 

SBC 

* 

$AE 

EEBC 

A5 

AD 

LDA 

* 

SAD 

EEBE 

E5 

AF 

SBC 

* 

$AF 

EEC0 

60 


RTS 




****************************** 


EEC1: 

E6 AC 

INC 

* $AC 

EEC3: 

DO 02 

BNE 

$EEC7 

EEC5: 

E6 AD 

INC 

* $AD 

EEC7: 

60 

RTS 



Setzen des IRQ-Vektors 

X-indizierte IRQ Lo-Adresse aus Tab. 
in System IRQ Vektor Lo kopieren 
X-indizierte IRQ Hi-Adresse aus Tab. 
in System IRQ Vektor Hi kopieren 
Rücksprung aus dem Unterprogramm 

Tabelle der IRQ-Vektoren 

IRQ #1: Write auf Band (Header) 

IRQ #2: Urite auf Band (Puffer) 
Normal IRQ für Tastaturabfrage 
IRQ für Lesen vom Band 

Rekordermotor ausschalten 

Status des Prozessorport Datenreg. 
in Akku, Bit 5 einblenden und somit 
den Rekordermotor ausschalten 
Rücksprung aus dem Unterprogramm 

Prüft auf Erreichen der Endadresse 
Uenn Endadresse > Startadresse C=0 

Carry für Subtraktion setzen 
Lo der E/A Startadresse in Akku 
Davon Lo der E/A Endadresse subtr. 

Hi der E/A Startadresse in Akku 
Davon Hi der E/A Endadresse subtr. 
Rücksprung aus dem Unterprogramm 

Ein-/Ausgabe Startadresse erhöhen 

Lo Wert der E-/A Startadresse + 1 
Kein Überlauf im Lo Wert, dann Exit 
Hi Wert der E-/A Startadresse + 1 
Rücksprung aus dem Unterprogramm 
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****************************** 


EEC8 

08 


PHP 


EEC9 

68 


PLA 


EECA 

29 

EF 

AND 

# $EF 

EECC 

48 


PHA 


EECD 

4C 

17 FF 

JMP 

$FF17 

****************************** 

EEDO 

A5 

01 

LDA 

* $01 

EED2 

29 

10 

AND 

# $10 

EED4 

F0 

0A 

BEQ 

$EEE0 

EED6 

A0 

00 

LDY 

# $00 

EED8 

84 

CO 

STY 

* $C0 

EEDA 

A5 

01 

LDA 

* $01 

EEDC 

09 

20 

ORA 

# $20 

EEDE 

DO 

08 

BNE 

$EEE8 

EEEO 

A5 

CO 

LDA 

* $C0 

EEE2 

DO 

06 

BNE 

$EEEA 

EEE4 

A5 

01 

LDA 

* $01 

EEE6 

29 

DF 

AND 

# $DF 

EEE8 

85 

01 

STA 

* $01 

EEEA 

60 


RTS 


****************************** 


EEEB 

A5 

99 


LDA 

* $99 

EEED 

DO 

0A 


BNE 

$EEF9 

EEEF 

A5 

DO 


LDA 

* $00 

EEF1 

05 

Dl 


ORA 

* $01 

EEF3 

F0 

0F 


BEQ 

$EF04 

EEF5 

78 



SEI 


EEF6 

4C 

06 

CO 

JMP 

$C006 

****************************** 

EEF9 

C9 

02 


CMP 

n $02 

EEFB 

DO 

18 


BNE 

$EF 15 

EEFD 

84 

97 


STY 

* $97 

EEFF 

20 

CE 

E7 

JSR 

$E 7CE 

EF02 

A4 

97 


LDY 

* $97 

EF04 

18 



CLC 


EF05 

60 



RTS 



Lösche Break Flag in Prozessor Stat. 

Prozessor Status auf Stack bringen 
und zurück in den Akku kopieren 
Break-Flag darin löschen 
und Status zurück auf Stack 
Sprung zur Kernal IRQ Routine 

Prüfe Kassettenrekorder Tasten (IRQ) 

Hole Prozessorport Datenregister 
und prüfe, ob Taste gedrückt 
Keine Taste gedrückt, dann Exit 
Kennzeichen für Kassettenrekorder 
OFF in Z-Page Bandflag neu setzen 
Hole Prozessorport Datenregister 
und setze Bit für Motor ausschalten 
Unbedingter Sprung 
Prüfe Z-Page Bandflag für Motor 
Wenn Motor eingeschaltet, dann Skip 
Hole Prozessorport Datenregister 
und lösche Bit für Motor einschalten 
In Prozessorport zurückschreiben 
Rücksprung aus dem Unterprogramm 


Lade Akku mit aktuellem Eingabegerät 
Nicht Tastatur, dann weiter 
Anzahl der Zeichen im Tastaturpuffer 
mit Funktionstastenzeiger verknüpfen 
Kein Zeichen da, dann "OK" Exit 
Alle System Interrupts verhindern 
Zeichen aus Tastaturpuffer holen 

GETIN Auswertung nicht von Tastatur 

Prüfe, ob RS-232 d. Eingabegerät ist 
Nicht RS-232, dann zur BASIN Routine 
Aktuellen Inhalt des Y-Reg sichern 
GETIN Routine von RS-232 
Alten Inhalt des Y-Reg zurückholen 
Kennzeichen für alles "OK" setzen 
Rücksprung aus dem Unterprogramm 


Kernal Routine: GETIN 
Ein Zeichen einiesen 
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Kernal Routine: BASIN 
Zeichen lesen 


****************************** 


EF06 

A5 

99 


LDA 

* $99 

EF08 

DO 

OB 


BNE 

SE F15 

EFOA 

A5 

EC 


LDA 

* $EC 

EFOC 

85 

E9 


STA 

* $E9 

EFOE 

A5 

EB 


LDA 

* $EB 

EF10 

85 

E8 


STA 

* $E8 

EF12 

4C 

09 

CO 

JMP 

$C009 

EF15 

C9 

03 


CHP 

# $03 

EF17 

DO 

09 


BNE 

$EF22 

EF19 

85 

D6 


STA 

* $D6 

EF1B 

A5 

E7 


LDA 

* $E7 

EF1D 

85 

EA 


STA 

* $EA 

EF1F 

4C 

09 

CO 

JMP 

$C009 

EF22 

BO 

38 


BCS 

$EF5C 

EF24 

C9 

02 


CMP 

# $02 

EF26 

F0 

3f 


BEO 

$EF67 

EF28 

86 

97 


STX 

* $97 

EF2A 

20 

48 

EF 

JSR 

$EF48 

EF2D 

BO 

16 


BCS 

$EF45 

EF2F 

48 



PHA 


EF30 

20 

48 

EF 

JSR 

$EF48 

EF33 

BO 

0D 


BCS 

$EF42 

EF35 

DO 

05 


BNE 

$EF3C 

EF37 

A9 

40 


LDA 

# $40 

EF39 

20 

57 

F7 

JSR 

$F757 

EF3C 

C6 

A6 


DEC 

* $A6 

EF3E 

A6 

97 


LDX 

* $97 

EF40 

68 



PLA 


EF41 

60 



RTS 


****************************** 

EF42 

AA 



TAX 


EF43 

68 



PLA 


EF 44 

8A 



TXA 


EF45 

A6 

97 


LDX 

* $97 

EF47 

60 



RTS 


****************************** 

EF48 

20 

BE 

E9 

JSR 

$E9BE 

EF4B 

DO 

OB 


BNE 

$EF58 

EF4D 

20 

F2 

E9 

JSR 

$E9F2 

EF50 

B0 

09 


BCS 

$EF5B 

EF52 

A9 

00 


LDA 

« $00 


Lade Akku mit aktuellem Eingabegerät 
Nicht Tastatur, dann weiter 
Hole aktuelle Cursor Spalte in Akku 
In Z-Page Start der Eingabespalte 
Hole aktuelle Cursor Zeile in Akku 
In Z-Page Start der Eingabezeile 
Zeichen vom Bildschirm holen 
Prüfe,ob Eingabegerät Bildschirm ist 
Nicht Bildschirm, dann weiter 
In Z-Page Zeiger für Input/Get 
Rechte Fenstergrenze in Akku laden 
In Z-Page f. Ende der Eingabezeile 
Zeichen vom Bildschirm holen 
Gerät > 3, lese Zeichen vom IEC Bus 
Eingabegerät 2 (RS-232) gesetzt? 

Ja, dann Zeichen von RS-232 holen 
Aktuellen Inhalt des X-Reg retten 
Ein Zeichen von Kassette lesen 
Exit aus Routine: Kassette lesen 
Akku Inhalt auf Stack retten 
Ein Zeichen von Kassette lesen 
Fehler aufgetreten, dann Skip 
Letztes Zeichen vom Band gelesen? 
EOF-Kennzeichen in Akku bringen 
und den Status entsprechend setzen 
Bandpuffer Zeiger um 1 vermindern 
X-Reg Inhalt wieder zurückholen 
Akku Inhalt vom Stack zurückholen 
Rücksprung aus dem Unterprogramm 

Fehler b. Lesen von Band aufgetreten 

Fehlernummer in X-Reg bringen 
Zeichen zurückholen 
Fehlernummer in Akku bringen 
X-Reg Inhalt wieder zurückholen 
Rücksprung aus dem Unterprogramm 

Ein Zeichen von Kassette lesen 

Bandpuffer Zeiger erhöhen 
Noch Zeichen im Puffer, dann lesen 
Nächsten Block von Kassette lesen 
STOP Taste gedrückt, dann Abbruch 
Akku mit $00 laden und in den Z-Page 
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EF54 

85 A6 

STA 

* $A6 

Speicher für Kassettenpuffer Zeiger 

EF56 

FO FO 

BEO 

SEF48 

Nächstes Zeichen holen 

EF58 

Bl B2 

LDA 

($B2),Y 

Ein Zeichen aus Puffer lesen 

EF5A 

18 

CLC 


Kennzeichen für "OK" setzen 

EF5B 

60 

RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Zeichen vom IEC Bus holen 

EF5C 

A5 90 

LDA 

* $90 

System Status in Akku laden 

EF5E 

DO 03 

BNE 

$EF63 

Status nicht "OK", dann Exit 

EF60 

4C 3E E4 

JMP 

$E43E 

Kernal ACPTR: Byte v. ser. Bus holen 

EF63 

A9 OD 

LDA 

# $0D 

Code für <Cr> in Akku laden 

EF65 

18 

CLC 


Kennzeichen für "OK" setzen 

EF66 

60 

RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Zeichen von RS-232 holen 

EF67 

20 FD EE 

JSR 

SEEFD 

Ein Byte von RS-232 lesen 

EF6A 

BO F9 

BCS 

$EF65 

Fehler aufgetreten, dann Exit 

EF6C 

C9 00 

CMP 

# $00 

War gelesenes Zeichen ein Nullbyte? 

EF6E 

DO F6 

BNE 

$EF66 

Nein, dann "OK" Exit 

EF70 

AD 14 OA 

LDA 

$0A14 

RS-232 Status in Akku laden 

EF73 

29 60 

AND 

n $60 

Fehlt Data set ready (DSR)? 

EF75 

DO EC 

BNE 

$EF63 

Ja, dann <Cr> Code zurückgeben 

EF77 

FO EE 

BEQ 

$EF67 

Nein, dann neuer Leseversuch 

****************************** 

Kernal Routine: BSOUT 





Zeichen ausgeben 

EF79 

48 

PHA 


Auszugebendes Zeichen sichern 

EF7A 

A5 9A 

LDA 

* $9A 

Hole aktuelles Ausgabegerät 

EF7C 

C9 03 

CMP 

# $03 

Ist es der Bildschirm (3)? 

EF7E 

DO 04 

BNE 

$EF84 

Nein, dann Skip Bildschirmausgabe 

EF80 

68 

PLA 


Auszugebendes Zeichen zurückholen 

EF81 

4C OC CO 

JMP 

$COOC 

In Routine: Zeichenausgabe Bildschirm 

****************************** 

BSOUT Ausgabe nicht auf Bildschirm 

EF84 

90 04 

BCC 

$EF8A 

Auf RS-232 / Datassette ausgeben 

EF86 

68 

PLA 


Auszugebendes Zeichen zurückholen 

EF87 

4C 03 E5 

JMP 

$E503 

BSOUT Ausgabe auf IEC (GA größer 3) 

EF8A 

4A 

LSR 

A 

Prüfe, ob RS-232 oder Datassette 

EF8B 

68 

PLA 


Auszugebendes Zeichen zurückholen 

EF8C 

85 9E 

STA 

* $9E 

und in Z-Page Zwischenspeichern 

EF8E 

8A 

TXA 


Den aktuellen Inhalt des X-Reg 

EF8F 

48 

PHA 


über Akku auf Stack retten 

EF90 

98 

TYA 


Den aktuellen Inhalt des Y-Reg 

EF91 

48 

PHA 


über Akku auf Stack retten 
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EF92 

90 

23 


BCC 

$EFB7 

EF94 

20 

BE 

E9 

JSR 

$E9BE 

EF97 

DO 

0E 


BNE 

SEFA7 

EF99 

20 

15 

EA 

JSR 

$EA15 

EF9C 

B0 

0E 


BCS 

$EFAC 

EF9E 

A9 

02 


LDA 

# $02 

EFAO 

A0 

00 


LDY 

# $00 

EFA2 

91 

B2 


STA 

($B2), Y 

EFA4 

C8 



INY 


EFA5 

84 

A6 


STY 

* $A6 

EFA7 

A5 

9E 


LDA 

* $9E 

EFA9 

91 

B2 


STA 

($B2), Y 

EFAB 

18 



CLC 


EFAC 

68 



PLA 


EFAD 

A8 



TAY 


EFAE 

68 



PLA 


EFAF 

AA 



TAX 


EFBO 

A5 

9E 


LDA 

* $9E 

EFB2 

90 

02 


BCC 

$EFB6 

EFB4 

A9 

00 


LDA 

# $00 

EFB6 

60 



RTS 


****************************** 

EFB7 

20 

5F 

E7 

JSR 

$E75F 

EFBA 

4C 

AB 

EF 

JMP 

$EFAB 




EFBD: 

A6 

B8 


LDX 

* $B8 

EFBF: 

20 

02 

F2 

JSR 

$F202 

EFC2: 

F0 

2F 


BEQ 

$EFF3 

EFC4: 

A6 

98 


LDX 

* $98 

EFC6: 

E0 

0A 


CPX 

U $0A 

EFC8: 

B0 

26 


BCS 

$EFF0 

EFCA: 

E6 

98 


INC 

* $98 

EFCC: 

A5 

B8 


LDA 

* $88 

EFCE: 

9D 

62 

03 

STA 

$0362, X 

E FD 1: 

A5 

B9 


LDA 

* $B9 

EFD3: 

09 

60 


ORA 

n $60 

EFD5: 

85 

B9 


STA 

* $B9 

EFD7: 

9D 

76 

03 

STA 

$0376,X 

EFDA: 

A5 

BA 


LDA 

* $BA 

EFDC: 

9D 

6C 

03 

STA 

$036C,X 

EFDF: 

F0 

0D 


BEQ 

$EFEE 

EFE1: 

C9 

02 


CMP 

n $02 

EFE3: 

F0 

5B 


BEQ 

$F040 


Sprung in die RS-232 Ausgabe 
Bandpufferzeiger erhöhen 
Puffer nicht voll, Zeichen in Puffer 
Puffer auf Band schreiben 
Uenn STOP-Taste gedrückt, Abbruch 
Kontrollbyte für Datenblock setzen 
Displacement auf Bandpuffer setzen 
und Kontrollbyte in Puffer schreiben 
Das Displacement auf den Bandpuffer 
um 1 erhöhen und in Z-Page sichern 
Auszugebendes Zeichen aus Z-Page 
in Ausgabepuffer schreiben 
Kennzeichen für OK setzen 
Den auf dem Stack gesicherten alten 
Y-Reg Inhalt wiederherstellen 
Den auf dem Stack gesicherten alten 
X-Reg Inhalt wiederherstellen 
Auszugebendes Zeichen zurückholen 
Alles OK, dann Rücksprung 
Flag für "STOP" Taste gedrückt 
Rücksprung aus dem Unterprogramm 

RS-232 Zeichen Ausgabe 

Zeichen in RS-232 Puffer schreiben 
Stack säubern und Rücksprung 

Kernal Routine: OPEN 
Öffnen einer logischen Datei 

Logische Dateinummer in X-Reg holen 
LFN in LFN-Tabelle suchen 
Gefunden, dann Fehler ausgeben 
Hole Anzahl der offenen Dateien 
Maximal 10 offene sind möglich 
Mehr als 10 offen, dann Fehler 
Zahl der offenen Dateien +1 
Logische Dateinummer in Akku holen 
LFN in LFN-Tabelle eintragen 
Sekundäradresse in Akku laden 
Print, Input, Get in SA einblenden 
und wieder in SA Speicher merken 
SA in SA-Tabelle eintragen 
Geräteadresse in Akku laden 
GA in GA-Tabelle eintragen 
War es die Tastatur (0), dann Skip 
Prüfe, ob als Gerat die RS-232 
gewählt. Ja, dann Skip zu RS-232 
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EFE5 

90 

0F 


BCC 

SEFF6 

EFE7 

C9 

03 


CMP 

# $03 

EFE9 

FO 

03 


BEQ 

$EFEE 

EFEB 

20 

CB 

F0 

JSR 

$F0CB 

EFEE 

18 



CLC 


EFEF 

60 



RTS 


****************************** 

EFFO 

4C 

7C 

F6 

JMP 

SF67C 

EFF3 

4C 

7F 

F6 

JMP 

SF67F 

EFF6 

20 

80 

E9 

JSR 

$E980 

EFF9 

BO 

03 


BCS 

SEFFE 

EFFB 

4C 

94 

F6 

JMP 

$F694 

EFFE 

A5 

B9 


LDA 

* $B9 

F000 

29 

0F 


AND 

H $0F 

F002 

DO 

1F 


BNE 

$F023 

F004 

20 

C8 

E9 

JSR 

$E9C8 

F007 

B0 

36 


BCS 

SF03F 

F009 

20 

0F 

F5 

JSR 

SF50F 

FOOC 

A5 

B7 


LDA 

* $B7 

FOOE 

F0 

0A 


BEQ 

$F01A 

F010 

20 

9A 

E9 

JSR 

$E99A 

F013 

90 

18 


BCC 

SF02D 

F015 

F0 

28 


BEQ 

$F03F 

F 017 

4C 

85 

F6 

JMP 

SF685 

F01A 

20 

DO 

E8 

JSR 

$E8D0 

F01D 

90 

0E 


BCC 

$F02D 

F01F 

F0 

IE 


BEO 

$F03F 

F021 

B0 

F4 


BCS 

$F017 

F023 

20 

E9 

E9 

JSR 

$E9E9 

F026 

B0 

17 


BCS 

$F03F 

F028 

A9 

04 


LDA 

# $04 

F02A 

o 

f\J 

19 

E9 

JSR 

$E919 

F02D 

A9 

BF 


LDA 

# $BF 

F02F 

A4 

B9 


LDY 

* $B9 

F031 

CO 

60 


CPY 

# $60 

F033: FO 

07 


BEQ 

$F03C 

F035 

A0 

00 


LDY 

# $00 

F037: A9 

02 


LDA 

# $02 

F039 

91 

B2 


STA 

($B2),Y 

F03B 

98 



TYA 


F03C 

85 

A6 


STA 

* $A6 

F03E 

18 



CLC 


F03F 

60 



RTS 



Kleiner 2, dann ist es Band OPEN 
Prüfe, ob als Gerät der Bildschirm 
gewählt. Ja, dann Skip 
Datei auf IEC Bus öffnen 
Kennzeichen für alles OK setzen 
Rücksprung aus dem Unterprogramm 

OPEN Routine für Bandbetrieb 

I/O Error #1 (Too many files) 

I/O Error #2 (File open) 

Bandpuffer Startadresse holen 
Carry gesetzt, dann gültige Adresse 
I/O Error #9 (Illegal device number) 
Sekundäradresse in Akku holen 
Obere Tetrade (Bit 4-7) ausmaskieren 
ungleich Null, auf "Re & PI" warten 
Wartet auf Taste an Datasette 
Ungültig, dann Carry = 1, RTS 
Steuermeldung "SEARCHING" "FOR" 

Länge des Dateinamens in Akku 
Kein Dateiname vorhanden, dann Skip 
Suche den entsprechenden Bandheader 
Wenn gefunden, dann weiter 
Rücksprung mit Carry gesetzt 
I/O Error #4 (File not found) 
Nächsten Header auf Kassette suchen 
Wenn gefunden, dann weiter 
Rücksprung mit Carry on, da EOT 
Weiter suchen, da es PRG File ist 
Warte auf "Record & Play" Taste 
Stop Taste gedrückt, dann Abbruch 
Kontrollcode für Datenheader in Akku 
Bandheader auf Kassette schreiben 
Zeiger auf Ende des Bandpuffers in A 
Sekundäradresse in Y-Reg holen 
SA Code für Print, Input oder Get? 
Ja, dann Zeiger setzen und RTS 
Displacement für Bandpuffer setzen 
Kontrollbyte für Datenblock 
in den Kassettenpuffer schreiben 
Displacement von Y nach A kopieren 
und Z-Page Bandpufferzeiger setzen 
Kennzeichen für "OK" setzen 
Rücksprung aus dem Unterprogramm 
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F040: 

20 

B0 

F0 

JSR 

SFOBO 

F043: 

8C 

14 

0A 

STY 

$0A14 

F046: 

C4 

B7 


CPY 

* $B7 

F048: 

F0 

OB 


BEQ 

$F055 

F04A: 

20 

AE 

F7 

JSR 

IF7AE 

F04D: 

99 

10 

0A 

STA 

$0A10,Y 

F050: 

C8 



INY 


F051: 

CO 

04 


CPY 

# $04 

F053: 

DO 

Fl 


BNE 

SF046 

F055: 

20 

8E 

E6 

JSR 

SE68E 

F058: 

8E 

15 

0A 

STX 

$0A15 

F05B: 

AD 

10 

0A 

LDA 

$0A10 

F05E: 

29 

0F 


AND 

# $0F 

F060: 

F0 

IC 


BEQ 

$F07E 

F062: 

0A 



ASL 

A 

F063: 

AA 



TAX 


F064: 

AD 

03 

0A 

LDA 

$0A03 

F067: 

DO 

09 


BNE 

$F072 

F069: 

BC 

4F 

E8 

LDY 

$E84F,X 

F06C: 

BD 

4E 

E8 

LDA 

$E84E,X 

F06F: 

4C 

78 

F0 

JMP 

$F078 

F072: 

BC 

63 

E8 

LDY 

$E863,X 

F075: 

BD 

62 

E8 

LDA 

$E862,X 

F078: 

8C 

13 

0A 

STY 

$0A13 

F07B: 

8D 

12 

0A 

STA 

$0A12 

F07E: 

AD 

12 

0A 

LDA 

$0A12 

F081: 

0A 



ASL 

A 

F082: 

AA 



TAX 


F083: 

AD 

13 

OA 

LDA 

$0A13 

F086: 

2A 



ROL 

A 

F087: 

A8 



TAY 


F088: 

8A 



TXA 


F089: 

69 

C8 


ADC 

# $C8 

F08B: 

8D 

16 

OA 

STA 

$0A16 

F08E: 

98 



TYA 


F08F: 

69 

00 


ADC 

# $00 

F091: 

8D 

17 

OA 

STA 

$0A17 

F094: 

AD 

11 

OA 

LDA 

$0A11 

F097: 

4A 



LSR 

A 

F098: 

90 

09 


BCC 

$F0A3 

F09A: 

AD 

01 

DD 

LDA 

$DD01 

F09D: 

0A 



ASL 

A 

F09E: 

B0 

03 


BCS 

$F0A3 

F0A0: 

20 

55 

E7 

JSR 

$E755 

F0A3: 

AD 

18 

OA 

LDA 

$0A18 

F0A6: 

8D 

19 

OA 

STA 

$0A19 


RS-232 Open 

CIAs zurücksetzen 

Z-Page RS-232 Status Byte löschen 

Vgl. mit Länge des Datei namens 

gleich 0, dann Datenbits berechnen 

1 Byte für RS-232 Register holen 

RS-232 Kontrollregister, 

Kommandoregister und die 

Benutzerbaudrate initialisieren 

Schleifen,bis 4 Werte übergeben sind 

Anzahl der Datenbits berechnen 

Speicher f. Anzahl zu sendender Bits 

RS-232 Kontrollregister laden 

Bits für Baudrate isolieren 

Codewert für Baudrate ermitteln 

Für Tab-Disp. mit 2 multiplizieren 

Für Index nach X-Reg kopieren 

Hole PAL/NTSC Zeiger 

Nicht NTSC Version, dann Skip 

Timerkonstante RS-232 B-Rate NTSC Hi 

Timerkonstante RS-232 B-Rate NTSC Lo 

Skip zur Sicherung der Baudrate 

Timerkonstante RS-232 B-Rate PAL Hi 

Timerkonstante RS-232 B-Rate PAL Lo 

Hi Uert der Baudrate sichern 

Lo Wert der Baudrate sichern 

Lo-Wert der Baudrate aus Speicher 

holen und mit 2 multiplizieren 

Wert im X-Reg sichern 

Hi Wert der Baudrate aus Speicher 

holen und mit 2 multiplizieren 

Wert im Y-Reg sichern 

Lo-Wert für Codeermittlung in Akku 

Dezimal 200 addieren 

Timerwert f. Sende-Baudrate sichern 

Hi-Wert für Codeermittlung in Akku 

Dezimal 000 addieren 

Timerwert f. Sende-Baudrate sichern 

RS-232 Kommandoregister holen 

Prüfe auf 3-Line Handshake 

Ja, dann Skip DSR Test 

Prüfe, ob das DATA SET READY 

(DSR) Signal fehlt 

Nein, dann Skip 

Status für DSR setzen 

Anfang des RS-232 Eingabepuffers mit 

Ende des Eingabepuffers gleichsetzen 
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F0A9 

AD 

1B 

OA 

LDA 

$0A1B 

Anfang des RS-232 Ausgabepuffers mit 

FOAC 

80 

1 A 

OA 

STA 

$0A1A 

Ende des Ausgabepuffers gleichsetzen 

FOAF 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

CIAs nach RS-232 zurücksetzen 

FOBO 

A9 

7F 


LDA 

# $7F 

Wert für "Interrupt löschen" in Akku 

F0B2 

8D 

OD 

DD 

STA 

$DDOD 

1RQs zurücksetzen 

F0B5 

A9 

06 


LDA 

# $06 

Bits 1 und 2 auf Ausgang setzen 

F0B7 

80 

03 

DD 

STA 

$DD03 

Datenrichtungsregister Port B 

FOBA 

80 

01 

DD 

STA 

$DD01 

Port Register Port B 

FOBD 

A9 

04 


LDA 

# $04 

Bit 2 des Datenport A (CIA 2) 

FOBF 

OD 

00 

DD 

ORA 

$DDOO 

für die RS-232 Datenausgabe 

F0C2 

8D 

00 

DD 

STA 

$DDOO 

einblenden (TXD Signal) 

FOC5 

AO 

00 


LDY 

# $00 

Y-Reg mit $00 vor laden und das 

F0C7 

8C 

OF 

OA 

STY 

$OAOF 

RS-232 NMI Flag löschen 

FOCA 

60 



RTS 


Rücksprung aus dem Unterprogramm 

ft***************************** 

Datei auf IEC Bus öffnen 

FOCB 

A5 

B9 


LDA 

* $B9 

Sekundäradresse in Akku laden 

FOCD 

30 

04 


BMI 

$F0D3 

Wenn Bit 7 für "CLOSE" gesetzt, Exit 

FOCF 

A4 

B7 


LDY 

* $B7 

Hole Länge des Dateinamens 

F0D1 

DO 

02 


BNE 

$F0D5 

Ungleich Null, dann weiter 

F0D3 

18 



CLC 


Carry für Kennzeichen "OK" löschen 

FOD4 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Dateiname an seriellen Bus senden 

F0D5 

A9 

00 


LDA 

# $00 

Setze das Statusbyte auf das 

F0D7 

85 

90 


STA 

* $90 

Kennzeichen $00 (= alles OK) 

F0D9 

A5 

BA 


LDA 

* $BA 

Geräteadresse in Akku laden 

FODB 

20 

31 

E3 

JSR 

$E33E 

Ende RS-232 Übertragung abwarten 

FOOE 

24 

90 


BIT 

* $90 

STATUS auf gesetztes EOF Bit testen 

FOEO 

30 

OB 


BMI 

$FOED 

Uenn EOF, dann Fehler ausgeben 

FOE2 

A5 

B9 


LDA 

* $B9 

Sekundäradresse in Akku laden 

F0E4 

09 

FO 


ORA 

# $F0 

Steuertetrade in SA einblenden 

FOE6 

20 

D2 

E4 

JSR 

$E4D2 

Routine SECND: Sekundäradr. f. LISTN 

F0E9 

A5 

90 


LDA 

* $90 

System STATUS in Akku laden 

FOEB 

10 

05 


BPL 

$F0F2 

Wenn OK, dann normal weiter 

FOEO 

68 



PLA 


RTS Adresse vom Stack löschen 

FOEE 

68 



PLA 


RTS Adresse vom Stack löschen 

FOEF 

4C 

88 

F6 

JMP 

$F688 

I/O Error #5 (Device not present) 

F0F2 

A5 

B7 


LDA 

* $B7 

Hole Länge des Dateinamens 

F0F4 

FO 

00 


BEO 

$F 103 

Kein Name angegeben, dann Skip 

F0F6 

AO 

00 


LDY 

U $00 

Displ. auf 1. Zeichen d. Dateinamens 

F0F8 

20 

AE 

F7 

JSR 

$F7AE 

1 Zeichen d. Dateinamens lesen 

FOFB 

20 

03 

E5 

JSR 

$E503 

Kernal CIOUT: Byte an seriellen Bus 
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F0FE: 

C8 

INY 


F0FF: 

C4 B7 

CPY 

* $B7 

F101: 

DO F5 

BNE 

SF0F8 

Fl 03: 

4C B0 F5 

JHP 

$F5B0 




F106: 

20 

02 

F2 

JSR 

$F202 

Fl 09: 

DO 

3E 


BNE 

$F149 

F10B: 

20 

12 

F2 

JSR 

SF212 

F10E: 

F0 

13 


BEQ 

$F123 

Fl 10: 

C9 

03 


CMP 

# $03 

Fl 12: 

F0 

0F 


BEQ 

$F123 

Fl 14: 

B0 

11 


BCS 

$F127 

Fl 16: 

C9 

02 


CMP 

# $02 

Fl 18: 

DO 

03 


BNE 

$F 11D 

F11A: 

4C 

95 

E7 

JMP 

$E795 

Fl ID: 

A6 

B9 


LDX 

* $B9 

F11F: 

E0 

60 


CPX 

n $60 

F121: 

DO 

20 


BNE 

$F 143 

Fl 23: 

85 

99 


STA 

* $99 

F125: 

18 



CLC 


Fl 26: 

60 



RTS 





F127: 

AA 



TAX 


F128: 

20 

3B 

E3 

JSR 

$E33B 

F12B: 

24 

90 


BIT 

* $90 

F12D: 

30 

11 


BMI 

$F 140 

F12F: 

A5 

B9 


LDA 

* $B9 

F131: 

10 

05 


BPL 

$F 138 

Fl 33: 

20 

E9 

E4 

JSR 

$E4E9 

Fl 36: 

10 

03 


BPL 

$F13B 

Fl 38: 

20 

E0 

E4 

JSR 

$E4E0 

F13B: 

8A 



TXA 


F13C: 

24 

90 


BIT 

* $90 

F13E: 

10 

E3 


BPL 

$F 123 

F140: 

4C 

88 

F6 

JMP 

$F688 

Fl 43: 

4C 

8B 

F6 

JMP 

$F68B 

F146: 

4C 

8E 

F6 

JMP 

$F68E 

Fl 49: 

4C 

82 

F6 

JMP 

$F682 


**★★**★★★*★**★★***★★★★★★★★★*★* 

F14C: 20 02 F2 JSR $F202 


Displacementzeiger um 1 erhöhen 
Displacement = Dateinamenlänge? 
Nein, dann weiter ausgeben 
UNLSN an seriellen Bus und RTS 


LFN in LFN-Tabelle suchen 
I/O Error #3 (File not found) 

LFN,GA,SA entsprechend neu setzen 
GA = 0, dann Standard setzen 
Ist es die GA 3 (= Bildschirm )? 

Ja,dann Bildschirm f.Standard setzen 
Größer 3, dann IEC Auswertung 
Prüfe, ob RS-232 gewählt wurde 
Nein, dann war es die Datasette 
Zur RS-232 Eingabe 
Sekundäradresse in X-Reg holen 
Ist die Sekundäradresse = 0? 

I/O Error #6 (Not input file) 

In Z-Page f. Standard Eingabegerät 
Kennzeichen für “OK" setzen 
Rücksprung aus dem Unterprogramm 


Sichere Geräteadresse im X-Reg 
Routine TALK: TALK Befehl an ser.Bus 
STATUS auf gesetztes EOF-Bit testen 
Bit 7 gesetzt = "Device not present" 
Sekundäradresse in Akku laden 
Sekundäradresse für TALK senden 
Wartet auf Taktsignal 
Skip Ausgabe d. TALK Sekundäradresse 
Routine TKSA: Sekundäradr. für TALK 
Geräteadresse wieder in Akku zurück 
STATUS auf gesetztes EOF-Bit testen 
Alles OK,dann a. Eingabegerät setzen 
I/O Error #5 (Device not present) 

I/O Error #6 (Not input file) 

I/O Error #7 (Not output file) 

I/O Error #3 (File not open) 


Kernal Routine: CKOUT 
Ausgabekanal setzen 

LFN in LFN-Tabelle suchen 


Kernal Routine: CHKIN 
Eingabekanal setzen 


Auswertung bei CHKIN auf IEC 
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F14 F 

DO 

F8 


BNE 

SF149 

I/O Error #3 (File not open) 

F151 

20 

12 

F2 

JSR 

SF212 

LFN,GA,SA entsprechend neu setzen 

F154 

F0 

FO 


BEQ 

$F146 

I/O Error #7 (Not output file) 

Fl 56 

C9 

03 


CMP 

# $03 

Vgl mit GA 3 (= Bildschirm) 

F158 

FO 

OF 


BEQ 

$F169 

Ja, dann als Standard Ausgabe setzen 

F15A 

BO 

11 


BCS 

$F16D 

GA größer 3, dann IEC Auswertung 

F15C 

C9 

02 


CMP 

# $02 

Prüfe, ob RS-232 gewählt wurde 

F15E 

DO 

03 


BNE 

$F 163 

Nein, dann Skip 

Fl 60 

4C 

29 

E7 

JMP 

$E729 

Zur RS-232 Ausgabe 

Fl 63 

A6 

B9 


LDX 

* $B9 

Sekundäradresse in X-Reg holen 

Fl 65 

EO 

60 


CPX 

# $60 

Ist die Sekundäradresse = 0? 

Fl 67 

FO 

DD 


BEQ 

$F 146 

I/O Error #7 (Not output file) 

Fl 69 

85 

9A 


STA 

* $9A 

In Z-Page für Standard Ausgabegerät 

F16B 

18 



CLC 


Kennzeichen für "OK" setzen 

F16C 

60 



RTS 


Rücksprung aus dem Unterprogramm 

****************************** 

Auswertung bei CKOUT auf IEC 

F16D 

AA 



TAX 


Geräteadresse für LISTN in X-Reg 

F16E 

20 

3E 

E3 

JSR 

$E33E 

Routine LISTN: LISTN Bef.an ser. Bus 

F171 

24 

90 


BIT 

* $90 

STATUS auf gesetztes EOF Bit testen 

F173 

30 

CB 


BMI 

$F 140 

I/O Error #5 (Device not present) 

Fl 75 

A5 

B9 


LDA 

* $B9 

Sekundäradresse in Akku laden 

Fl 77 

10 

05 


BPL 

$F17E 

OPEN/CLOSE Bit clear, dann Skip 

Fl 79 

20 

07 

E4 

JSR 

$E4D7 

ATN Signal zurücksetzen 

F17C 

DO 

03 


BNE 

$ F181 

Skip Ausgabe der LISTN Sekundäradr. 

F17E 

20 

D2 

E4 

JSR 

$E4D2 

Routine SECND: Sekundäradr. f. LISTN 

F181 

8A 



TXA 


Geräteadresse wieder in Akku zurück 

F182 

24 

90 


BIT 

* $90 

STATUS auf gesetztes EOF Bit testen 

F184 

10 

E3 


BPL 

$F 169 

Alles OK, dann entsprechenden RTS 

Fl 86 

30 

BS 


BMI 

$F 140 

I/O Error #5 (Device not present) 

****************************** 

Kernal Routine: CLOSE 







Eine Datei schließen 

Fl 88 

66 

92 


ROR 

* $92 

Carry als KZ in Z-Page Flag rotieren 

F18A 

20 

07 

F2 

JSR 

$F207 

LFN in LFN-Tabelle suchen 

F18D 

DO 

DC 


BNE 

$F16B 

Nicht gefunden, dann "OK" Rücksprung 

F18F 

20 

12 

F2 

JSR 

$F212 

LFN,GA,SA entspr. Tabelle erneuern 

Fl 92 

8A 



TXA 


Tabellen Displacementzeiger 

F193 

48 



PHA 


auf dem Stack sichern 

F194 

A5 

BA 


LDA 

* $BA 

Geräteadresse in Akku laden 

F196 

FO 

4C 


BEQ 

$F1E4 

War angesprochenes Gerät Tastatur? 

Fl 98 

C9 

03 


CMP 

# $03 

Prüfe, ob angesprochenes Gerät der 

F19A 

FO 

48 


BEQ 

$F1E4 

Bildschirm (3) war. Ja, dann Skip 

F19C 

BO 

31 


BCS 

SF1CF 

War es ein Gerät am IEC Bus? 

F19E 

C9 

02 


CMP 

# $02 

War es die RS-232? 

F IAO 

DO 

07 


BNE 

$F1A9 

Nein, dann Close an Kassette 
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F1A2: 

68 



PLA 


Fl A3: 

20 

E5 

Fl 

JSR 

$F1E5 

F1A6: 

4C 

BO 

F0 

JMP 

$F0B0 


******************************** 


F1A9: 

A5 

B9 


LDA 

* $B9 

Fl AB: 

29 

0F 


AND 

# $0F 

F1AD: 

F0 

35 


BEQ 

$F1E4 

F1AF: 

20 

80 

E9 

JSR 

$E980 

F1B2: 

A9 

00 


LDA 

# $00 

F1B4: 

38 



SEC 


F1B5: 

20 

8C 

EF 

JSR 

$EF8C 

F1B8: 

20 

15 

EA 

JSR 

SEA15 

F1BB: 

90 

04 


BCC 

SF1C1 

F1BD: 

68 



PLA 


F1BE: 

A9 

00 


LDA 

# $00 

F1 CO: 

60 



RTS 



****************************** 


FICI: 

A5 

B9 


LDA 

* $B9 

F1C3: 

C9 

62 


CMP 

# $62 

F1C5: 

DO 

ID 


BNE 

$F1E4 

F1C7: 

A9 

05 


LDA 

# $05 

F1C9: 

20 

19 

E9 

JSR 

$E919 

F1CC: 

4C 

E4 

Fl 

JMP 

$F1E4 

F1CF: 

24 

92 


BIT 

* $92 

F1D1: 

10 

0E 


BPL 

$F 1E1 

F1D3: 

A5 

BA 


LDA 

* $BA 

F1D5: 

C9 

08 


CMP 

# $08 

F1D7: 

90 

08 


BCC 

$F 1E1 

F1D9: 

A5 

B9 


LDA 

* $B9 

F1DB: 

29 

0F 


AND 

n $of 

FIDO: 

C9 

0F 


CMP 

# $0F 

F1DF: 

F0 

03 


BEQ 

$F 1E4 

F1E1: 

20 

9E 

F5 

JSR 

$F59E 


r * ** i 

Ir***** 

******** 

F1E4: 

68 



PLA 


F1E5: 

AA 



TAX 


F1E6: 

C6 

98 


DEC 

* $98 

F1E8: 

E4 

98 


CPX 

* $98 

F1EA: 

F0 

14 


BEQ 

$F200 

F1EC: 

A4 

98 


LDY 

* $98 

F1EE: 

B9 

62 

03 

LDA 

$0362, Y 

F1F1: 

9D 

62 

03 

STA 

$0362,X 


Das Displ. auf d. Tab. zurückholen 
Dateieintrag aus Tabelle löschen 
CIA's zurücksetzen und RTS 


Sekundäradresse in Akku laden 
Obere Tetrade (Bit 4-7) ausmaskieren 
Dateieintrag aus Tabelle löschen 
Bandpuffer Adresse holen und prüfen 
Kennzeichen für Close setzen und 
Steuerkennzeichen Carry setzen 
Zeichen in Puffer schreiben 
Puffer auf Band schreiben 
Alles Ok, dann weiter mit Tape Close 
Auszugebendes Zeichen zurückholen 
und durch CHR$(0) ersetzen 
Rücksprung aus dem Unterprogramm 

Löschen eines Dateieintrages 

Sekundäradresse in Akku laden 
War die untere Tetrade der SA = 2? 
Dateieintrag aus Tabelle löschen 
Kontrollbyte für EOT Header setzen 
und Datenblock auf Band schreiben 
Dateieintrag aus Tabelle löschen 
Prüfe Tape Zeitkonstante 
Kleiner 128, dann Close senden 
Geräteadresse in Akku laden 
War es ein Diskettenlaufwerk (8-15) 
Nein, dann Skip Floppy Close 
Sekundäradresse in Akku laden 
Obere Tetrade (Bit 4-7) ausmaskieren 
War Befehlskanal (15) geöffnet, dann 
Dateieintrag aus Tabelle löschen 
CLOSE Befehl an Gerät schicken 

Dateieintrag aus Tabelle löschen 

Displ. auf Tabelle zurückholen 
Displ. von A in X-Reg kopieren 
Zahl der offenen Dateien - 1 
War der gefundene Tabelleneintrag 
d. letzte Tabelleneintrag, dann Exit 
Zahl offener Dateien f. Displ. holen 
Letzten Eintrag aus LFN-Tab. holen 
und an freie Position kopieren 


Schließen einer Band-Datei 
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F1F4 

B9 

6C 

03 

LDA 

$036C, Y 

F1F7 

9D 

6C 

03 

STA 

$036C,X 

FIFA 

B9 

76 

03 

LDA 

$0376,Y 

Fl FD 

90 

76 

03 

STA 

$0376,X 

F200 

18 



CLC 


F201 

60 



RTS 



****************************** 


F202 

A9 

00 

LDA 

# $00 

F204 

85 

90 

STA 

* $90 

F206 

8A 


TXA 


F207 

A6 

98 

LDX 

* $98 

F209 

CA 


DEX 


F20A 

30 

05 

BMI 

$F211 

F20C 

DD 

62 03 

CMP 

$0362, X 

F20F 

DO 

F8 

BNE 

$F209 

F211 

60 


RTS 



****************************** 


F212 

BD 

62 

03 

LDA 

$0362, X 

F215 

85 

B8 


STA 

* $B8 

F217 

BD 

76 

03 

LDA 

$0376,X 

F21A 

85 

B9 


STA 

* $B9 

F21C 

BD 

6C 

03 

LDA 

$036C,X 

F21F 

85 

BA 


STA 

* $BA 

F221 

60 



RTS 



****************************** 


F222: A9 00 LOA 0 $00 

F224: 85 98 STA * $98 

****************************** 


F226 

A2 

03 


LDX 

0 $03 

F228 

E4 

9A 


CPX 

* $9A 

F22A 

B0 

03 


BCS 

$F22F 

F22C 

20 

26 

E5 

JSR 

$E526 

F22F 

E4 

99 


CPX 

* $99 

F231 

B0 

03 


BCS 

$F236 

F233 

20 

15 

E5 

JSR 

$E515 

F236 

86 

9A 


STX 

* $9A 

F238 

A9 

00 


LDA 

# $00 


Letzten Eintrag aus GA-Tab. holen 
und an freie Position kopieren 
Letzten Eintrag aus SA-Tab. holen 
und an freie Position kopieren 
Kennzeichen für "OK" setzen 
Rücksprung aus dem Unterprogramm 

LFN in X-Reg in LFN Tabelle suchen 

Statusbyte löschen und somit 
auf Kennzeichen: "Alles OK" setzen 
Suchwert für LFN in Akku kopieren 
Zahl der offenen Dateien holen 
Um 1 vermindern,da als Index benutzt 
Alle Vergleiche negativ, dann Exit 
Mit Byte aus LFN-Tabelle vergleichen 
Nicht gleich, dann nächsten Vgl. 
Rücksprung aus dem Unterprogramm 

LFN,GA,SA entsprechend dem X-Reg 
Displacement aus Tabellen holen 

Die durch X-Reg Displ. bestimmte 
log. Dateinr. in Z-Page Byte f. LFN 
Die durch X-Reg Displ. bestimmte 
Sekundäradr. in Z-Page Byte für SA 
Die durch X-Reg Displ. bestimmte 
Geräteadr. in Z-Page Byte für GA 
Rücksprung aus dem Unterprogramm 

Kernal Routine: CLALL 

Alle offenen Dateien zurücksetzen 

Akku mit 0 laden und in Z-Page 
Speicher f. Anzahl d. offenen Dat. 

Kernal Routine: CLRCH 

Ein-/Ausgabekanal zurücksetzen 

Code für Gerät Bildschirm (3) laden 
Mit aktuellem Ausgabegerät vgl. 

In CLRCH Rout, für Gerät am IEC Bus 
Routine UNLSN: UNLSN Bef.an ser. Bus 
Mit aktuellem Eingabegerät vgl. 
ln CLRCH Rout, für Gerät am IEC Bus 
Routine UNTLK: UNTLK Bef.an ser. Bus 
Als Ausgabegerät den Bildschirm und 
als Standard Eingabegerät wieder 
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F23A: 85 99 STA * $99 

F23C: 60 RTS 

****************************** 


F23D: 

85 

BA 


STA 

* $BA 

F23F: 

C5 

9A 


CMP 

* $9A 

F241: 

DO 

05 


BNE 

$F248 

F243: 

A9 

03 


LDA 

# $03 

F245: 

85 

9A 


STA 

* $9A 

F247: 

2C 



.Byte $2C 

F24(: 

C5 

99 


CMP 

# $99 

F24A: 

DO 

04 


BNE 

$F250 

F24C: 

A9 

00 


LDA 

# $00 

F24E: 

85 

99 


STA 

* $99 

F250: 

A5 

BA 


LDA 

* $BA 

F252: 

A6 

98 


LDX 

* $98 

F 254: 

CA 



DEX 


F255: 

30 

0D 


BMI 

$F264 

F257: 

DD 

6C 

03 

CMP 

$036C,X 

F25A: 

DO 

F8 


BNE 

$F254 

F25C: 

BD 

62 

03 

LDA 

$0362,X 

F25F: 

20 

C3 

FF 

JSR 

$FFC3 

F262: 

90 

EC 


BCC 

$F250 

F264: 

60 



RTS 



****************************** 


F265 

86 

C3 


STX 

* $C3 

F267 

84 

C4 


STY 

* $C4 

F269 

6C 

30 

03 

JMP 

($0330) 

F26C 

85 

93 


STA 

* $93 

F26E 

A9 

00 


LDA 

# $00 

F270 

85 

90 


STA 

* $90 

F272 

A5 

BA 


LDA 

* $BA 

F274 

C9 

04 


CMP 

# $04 

F276 

B0 

03 


BCS 

$F27B 

F278 

4C 

26 

F3 

JMP 

$F326 

**************** 

************** 

F27B 

AD 

IC 

0A 

LDA 

$0A1 C 

F27E 

29 

BE 


AND 

« $BE 

F280 

8D 

IC 

0A 

STA 

$0A1C 

F283 

A6 

B9 


LDX 

* $B9 

F285 

86 

9E 


STX 

* $9E 

F287 

A4 

B7 


LDY 

* $B7 


die Tastatur setzen. 

Rücksprung aus dem Unterprogramm 

Standard E-/A- Geräte setzen 

In Z-Page Byte f.aktuelle Geräteadr. 
Mit aktuellem Ausgabegerät vgl. 

Nicht gleich, mit Eingabegerät vgl. 
Akku mit GA für Bildschirm laden (3) 
und als Ausgabegerät setzen 
Skip nach $F24A 

Mit aktuellem Eingabegerät vgl. 

Nicht gleich, dann suche in GA-Tab 
Akku mit Code für Tastatur laden (0) 
u. als Eingabe d. Tastatur setzen 
Geräteadresse in Akku laden 
Zahl d. offenen Dateien in X-Reg 
Um 1 vermindern,da als Index benutzt 
Alle Vergleiche negativ, dann Exit 
Mit Tabelle für Geräteadressen vgl. 
Nicht gefunden, dann nächster Vgl. 
LFN zur entspr. GA holen 
Kernal CLOSE: Datei schließen 
Wenn Carry Clear, nächster Ctose 
Rücksprung aus dem Unterprogramm 

Kernal Routine: LOAD 

Lade Datei in einen Speicherbereich 

Startadresse Lo in Z-Page ablegen 
Startadresse Hi in Z-Page ablegen 
Vektor zeigt auf LOAD Rout.($F26C) 
Z-Page Flag für LOAD/VERIFY 
Akku mit $00 laden und 
Status auf "alles OK" setzen 
Geräteadresse in Akku laden 
Prüfe auf gültige Geräteadresse 
Geräteadresse größer 4 ist gültig 
Prüfe auf Datasette, sonst ungültig 

LOAD Routine vom IEC-Bus 

Systemzeiger für schnellen seriellen 
Modus auslesen und Bit 6 (1 = fast, 

0 = slow) eliminieren 
Sekundäradresse in X-Reg holen 
und in Z-Page $9E Zwischenspeichern 
Hole Länge des Dateinamens 
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289: 

DO 

03 


BNE 

$F28E 

Ungleich 0, dann Skip Fehlermeldung 

28B: 

4C 

1A 

F3 

JMP 

$F31A 

I/O Error #8 (Missing filename) 

28E: 

84 

9F 


STY 

* $9F 

Länge Dateinamen Zwischenspeichern 

290: 

20 

OF 

F5 

JSR 

SF50F 

"Searching for" Meldung ausgeben 

293: 

20 

AI 

F3 

JSR 

$F3A1 

Prüfe Dateinamen und Fast Ser. Mode 

296: 

BO 

03 


BCS 

$F29B 

Carry gesetzt, dann Fehler. Skip 

298: 

4C 

9B 

F3 

JMP 

$F39B 

Load-Endadresse setzen und RTS 

29B: 

A4 

9F 


LDY 

* $9F 

Länge des Dateinamens in Y-Reg und 

29D: 

84 

B7 


STY 

* $B7 

in Z-Page für Länge des Dateinamens 

29F: 

A9 

60 


LDA 

# $60 

SA 0, Hi-Tetrade für Input/Get 

2A1: 

85 

B9 


STA 

* $B9 

in Z-Page für Sekundäradresse 

2A3: 

20 

CB 

FO 

JSR 

SFOCB 

TALK Befehl an seriellen Bus senden 

2A6: 

A5 

RA 


LDA 

* $BA 

Geräteadresse in Akku laden 

2A8: 

20 

3B 

E3 

JSR 

$E33B 

Routine TALK: TALK Befehl an ser.Bus 

2AB: 

A5 

B9 


LDA 

* $B9 

Sekundäradresse in Akku laden 

2AD: 

20 

EO 

E4 

JSR 

$E4E0 

Routine TKSA: Sekundäradr. für TALK 

2B0: 

20 

3E 

E4 

JSR 

$E43E 

Ein Byte vom IEC Bus holen 

2B3: 

85 

AE 


STA 

* $AE 

Startadresse Lo in Z-Page ablegen 

2B5: 

20 

3E 

E4 

JSR 

$E43E 

Ein Byte vom IEC Bus holen 

2B8: 

85 

AF 


STA 

* $AF 

Startadresse Hi in Z-Page ablegen 

2BA: 

A5 

90 


LDA 

* $90 

System STATUS in Akku laden 

2BC: 

4A 



LSR 

A 

Timeout Bit rechts shiften 

2BD: 

4A 



LSR 

A 

Timeout Bit ins Carry Flag schieben 

2BE: 

BO 

57 


BCS 

$F317 

Timeout beim Lesen, (File not found) 

2C0: 

A5 

9E 


LDA 

* $9E 

Hole gesicherte Sekundäradresse 

2C2: 

DO 

08 


BNE 

$F2CC 

Ungleich 0, dann Skip 

2C4: 

A5 

C3 


LDA 

* $C3 

Die durch X-Reg und Y-Reg 

2C6: 

85 

AE 


STA 

* $AE 

übergebene Startadresse für 

2C8: 

A5 

C4 


LDA 

* $C4 

den LOAD Befehl von $C3,$C4 

2CA: 

85 

AF 


STA 

* $AF 

nach $AE,$AF kopieren 

2CC: 

20 

33 

F5 

JSR 

$F533 

Steuermeldung a. Bildschirm anzeigen 

2CF: 

A9 

FD 


LDA 

U $FD 

Das Statusbit für Timeout beim Lesen 

2D1: 

25 

90 


AND 

* $90 

aus dem Status ausblenden und 

2D3: 

85 

90 


STA 

* $90 

wieder in den Status zurückschreiben 

205: 

20 

El 

FF 

JSR 

$FFE1 

Kernat STOP: Auf Stop Taste prüfen 

208: 

FO 

49 


BEQ 

$F323 

Zum Abbruch der LOAD Routine 

2DA: 

20 

3E 

E4 

JSR 

$E43E 

Kernal Routine: ACPTR 

2DD: 

AA 



TAX 


Akku Inhalt im X-Reg sichern 

2DE: 

A5 

90 


LDA 

* $90 

System STATUS in Akku laden 

2E0: 

4A 



LSR 

A 

Das "Timeout beim Lesen" Bit aus 

2E1: 

4A 



LSR 

A 

dem Statusbyte eliminieren 

2E2: 

BO 

EB 


BCS 

$F2CF 

Wenn Timeout, dann neuer Leseversuch 

2E4: 

8A 



TXA 


Alten Akku-Inhalt wiederherstellen 

2E5: 

A4 

93 


LDY 

* $93 

Teste Z-Page LOAD/VERIFY Zeiger 

2E7: 

FO 

12 


BEO 

$F2FB 

Wenn Null, dann ist es LOAD 

2E9: 

85 

BD 


STA 

* $BD 

In Z-Page Paritätspuffer ablegen 

2EB: 

AO 

00 


LDY 

# $00 

Displacementzeiger für FETCH Routine 

2ED: 

20 

C9 

F7 

JSR 

$F7C9 

FETCH Routine für LSV Operationen 
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F2F0: 

C5 

BD 


CMP 

* $BD 

F2F2: 

F0 

0A 


BEQ 

$F2FE 

F2F4: 

A9 

10 


LDA 

# $10 

F2F6: 

20 

57 

F7 

JSR 

$F757 

F2F9: 

DO 

03 


BNE 

$F2FE 

F2FB: 

20 

BF 

F7 

JSR 

$F7BF 

F2FE: 

E6 

AE 


INC 

* $AE 

F300: 

DO 

08 


BNE 

$F30A 

F302: 

E6 

Ah 


INC 

* $AF 

F304: 

A5 

AF 


LDA 

* $AF 

F306: 

C9 

FF 


CMP 

# $FF 

F308: 

F0 

16 


BEQ 

SF320 

F30A: 

24 

90 


BIT 

* $90 

F30C: 

50 

CI 


BVC 

$F2CF 

F30E: 

20 

15 

E5 

JSR 

$E515 

F311: 

20 

9E 

F5 

JSR 

$F59E 

F314: 

4C 

9B 

F3 

JMP 

$F39B 

F317: 

4C 

85 

F6 

JHP 

$F685 

F31A: 

4C 

91 

F6 

JMP 

$F691 

F31D: 

4C 

94 

F6 

JMP 

$F694 

F320: 

4C 

97 

F6 

JMP 

$F697 

F323: 

4C 

B5 

F5 

JMP 

$F5B5 

F326: 

C9 

01 


CMP 

# $01 

F328: 

DO 

F3 


BNE 

$F31D 

F32A: 

20 

80 

E9 

JSR 

$E980 

F32D: 

90 

EE 


BCC 

$F31D 

F32F: 

20 

C8 

E9 

JSR 

$E9C8 

F332: 

B0 

6C 


BCS 

$F3A0 

F334: 

20 

0F 

F5 

JSR 

$F50F 

F337: 

A5 

B7 


LDA 

* $B7 

F339: 

F0 

09 


BEQ 

$F344 

F33B: 

20 

9A 

E9 

JSR 

$E99A 

F33E: 

90 

OB 


BCC 

$F34B 

F340: 

F0 

5E 


BEQ 

$F3A0 

F342: 

B0 

D3 


BCS 

$F317 

F344: 

20 

DO 

E8 

JSR 

$E8D0 

F347: 

F0 

57 


BEQ 

$F3A0 

F349: 

B0 

CC 


BCS 

$F317 

F34B: 

38 



SEC 


F34C: 

A5 

90 


LDA 

* $90 

F34E: 

29 

10 


AND 

# $10 

F350: 

DO 

4E 


BNE 

$F3A0 

F352: 

E0 

01 


CPX 

# $01 

F354: 

F0 

11 


BEQ 

$F367 

F356: 

E0 

03 


CPX 

# $03 

F358: 

DO 

DD 


BNE 

$F337 

F35A: 

A0 

01 


LDY 

# $01 

F35C: 

Bl 

B2 


LDA 

($B2 ), Y 


Vergleiche m. Z-Page Paritäts-Puffer 
Wenn gleich, dann OK und Skip 
Bit 4 im System Status einblenden 
Kernal STATUS: System Status setzen 
Nicht OK, dann Skip abspeichern 
1N0STA Routine über Z-Page $AE-$AF 
Lo-Byte des Speicherzeigers +1 
Kein Überlauf, dann Skip Abgleich 
Hi-Byte des Speicherzeigers +1 
Prüfe, ob Hi-Byte in $FF00 Bereich 
zeigt. Wenn ja, dann springe in 
die Fehlerausgabe 

STATUS auf gesetztes EOF Bit testen 
Noch kein EOF, dann weiter 
Routine UNTLK: UNTLK Bef.an ser. Bus 
UNLSTN und CLOSE an ser. Bus senden 
Carry löschen und Rücksprung 
I/O Error #4 (File not found) 

I/O Error #8 (Missing filename) 

I/O Error #9 (Illegal device number) 
I/O Error #0 

Sprung,wenn LOAD Routine abgebrochen 
Ist es ein LOAD von Datasette? 

Nein, dann I/O Error #9 
Hole und prüfe Bandpuffer Adresse 
Bandpuffer Adresse ungültig, Fehler 
Warte auf Taste am Kassettenrekorder 
Abbruch durch STOP Taste, dann RTS 
"SEARCHING" "FOR" Dateiname ausgeben 
Z-Page Speicher für Dateinamenlänge 
Länge = 0, Skip nach Namen suchen 
Bandheader nach Namen suchen 
OK, dann weiter 

Abbruch durch STOP Taste, dann RTS 
I/O Error #4 (File not found) 
Programm Header vom Band lesen 
Abbruch durch STOP Taste, dann RTS 
I/O Error #4 (File not found) 
Kennzeichen: Fehler gefunden setzen 
System STATUS in Akku laden 
Bit 4 für Lesefehler eliminieren 
Bit 4 (Lesefehler) gesetzt, dann RTS 
Code für Header Typ #1 (BASIC-Prg) 
Ist es ein BASIC-Prograinm, Skip 
Code für Header Typ #3 (Hasch. Prg) 
Wenn nicht #1 oder #3, weiter suchen 
Displacement auf Kassettenpuffer 
Hole Startadresse Lo aus Puffer und 
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F35E: 

85 

C3 


STA 

* $C3 

F360: 

C8 



INY 


F361: 

Bl 

B2 


LDA 

($B2) 

F363: 

85 

C4 


STA 

* $C4 

F365: 

BO 

04 


8CS 

$F36B 

F367: 

A5 

B9 


LDA 

* $B9 

F369: 

DO 

EF 


BNE 

$F35A 

F36B: 

A0 

03 


LDY 

# $03 

F36D: 

Bl 

B2 


LDA 

($B2) 

F36F: 

A0 

01 


LDY 

# $01 

F371: 

Fl 

B2 


SBC 

<$B2) 

F373: 

AA 



TAX 


F374: 

A0 

04 


LDY 

# $04 

F376: 

Bl 

B2 


LDA 

($B2) 

F378: 

A0 

02 


LDY 

# $02 

F37A: 

Fl 

B2 


SBC 

<$B2) 

F37C: 

A8 



TAY 


F37D: 

18 



CLC 


F37E: 

8A 



TXA 


F37F: 

65 

C3 


ADC 

* $C3 

F381: 

85 

AE 


STA 

* $AE 

F383: 

98 



TYA 


F384: 

65 

C4 


ADC 

* $C4 

F386: 

85 

AF 


STA 

* $AF 

F388: 

C9 

FF 


CMP 

# $FF 

F38A: 

F0 

94 


BEO 

$F320 

F38C: 

A5 

C3 


LDA 

* $C3 

F38E: 

85 

CI 


STA 

* $C1 

F 390: 

A5 

C4 


LDA 

* $C4 

F392: 

85 

C2 


STA 

* $C2 

F39 4: 

20 

33 

F5 

JSR 

$F533 

F397: 

20 

FB 

E9 

JSR 

$E9FB 

F39A: 

24 



.Byte $24 

**************************** 

F39B: 

18 



CLC 


F39C: 

A6 

AE 


LDX 

* $AE 

F39E: 

A4 

AF 


LDY 

* $AF 

F3A0: 

60 



RTS 



****************************** 


F3A1: 

A0 

00 

LDY 

# $00 

F3A3: 

20 

AE F7 

JSR 

$F7AE 

F3A6: 

C9 

24 

CMP 

U $24 

F3A8: 

F0 

F6 

BEO 

$F3A0 


kopiere sie in Ladeadreßzeiger Lo 
Displacement im Kassettenpuffer +1 
Hole Startadresse Hi aus Puffer und 
kopiere sie in Ladeadreßzeiger Hi 
Unbedingter Sprung bei Hasch. Prg. 
Sekundäradresse in Akku laden 
Ist sie 0 (Append)? Nein, dann Skip 
Displacement auf Kassettenpuffer 
Hole Endadresse Lo aus Puffer 
Displacement auf Kassettenpuffer 
Subtr. Startadresse Lo v. Endadresse 
und sichere Lo Uert im X-Register 
Displacement auf Kassettenpuffer 
Hole Endadresse Hi aus Puffer 
Displacement auf Kassettenpuffer 
Subtr. Startadresse Hi v. Endadresse 
und sichere Hi Uert im Y-Register 
Carry für Addition löschen 
Programmlänge Lo in Akku zurück 
Speicherstartadresse + Programmlänge 
in Zeiger für Endadresse Lo ablegen 
Programmlänge Hi in Akku zurück 
Speicherstartadresse + Programmlänge 
in Zeiger für Endadresse Hi ablegen 
Reicht Endadresse in $FF00 Bereich? 
Ja, dann I/O Error #0 
Die Speicherstartadresse Lo in den 
Z-Page Ladezeiger Lo kopieren 
Die Speicherstartadresse Hi in den 
Z-Page Ladezeiger Hi kopieren 
"LOADING"/"VERIFYING" Text ausgeben 
Programm vom Band laden 
Skip nach $F39C 

Programmendadresse nach LOAD setzen 

Carry für Kennzeichen OK setzen 
Programmendadresse Lo in X-Reg 
Programmendadresse Hi in Y-Reg 
Rücksprung aus dem Unterprogramm 

Prüfe Dateinamen und den 
"Fast Seriell Mode" 

Displ. für FETCH Routine setzen 
Byte des Dateinam. a.bel. Bank holen 
Ist erstes Zeichen ein <$>? 

Ja, dann Rücksprung: RTS 
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F3AA: 

A6 

BA 


LDX 

* $BA 

F3AC: 

A0 

0F 


LDY 

# $0F 

F3AE: 

A9 

00 


LDA 

# $00 

F3B0: 

20 

38 

F7 

JSR 

$F738 

F3B3: 

85 

B7 


STA 

* $B7 

F3B5: 

20 

CO 

FF 

JSR 

SFFC0 

F3B8: 

A6 

B8 


LDX 

* $B8 

F3BA: 

20 

C9 

FF 

JSR 

$FFC9 

F3BD: 

90 

08 


BCC 

$F3C7 

F3BF: 

20 

8C 

F4 

JSR 

$F48C 

F3C2: 

68 



PLA 


F3C3: 

68 



PLA 


F3C4: 

4C 

88 

F6 

JMP 

$F688 

F3C7: 

A0 

03 


LDY 

# $03 

F3C9: 

B9 

OB 

F5 

LDA 

$F50B, Y 

F3CC: 

20 

D2 

FF 

JSR 

$FFD2 

F3CF: 

88 



DEY 


F3D0: 

DO 

F7 


BNE 

$F3C9 

F3D2: 

20 

AE 

F7 

JSR 

$F7AE 

F3D5: 

20 

D2 

FF 

JSR 

$FFD2 

F3D8: 

C8 



I NY 


F3D9: 

C4 

9F 


CPY 

* $9F 

F3DB: 

DO 

F5 


BNE 

$F3D2 

F3DD: 

20 

CC 

FF 

JSR 

$FFCC 

F3E0: 

2C 

IC 

0A 

BIT 

$0A1C 

F3E3: 

70 

05 


BVS 

$F3EA 

F3E5: 

20 

8C 

F4 

JSR 

$F48C 

F3E8: 

38 



SEC 


F3E9: 

60 



RTS 


****************************** 

F3EA: 

A5 

9F 


LDA 

* $9F 

F3EC: 

85 

B7 


STA 

* $B7 

F3EE: 

78 



SEI 


F3EF: 

20 

45 

E5 

JSR 

$E545 

F3F2: 

20 

C3 

E5 

JSR 

$E5C3 

F3F5: 

2C 

0D 

DC 

BIT 

$DC0D 

F3F8: 

20 

03 

F5 

JSR 

$F503 

F3FB: 

20 

BA 

F4 

JSR 

$F4BA 

F3FE: 

C9 

02 


CMP 

# $02 

F400: 

DO 

08 


BNE 

$F40A 

F402: 

20 

8C 

F4 

JSR 

$F48C 

F405: 

68 



PLA 


F406: 

68 



PLA 


F407: 

4C 

85 

F6 

JMP 

$F685 

F40A: 

48 



PHA 


F40B: 

C9 

1 F 


CMP 

# $1F 


Geräteadresse in X-Reg laden 
Sekundäradresse auf (15) setzen 
Logische Dateinummer auf (0) setzen 
Routine SETLFS: Setze Dateiparameter 
Länge des Dateinamens auf 0 setzen 
Kernal OPEN: Datei öffnen 
Logische Dateinummer in X-Reg holen 
Kernal CKOUT: Ausgabekanal setzen 
Kein Fehler, dann weiter 
Logische Datei wieder schließen 
Die RTS Adresse vom Stack entfernen 
Die RTS Adresse vom Stack entfernen 
I/O Error #5 (Device not present) 
Schleifen und Displacementzähler 
Befehlssequenzstring für Floppy 
Kernal BSOUT: Ein Zeichen ausgeben 
Schleife und Displ. um 1 vermindern 
Schleifen bis U0;Chr$(31) an Floppy 
Zeichen des Dateinamens holen 
Kernal BSOUT: Ein Zeichen ausgeben 
Displacement auf Dateiname erhöhen 
Mit Länge d. Dateinamens vergleichen 
Nicht erreicht, nächstes Zeichen 
Kernal CLRCH: E/A Kanäle rücksetzen 
Prüfe den "Fast Seriell Mode" Zeiger 
Schnelle Übertragung möglich, Skip 
Logische Datei wieder schließen 
Kennzeichen für OK setzen 
Rücksprung aus dem Unterprogramm 

LOAD / VERIFY Routinen in Burst Mode 

Zwischenspeicher für Dateinamenlänge 
in Z-Page Zeiger für Dateinamenlänge 
Alle System Interrupts verhindern 
Clock Hi Signal an seriellen Bus 
Rückmeldung vom Bus abwarten 
Löschen des CIA IRQ-Flags 
Clock Lo/Hi Signal invertieren 
Byte vom Bus holen (Transfer Status) 
Prüfe, ob Transfer Status "File not 
found" anzeigt. Nein, dann Skip 
Clock Hi an Bus und Datei schließen 
Die 2 Byte RTS Rücksprungadresse 
vom Stapel löschen 
I/O Error #4 (File not found) 
Gelesenen Transfer Status auf Stack 
Ist es Kennzeichen f. letzten Block? 
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F45F 

F461 

F464 

F466 


DO 

OB 


BNE 

$F41A 

Nein, dann Skip Sonderregelung 

20 

03 

F5 

JSR 

$F503 

Clock Lo/Hi Signal invertieren 

20 

BA 

F4 

JSR 

$F4BA 

Byte v. Bus holen (Block-Byteanzahl) 

83 

A5 


STA 

* $A5 

In Z-Page Bytezahl Schleifenzähler 

AC 

21 

F4 

JMP 

$F421 

Ladeadresse setzen 

C9 

02 


CMP 

# $02 

Prüfe gelesenen Transfer Status 

90 

03 


BCC 

$F421 

Code $01 zeigt OK an. OK, dann Skip 

68 



PLA 


Gesicherten Transfer Status löschen 

BO 

77 


BCS 

SFA98 

Sprung zum "Load Error" Exit 

20 

33 

F5 

JSR 

$F533 

"LOADING"/"VERIFYING" Text ausgeben 

20 

03 

F5 

JSR 

$F503 

Clock Lo/Hi Signal invertieren 

20 

BA 

F4 

JSR 

$FABA 

Byte vom Bus holen (Ladeadresse Lo) 

85 

AE 


STA 

* $AE 

In Z-Page Adreßzeiger Lo sichern 

20 

03 

F5 

JSR 

$F503 

Clock Lo/Hi Signal invertieren 

20 

BA 

FA 

JSR 

$FABA 

Byte vom Bus holen (Ladeadresse Hi) 

85 

Af 


STA 

* $AF 

In Z-Page Adreßzeiger Hi sichern 

A6 

9E 


LDX 

* $9E 

Lade und prüfe gesicherte Sek.adr. 

DO 

08 


BNE 

$FAAO 

Nicht Null, dann Prg. absolut laden 

A5 

C3 


LDA 

* $C3 

LOAD Ladeadresse Lo in Akku holen 

A6 

CA 


LDX 

* $CA 

LOAD Ladeadresse Hi in X-Reg holen 

85 

AE 


STA 

* $AE 

Ladeadresse Lo in Adreßzeiger Lo 

86 

AF 


STX 

* $AF 

Ladeadresse Hi in Adreßzeiger Hi 

AB 

AE 


LDA 

* $AE 

Adreßzeiger Lo in Akku holen 

A6 

AF 


LDX 

* $AF 

Adreßzeiger Hi in X-Reg holen 

85 

AC 


STA 

* $AC 

Akku als Ladeadreßzeiger Lo setzen 

86 

AD 


STX 

* SAD 

X-Reg als Ladeadreßzeiger Hi setzen 

68 



PLA 


Transfer Status v. Stack zurückholen 

09 

1 F 


CMP 

# $1F 

Zeigte Status auf letzten Prg.Block? 

FO 

32 


BEQ 

SF47F 

Ja, dann Skip Standard Blocklänge 

20 

03 

F5 

JSR 

$F503 

Clock Lo/Hi Signal invertieren 

A9 

FC 


LDA 

# SFC 

Datenbytezähler für ersten Block des 

85 

A5 


STA 

* $A5 

zu lesenden Prg.Files auf 252 setzen 

20 

30 

F6 

JSR 

$F63D 

Shift RUN/STOP Tastaturabfrage 

20 

El 

FF 

JSR 

tF FEI 

Kernal STOP: Auf Stop Taste prüfen 

FO 

4A 


BEQ 

JFAA6 

Bei Null Exit durch STOP Taste 

20 

C5 

FA 

JSR 

SFAC5 

Block von Disk lesen und verarbeiten 

BO 

51 


BCS 

$FAB2 

Fehler in Speicheradresse, dann RTS 

20 

BA 

FA 

JSR 

$FABA 

Byte von Bus holen (Transfer-Status) 

C9 

02 


CMP 

U $02 

Prüfe gelesenen Transfer Status 

90 

06 


BCC 

SFA6E 

Code $01 zeigt OK an. OK, dann Skip 

C9 

1F 


CMP 

# $1F 

War es Status für letzten Block? 

FO 

OB 


BEQ 

SFA77 

Ja, dann letzten Block lesen 

DO 

2A 


BNE 

SFA98 

Sprung zum “Load Error" Exit 

20 

03 

F5 

JSR 

SF503 

Clock Lo/Hi Signal invertieren 

A9 

FE 


LDA 

# $FE 

Datenbytezähler für normal zu 

85 

A5 


STA 

* $A5 

lesenden Block auf 25A Bytes setzen 

0 0 

DD 


BNE 

$FA5A 

Unbedingter Sprung in Leseroutine 
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****************************** 


F477 

o 

c\j 

03 

F5 

JSR 

$F503 

F47A 

20 

BA 

F4 

JSR 

$F4BA 

F47D 

85 

A5 


STA 

* $A5 

F47F 

20 

03 

F5 

JSR 

$F503 

F482 

20 

C5 

F4 

JSR 

$F4C5 

F485 

B0 

2B 


BCS 

$F4B2 

F487 

A9 

40 


LDA 

# $40 

F489 

20 

57 

F7 

JSR 

$F757 

****************************** 

F48C 

20 

45 

E5 

JSR 

SE545 

F48F 

58 



CLI 


F490 

A5 

B8 


LDA 

* $B8 

F492 

38 



SEC 


F493 

20 

C3 

FF 

JSR 

$FFC3 

F496 

18 



CLC 


F497 

60 



RTS 


****************************** 

F498 

A9 

02 


LDA 

# $02 

F49A 

20 

57 

F7 

JSR 

$F757 

F49D 

20 

8C 

F4 

JSR 

$F48C 

F4A0 

68 



PLA 


F4A1 

68 



PLA 


F4A2 

A9 

29 


LDA 

# $29 

F4A4 

38 



SEC 


F4A5 

60 



RTS 


****************************** 

F4A6 

20 

8C 

F4 

JSR 

$F48C 

F4A9 

A9 

00 


LDA 

# $00 

F4AB 

85 

B9 


STA 

* $B9 

F4AD 

68 



PLA 


F4AE 

68 



PLA 


F4AF 

4C 

B5 

F5 

JMP 

$F5B5 

****************************** 

F4B2 

20 

8C 

F4 

JSR 

$F48C 

F4B5 

68 



PLA 


F4B6 

68 



PLA 


F4B7 

4C 

97 

F6 

JMP 

$F697 


Letzten Block im Burst Mode lesen 

Clock Lo/Hi Signal invertieren 
Byte v. Bus holen (Block-Byteanzahl) 
In Z-Page Bytezahl Schleifenzähler 
Clock Lo/Hi Signal invertieren 
Block von Disk lesen und verarbeiten 
Fehler in Speicheradresse, dann RTS 
EOF Kennzeichen Code in Akku bringen 
Kernal SETMSG: System Status setzen 

Clock Hi an Bus und Datei schließen 

Clock Hi Signal an seriellen Bus 
Alle System Interrupts freigeben 
Logische Dateinummer in Akku holen 
Carry Flag für CLOSE Routine setzen 
Kernal CLOSE: Datei schließen 
Kennzeichen für OK setzen 
Rücksprung aus dem Unterprogramm 

Allgemeiner "Load Error" Exit 

Fehlercode für Timeout beim Lesen 
Kernal SETMSG: System Status setzen 
Clock Hi an Bus und Datei schließen 
Die auf dem Stapel gesicherte RTS 
Rücksprungadresse wieder löschen 
Fehler Nr. für BASIC-Fehler: "LOAD" 
Setze Kennzeichen f. Fehler gefunden 
Rücksprung aus dem Unterprogramm 

Exit bei STOP-Tasten Unterbrechung 

Clock Hi an Bus und Datei schließen 
Z-Page Zeiger für die aktuelle 
Sekundäradresse auf #0 setzen 
Die auf dem Stapel gesicherte RTS 
Rücksprungadresse wieder löschen 
Routine: Exit durch Break Taste 

Exit bei Fehler in Speicheradresse 

Clock Hi an Bus und Datei schließen 
Die auf dem Stapel gesicherte RTS 
Rücksprungadresse wieder löschen 
Zur Ausgabe des I/O Error's #10 
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F4BA 

A9 

08 


LDA 

# $08 

F4BC 

2C 

0D 

DC 

BIT 

$DC0D 

F4BF 

F0 

FB 


BEQ 

$F4BC 

F4C1 

AD 

OC 

DC 

LDA 

$DC0C 

F4C4 

60 



RTS 


***★★*★*★★★★***★★★★★★***★★★*★★ 

F4C5 

A9 

08 


LDA 

# $08 

F4C7 

2C 

0D 

DC 

BIT 

$DC0D 

F4CA 

F0 

FB 


BEQ 

$F4C7 

F4CC 

AC 

OC 

DC 

LDY 

$DC0C 

F4CF 

AD 

00 

DD 

LDA 

$DD00 

F4D2 

49 

10 


EOR 

# $10 

F4D4 

8D 

00 

DD 

STA 

$DDOO 

F4D7 

98 



TYA 


F4D8 

A4 

93 


LDY 

* $93 

F4DA 

F0 

12 


BEQ 

$F4EE 

F4DC 

85 

BD 


STA 

* $BD 

F4DE 

A0 

00 


LDY 

# $00 

F4E0 

20 

C9 

F7 

JSR 

$F7C9 

F4E3 

C5 

BD 


CMP 

* $BD 

F4E5 

F0 

0A 


BEQ 

$F4F1 

F4E7 

A9 

10 


LDA 

M $10 

F4E9 

20 

57 

F7 

JSR 

$F757 

F4EC 

DO 

03 


BNE 

$F4F1 

F4EE 

20 

BF 

F7 

JSR 

$F7BF 

F4F1 

E6 

AE 


INC 

* $AE 

F4F3 

DO 

08 


BNE 

$F4FD 

F4F5 

E6 

AF 


INC 

* $AF 

F4F7 

A5 

AF 


LDA 

* $AF 

F4F9 

C9 

FF 


CMP 

# $FF 

F4FB 

F0 

05 


BEQ 

$F502 

F4FD 

C6 

A5 


DEC 

* $A5 

F4FF 

DO 

C4 


BNE 

$F4C5 

F501 

18 



CLC 


F502 

60 



RTS 



F503 

AD 

00 

DD 

LDA 

$DD00 

F506 

49 

10 


EOR 

# $10 

F508 

8D 

00 

DD 

STA 

$DD00 

F50B 

60 



RTS 



Ein Datenbyte im Burst Mode lesen 

Kontrollbit für Bus-Interrupt setzen 
Interrupt Steuerregister auslesen 
und ser. Bus Interrupt abwarten 
CIA-Datenpuffer v. ser. Bus auslesen 
Rücksprung aus dem Unterprogramm 

Datenblock im Burst Mode lesen 

Kontrollbit für Bus-Interrupt setzen 
Interrupt Steuerregister auslesen 
und ser. Bus Interrupt abwarten 
CIA-Datenpuffer v. ser. Bus auslesen 
Datenport A des CIA 2 auslesen, das 
Clock Signal entsprechend inver¬ 
tieren und in Port A zurückschreiben 
Gelesenen Datenpuffer in Akku kop. 
Teste Z-Page LOAD / VERIFY Zeiger 
Bei $00 ist es eine LOAD Routine 
Datenbyte für Verify Oper, speichern 
Displacementzeiger für FETCH Routine 
FETCH Routine für LSV Operationen 
Vgl. gelesenes Datenbyte m. Speicher 
Beide gleich, dann OK und weiter 
Nicht gleich, dann Fehler KZ setzen 
Kernal STATUS: System Status setzen 
Skip STASH Routine (für LOAD) 

STASH Routine für LSV Operationen 
Lo-Wert der E-/A- Adresse erhöhen 
Kein Überlauf aufgetreten, Skip 
Hi-Wert der E-/A- Adresse erhöhen 
Prüfe, ob der Hi-Wert der E-/A- 
Adresse in Systemvektortabelle zeigt 
Ja, dann ungültig und Skip nach RTS 
Datenbyte-Zähler um 1 vermindern 
Schleifen, bis alle Bytes gelesen 
Kennzeichen für "alles OK" setzen 
Rücksprung aus dem Unterprogramm 

Clock Signal am Port A invertieren 

Datenport A des CIA 2 auslesen, das 
Clock Signal invertieren und wieder 
in den Port A zurückschreiben 
Rücksprung aus dem Unterprogramm 
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****************************** 


F50C: 1F 30 55 

****************************** 


F50F 

A5 

9D 


LDA 

* $9D 

F511 

10 

1F 


BPL 

$F532 

F513 

A0 

oc 


LDY 

# $0C 

F515 

20 

22 

F7 

JSR 

$F722 

F 518 

A5 

B7 


LDA 

* $B7 

F51A 

F0 

16 


BEQ 

$F532 

F51C 

A0 

17 


LDY 

# $17 

F51E 

20 

22 

F7 

JSR 

$F722 

****************************** 

F521 

A4 

B7 


LDY 

* $B7 

F523 

F0 

0D 


BEQ 

$F532 

F525 

A0 

00 


LDY 

n $oo 

F527 

20 

AE 

F7 

JSR 

$F7AE 

F52A 

20 

D2 

FF 

JSR 

$FFD2 

F52D 

C8 



INY 


F52E 

C4 

B7 


CPY 

* $B7 

F530 

00 

F5 


BNE 

$F527 

F532 

60 



RTS 


****************************** 

F533 

A0 

49 


LDY 

# $49 

F535 

A5 

93 


LDA 

* $93 

F537 

F0 

02 


BEQ 

$F53B 

F539 

A0 

59 


LDY 

# $59 

F53B 

4C 

IE 

F7 

JMP 

$F71E 


****************************** 


F53E 

86 

AE 

STX 

* 

$AE 

F540 

84 

AF 

STY 

* 

$AF 

F542 

AA 


TAX 



F543 

B5 

00 

LDA 

* 

$00, X 

F545 

85 

CI 

STA 

* 

$C1 

F547 

B5 

01 

LDA 

* 

$01,X 

F549 

in 

CO 

C2 

STA 

* 

$C2 

F54B 

6C 

32 03 

JMP 

($0332) 


Steuersequenz an Floppy in negativer 
Reihenfolge. Sendet: U0;Chr$(31) 

<Chr$(31)> <0> <U> 

Steuermeldung "SEARCHING" "FOR" 
<Dateiname> ausgeben 

Zeiger, ob Steuermeldungen erlaubt 
Nicht erlaubt, dann Rücksprung 
Displacement auf "SEARCHING" Text 
Syst.-/Steuermeldung ausgeben 
Länge des Dateinamens in Akku holen 
Länge gleich 0, dann Rücksprung 
Displacement auf "FOR" Text 
Syst.-/Steuermeldung ausgeben 

Dateinamen ausgeben 

Hole Länge des aktuellen Dateinamens 
Länge = 0, dann Skip 
Displacement auf Dateinamen init. 

1 Byte des Dateinamens holen 
Kernal BSOUT: Ein Zeichen ausgeben 
Displ. auf Dateinamenanfang erhöhen 
Vergleiche mit Länge des Datei namens 
Nicht gleich, dann nächstes Zeichen 
Rücksprung aus dem Unterprogramm 

"LOADING"/"VERIFYING" Text ausgeben 

Displacement auf "LOADING" Text 
LOAD-VERIFY KZ aus Z-Page holen 
Wenn LOAD KZ (0), dann ausgeben 
Displacement auf "VERIFY" Text 
Syst.-/Steuermeldung ausgeben 

Kernal Routine: SAVESP 
Abspeichern eines Speicherbereichs 

Lo-Adr von "Speichern bis" sichern 
Hi-Adr von "Speichern bis" sichern 
Z-Page Adresse "Speichern von" n. X 
Hole Z-Page Adresse "Von" Lo-Uert 
und in "Speichern von" Lo sichern 
Hole Z-Page Adresse "Von" Hi-Wert 
und in “Speichern von" Hi sichern 
Vektor zeigt auf SAVESP Rout.($F54E) 
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F54E: 

A5 

BA 


LDA 

* $8A 

Geräteadresse in Akku laden 

F550: 

C9 

01 


CMP 

# $01 

Ist Ausgabeberät die Datasette? 

F552: 

F0 

74 


BEQ 

$F5C8 

Ja, dann in Kassetten Save Routine 

F554: 

C9 

04 


CMP 

# $04 

Geräteadresse kleiner 4? 

F556: 

BO 

09 


BCS 

$F561 

Nein, dann Skip Fehlermeldung 

F558: 

4C 

94 

F6 

JMP 

$F694 

I/O Error #9 (Illegal device number) 

F55B: 

4C 

91 

F6 

JMP 

$F691 

I/O Error #8 (Missing filename) 

F55E: 

4C 

85 

F6 

JMP 

$F685 

I/O Error #4 (File not found) 

F561: 

A4 

B7 


LDY 

* $B7 

Länge des Dateinamens in Y-Reg 

F563: 

FO 

F 6 


BEO 

$F55B 

Länge = 0, dann I/O Error #8 ausgeb. 

F565: 

A9 

61 


LDA 

# $61 

Sekundäradresse auf Print-Write 

F567: 

85 

B9 


STA 

* $B9 

In Z-Page Speicher f.Sekundäradresse 

F569: 

20 

CB 

FO 

JSR 

$FOCB 

Teste Länge und Sekundäradresse 

F56C: 

20 

BC 

F5 

JSR 

$F5BC 

Wenn erlaubt, "SAVING" Msg ausgeben 

F56F: 

A5 

BA 


LDA 

* $BA 

Geräteadresse in Akku laden 

F571: 

20 

3E 

E3 

JSR 

$E33E 

Routine LISTN: LISTN Bef.an ser. Bus 

F574: 

A5 

B9 


LDA 

* $B9 

Sekundäradresse in Akku laden 

F576: 

20 

D2 

E4 

JSR 

$E4D2 

Routine SECND: Sekundäradr. f. LISTN 

F579: 

AO 

00 


LDY 

U $00 

Y-Reg als Displ. auf 0 setzen 

F57B: 

20 

51 

ED 

JSR 

$ED51 

Startadr.v.CI,C2 nach AD,AC kopieren 

F57E: 

20 

03 

E5 

JSR 

$E503 

Routine CIOUT: Byte auf ser. Bus 

F581: 

A5 

AD 


LDA 

* $AD 

Startadresse Hi-Wert speichern 

F583: 

20 

03 

E5 

JSR 

$E503 

Routine CIOUT: Byte auf ser. Bus 

F586: 

20 

B7 

EE 

JSR 

$EEB7 

Subtr.: Startadresse - Endadresse 

F589: 

BO 

10 


BCS 

$F59B 

Endadresse erreicht, dann Exit 

F58B: 

20 

cc 

F7 

JSR 

$F7CC 

Startadresse in FETVEC ablegen 

F58E: 

20 

03 

E5 

JSR 

$E503 

Routine CIOUT: Byte auf ser. Bus 

F591: 

20 

El 

FF 

JSR 

$F FEI 

Kernal STOP: Auf Stop Taste prüfen 

F594: 

FO 

1F 


BEO 

$F5B5 

Wenn gedrückt, SAVESP abbrechen 

F596: 

20 

CI 

EE 

JSR 

$EEC1 

Startadresse ($AC,$AD) um 1 erhöhen 

F599: 

DO 

EB 


BNE 

$F586 

Überlauf im Hi Byte, dann Exit 

F59B: 

20 

26 

E5 

JSR 

$E526 

Routine UNLSN: UNLSN Bef.an ser. Bus 

F59E: 

24 

B9 


BIT 

* $B9 

Teste Bit 7 der Sekundäradresse 

F5A0: 

30 

11 


BMI 

$F5B3 

Ist Bit 7 gesetzt, dann Skip 

F5A2: 

A5 

BA 


LDA 

* $BA 

Geräteadresse in Akku laden 

F5A4: 

20 

3E 

E3 

JSR 

$E33E 

Routine LISTN: LISTN Bef.an ser. Bus 

F5A7: 

A5 

B9 


LDA 

* $89 

Sekundäradresse in Akku laden 

F5A9: 

29 

EF 


AND 

tt $EF 

Untere Tetrade der SA erhalten und 

F5AB: 

09 

EO 


ORA 

n $E0 

über obere CLOSE an Gerät schicken 

F5AD: 

20 

D2 

E4 

JSR 

$E4D2 

Routine SECND: Sekundäradr. f. LISTN 

F5B0: 

20 

26 

E5 

JSR 

$E526 

Routine UNLSN: UNLSN Bef.an ser. Bus 

F5B3: 

18 



CLC 


Kennzeichen für "OK" setzen 

F5B4: 

60 



RTS 


Rücksprung aus dem Unterprogramm 


*★*★*★★**★**★**★***★****★****★ SAVESP Exit durch BrG3k 


F5B5: 20 9E F5 JSR $F59E 
F5B8: A9 00 LDA # $00 


Schreibkanal an Gerät schließen 
Akku mit $00 als KZ laden 
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F5BA: 38 SEC 

F5BB: 60 RTS 

****************************** 


F5BC 

A5 

9D 


LDA 

* $9D 

F5BE 

10 

37 


BPL 

$F5F7 

F5C0 

A0 

51 


LDY 

# $51 

F5C2 

20 

22 

F7 

JSR 

$F722 

F5C5 

4C 

21 

F5 

JMP 

$F521 

****************************** 

F5C8 

20 

80 

E9 

JSR 

$E980 

F5CB 

90 

8B 


BCC 

$F558 

F5CD 

20 

E9 

E9 

JSR 

$E9E9 

F5D0 

B0 

25 


BCS 

$F5F7 

F5D2 

20 

BC 

F5 

JSR 

$F5BC 

F5D5 

A2 

03 


LDX 

# $03 

F5D7 

A5 

B9 


LDA 

* $B9 

F5D9 

29 

01 


AND 

» $01 

F5DB 

DO 

02 


BNE 

$F5DF 

F5DD 

A2 

01 


LDX 

n $oi 

F5DF 

8A 



TXA 


F5E0 

20 

19 

E9 

JSR 

$E919 

F5E3 

B0 

12 


BCS 

$F5F7 

F5E5 

20 

18 

EA 

JSR 

$EA18 

F5E8 

B0 

0D 


BCS 

$F5F7 

F5EA 

A5 

B9 


LDA 

* $B9 

F5EC 

29 

02 


AND 

* $02 

F5EE 

F0 

06 


BEO 

$F5F6 

F5F0 

A9 

05 


LDA 

« $05 

F5F2 

20 

19 

E9 

JSR 

$E919 

F5F5 

24 



.Byte $24 

F5F6 

18 



CLC 


F5F7 

60 



RTS 


****************************** 


F5F8 

E6 A2 

INC 

* $A2 

F5FA 

DO 06 

BNE 

$F602 

F5FC 

E6 AI 

INC 

* $A1 

F5FE 

DO 02 

BNE 

$F602 

F600 

E6 A0 

INC 

* $A0 

F602 

38 

SEC 


F603 

A5 A2 

LDA 

* $A2 


Carry für Break / Fehler KZ setzen 
Rücksprung aus dem Unterprogramm 

Prüfe, ob SAVING Steuermeldung 
ausgegeben werden kann 

Prüfe, ob Steuermeldungen erlaubt 
Nicht erlaubt, dann Rücksprung 
Displ. auf "SAVING" Meldung in Y-Reg 
"SAVING" Meldung ausgeben 
und Dateiname ausgeben: RTS 

SAVE Routine für Datasette 

Kassettenpufferzeiger in X+Y Reg 
Page 0,1 nicht erlaubt: I/O Error #9 
Warten auf "Record & Play" Tasten 
STOP, dann Abbruch 
Wenn erlaubt, "SAVING" Msg ausgeben 
Header Typ 3= Maschinenprg (absolut) 
Sekundäradresse in Akku laden 
Teste, ob Bit 0 gesetzt 
Ja, dann Maschinenprogramm 
Header Typ 1= BASIC-Prg 
Header Typ in Akku kopieren 
und Header auf Band schreiben 
Exit, wenn Stop Taste gedrückt 
Programm auf Kassette speichern 
Exit, wenn Stop Taste gedrückt 
Sekundäradresse in Akku laden 
Prüfe, ob Bit 1 gesetzt ist 
nicht gesetzt, dann "OK" Exit 
Code für EOT Kontrollbyte in Akku 
und Block auf Band schreiben 
Skip nach $F5F7 
Kennzeichen für "OK" setzen 
Rücksprung aus dem Unterprogramm 

Kernal Routine: UDTIM 
Update der internen 24h Uhr 

Lo Byte der 24 Stunden System Uhr +1 
Kein Überlauf,Skip Überlaufkorrektur 
Mi Byte der 24 Stunden System Uhr +1 
Kein Überlauf,Skip Überlaufkorrektur 
Hi Byte der 24 Stunden System Uhr +1 
Carry für Subtraktion setzen 
Durch Subtraktion der entsprechenden 
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F605: 

E9 

01 


SBC 

# *01 

Werte wird hier geprüft, ob die 

F607: 

A5 

AI 


LDA 

* SA1 

interne 24 Stunden System Uhr in 

F609: 

E9 

1A 


SBC 

# $1A 

den Bytes *A0-*A1-*A2 auf die 

F60B: 

A5 

AO 


LDA 

* SAO 

Uhrzeit 24.00.00 gesetzt wurde, da 

F60D: 

E9 

4F 


SBC 

# *4F 

in diesem Falle die 3 Bytes wieder 

F60F: 

90 

08 


BCC 

$F619 

neu initialisiert werden müssen. 

F611: 

A2 

00 


LDX 

# *00 

24 Stunden System Uhr auf 00.00.00 

F613: 

86 

AO 


STX 

* SAO 

Zero-Page Byte für System Uhr High 

F615: 

86 

AI 


STX 

* SAl 

Zero-Page Byte für System Uhr Middle 

F617: 

86 

A2 


STX 

* *A2 

Zero-Page Byte für System Uhr Low 

F619: 

AD 

ID 

OA 

LDA 

tOAID 

Prüfe Zwischenspeicher f. 24h Uhr Lo 

F61C: 

DO 

OB 


BNE 

*F629 

Nicht Null, dann nur Lo Wert -1 

F61E: 

AD 

IE 

OA 

LDA 

tOAIE 

Prüfe Zwischenspeicher f. 24h Uhr Mi 

F621: 

DO 

03 


BNE 

*F626 

Nicht Null, dann nur Lo und Mi -1 

F623: 

CE 

1F 

OA 

DEC 

*0A1F 

Zwischenspeicher für 24h Uhr Hi -1 

F626: 

CE 

IE 

OA 

DEC 

S0A1E 

Zwischenspeicher für 24h Uhr Mi -1 

F629: 

CE 

ID 

OA 

DEC 

S0A1D 

Zwischenspeicher für 24h Uhr Lo -1 

F62C: 

2C 

03 

OA 

BIT 

S0A03 

Teste PAL / NTSC Zeiger 

F62F: 

10 

OC 


BPL 

*F63D 

Bei "plus" ist es ein NTSC System 

F631: 

CE 

36 

OA 

DEC 

S0A36 

Rasterzeilen Zeilenzeiger -1 

F634: 

10 

07 


BPL 

*F63D 

Noch nicht Null, dann Skip Initial. 

F636: 

A9 

05 


LDA 

# *05 

System-Zeiger f. Rasterzeile, an der 

F638: 

8D 

36 

OA 

STA 

S0A36 

Interrupt ausgelöst wird mit 5 init. 

F63B: 

DO 

BB 


BNE 

*F5F8 

Unbed. Sprung in neuen UDTIM Aufruf 

****************************** 

Tastaturabfrage Reihenauswahl auf 







RUN/STOP und SHIFT Tasten 

F63D: 

AD 

01 

DC 

LDA 

*DC01 

Port B für Tastaturmatrixspalten 

F640: 

CD 

01 

DC 

CMP 

SDC01 

auslesen und warten, bis Tastatur¬ 

F643: 

DO 

F8 


BNE 

SF63D 

matrix entprellt ist 

F645: 

AA 



TAX 


Gelesenen Tastencode nach X-Reg und 

F646: 

30 

13 


BMI 

*F65B 

Skip, wenn RUN/STOP gedrückt ist 

F648: 

A2 

BD 


LDX 

# *BD 

Bitmuster für SHIFT Reihenauswahl 

F64A: 

8E 

00 

DC 

STX 

tocoo 

In Port A für Matrixzeilenauswahl 

F64D: 

AE 

01 

DC 

LDX 

*DC01 

Port B für Tastaturmatrixspalten 

F650: 

EC 

01 

DC 

CPX 

*DC01 

auslesen und warten, bis Tastatur¬ 

F653: 

DO 

F8 


BNE 

*F64D 

matrix entprellt ist 

F655: 

80 

00 

DC 

STA 

SDCOO 

In Port A für Matrixzeilenauswahl 

F658: 

E8 



INX 


Gelesenen Wert um 1 erhöhen 

F659: 

DO 

02 


BNE 

*F65D 

Keine der beiden Shift-Tasten, Skip 

F65B: 

85 

91 


STA 

* *91 

Z-Page Stop / RVS Zeiger neu setzen 

F65D: 

60 



RTS 


Rücksprung aus dem Unterprogramm 


****************************** Kernal Routine: ROT IH 

24 Stunden System-Uhr lesen 


F65E: 78 


SEI 


Alle System Interrupts verhindern 
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F65F: 

A5 

A2 

LDA 

* $A2 

F661: 

A6 

AI 

LDX 

* $A1 

F663: 

A4 

A0 

LDY 

* $A0 


****************************** 


F665 

78 

SEI 


F666 

85 A2 

STA 

* $A2 

F668 

86 AI 

STX 

* $A1 

F66A 

84 A0 

STY 

* $A0 

F66C 

58 

CLI 


F66D 

60 

RTS 



★***★★★****★★******★*★★**★**** 


F66E 

A5 

91 

LDA 

* $91 

F670 

C9 

7F 

CMP 

U $7F 

F672 

DO 

07 

BNE 

$F67B 

F674 

08 


PHP 


F675 

20 

CC FF 

JSR 

$FFCC 

F678 

85 

DO 

STA 

* $D0 

F67A 

28 


PLP 


F67B 

60 


RTS 



****************************** 


F67C: 

A9 01 

LDA U 

$01 

F67E: 

2C 

.Byte 

$2C 

F67F: 

A9 02 

LDA U 

$02 

F681: 

2C 

.Byte 

$2C 

F682: 

A9 03 

LDA U 

$03 

F684: 

2C 

.Byte 

$2C 

F685: 

A9 04 

LDA U 

$04 

F687: 

2C 

.Byte 

$2C 

F688: 

A9 05 

LDA U 

$05 

F68A: 

2C 

• Byte 

$2C 

F68B: 

A9 06 

LDA U 

$06 

F68D: 

2C 

.Byte 

$2C 

F68E: 

A9 07 

LDA U 

$07 

F690: 

2C 

.Byte 

$2C 

F691: 

A9 08 

LDA U 

$08 

F693: 

2C 

■ Byte 

$2C 

F694: 

A9 09 

LDA U 

$09 

F696: 

2C 

.Byte 

$2C 

F697: 

A9 10 

LDA U 

$10 

F699: 

48 

PHA 



Z-Page Byte für System-Uhr Low 

Z-Page Byte für System-Uhr Middle 

Z-Page Byte für System-Uhr High 

Kernal Routine: SETTIM 

24 Stunden System Uhr-setzen 

Alle System Interrupts verhindern 
Z-Page Byte für System-Uhr Low 
Z-Page Byte für System-Uhr Middle 
Z-Page Byte für System-Uhr High 
Alle System Interrupts freigeben 
Rücksprung aus dem Unterprogramm 

Kernal Routine: STOP 

Auf gedrückte STOP Taste prüfen 

Z-Page Speicher f. STOP Flag holen 
Wurde STOP Taste gedrückt? 

Nein, Rücksprung mit Equal Flag 0 
Status des Equal Flag retten 
Kernal CLRCH: E/A Kanäle rücksetzen 
Z-Page Tastaturpuffer Zeiger löschen 
Status des Equal Flag zurückholen 
Rücksprung aus dem Unterprogramm 

I/O Error Message ausgeben 

I/O Error #1 (Too many files) 

Skip nach $F681 

I/O Error UZ (File open) 

Skip nach $F684 

I/O Error UZ (Fite not open) 

Skip nach $F687 

I/O Error #4 (File not found) 

Skip nach $F68A 

I/O Error US (Device not present) 

Skip nach $F68D 

I/O Error #6 (Not input file) 

Skip nach $F690 

I/O Error U7 (Not output file) 

Skip nach $F693 

I/O Error #8 (Missing filename) 

Skip nach $F696 

I/O Error U9 (Illegal device number) 
Skip nach SF699 

I/O Error #0 (Break by STOP Key) 

I/O Error-Code auf Stack sichern 
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F69A: 

20 

CC 

FF 

JSR 

$FFCC 

F69D: 

A0 

00 


LDY 

# $00 

F69F: 

24 

9D 


BIT 

* $9D 

F6A1: 

50 

0A 


BVC 

$F6AD 

F6A3: 

20 

22 

F7 

JSR 

$F722 

F6A6: 

68 



PLA 


F6A7: 

48 



PHA 


F6A8: 

09 

30 


ORA 

# $30 

F6AA: 

20 

02 

FF 

JSR 

$FFD2 

F6AD: 

68 



PIA 


F6AE: 

38 



SEC 


F6AF: 

60 



RTS 



****************************** 


F6B0 

0D 

49 

2F 

4F 

20 

45 

52 

52 

F6B8 

4F 

52 

20 

A3 





FCBC 

0D 

53 

45 

■'.1 

52 

43 

48 

49 

F6C4 

4E 

47 

All 






F6C7 

46 

4F 

52 

A0 





F6CB 

0D 

50 

52 

45 

53 

53 

20 

50 

F603 

4C 

41 

59 

20 

4F 

4E 

20 

54 

F6DB 

41 

50 

C5 






F6DE 

50 

52 

45 

53 

53 

20 

52 

45 

F6E6 

43 

4F 

52 

44 

20 

26 

20 

50 

F6EE 

4C 

41 

59 

20 

4F 

4E 

20 

54 

F6F6 

41 

50 

C5 






F6F9 

00 

4C 

4F 

41 

44 

49 

4E 

C7 

F701 

0D 

53 

41 

56 

49 

4E 

47 

A0 

F709 

0D 

56 

45 

52 

49 

46 

69 

49 

F711 

4E 

C7 







F713 

00 

46 

4F 

55 

4E 

44 

A0 


F 71A 

00 

4F 

4B 

80 






****************************** 


F71E 

24 

9D 


BIT 

* $90 

F720 

10 

00 


BPL 

$F72F 

F722 

B9 

BU 

F6 

LOA 

$F6B0,Y 

F725 

08 



PHP 


F726 

29 

7F 


AND 

# $7F 

F728 

20 

02 

FF 

JSR 

$FFD2 

F72B 

C8 



I NY 


F72C 

28 



PLP 


F72D 

10 

F3 


BPL 

$F722 

F72F 

18 



CLC 



Kernal CLRCH: E/A Kanäle rücksetzen 
Displacement auf I/O Error Meldung 
Prüfe, ob System-Meldüngen erlaubt 
Nicht erlaubt, dann Exit 
Rout ine:Syst/Steuermeldungen ausgeb. 
Error Code Nummer in Akku holen 
und wieder auf Stack sichern 
ASCII Wert des Error-Codes erzeugen 
Kernal BSOUT: Ein Zeichen ausgeben 
Error-Code vom Stack löschen 
Carry Flag als Kennzeichen setzen 
Rücksprung aus dem Unterprogramm 

Tab. der System- und Steuermeldungen 
In Klammern der Offset zum Anfang 


<Cr> 

I/O ERROR # 


($00) 

<Cr> 

SEARCHING 


($0C) 

FOR 



($17) 

<Cr> 

PRESS PLAY ON 

TAPE 

($1B) 

PRESS 

RECORD & PLAY 

ON TAPE 

($2E) 


<Cr> 

LOAD ING 

($49) 

<Cr> 

SAVING 

($51) 

<Cr> 

VERIFYING 

($59) 

<Cr> 

FOUND 

($63) 

<Cr> 

OK <Cr> 

($6A) 


Syst-/Steuermeldung ausgeben 

Prüfe, ob Ausgabe erlaubt 
Nein, dann Exit 

Byte aus Meldungstabelle lesen 
und auf dem Stapel sichern 
Bit 7 ausblenden, keine RVS Zeichen 
Kernal BSOUT: Ein Zeichen ausgeben 
Displ. auf nächstes Zeichen setzen 
Zeichen vom Stapel zurückholen 
Bit 7 gesetzt ist Ende Kennzeichen 
Carry als 'ausgegeben' KZ löschen 
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F730: 60 RTS 

****************************** 


F731: 

85 B7 

STA 

* $B7 

F733: 

86 BB 

STX 

* $BB 

F735: 

84 BC 

STY 

* $BC 

F737: 

60 

RTS 



****************************** 


F738: 

85 B8 

STA 

* $B8 

F73A: 

86 BA 

STX 

* $BA 

F73C: 

84 B9 

STY 

* $B9 

F73E: 

60 

RTS 



****************************** 


F73F: 

85 

C6 

STA 

* $C6 

F741: 

86 

C7 

STX 

* $C7 

F743: 

60 


RTS 



****************************** 


F744 

A5 

BA 


LDA 

* $BA 

F746 

C9 

02 


CMP 

# $02 

F748 

DO 

OB 


BNE 

$F755 

F74A 

AD 

14 

0A 

LDA 

$0A14 

F74D 

48 



PHA 


F74E 

A9 

00 


LDA 

# $00 

F750 

8D 

14 

0A 

STA 

$0A14 

F753 

68 



PLA 


F754 

60 



RTS 



****************************** 


F755: 

A5 90 

LDA 

* $90 

F757: 

05 90 

ORA 

* $90 

F759: 

85 90 

STA 

* $90 

F75B: 

60 

RTS 



****************************** 


STA * $90 


Rücksprung aus dem Unterprogramm 

Kernal Routine: SETNAM 
Parameter für Dateinamen setzen 

Z-Page Byte für Länge d. Datei namens 
Z-Page 8yte für Dateinamen Adr-Lo 
Z-Page Byte für Dateinamen Adr-Hi 
Rücksprung aus dem Unterprogramm 

Kernal Routine: SETLFS 

Setzen der logischen Dateiparameter 

Z-Page Byte für logische Dateinummer 
Z-Page Byte für Geräteadresse 
Z-Page Byte für Sekundäradresse 
Rücksprung aus dem Unterprogramm 


Bank Nr. f. aktuellen LSV Aufruf 
Bank Nr. f. aktuellen Dateinamen 
Rücksprung aus dem Unterprogramm 

Kernal Routine: READST 
System Statuswort lesen 

Geräteadresse in Akku laden 
Uird die RS-232 angesprochen 
Nein, dann normalen Status holen 
RS-232 Status holen 
und auf dem Stapel sichern 
Akku mit $00 laden und in RS-232 
Status als alles OK KZ bringen 
RS-232 Status v. Stack zurückholen 
Rücksprung aus dem Unterprogramm 

Status auf System Status abstimmen 

System Status in Akku laden 
Akku mit System Status verknüpfen 
In Z-Page f. Status bringen 
Rücksprung aus dem Unterprogramm 

Kernal Routine: SETMSG 

System-/Steuermeldungen ermöglichen 

Z-Page Byte für Syst/Steuermeldungen 


Kernal Routine: SETBNK 


F75C: 85 9D 
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F75E: 60 RTS 


F75F: 80 OE OA STA $OAOE 

F762: 60 RTS 

★ ★★★★★**■*•****★★★*★★★★*★★★*★**★ 


F763 

90 

06 


BCC 

$F76B 

F765 

AE 

07 

0A 

LDX 

$0A07 

F768 

AC 

08 

0A 

LDY 

$0A08 

F76B 

8E 

07 

0A 

STX 

$0A07 

F76E 

8C 

08 

0A 

STY 

$0A08 

F771 

60 



RTS 





F772 

90 

06 


BCC 

$F77A 

F774 

AE 

05 

0A 

LDX 

$0A05 

F777 

AC 

06 

0A 

LDY 

$0A06 

F77A 

8E 

05 

0A 

STX 

$0AO5 

F77D 

8C 

06 

0A 

STY 

$0A06 

F780 

60 



RTS 



****************************** 


F 781: 

A2 00 

LDX 

# 

100 

F783: 

A0 DO 

LDY 

U 

$D0 

F785: 

60 

RTS 




A***************************** 


F786 

98 



TYA 


F787 

A6 

98 


LDX 

* $98 

F789 

CA 



DEX 


F78A 

30 

0F 


BMI 

$F79B 

F78C 

DD 

76 

03 

CMP 

$0376,X 

F78F 

DO 

F8 


BNE 

$F789 

F 791 

20 

12 

F2 

JSR 

$F212 

F794 

AA 



TAX 


F795 

A5 

B8 


LDA 

* $B8 

F797 

A4 

B9 


LDY 

* $B9 


Rücksprung aus dem Unterprogramm 

Kernal Routine: SETTMO 
Um Timeout in IEEE Routinen zu 
ermöglichen, Bit 7 im Akku auf 1 

Akku Inhalt in IEEE Timeout Flag 
Rücksprung aus dem Unterprogramm 

Kernal Routine: MEMTOP 

Setzen d. oberen Speicherendezeigers 

Carry 0 = setzen / Carry 1 = lesen 
Lo-Adr des RAM Endes in Syst. Bank 
Hi-Adr des RAM Endes in Syst. Bank 
Lo-Adr des RAM Endes in Syst. Bank 
Hi-Adr des RAM Endes in Syst. Bank 
Rücksprtng aus dem Unterprogramm 

Kernal Routine: MEMBOT 

Unteren Speicherendezeiger setzen 

Carry 0 == setzen / Carry 1 = lesen 
Lo-Adr des RAM Anfangs in Syst. Bank 
Hi-Adr des RAM Anfangs in Syst. Bank 
Lo-Adr des RAM Anfangs in Syst. Bank 
Hi-Adr des RAM Anfangs in Syst. Bank 
Rücksprung aus dem Unterprogramm 

Kernal Routine: IOBASE 

Adresse Lo d. I/O Bereichs übergeben 
Adresse Hi d. I/O Bereichs übergeben 
Rücksprung aus dem Unterprogramm 

Kernal Routine: LKUPSA 
Suche in SA-Tabelle nach SA 

Die zu suchende SA in Akku bringen 
Zahl der offenen Dateien holen 
Um 1 vermindern,da als Index benutzt 
Alle Vergleiche negativ, dann Exit 
Mit Byte aus SA-Tabelle vergleichen 
Nicht gefunden, nächster Vergleich 
LFN,GA,SA entsp. X-Reg a. Tab holen 
Gefundene GA in X-Reg kopieren 
Logische Dateinummer in Akku holen 
Sekundäradresse in Y-Reg holen 
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F799: 18 CLC 

F79A: 60 RTS 

****************************** 

F79B: 38 SEC 

F79C: 60 RTS 

****************************** 


F79D: 

AA 



TAX 


F79E: 

20 

02 

F2 

JSR 

SF202 

F7A1: 

F0 

EE 


BEQ 

SF791 

F7A3: 

DO 

F6 


BNE 

SF79B 

****************************** 

F7A5: 

BD 

F0 

F7 

LDA 

$F7F0,X 

F7A8: 

29 

FE 


AND 

# $FE 

F7AA: 

AA 



TAX 


F7AB: 

4C 

F0 

03 

JMP 

S03F0 


****************************** 


F7AE: 

8E 

35 

OA 

STX 

S0A35 

F7B1: 

A6 

C7 


LDX 

* $C7 

F783: 

A9 

BB 


LDA 

# $BB 

F7B5: 

20 

DO 

F7 

JSR 

SF7D0 

F7B8: 

AE 

35 

0A 

LDX 

$0A35 

F7BB: 

60 



RTS 



****************************** 


F7BC 

A2 

AC 


LDX 

# $ac 

F7BE 

2C 



.Byte $2C 

F7BF 

A2 

AE 


LDX 

# $AE 

F7C1 

8E 

B9 

02 

STX 

S02B9 

F7C4 

A6 

C6 


LDX 

* $C6 

F7C6 

4C 

DA 

F7 

JMP 

$F7DA 


****************************** 


F7C9: 

A9 AE 

LDA # 

> 

m 

F7CB: 

2C 

.Byte 

$2C 

F7CC: 

A9 AC 

LDA # 

$AC 

F7CE: 

A6 C6 

LDX * 

$C6 


Carry gelöscht = KZ für gefunden 
Rücksprung aus dem Unterprogramm 

Exit aus LKUPSA bei "nicht gefunden" 

Carry gesetzt = KZ f. nicht gefunden 
Rücksprung aus dem Unterprogramm 

Kernal Routine: LKUPLA 
Suche in LFN-Tabelle nach LFN 

Zu suchenden LFN Wert in X sichern 
Status OK setzen, LFN Tabelle suchen 
Gefunden, Update der Z-Page, Exit 
Nicht gefunden, Exit mit Fehler KZ 


X indiz. Wert aus Config.Tab holen 
Bit 0 ausblenden (I/O v. D000-DFFF) 
Config Wert nach X-Reg kopieren 
Sprung zur Lo-Bank DMA Routine 

FETCH für Zeichen aus Dateinamen 

Inhalt des X-Reg sichern 
Bank Nr.f.akt.Dateinamen bei (BB,BC) 
$BB für FETVEC in Akku bringen 
Rout. INDFET: LDA(fetvec),Y bei.Bank 
Alten Inhalt X-Reg zurückholen 
Rücksprung aus dem Unterprogramm 

STASH Routine für LSV Operationen 

Pointer auf LSV E/A Adresse 1 (Lo) 
Skip nach SF7C1 

Pointer auf LSV E/A Adresse 2 (Lo) 
Inhalt d. X-Reg in STAVEC bringen 
Bank Nr. d. aktuellen LSV Aufrufs 
Rout. INDSTA: STA(stavec),Y bei.Bank 

FETCH Routine für LSV Operationen 

Pointer auf LSV E/A Adresse 1 (Lo) 
Skip nach $F7CE 

Pointer auf LSV E/A Adresse 2 (Lo) 
Bank Nr. d. aktuellen LSV Aufrufs 


Kernal Routine: DMA-CALL 






Das Kernal-ROM 


351 


****************************** 

Vorbereitung der FETCH Routine 

F7D0 

8D 

AA 

02 STA S02AA 

Akku Inhalt in FETVEC ablegen 

F7D3 

BD 

FO 

F7 LDA $F7F0,X 

Den mit X bestimmten Configuration 

F7D6 

AA 


TAX 

Wert a. Tab. laden und nach X-Reg 

F7D7 

4C 

A2 

02 JMP S02A2 

FETCH Rout.: LDA von beliebiger Bank 

****************************** 

Vorbereitung der STASH Routine 

F7DA 

48 


PHA 

Akku Inhalt für STA Befehl sichern 

F7DB 

BD 

FO 

F7 LDA $F7F0,X 

Den mit X bestimmten Configuration 

F7DE 

AA 


TAX 

Wert a. Tab. laden und nach X-Reg 

F7DF 

68 


PLA 

Akku Inhalt für STA Befehl laden 

F7E0 

4C 

AF 

02 JMP S02AF 

STASH Routine: STA in beliebige Bank 

****************************** 

Vorbereitung der CMPFAR Routine 

F7E3 

48 


PHA 

Akku Inhalt für Vergleich sichern 

F7E4 

BD 

FO 

F7 LDA $F7F0,X 

Den mit X bestimmten Configuration 

F7E7 

AA 


TAX 

Uert a. Tab. holen und nach X-Reg 

F7E8 

68 


PLA 

Akku Inhalt für Vergleich holen 

F7E9 

4C 

BE 

02 JMP S02BE 

CMPARE Routine: CMP mit belieb. Bank 

****************************** 

Kernal Routine: GETCFG 





Mit X definierten Config. Wert laden 

F7EC 

BD 

FO 

F7 LDA $F7F0,X 

Mit X definierten Config. Wert laden 

F7EF 

60 


RTS 

Rücksprung aus dem Unterprogramm 

****************************** 

Configuration Tabelle für 





alle ■FAR' Operationen 

F7F0 

3F 


(X 0011 1111) 

Bit 0: 0 = I/O Area $D000 - $DFFF 

F7F1 

7F 


(X 0111 1111) 

1 = RAM/ROM Bereich 

F7F2 

BF 


(X 1011 1111) 

Bit 1: 0 = ROM in $4000 • $7FFF 

F7F3 

FF 


(X 1111 1111) 

1 = RAM in $4000 • $7FFF 

F7F4 

16 


(X 0001 0110) 

Bit 3,2: 00 = System ROM $8000-$BFFF 

F7F5 

56 


(X 0101 0110) 

01 = Intern. Funktion ROM 

F7F6 

96 


(X 1001 0110) 

10 = Extern. Funktion ROM 

F7F7 

D6 


(X 1101 0110) 

11 = RAM Bereich 

F7F8 

2A 


(X 0010 1010) 

Bit 5,4: 00 = System ROM $C000-$FFFF 

F7F9 

6A 


(X 0110 1010) 

01 = Intern. Funktion ROM 

F7FA 

AA 


(X 1010 1010) 

10 = Extern. Funktion ROM 

F7FB 

EA 


(% 1110 1010) 

11 = RAM Bereich 

F7FC 

06 


(X 0000 0110) 

Bit 7,6: 00 = RAM Bank 0 

F7FD 

0A 


(X 0000 1010) 

01 = RAM Bank 1 

F7FE 

01 


(X 0000 0001) 

10 = RAM Bank 2 (Bank 0) 

F7FF 

00 


(% 0000 0000) 

11 = RAM Bank 3 (Bank 1) 
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*******★*★****★*★*★**★★★****★★ 


F800 

AD 

00 

FF 

LDA 

$FF00 

F803 

8E 

00 

FF 

STX 

$FF00 

F806 

AA 



TAX 


F807 

Bl 

FF 


LDA 

($FF) ,Y 

F809 

LU 

CO 

00 

FF 

STX 

$FF00 

F80C 

60 



RTS 



*★*******★******★★*★★★*★★★★*★* 


F80D: 

48 



PHA 


F80E: 

AD 

00 

FF 

LDA 

$FF00 

F811: 

LU 

CO 

00 

FF 

STX 

$FF00 

F814: 

AA 



TAX 


F815: 

68 



PLA 


F816: 

91 

FF 


STA 

($FF),Y 

F818: 

8E 

00 

FF 

STX 

$FF00 

F81B: 

60 



RTS 



★ ★•Ar*************************** 


F81C 

48 



PHA 


F81D 

AD 

00 

FF 

LDA 

$FF00 

F820 

8E 

00 

FF 

STX 

$FF00 

F823 

AA 



TAX 


F824 

68 



PLA 


F825 

Dl 

FF 


CMP 

($FF),Y 

F827 

8E 

00 

FF 

STX 

$FF00 

F82A 

60 



RTS 



F82B 

20 

E3 

02 

JSR 

S02E3 

F82E 

85 

06 


STA 

* $06 

F830 

86 

07 


STX 

* $07 

F832 

84 

08 


STY 

* $08 

F834 

08 



PHP 


F835 

68 



PLA 


F836 

85 

05 


STA 

* $05 

F838 

BA 



TSX 


F839 

86 

09 


STX 

* $09 

F83B 

A9 

00 


LDA 

# $00 

F83D 

8D 

00 

FF 

STA 

$FF00 

F840 

60 



RTS 



ROM Kopie der FETCH Routine ($02A2) 

Aktuellen Config. Wert in A retten 
Neuen Config. Wert über X setzen 
Alten Wert nach X transferieren 
!!! LDA (Fetvec) ,Y 
Alte Config. wiederherstellen 
Rücksprung aus dem Unterprogramm 

ROM Kopie der STASH Routine ($02AF) 

Akku Inhalt für STA retten 
Aktuellen Config. Wert in A retten 
Neuen Config. Wert über X setzen 
Alten Wert nach X transferieren 
Den STA Wert wieder zurückholen 
m STA (Stavec) ,Y 
Alte Config. wiederherstellen 
Rücksprung aus dem Unterprogramm 

ROM Kopie der CMPARE Routine ($02BE) 

Vergleichswert für CMP retten 
Aktuellen Config. Wert in A retten 
Neuen Config. Wert über X setzen 
Alten Wert nach X transferieren 
CMP Vergleichswert zurückholen 
!!! CMP (Cmpvec) ,Y 
Alte Config. wiederherstellen 
Rücksprung aus dem Unterprogramm 

ROM Kopie der JSRFAR Routine ($02CD) 

JMPFAR Rout.: JMP in beliebige Bank 
Akku in Z-Page Akku Speicher retten 
X-Reg in Z-P. X-Reg Speicher retten 
Y-Reg in Z-P. Y-Reg Speicher retten 
Prozessor Status auf Stack retten 
Status in Akku zurückholen 
u. in Z-Page Status Speicher retten 
Stack Pointer Zeiger über X-Reg 
in Z-P Stack Pointer Speicher retten 
Configuration Register mit $00 laden 
und alle System ROMs einschalten 
Rücksprung aus dem Unterprogramm 
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F841 

A2 

00 


LDX 

# $00 

F843 

B5 

03 


LDA 

* $03,X 

F845 

48 



PHA 


F846 

E8 



I NX 


F847 

E0 

03 


CPX 

# $03 

F849 

90 

F8 


BCC 

$F843 

F84B 

A6 

02 


LDX 

* $02 

F84D 

20 

68 

FF 

JSR 

$FF6B 

F850 

8D 

00 

FF 

STA 

$FF00 

F853 

A5 

06 


LDA 

* $06 

F855 

A6 

07 


LDX 

* $07 

F857 

A4 

08 


LDY 

* $08 

F859 

40 



RTI 


★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

F85A 

AE 

00 

FF 

LDX 

$F F00 

F85D 

8C 

01 

DF 

STY 

$DF01 

F860 

8D 

00 

FF 

STA 

$FF00 

F863 

8E 

00 

FF 

STX 

$FF00 

F866 

60 



RTS 



**★*★*★★********★**★★★*★****★* 


ROM Kopie der JMPFAR Routine ($02E3) 

In dieser Schleife werden die in 
der Zero-Page (Bytes $03-$04-$05) 
abgelegten Werte für den Programm- 
Zähler und den Prozessor Status auf 
den Stack gebracht, da diese für den 
RTI am Ende d. Rout, benötigt werden 
Bank-Zeiger für Config.-Displ. laden 
Kernal GETCFG: Config. Wert aus Tab. 
Config. Register entsprechend setzen 
Zero-Page Akku Speicher holen 
Zero-Page X-Reg Speicher holen 
Zero-Page Y-Reg Speicher holen 
Sprung an d. Program-Counter Adresse 


Hole Configuration Register in X-Reg 
DMA-Controller Steuerregister setzen 
Config. Reg. mit Akku Inhalt laden 
Config. Reg. mit X-Reg Inhalt laden 
Rücksprung aus dem Unterprogramm 


Kernal Routine: PHOENIX 
Alle Kalt-Start Routinen 


Kopie der Routine in ($03F0) 


F867 

78 



SEI 


F868 

A2 

03 


LDX 

# $03 

F86A 

8E 

CO 

0A 

STX 

$0AC0 

F86D 

AE 

CO 

0A 

LDX 

$0AC0 

F870 

BD 

CI 

0A 

LDA 

$0AC1,X 

F873 

F0 

11 


BEQ 

$F886 

F875 

A0 

00 


LDY 

U $00 

F877 

BD 

BC 

E2 

LDA 

$E2BC,X 

F87A 

85 

03 


STA 

* $03 

F87C 

84 

04 


STY 

* $04 

F87E 

BD 

CO 

E2 

LDA 

$E2C0,X 

F881 

85 

02 


STA 

* $02 

F883 

20 

CD 

02 

JSR 

$02CD 

F886 

CE 

CO 

0A 

DEC 

$0AC0 

F889 

10 

E2 


BPL 

$F86D 

F88B 

58 



CU 


F88C 

A2 

08 


LDX 

# $08 

F88E 

A9 

50 


LDA 

tt $30 

F890 

LH 

CO 

BF 


STA 

* $BF 


Alle System Interrupts verhindern 
Bank und Displacementzeiger für 
externe Karten auf #3 initialisieren 
Displacementzeiger in X-Reg holen 
Prüfe ID-Tabelle für Modulplätze 
Tab.-Eintrag = 0: Nicht "Logged in" 
Einsprungadresse Lo auf $00 setzen 
Hole Einsprungadresse Hi aus Tabelle 
Sichere Einsprungadresse Hi im PC-Hi 
Sichere Einsprungadresse Lo im PC-Lo 
Hole Bank-Wert aus Bank-Tabelle und 
sichere ihn im Z-Page Bank-Speicher 
JSRFAR Rout.: JSR beiiebig.Bank +RTS 
Displacementzeiger um 1 vermindern 
Alle 4 Modulbereiche abprüfen 
Alle System Interrupts freigeben 
Geräteadr. f. BOOT-Load v. Floppy 8 
Akku mit Zeichen <0> laden 
Z-Page Byte für seriellen Buffer 
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892: 

86 

BA 


STX 

* $BA 

894: 

8A 



TXA 


895: 

20 

3D 

F2 

JSR 

$F23D 

898: 

A2 

00 


LDX 

# $00 

89A: 

86 

9F 


STX 

* $9F 

89C: 

86 

C2 


STX 

* $C2 

89E: 

E8 



INX 


89F: 

86 

CI 


STX 

* $C1 

8A1: 

C8 



INY 


8A2: 

DO 

FD 


BNE 

$F8A1 

8A4: 

E8 



INX 


8A5: 

DO 

FA 


BNE 

$F8A1 

8A7: 

A2 

oc 


LDX 

# $0C 

8A9: 

BD 

08 

FA 

LDA 

$FA08,X 

8AC: 

9D 

00 

01 

STA 

$0100,X 

8AF: 

CA 



DEX 


8B0: 

10 

F7 


BPL 

$F8A9 

8B2: 

A5 

BF 


LDA 

* $BF 

8B4: 

80 

06 

01 

STA 

$0106 

8B7: 

A9 

00 


LDA 

# $00 

8B9: 

A2 

0F 


LDX 

# $0F 

8BB: 

20 

3F 

F7 

JSR 

$F73F 

8BE: 

A9 

01 


LDA 

# $01 

8C0: 

A2 

15 


LDX 

# $15 

8C2: 

A0 

FA 


LDY 

# $FA 

8C4: 

20 

31 

F7 

JSR 

$F731 

8C7: 

A9 

00 


LDA 

# $00 

8C9: 

A0 

0F 


LDY 

# $0F 

8CB: 

A6 

BA 


LDX 

* $BA 

'8CD: 

20 

38 

F7 

JSR 

$F738 

-8D0: 

20 

CO 

FF 

JSR 

$FFC0 

‘8D3: 

B0 

16 


BCS 

$F8EB 

'8D5: 

A9 

01 


LDA 

# $01 

-8D7: 

A2 

16 


LDX 

# $16 

F8D9: 

A0 

FA 


LDY 

# $FA 

F8DB: 

20 

31 

F7 

JSR 

$F731 

F8DE: 

A9 

0D 


LDA 

# $0D 

F8E0: 

A8 



TAY 


F8E1: 

A6 

BA 


LDX 

* $BA 

F8E3: 

20 

38 

F7 

JSR 

$F738 

F8E6: 

20 

CO 

FF 

JSR 

$FFC0 

F8E9: 

90 

03 


BCC 

$F8EE 

F8EB: 

4C 

8B 

F9 

JMP 

$F98B 

F8EE: 

A9 

00 


LDA 

# $00 

F8F0: 

A0 

OB 


LDY 

# $0B 

F8F2: 

85 

AC 


STA 

* $AC 


Geräteadresse für Floppy 8 setzen 
Kopiere Geräteadresse (8) in Akku 
Standard E-/A- Geräte setzen 
Längenzähler für BOOT-Load Datei¬ 
namen mit #0 initialisieren 
Sektor Nr. f. BOOT-Load setzen ($00) 
Initialisierungszähler um 1 erhöhen 
Track Nr. für BOOT-Load setzen ($01) 
Y-Schleifenregister um 1 erhöhen 
256 mal schleifen, bis Reg. Null ist 
X-Schleifenregister um 1 erhöhen 
256 mal schleifen, bis Reg. Null ist 
Displacementzeiger für DOS-Puffer 
Zeichen des DOS BOOT-Befehls holen 
und in d. DOS-String Puffer kopieren 
Displacement Zeiger um 1 vermindern 
Schleifen, bis 13 Zeichen übertragen 
Laufwerksnummer aus Z-Page Speicher 
holen und im DOS-Puffer ablegen 
Bank Nr. f. aktuellen LSV Aufruf 
Bank Nr. f. aktuellen Dateinamen 
Routine SETBNK: Bank für LSV+Datnam. 
Länge des Dateinamens auf 1 setzen 
Adr-Lo des Dateinamens (=FA15) 
Adr-Hi des Dateinamens ("1") 

Routine SETNAM: Setze Dateinamen 
Logische Dateinummer in Akku (0) 
Sekundäradresse in Y-Reg 
Geräteadresse in X-Reg laden 
Routine SETLFS: Setze Dateiparameter 
Kernal OPEN: Datei öffnen 0,8,15,"I" 
Fehler aufgetreten,BOOT-Load beenden 
Länge des Dateinamens auf 1 setzen 
Adr-Lo des Dateinamens (=FA16) 
Adr-Hi des Datei namens ("#") 

Routine SETNAM: Setze Dateinamen 
Logische Dateinummer in Akku (13) 

Und als Sekundäradresse setzen (13) 
Geräteadresse in X-Reg laden 
Routine SETLFS: Setze Dateiparameter 
Kernal OPEN:Datei öffnen 13,8,13,"#" 
Alles klar, dann weiter im BOOT-Load 
Floppy initialisieren, dann RTS 
Den 2-Byte Z-Page Zeiger ($AC-$AD) 
mit der Anfangsadresse auf 
den System Kassettenpuffer 





Das Kernal-ROM 


355 


F8F4 

84 

AD 


STY 

* $AD 

F8F6 

20 

D5 

F9 

JSR 

$F9D5 

F8F9 

A2 

00 


LDX 

# $00 

F8FB 

BD 

00 

OB 

LDA 

$0B00,X 

F8FE 

DD 

C4 

E2 

CMP 

$E2C4,X 

F901 

DO 

E8 


BNE 

$F8EB 

F903 

E8 



INK 


F904 

E0 

03 


CPX 

# $03 

F906 

90 

F3 


BCC 

$F8FB 

F908 

20 

17 

FA 

JSR 

$FA17 

****************************** 

F90B: 

0D 

42 

4F 

4F 54 

49 4E 47 

F913: 

20 

00 




****************************** 

F915 

BD 

00 

OB 

LDA 

$0B00,X 

F918 

95 

A9 


STA 

* $A9,X 

F91A 

E8 



I NX 


F91B 

E0 

07 


CPX 

U $07 

F91D 

90 

F6 


BCC 

$F915 

F91F 

BD 

00 

OB 

LDA 

$0B00,X 

F922 

F0 

06 


BEO 

$F92A 

F924 

20 

D2 

FF 

JSR 

$FFD2 

F927 

E8 



INX 


F928 

DO 

F5 


BNE 

$F91 F 

F92A 

86 

9t 


STX 

* $9E 

F92C 

20 

17 

FA 

JSR 

$FA17 

****************************** 

F92F 

2E 

2E 

2E 

0D 00 


****************************** 

F934 

A5 

AE 


LDA 

* $AE 

F936 

85 

C6 


STA 

* $C6 

F938 

A5 

AF 


LDA 

* $AF 

F93A 

F0 

09 


BEO 

$F945 

F93C 

C6 

AF 


DEC 

* $AF 

F93E 

20 

B3 

F9 

JSR 

$F9B3 

F941 

E6 

AD 


INC 

* $AD 

F943 

DO 

F3 


BNE 

$F938 

F945 

20 

8B 

F9 

JSR 

$F98B 


($0800) initialisieren 
Lade Startsektor 01 00 in Kas-Puffer 
Schleifen und Displ.-Zeiger löschen 
Überprüfe die ersten drei 8ytes des 
von der Diskette gelesenen Start¬ 
sektors im Kassettenpuffer auf den 
Autostart Code (<C> <B> <M>). Wurde 
dieser Code gefunden, dann handelt 
es sich um ein BOOT-Programm 
Kernal PRIMM: Zeichenkette ausgeben 

Kernal Konstante für BOOTING Meldung 

<Cr> <B> <0> <0> <T> <I> <N> <G> 
<Blank> 

Zeiger und Boot-Nachricht festlegen 

Hole 4 Adreßladezeiger aus dem 
BOOT-Sektor ab Adresse $0B03 und 
initialisiere damit die 2 Z-Page 
Adreßzeiger in $AC-$AD / $AE-$AF 
Schleifen, bis Zeiger geladen sind 
Hole Ausgabezeichen aus Kas.-Puffer 
Der Wert $00 ist das Endekennzeichen 
Kernal BSOUT: Ein Zeichen ausgeben 
Displ. auf Kas-Puffer um 1 erhöhen 
Unbed. Sprung zur Zeichenausgabe 
Displ. auf Kassettenpuffer sichern 
Kernal PRIMM: Zeichenkette ausgeben 

BOOTING Message Konstante 

<.> <.> <.> <Cr> 

BOOT Routine nach Vor lauf 

Bank Zeiger aus BOOT-Sektor in Bank 
Zeiger für STASH Routine kopieren 
Hole Zähler f. Anzahl d. BOOT-Blöcke 
Alle BOOT-Blöcke gelesen, dann Exit 
Bootblockzähler um 1 vermindern 
Nächsten Tr./Se. von Floppy laden 
Ladeadresse Hi-Wert um 1 erhöhen 
Sprung, um nächsten Block zu laden 
Floppy nach BOOT initialisieren 
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F948 

A6 

9E 


LDX 

* $9E 


Displacement auf Kassettenpuffer 

F94A 

2C 



.Byte $2C 


Skip nach $F94D 

F94B 

E6 

9F 


INC 

* $9F 


Dateinamen-Längenzähler um 1 erhöhen 

F94D 

E8 



I NX 



Displ.auf Zeichen nach O-Code setzen 

F94E 

BO 

00 

OB 

LDA 

$0B00, 

X 

Hole Zeichen nach O-Code (Dateiname) 

F951 

DO 

F8 


BNE 

5F94B 


Nicht Null (Trenncode), weiter lesen 

F953 

E8 



INX 



Displ.auf Zeichen nach 0-Code setzen 

F954 

86 

04 


STX 

* $04 


und im PC-Lo Zeiger ablegen 

F956 

A6 

9E 


LDX 

* $9E 


Displ. auf Zeichen vor Dateinamen 

F958 

A9 

3A 


LDA 

# $3A 


O-Trenncode durch <:> ersetzen 

F95A 

9D 

00 

OB 

STA 

o 
00 
o 
o 

X 

und dem Dateinamen voranstellen 

F95D 

CA 



DEX 



Displ. auf Zeichen vor <:> setzen 

F95E 

A5 

BF 


LDA 

* $BF 


ASCII-Zeichen der Laufwerksangabe 

F960 

9D 

00 

OB 

STA 

o 

00 

o 

o 

X 

dem Dateinamen voranstellen <0:xxxx> 

F963 

86 

9E 


STX 

* $9E 


Lo-Adresse des Dateinamens sichern 

F965 

A6 

9F 


LDX 

* $9F 


Hole gesicherte Länge d. Dateinamens 

F967 

FO 

15 


BEO 

$F97E 


Kein Dateiname vorhanden, dann Skip 

F969 

E8 



INX 



Dateinamen-Längenzeiger um 2 erhöhen 

F96A 

E8 



INX 



da <0:> Zeichen mitgezählt werden 

F96B 

8A 



TXA 



Länge des Dateinamens in A kopieren 

F96C 

A6 

9E 


LDX 

* $9E 


Adresse Lo des Dateinamens holen 

F96E 

AO 

OB 


LDY 

n $0B 


Adresse Hi des Dateinamens setzen 

F970 

20 

31 

F7 

JSR 

$F731 


Routine SETNAM: Setze Dateinamen 

F973 

A9 

00 


LDA 

# $00 


Akku und X-Register für die SETBNK- 

F975 

AA 



TAX 



Routine mit $00 initialisieren 

F976 

20 

3F 

F7 

JSR 

$F73F 


Routine SETBNK: Bank für LSV+Datnam. 

F979 

A9 

00 


LDA 

# $00 


Akku als "LOAD" Kennzeichen setzen 

F97B 

20 

69 

F2 

JSR 

$F269 


Sprung zum Kernal LOAD-Vektor 

F97E 

A9 

OB 


LDA 

# $0B 


Den Z-Page Speicher für den PC-Hi 

F980 

85 

03 


STA 

* $03 


auf $0B (Kassettenpuffer) setzen 

F982 

A9 

0F 


LDA 

n $of 


Den Z-Page Bank Zeiger auf den Wert 

F984 

85 

02 


STA 

* $02 


$0F (System-Rom) setzen 

F986 

20 

CD 

02 

JSR 

$02CD 


JSRFAR Rout.: JSR beiiebig.Bank +RTS 

F989 

18 



CLC 



Carry für Kennzeichen OK löschen 

F98A 

60 



RTS 



Rücksprung aus dem Unterprogramm 

****************************** 

Floppy Initialisierung für BOOTING 

F98B 

08 



PHP 



Prozessor-Status auf Stack retten 

F98C 

48 



PHA 



Akku Inhalt auf dem Stack retten 

F98D 

O 

CVi 

CC 

FF 

JSR 

$F FCC 


Kernal CLRCH: E/A Kanäle rücksetzen 

F990 

A9 

OD 


LDA 

# $0D 


Logische Dateinummer (13) schließen 

F992 

18 



CLC 



Carry auf "alles OK" setzen 

F993 

20 

C3 

FF 

JSR 

$F FC3 


Kernal CLOSE: Datei schließen 

F996 

A2 

00 


LDX 

# $00 


Logische Datei (0) a. Ausgabe setzen 

F998 

20 

C9 

FF 

JSR 

$FFC9 


Kernal CKOUT: Ausgabekanal setzen 
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F99B: 

BO 

0A 


BCS 

SF9A7 

F99D: 

A9 

55 


LDA 

# $55 

F99F: 

20 

D2 

FF 

JSR 

$FFD2 

F9A2: 

A9 

49 


LDA 

# $49 

F9A4: 

20 

D2 

FF 

JSR 

$FFD2 

F9A7: 

20 

CC 

FF 

JSR 

$F FCC 

F9AA: 

A9 

00 


LDA 

# $00 

F9AC: 

38 



SEC 


F9AD: 

20 

C3 

FF 

JSR 

$FFC3 

F9B0: 

68 



PLA 


F9B1: 

28 



PLP 


F9B2: 

60 



RTS 



****************************** 


F9B3: 

A6 

C2 


LDX 

* $C2 

F9B5: 

E8 



INX 


F9B6: 

E0 

15 


CPX 

U $15 

F9B8: 

90 

04 


BCC 

$F9BE 

F9BA: 

A2 

00 


LDX 

# $00 

F9BC: 

E6 

CI 


INC 

* $C1 

F9BE: 

86 

C2 


STX 

* $C2 

F9C0: 

8A 



TXA 


F9C1: 

20 

FB 

F9 

JSR 

$F9FB 

F9C4: 

8D 

00 

01 

STA 

$0100 

F9C7: 

8E 

01 

01 

STX 

$0101 

F9CA: 

A5 

CI 


LDA 

* $C1 

F9CC: 

20 

FB 

F9 

JSR 

$F9FB 

F9CF: 

8D 

1)5 

01 

STA 

$0103 

F9D2: 

8E 

04 

01 

STX 

$0104 

F9D5: 

A2 

00 


LDX 

# $00 

F9D7: 

20 

C9 

FF 

JSR 

$FFC9 

F9DA: 

A2 

OC 


LDX 

# $0C 

F9DC: 

BD 

00 

01 

LDA 

$0100,X 

F9DF: 

20 

D2 

FF 

JSR 

$FFD2 

F9E2: 

CA 



DEX 


F9E3: 

10 

F7 


BPL 

$F9DC 

F9E5: 

20 

CC 

FF 

JSR 

$FFCC 

F9E8: 

A2 

0D 


LDX 

# $0D 

F9EA: 

20 

C6 

FF 

JSR 

$FFC6 

F9ED: 

A0 

00 


LDY 

# $00 

F9EF: 

20 

CF 

FF 

JSR 

$FFCF 

F9F2: 

20 

BC 

F7 

JSR 

$F7BC 

F9F5: 

C8 



INY 


F9F6: 

DO 

F7 


BNE 

$F9EF 


Wenn Fehler, dann wieder schließen 
Akku mit Zeichen <U> laden 
Kernal BSOUT: Ein Zeichen ausgeben 
Akku mit Zeichen <I> laden 
Kernal BSOUT: Ein Zeichen ausgeben 
Kernal CLRCH: E/A Kanäle rücksetzen 
Logische Dateinummer (0) schließen 
Carry auf "Fehler gefunden" setzen 
Kernal CLOSE: Datei schließen 
Akku Inhalt vom Stack zurückholen 
Alten Prozessor-Status zurückholen 
Rücksprung aus dem Unterprogramm 

Track u. Sektor im DOS-Ausgabepuffer 
neu setzen und Sektor laden 

Hole Sektor Nr. aus Z-Page Speicher 
Sektor um 1 erhöhen 
Prüfe auf gültige Sektornummer 
Sektor Nr. kleiner 21, dann alles OK 
Wert für Sektor Nr. Null laden 
Track Nr. um 1 erhöhen 
Z-Page Sektor Nr. neu setzen 
Sektor Nr. in Akku kopieren und 
Sektor in 2 Byte ASCII umwandeln 
Sektor Nr. Lo in DOS-Puffer ablegen 
Sektor Nr. Hi in DOS-Puffer ablegen 
Lade Akku mit Track Nr. aus Z-Page 
Track in 2 Byte ASCII umwandeln 
Track Nr. Lo in DOS-Puffer ablegen 
Track Nr. Hi in DOS-Puffer ablegen 
Logische Datei #0 für CKOUT setzen 
Kernal CKOUT: Ausgabekanal setzen 
13 Zeichen aus DOS-Puffer ausgeben 
Hole 1 Zeichen aus DOS Ausgabepuffer 
Kernal BSOUT: Ein Zeichen ausgeben 
Schleifenzähler auf DOS Puffer -1 
Schleifen, bis 13 Zeichen ausgegeben 
Kernal CLRCH: E/A Kanäle rücksetzen 
Logische Datei (13) a.Eingabe setzen 
Kernal CHKIN: Eingabekanal setzen 
Displ. für STASH Routine auf #0 
Kernal BASIN: Ein Zeichen einiesen 
STASH Routine für LSV Operationen 
STASH Displ. Zeiger um 1 erhöhen 
Schleifen,bis 256 Bytes gelesen sind 
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F9F8: 4C CC FF JHP $FFCC 
****************************** 


F9FB 

A2 

30 

LDX 

# $30 

F9FD 

38 


SEC 


F9FE 

E9 

0A 

SBC 

# $0A 

FA00 

o 

o 

03 

BCC 

$FA05 

FA02 

E8 


I NX 


FA03 

B0 

F9 

BCS 

$F9FE 

FA05 

69 

3A 

ADC 

# $3A 

FA07 

60 


RTS 





FA08: 30 30 20 31 30 20 30 20 
FA10: 33 31 3A 31 55 49 23 

****** *********** ************* 


FA17: 

48 



PHA 


FA18: 

8A 



TXA 


FA19: 

48 



PHA 


FA1A: 

98 



TYA 


FA1B: 

48 



PHA 


FA1C: 

A0 

00 


LDY 

# $00 

FA1E: 

BA 



TSX 


FA1F: 

FE 

04 

01 

INC 

$0104,X 

FA22: 

DO 

03 


BNE 

$FA27 

FA24: 

FE 

05 

01 

INC 

$0105,X 

FA27: 

BD 

04 

01 

LDA 

$0104,X 

FA2A: 

85 

CE 


STA 

* $CE 

FA2C: 

BD 

05 

01 

LDA 

$0105,X 

FA2F: 

85 

CF 


STA 

* $CF 

FA31: 

Bl 

CE 


LDA 

($CE ), Y 

FA33: 

F0 

05 


BEO 

$FA3A 

FA35: 

20 

D2 

FF 

JSR 

$FFD2 

FA38: 

90 

E4 


BCC 

$FA1E 

FA3A: 

68 



PLA 


FA3B: 

A8 



TAY 


FA3C: 

68 



PLA 


FA3D: 

AA 



TAX 


FA3E: 

68 



PLA 



Kernal CLRCH: E/A Kanäle rücksetzen 

Akku Inhalt als 2 Byte ASCII aufbe¬ 
reiten (X=Hi, A=Lo) (nur bis #99) 

ASCII-Wert für Zeichen <0> nach X 
Carry für Subtraktion setzen 
Dez. 10 vom Akku subtrahieren 
Carry gelöscht, dann Unterlauf, Exit 
ASCII Hi Zeichen um 1 erhöhen 
Unbedingter Sprung 

Unterlauf abfangen,ASCII Lo erzeugen 
Rücksprung aus dem Unterprogramm 

Kernal Konstante für BOOT-LOAD 
Ausgangswert für DOS-Ausgabepuffer 

< 0 > < 0 > < > < 1 > < 0 > < > < 0 > < > 

<3> <1> <:> <1> <U> <I> <#> 

Kernal Routine: PRIMM 

Den auf JSR folgenden Text ausgeben 

Akku Inhalt auf Stack sichern 
Aktuellen X-Reg Inhalt über Akku 
auf den Stack sichern 
Aktuellen Y-Reg Inhalt über Akku 
auf den Stack sichern 
Displacement Zeiger mit $00 laden 
Stack Pointer Zeiger in X-Reg laden 
Lo Byte der RTS Adresse im Stack +1 
Kein Überlauf, Skip Hi Abgleich 
Hi Byte der RTS Adresse im Stack +1 
Lo Byte der RTS Adresse im Stack in 
Z-Page bringen (für nachindiz Adr.) 
Hi Byte der RTS Adresse im Stack in 
Z-Page bringen (für nachindiz Adr.) 
Byte aus RTS Adr + Y-Reg holen 
$00 = Ende KZ, dann Exit Routine 
Kernal BSOUT: Ein Zeichen ausgeben 
Kein Fehler, dann nächstes Zeichen 
Ein Byte vom Stack holen u. d. alten 
Inhalt des Y-Reg wiederherstellen 
Ein Byte vom Stack holen u. d. alten 
Inhalt des X-Reg wiederherstellen 
Alten Akku Inhalt wiederherstellen 
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FA3F 

60 



RTS 


****************************** 

FA40 

D8 



CLD 


FA41 

A9 

7F 


LDA 

# $7F 

FA43 

8D 

0D 

DD 

STA 

SDDOD 

FA46 

AC 

0D 

DD 

LDY 

SDDOD 

FA49 

30 

14 


BMI 

$FA5F 

FA4B 

20 

3D 

F6 

JSR 

$F63D 

FA4E 

20 

El 

FF 

JSR 

SFFE1 

FA51 

DO 

OC 


BNE 

$FA5F 

FA53 

20 

56 

E0 

JSR 

$E056 

FA56 

20 

09 

El 

JSR 

SEI 09 

FA59 

20 

00 

CO 

JSR 

$C000 

FA5C 

6C 

00 

0A 

JMP 

($0A00) 

FA5F 

20 

05 

E8 

JSR 

SE805 

FA62 

4C 

33 

FF 

JMP 

$FF33 

****************************** 

FA65 

D8 



CLD 


FA66 

20 

24 

CO 

JSR 

$C024 

FA69 

90 

12 


BCC 

$FA7D 

FA6B 

20 

F8 

F5 

JSR 

$F5F8 

FA6E 

20 

DO 

EE 

JSR 

SEEDO 

FA71 

AD 

0D 

DC 

LDA 

SDCOD 

FA74 

AD 

04 

0A 

LDA 

$0A04 

FA77 

4A 



LSR 

A 

FA78 

90 

03 


BCC 

$F A7D 

FA7A 

20 

06 

40 

JSR 

$4006 

FA7D 

4C 

33 

FF 

JMP 

$FF33 


****************************** 


FA80 

14 

00 

ID 

88 85 

86 

87 

11 

FA88 

33 

57 

41 

34 

5A 

53 

45 

01 

FA90 

35 

52 

44 

36 

43 

46 

54 

58 

FA98 

37 

59 

47 38 

42 

48 

55 

56 

FAAO 

39 

49 

4A 

30 

4D 

48 

4 F 

4E 

FAA8 

28 

50 

4C 

2D 

2E 

3A 

40 

2C 

FABO 

5C 

2A 

3B 

13 

01 

3D 

5E 

2F 

FAB8 

31 

5F 

04 

32 

20 

M2 

51 

03 

FACO 

84 

38 

35 

09 

32 

34 

37 

31 

FAC8 

1B 

2B 

20 

OA 

UD 

36 

39 

33 


Rücksprung aus dem Unterprogramm 
KIMI Routine 

Dezimale Betriebsart zurücksetzen 

NMI Kennzeichen setzen 

NMI Möglichkeit löschen 

Flags lesen und löschen 

Prüfe, ob RS-232 aktiv ist 

Shift RUN/STOP Tastaurabfrage 

Kernal STOP: Auf Stop Taste prüfen 

Nicht gedrückt, dann Skip I/O Init. 

Standard Vektoren f. I/O+Interrupt 

I/O initialisieren 

I/O init. und Bildschirm löschen 

BASIC Warm-Start Einsprung ($4003) 

Sprung zur NMI Routine für RS-232 

Rücksprung in die IRQ Aufruf Routine 

IRQ Routine 

Dezimale Betriebsart zurücksetzen 
Einsprung in Editor IRQ Routine 
Bei Raster-Interrupt Exit IRQ 
Rout. UDTIM: Setze interne 24h Uhr 
Prüfe Kassettenrekorder-Tastatur 
Hole CIA Interrupt Steuerregister 
Hole System NMI/Reset Status Zeiger 
Prüfe, ob Bit 0 gelöscht ist 
Ja, dann zurück zur IRQ Routine 
BASIC IRQ Einsprung 
Rücksprung in die IRQ Aufruf Routine 

Tastatur Decodiertabelle 1a 
ASCII-Zeichensatz normal 
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FADO: 

08 

30 2E 

91 

11 

9D 

ID 

FF 


FAD8: 

FF 









Tastatur Decodiertabelle 2a 









ASCII-Zeichensatz mit Shift 

FAD9 

94 

8D 9D 

8C 

89 

8A 

88 

91 


FAEl 

23 

D7 CI 

24 

DA 

D3 

C5 

01 


FAE9 

25 

D2 C4 

26 

C3 

C6 

D4 

D8 


FAF1 

27 

D9 C7 

28 

C2 

C8 

D5 

D6 


FAF9 

29 

C9 CA 

30 

CD 

CB 

CF 

CE 


FB01 

DB 

DO CC 

DD 

3E 

5B 

BA 

3C 


FB09 

A9 

CO 5D 

93 

01 

3D 

DE 

3F 


FB11 

21 

5F 04 

22 

AO 

02 

Dl 

83 


FB19 

84 

38 35 

18 

32 

34 

37 

31 


FB21 

1B 

2B 2D 

OA 

8D 

36 

39 

33 


FB29 

08 

30 2E 

91 

11 

9D 

ID 

FF 


FB31 

FF 








****************************** 

Tastatur Decodiertabetle 3a 









ASCII-Zeichensatz mit C= 

F832 

94 

80 9D 

8C 

89 

8A 

8B 

91 


FB3A 

96 

B3 BO 

97 

AD 

AE 

Bl 

01 


FB42 

98 

B2 AC 

99 

BC 

BB 

A3 

BD 


FB4A 

9A 

B7 A5 

9B 

BF 

B4 

B8 

BE 


FB52 

29 

A2 B5 

30 

A7 

AI 

B9 

AA 


FB5A 

A6 

AF B6 

DC 

3E 

5B 

A4 

3C 


FB62 

A8 

DF 5D 

93 

01 

3D 

DE 

3F 


FB6A 

81 

5F 04 

95 

AO 

02 

AB 

03 


FB72 

84 

38 35 

18 

32 

34 

37 

31 


FB7A 

1B 

2B 2D 

OA 

80 

36 

39 

33 


FB82 

08 

30 2E 

91 

11 

9D 

ID 

FF 


FB8A 

FF 









Tastatur Decodiertabelle 4a 









ASCII-Zeichensatz mit CTRL 

FB8B 

FF 

FF FF 

FF 

FF 

FF 

FF 

FF 


FB93 

IC 

17 01 

9F 

1A 

13 

05 

FF 


FB9B 

9C 

12 04 

IE 

03 

06 

14 

18 


FBA3 

1F 

19 07 

9E 

02 

08 

15 

16 


FBAB 

12 

09 OA 

92 

00 

OB 

OF 

OE 


FBB3 

FF 

10 OC 

FF 

FF 

1B 

00 

FF 


FBBB 

IC 

FF ID 

FF 

FF 

1F 

IE 

FF 


FBC3 

90 

06 FF 

05 

FF 

FF 

11 

FF 
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Tastatur Decodiertabelle 5a 
ASCII-Zeichensatz mit ALT 


FBCB: 

84 

38 

35 

18 

32 

34 

37 

31 

FBD3: 

1B 

2B 

2D 

0A 

8D 

36 

39 

33 

FBDB: 

08 

30 

2E 

91 

11 

9D 

ID 

FF 

FBE3: 

FF 









****************************** 


FBE4 

14 

0D 

ID 

88 

85 

86 

87 

11 

FBEC 

33 

0/ 

CI 

34 

DA 

D3 

C5 

01 

FBF4 

35 

D2 

C4 

36 

C3 

C6 

D4 

D8 

FBFC 

37 

D9 

C7 

38 

C2 

C8 

D5 

D6 

FC04 

39 

C9 

CA 

30 

CD 

CB 

CF 

CE 

FCOC 

2B 

DO 

CC 

2D 

2E 

3A 

40 

2C 

FC14 

5C 

2A 

3B 

13 

01 

3D 

5E 

2F 

FC1C 

31 

5F 

04 

32 

20 

02 

51 

03 

FC24 

84 

38 

35 

09 

32 

34 

37 

31 

FC2C 

1B 

28 

20 

0A 

0D 

36 

39 

33 

FC34 

08 

30 

2E 

91 

11 

90 

ID 

FF 

FC3C 

FF 









****************************** 

FC3D: FF FF FF . . . 

FC7D: ... FF FF FF 

****************************** 

****************************** 


FC80: 

8D 

C5 

OA 

STA 

$0AC5 

FC83: 

8D 

1« 

D4 

STA 

$0418 

FC86: 

60 



RTS 



****************************** 


FC87 

2C 

C5 

OA 

BIT 

$0AC5 

FC8A 

30 

37 


BMI 

SFCC3 

FC8C 

A5 

D3 


LDA 

* $D3 

FC8E 

29 

10 


AND 

n $10 

FC90 

FO 

OD 


BEQ 

$FC9F 

FC92 

AD 

3F 

03 

LDA 

$033 F 

FC95 

C9 

FD 


CMP 

# $FD 

FC97 

FO 

2A 


BEQ 

$FCC3 

FC99 

A9 

34 


LDA 

tt $34 

FC9B 

AO 

FE 


LDY 

# $FE 


Freier Bereich 


SID-Register und Edit-Zeiger löschen 

System Akzent-Mode Flag löschen(A=0) 
SID-lautstärke Register löschen 
Rücksprung aus dem Unterprogramm 

Einsprung in Kernal Routine: KEY 

Prüfe Bit 7 des Akzent-Mode Flags 
Bit 7 gesetzt, Akzent zusammenbauen 
hole aktuelles SHIFT Muster in Akku 
Prüfe Bit 4 f. ASCII-DIN Umschaltung 
Wenn ASCII Zeichensatz gewählt, Skip 
Prüfe, ob die Hi-Adresse der ersten 
Decodiertabelle auf DIN-Satz zeigt 
Ja, dann OK und Skip 
X und A als Zeiger für Vektortabelle 
auf DIN-Decodiertabellensatz laden 
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FC9D 

DO 

OB 


BNE 

SFCAA 

FC9F 

AD 

3F 

03 

LDA 

S033F 

FCA2 

C9 

FA 


CMP 

# SFA 

FC A4 

FO 

ID 


BEQ 

SFCC3 

FCA6 

A9 

6F 


LDA 

# $6F 

FCA8 

AO 

CO 


LDY 

# SCO 

****************************** 

FCAA 

85 

cc 


STA 

* SCC 

FCAC 

84 

CD 


STY 

* SCD 

FCAE 

AO 

OB 


LDY 

# $0B 

FCBO 

Bl 

CC 


LDA 

(SCC) ,Y 

FCB2 

99 

3E 

03 

STA 

S033E.Y 

FCB5 

88 



DEY 


FCB6 

10 

F8 


BPL 

SFCB0 

FCB8 

C8 



INY 


FCB9 

8C 

C5 

0A 

STY 

S0AC5 

FCBC 

08 



PHP 


FCBD 

78 



SEI 


FCBE 

20 

OC 

CE 

JSR 

SCE0C 

FCC1 

28 



PLP 


FCC2 

60 



RTS 





FCC3: 

4C 

5D 

C5 

JMP 

SC55D 

FCC6: 

AE 

3F 

03 

LDX 

S033F 

FCC9: 

E0 

FD 


CPX 

U SFD 

FCCB: 

DO 

55 


BNE 

SFD22 

FCCD: 

AE 

C5 

0A 

LDX 

S0AC5 

FCD0: 

30 

50 


BMI 

SFD22 

FCD2: 

F0 

ID 


BEQ 

SFCF1 

FCD4: 

BC 

45 

FE 

LDY 

SFE45.X 

FCD7: 

CA 



DEX 


FCD8: 

88 



DEY 


FCD9: 

48 



PHA 


FCDA: 

98 



TYA 


FCDB: 

DD 

45 

FE 

CMP 

SFE45.X 

FCDE: 

68 



PLA 


FCDF: 

90 

08 


BCC 

SFCE9 

FCE1: 

D9 

4A 

FE 

CMP 

$FE4A,Y 

FCE4: 

DO 

F2 


BNE 

SFCD8 

FCE6: 

B9 

65 

FE 

LDA 

$FE65,Y 

FCE9: 

48 



PHA 



Unbedingter Sprung in Laderoutine 
Prüfe, ob die Hi-Adresse der ersten 
Decodiertabelte aus ASCII-Satz zeigt 
Ja, dann OK und Skip 
X und A als Zeiger für Vektortabelle 
auf ASCII-Decodiertabellensatz laden 

Tabellensatzvektoren neu setzen 

Zeiger auf Vektortabelle Lo sichern 
Zeiger auf Vektortabelle Hi sichern 
Schleifenzähler, für 6 Vektoren 
Hole Byte der ROM-Vektortabelle 
Sichere es in System-Vektortabelle 
Vektor-Schleifenzähler vermindern 
Schleifen, bis 6 Vektoren kopiert 
Y-Reg wieder auf Null hochzähten 
und das Akzent-Mode Flag löschen 
Prozessor Status auf Stack sichern 
Alle System Interrupts verhindern 
Kernal Routine: DLCHR 
Prozessor Status zurückholen: CLI 
Rücksprung aus dem Unterprogramm 

Prüfe auf Akzent-Tasten und bilde 
zusammengesetzten Akzent 

Routine: Tastatur-Matrix abfragen 
Prüfe, ob die Hi-Adresse der ersten 
Decodiertabelle auf DIN-Satz zeigt 
Nein, Skip: Tastendruck speichern 
Prüfe System Akzent-Mode Flag 
Bit 7 gesetzt, Tastendruck speichern 
Kein Akzent gesetzt, dann Skip 
Hole Wert aus Kombinationstabelle 
Tabellenwert um 1 vermindern 
Displacement auf Tabelle • 1 
Zeichencode auf Stapel sichern 
Displacement auf Tab. in Akku holen 
Mit Kombinationstabelle vergleichen 
Zeichencode vom Stapel zurückholen 
Kombinationstabelle durchsucht, Skip 
Ist es ein Kombinationszeichen? 
Kombinationstabelle weiter absuchen 
Zusammengesetztes Zeichen aus Tab. 
Zeichencode auf Stapel sichern 
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FCEA: 

29 

7F 


AND 

# $7F 

FCEC: 

C9 

20 


CMP 

# $20 

FCEE: 

68 



PLA 


FCEF: 

90 

23 


BCC 

$FD14 

FCF1: 

A2 

05 


LDX 

# $05 

FCF3: 

DD 

3F 

FE 

CMP 

$FE3F,X 

FCF6: 

F0 

03 


BEQ 

$FCFB 

FCF8: 

CA 



DEX 


FCF9: 

DO 

F8 


BNE 

$FCF3 

FCFB: 

8E 

C5 

0A 

STX 

$0AC5 

FCFE: 

E0 

00 


CPX 

# $00 

FD00: 

F0 

20 


BEQ 

$FD22 

FD02: 

A8 



TAY 


FD03: 

24 

F6 


BIT 

* $F6 

FD05: 

30 

0D 


BMI 

$FD14 

FD07: 

24 

D7 


BIT 

* $D7 

FD09: 

10 

0A 


8PL 

$ F D15 

FD0B: 

A2 

0A 


LDX 

# $0A 

FD0D: 

20 

DA 

CD 

JSR 

$CDDA 

FD 10: 

29 

40 


AND 

# $40 

FD12: 

DO 

06 


BNE 

$FD1A 

FD14: 

60 



RTS 



****************************** 


FD15: 

AD 

27 

0A 

LDA 

$0A27 

FD18: 

DO 

FA 


BNE 

$FD14 

FD 1A: 

98 



TYA 


FD1B: 

09 

40 


ORA 

# $40 

FD1D: 

29 

7F 


AND 

# $7F 

FD1F: 

4C 

2F 

CC 

JMP 

$CC2F 

FD22: 

A6 

D3 


LDX 

* $D3 

FD24: 

A4 

D5 


LDY 

* $D5 

FD26: 

6C 

3C 

03 

JMP 

($0330 


****************************** 


FD29 

14 

OD 

ID 

88 

85 

86 

87 

11 

FD31 

33 

57 

41 

34 

59 

53 

45 

01 

FD39 

35 

52 

44 

36 

45 

46 

54 

58 

FD41 

37 

5A 

47 38 

42 

48 

55 

56 

FD49 

39 

49 

4A 

30 

4D 

4B 

4F 

4E 

FD51 

BE 

50 

4C 

AF 

2E 

BC 

BD 

2C 

FD59 

5B 

2B 

BB 

13 

01 

23 

50 

2D 

FD61 

31 

3C 

04 

32 

20 

02 

51 

03 


Bit 7 ausblenden, keine RVS Zeichen 
Vgl. auf Space / Shift-Space 
Zeichencode vom Stapel zurückholen 
Vgl. < $20: Steuerzeichen disable 
Schleifenzähler für Akzent-Tabelle 
Vergleiche Zeichen m. Akzent-Tabelle 
Zeichen in Tab. gefunden, Exit 
Schleifenzähler um 1 vermindern 
Schleifen,bis alle Vgl. durchgeführt 
Displ. auf gefundenen Akzent sichern 
Displ. = #0, kein Akzent vorhanden 
Wenn Null,dann Tastendruck speichern 
Zeichencode in Y-Reg kopieren 
Prüfe, ob der Auto-Insert Modus 
eingeschaltet ist. Nein, dann RTS 
Prüfe 40/80 Zeichen Zeiger 
40 Zeichen Bildschirm aktiv, Skip 
X-Reg mit Nr. d. VDC Registers laden 
VDC-Register entsprechend auslesen 
Prüfe aktuellen Cursor Modus 
Uenn "Blink-Modus", Zeichen ausgeben 
Rücksprung aus dem Unterprogramm 

Zusammengesetzten Akzent ausgeben 

Prüfe Cursor On/Off Zeiger 
Wert ungleich #0: Cursor disable,-RTS 
Zeichencode zurück in Akku holen 
Bit 6 in Zeichencode einblenden 
Bit 7 ausblenden, keine RVS Zeichen 
Zeichen an Cursorposition ausgeben 
hole aktuelles SHIFT Muster in X-Reg 
Flag für gedrückte Taste in Y-Reg 
Vektor:Tastendruck speichern ($C6AD) 

Tastatur Decodiertabelle 1b 
DIN-Zeichensatz normal, Ctrl, Alt 
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Tastatur Decodiertabelle 2b 
DIN-Zeichensatz mit Shift 


Tastatur Decodiertabelle 3b 
DIN-Zeichensatz mit C= 


FD69: 

84 

38 

35 

09 

32 

34 

37 31 

FD71: 

1B 

2B 

2D 

0A 

0D 

36 

39 

33 

FD79: 

08 

30 

2E 

91 

11 

9D 

ID 

FF 

FD81: 

FF 









****************************** 


FD82 

94 

8D 

9D 

8C 

89 

8A 

8B 

91 

FD8A 

40 

D7 

CI 

24 

D9 

D3 

C5 

01 

FD92 

25 

D2 

C4 

26 

C3 

C6 

D4 

D8 

FD9A 

2F 

DA 

C7 

28 

C2 

C8 

D5 

D6 

FDA2 

29 

C9 

CA 

3D 

CD 

CB 

CF 

CE 

FDAA 

3F 

DO 

cc 

CO 

3A 

DC 

DD 

3B 

FDB2 

5E 

2A 

DB 

93 

01 

27 

5C 

5F 

FDBA 

21 

3E 

04 

22 

A0 

02 

Dl 

83 

FDC2 

84 

38 

35 

18 

32 

34 

37 

31 

FDCA 

1B 

2B 

2D 

0A 

8D 

36 

39 

33 

FDD2 

08 

30 

2E 

91 

11 

9D 

ID 

FF 

FDDA 

FF 









****************************** 


FDDB 

94 

8D 

9D 

8C 

89 

8A 

8B 

91 

FDE3 

96 

A 7 

A8 

97 

A2 

AA 

A3 

01 

FDEB 

98 

A9 

C4 

99 

C5 

D3 

CE 

A4 

FDF3 

9A 

C2 

DF 

9B 

AI 

C9 

D6 

D7 

FDFB 

Dl 

C3 

D5 

CI 

CB 

DA 

D8 

CD 

FE03 

AB 

D9 

C8 

BF 

BA 

CA 

BO 

AC 

FE0B 

AD 

A6 

DB 

93 

01 

DD 

DE 

B9 

FE13 

81 

Bl 

04 

95 

AO 

02 

A5 

03 

FE1B 

84 

38 

35 

18 

32 

34 

37 

31 

FE 23 

1B 

2B 

2D 

OA 

8D 

36 

39 

33 

FE2B 

08 

30 

2E 

91 

11 

9D 

ID 

FF 

FE33 

FF 









****************************** 


FE34: 

29 

FD 

CSFD29) 

FE36: 

82 

FD 

($FD82) 

FE38: 

DB 

FD 

(SFDDB) 

FE3A: 

8B 

FB 

(SFB8B) 

FE3C: 

29 

FD 

CSFD29) 


Zeiger auf Tastatur Decodiertabellen 
DIN-Zeichensatz Vektortabelle 

Tastatur Decodiertabelle 1b 
Tastatur Decodiertabelle 2b 
Tastatur Decodiertabelle 3b 
Tastatur Decodiertabelle 4a 
Tastatur Decodiertabelle 1b 
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FE3E: 29 FD ($FD29) Tastatur Decodiertabelte 1b 

★***★*★*★★**★★***★★*★★*★*****★ Tabelle der 3 Akzent Zeichen 


FE40: AF CO BF 00 00 


FE45: 01 03 07 0C 0C OC 

****************************** 


FE4B: 

45 

CO 

41 

45 

55 

AF 

41 

45 

FE53: 

49 

4F 

55 






FE56: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FE5E: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 




< > < > < A > (Letztes über: C=/< >) 

Offset Tabelle auf mögliche Kombina¬ 
tionen zusammengesetzter Zeichen 


Tabelle der möglichen Zeichen für 
e. zusammengesetztes Akzent-Zeichen 

<E> < > <A> <E> <U> < > <A> <E> 

<I> <0> <U> 

Füllwerte; nicht genutzt 

Tabelle der zusammengesetzten 
Akzent-Zeichen 


FE64: 

AC 

BF 

B2 

AE 

B3 

BF 

B4 

B5 

FE6C: 

B6 

B7 

B8 






FE71: 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FE79: 

FF 

FF 

F F 

. 

. 




FE FD: 


. 

FF 

FF 

FF 





<e> < A > <a> <e> <u> < A > <a> <e> 
<i> <o> <u> 

Füllwerte; nicht genutzt 


****************************** Kopie der Configuration Register 


Configuration Register (CR) 

Load Configuration Register A (LCRA) 

Load Configuration Register B (LCRB) 

Load Configuration Register C (LCRC) 

Load Configuration Register D (LCRD) 

Kernal NMI Routine 


FF00 

00 

.Byte 

$00 

FF01 

3F 

.Byte 

$3F 

FF02 

7F 

.Byte 

$7F 

FF03 

01 

.Byte 

$01 

FF 04 

41 

.Byte 

$41 


FF05 

78 

SEI 


FF 06 

48 

PHA 


FF07 

8A 

TXA 


FF 08 

48 

PHA 


FF 09 

98 

TYA 


FF0A 

48 

PHA 



Alle System Interrupts verhindern 
Akku Inhalt auf Stack sichern 
Aktuellen X-Reg Inhalt über Akku 
auf dem Stack sichern 
Aktuellen Y-Reg Inhalt über Akku 
auf dem Stack sichern 
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FFOB 

AD 

00 

FF 

LDA 

$FF00 

Configuration Register in Akku holen 

FFOE 

48 



PHA 


Config. Wert auf Stack sichern 

FFOF 

A9 

00 


LDA 

# $00 

Conf iguration Register mit $00 laden 

FF11 

8D 

00 

FF 

STA 

$FF00 

und alle System ROMs einschalten 

FF14 

6C 

18 

03 

JMP 

($0318) 

Vektor zeigt auf NMI Routine ($FA40) 


****************************** K e rnal IRQ Rout ins 


FF17: 

48 



PHA 


Akku Inhalt auf Stack sichern 

FF18: 

8A 



TXA 


Aktuellen X-Reg Inhalt über Akku 

FF19: 

48 



PHA 


auf dem Stack sichern 

FF1A: 

98 



TYA 


Aktuellen Y-Reg Inhalt über Akku 

FF1B: 

48 



PHA 


auf dem Stack sichern 

FF1C: 

AD 

00 

FF 

LDA 

$FF00 

Conf iguration Register in Akku holen 

FF1F: 

48 



PHA 


Config. Wert auf Stack sichern 

FF20: 

A9 

00 


LDA 

# $00 

Conf iguration Register mit $00 laden 

FF22: 

8D 

00 

FF 

STA 

$FF00 

und alle System ROMs einschalten 

FF25: 

BA 



TSX 


Stack Pointer Zeig, in X-Reg bringen 

FF26: 

BD 

05 

01 

LDA 

$0105,X 

Das vor dem Interrupt gesicherte CPU 

FF29: 

29 

10 


AND 

# $10 

Status Byte holen + Break Bit testen 

FF2B: 

F0 

03 


BEQ 

$FF30 

Kein Break auf getreten,normal weiter 

FF2D: 

6C 

16 

03 

JMP 

($0316) 

Vektor zeigt auf BRK Routine ($B003) 

FF30: 

6C 

14 

03 

JMP 

($0314) 

Vektor zeigt auf IRQ Routine ($FA65) 

FF33: 

68 



PLA 


Alten Config. Wert vom Stack holen + 

FF34: 

8D 

00 

FF 

STA 

$FF00 

gewählte Config. wiederherstellen 

FF37: 

68 



PLA 


Ein Byte vom Stack holen u. d. alten 

FF38: 

A8 



TAY 


Inhalt des Y-Reg wiederherstellen 

FF39: 

68 



PLA 


Ein Byte vom Stack holen u. d. alten 

FF3A: 

AA 



TAX 


Inhalt des X-Reg wiederherstellen 

FF3B: 

60 



PLA 


Alten Akku Inhalt wiederherstellen 

FF3C: 

40 



RTI 


Rücksprung aus der Interrupt Routine 

****************************** 

Kernal RESET Routine 

FF3D: 

A9 

00 


LDA 

# $00 

Configuration Register mit $00 laden 

FF3F: 

8D 

00 

FF 

STA 

$FF00 

und alle System ROMs einschalten 

FF42: 

4C 

00 

E0 

JMP 

$E000 

Reset Einsprung 

****************************** 

Kernal Vektor und Sprungtabelle 

FF45: 

FF 



.Byte $FF 


FF46: 

FF 



.Byte $FF 



FF47: 4C FB E5 JMP $E5FB 


Zeiger auf Kernal FSTMOO 


Routine 
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FF4A: 

4C 

3D 

F2 

JMP 

SF23D 

Zeiger 

auf Kernal EAINIT 

Routine 

FF4D: 

4C 

4B 

E2 

JMP 

$E24B 

Zeiger 

auf Kernal C64MODE 

Routine 

FF50: 

4C 

A5 

F7 

JMP 

$F7A5 

Zeiger 

auf Kernal DMA-CALL 

Routine 

FF53: 

4C 

90 

F8 

JMP 

$F890 

Zeiger 

auf Kernal BOOT-CALL 

Routine 

FF56: 

4C 

67 

F8 

JMP 

$F867 

Zeiger 

auf Kernal PHOENIX 

Routine 

FF59: 

4C 

9D 

F7 

JMP 

SF79D 

Rout. 1 

LKUPLA: Suche in Tab. 

nach LFN 

FF5C: 

4C 

86 

F7 

JMP 

SF786 

Rout. 1 

LKUPSA: Suche in Tab. 

nach SA 

FF5F: 

4C 

2A 

CO 

JMP 

$C02A 

Zeiger 

auf Kernal SUAPPER 

Routine 

FF62: 

4C 

27 

CO 

JMP 

$C027 

Zeiger 

auf Kernal DLCHR 

Routine 

FF65: 

4C 

21 

CO 

JMP 

SC021 

Zeiger 

auf Kernal PFKEY 

Routine 

FF68: 

4C 

3F 

F7 

JMP 

$F73F 

Rout. ! 

SETBNK: Bank f. LSV+Dateinamen 

FF6B: 

4C 

EC 

F7 

JMP 

SF7EC 

Zeiger 

auf Kernal GETCFG 

Routine 

FF6E: 

4C 

CO 

02 

JMP 

$02CD 

Zeiger 

auf Kernal JSRFAR 

Routine 

FF71: 

4C 

E3 

02 

JMP 

$02E3 

Zeiger 

auf Kernal JMPFAR 

Routine 

FF 74: 

4C 

DO 

F7 

JMP 

$F7D0 

Rout. 

INDFET: LDA(fetvec),Y 

bei.Bank 

FF77: 

4C 

DA 

F7 

JMP 

$F7DA 

Rout. 

INDSTA: STA(stavec),Y 

bei.Bank 

FF7A: 

4C 

E3 

F7 

JMP 

$F7E3 

Rout. 

INDCMP: CMP(cmpvec),Y 

bei.Bank 

FF7D: 

4C 

17 

FA 

JMP 

SFA17 

Zeiger 

auf Kernal PRIMM 

Routine 

FF80: 

00 



.Byte $00 




FF81: 

4C 

00 

CO 

JMP 

SCOOO 

Zeiger 

auf Kernal CINT 

Routine 

FF84: 

4C 

09 

El 

JMP 

$E109 

Zeiger 

auf Kernal IOINIT 

Routine 

FF87: 

4C 

93 

EO 

JMP 

SE093 

Zeiger 

auf Kernal RAMTAS 

Routine 

FF8A: 

4C 

56 

EO 

JMP 

$E056 

Zeiger 

auf Kernal RESTOR 

Routine 



368 


128 Intern 


FF8D: 

4 C 

5B 

EO 

JMP 

$E05B 

Zeiger 

auf Kernal VECTOR 

Routine 

FF90: 

4C 

5C 

F7 

JMP 

$F75C 

Zeiger 

auf Kernal SETMSG 

Routine 

FF93: 

4C 

D2 

E4 

JMP 

$E4D2 

Routine 

1 SECND: Sekundäradr. 

f.LISTN 

FF96: 

4C 

EO 

E4 

JMP 

SE4E0 

Routine 

! TKSA: Sekundäradr. für TALK 

FF99: 

4C 

63 

F7 

JMP 

$F763 

Zeiger 

auf Kernal MEMTOP 

Routine 

FF9C: 

4C 

72 

F7 

JMP 

$F772 

Zeiger 

auf Kernal MEMBOT 

Routine 

FF9F: 

4C 

12 

CO 

JMP 

$C012 

Zeiger 

auf Kernal KEY 

Routine 

FFA2: 

4C 

5F 

F7 

JMP 

$F75F 

Zeiger 

auf Kernal SETTMO 

Routine 

FFA5: 

4C 

3E 

E4 

JMP 

$E43E 

Zeiger 

auf Kernal ACPTR 

Routine 

FFA8: 

4C 

03 

E5 

JMP 

$E503 

Zeiger 

auf Kernal CI OUT 

Routine 

FFAB: 

4C 

15 

E5 

JMP 

$E515 

Routine UNTLK: UNTLK Bef.an 

ser. Bus 

FFAE: 

4C 

26 

E5 

JMP 

$E526 

Routine UNLSN: UNLSN Bef.an 

ser. Bus 

FFB1: 

4C 

3E 

E3 

JMP 

$E33E 

Routine LISTN: LISTN Bef.an 

ser. Bus 

FFB4: 

4C 

38 

E3 

JMP 

$E33B 

Routine TALK: TALK Befehl an ser.Bus 

FFB7: 

4C 

44 

F7 

JMP 

$F744 

Zeiger 

auf Kernal READST 

Routine 

FFBA: 

4C 

38 

F7 

JMP 

$F738 

Routine SETLFS: Setze Dateiparameter 

FFBD: 

4C 

31 

F7 

JMP 

$F731 

Routine SETNAM: Setze Dateinamen 

FFCO: 

6C 

1A 

03 

JMP 

CS031A) 

Vektor 

zeigt auf OPEN Routine $EFBD 

FFC3: 

6C 

IC 

03 

JMP 

($0310 

Vektor 

zeigt auf CLOSE Routine $F188 

FFC6: 

6C 

IE 

03 

JMP 

($0310 

Vektor 

zeigt auf CHKIN Routine $F106 

FFC9: 

6C 

20 

03 

JMP 

($0320) 

Vektor 

zeigt auf CKOUT Routine $F14C 

FFCC: 

6C 

22 

03 

JMP 

($0322) 

Vektor 

zeigt auf CLRCH Routine $F226 

FFCF: 

6C 

24 

03 

JMP 

($0324) 

Vektor 

zeigt auf BASIN Routine $EF06 
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FFD2: 

6C 

26 

03 

JMP 

($0326) 

FFD5: 

4C 

65 

F2 

JMP 

$F265 

FFD8: 

4C 

3E 

F5 

JMP 

$F53E 

FFDB: 

4C 

65 

F6 

JMP 

$F665 

FFDE: 

4C 

5E 

F6 

JMP 

$F65E 

F FE 1: 

6C 

28 

03 

JMP 

($0328) 

FFE4: 

6C 

2A 

03 

JMP 

($032A) 

FFE7: 

6C 

2C 

03 

JMP 

($0320 

FFEA: 

4C 

F8 

F5 

JMP 

$F5F8 

FFED: 

4C 

OF 

CO 

JMP 

$C00F 

FFFO: 

4C 

18 

CO 

JMP 

$C018 

FFF3: 

4C 

81 

F7 

JMP 

$F781 

FFF6: 

FF 



.Byte $FF 

FFF7: 

FF 



.Byte $FF 

FFF8: 

24 

E2 


($E224) 

FFFA: 

05 

FF 


($FF05) 

FFFC: 

3D 

FF 


(SFF3D) 

FFFE: 

17 

FF 


($FF17) 


Vektor zeigt auf BSOUT Routine $EF79 
Routine LOADSP: Datei einladen 
Routine SAVESP: Datei abspeichern 
Zeiger auf Kernal SETTIM Routine 

Zeiger auf Kernal RDTIM Routine 

Vektor zeigt auf STOP Routine $F66E 
Vektor zeigt auf GETIN Routine $EEEB 
Vektor zeigt auf CLALL Routine $F222 
Rout. UDTIM: Setze interne 24h Uhr 
Zeiger auf Kernal SCRORG Routine 

Zeiger auf Kernal PLOT Routine 

Zeiger auf Kernal IOBASE Routine 

C128Mode Vektor 
NMI Vektor 
Reset Vektor 
IRQ Vektor 
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9. Das BASIC-ROM 


9.1 Allgemeines 

Nach dem BASIC 1.0 des schon legendären PET wurden die 
Versionen BASIC 2.0 und BASIC 4.0 entwickelt. Mit Computern 
wie dem C16 kam dann das BASIC 3.5 mit speziellen Grafik- 
und Soundbefehlen auf den Markt. Nun sind wir bei den 
Commodore-Rechnern am BASIC-Höhepunkt angelangt, den 
sich dieses Teil des Buches zum Thema macht: 

Der Commodore 128 und sein BASIC 7.0. 

Dieses Kapitel soll Ihnen vor allem als Nachschlagewerk dabei 
helfen, speziell von Assembler aus alle Möglichkeiten des BASIC 
7.0 zu nutzen. Da das BASIC 7.0 aber sehr ausgiebig von 
Betriebssystem und Hardware des Commodore 128 Gebrauch 
macht, sollten Sie Grundkenntnisse des Betriebssystems und der 
Hardware haben, damit Sie die Informationen in diesem Kapitel 
sinnvoll verwerten können. Die nötigen Informationen über das 
Betriebssystem finden Sie in den Kapiteln 7 und 8. 

Stören Sie sich nicht an Querverweisen innerhalb des ROM- 
Listings. Das BASIC 7.0 ist so vielfältig, daß Sie auch für eine 
einzelne Sache meistens eine Fünf-Finger-Lesetechnik 
entwickeln müssen. Das bedeutet im Klartext: Ein Finger im 
aktuellen Kapitel, ein Finger im ROM-Listing, ein Finger in der 
Zeropage, zwei Finger in weiteren Kapiteln und die andere 
Hand an Ihrem Commodore 128. Lesen Sie dieses Buch wenn 
möglich immer mit Ihrem Commodore 128 in Reichweite zum 
Ausprobieren. 

Falls Sie an dieser Stelle ein Kapitel mit Tabellen der Befehle, 
Fehlermeldungen, Operatoren etc. vermissen, dann hat das einen 
Grund: Sie finden diese Tabellen in gleichwertiger Form an den 
entsprechenden Stellen im ROM-Listing. Unnötige 
Wiederholungen wurden in Ihrem Interesse bewußt vermieden. 

Lassen Sie uns jetzt auch gleich einige Vereinbarungen über die 
verwendeten Darstellungsformen treffen. Wird von Adressen 
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oder Adreßwerten gesprochen, dann ist das erste Byte - soweit 
nicht anders angegeben - immer das Low-Byte. Ist ein Zwei- 
Byte-Wert in zwei Prozessorregistern gespeichert, so steht ein 
Schrägstrich zwischen den Registernamen. Auch hier ist das 
erste Byte das Low-Byte. Ist ein Adreßwert in zwei 
aufeinanderfolgenden Speicherzellen gemeint, dann steht die 
Adresse der ersten Speicherzelle in Klammern. Es ist also 
genauso, wie bei der nachindizierten Adressierung des 6502- 
Assemblers. 


9.2 Nicht vorhandene Befehle 

Commodore hatte anscheinend einige Befehle geplant, die 
hinterher doch nicht programmiert worden sind. Das verwundert 
doch sehr, da noch viel freier Platz im BASIC-ROM vorhanden 
ist. Zu diesen Befehlen gehören zum Beispiel: 

QUIT, KEY ON, KEY OFF 

Wenn Sie die entsprechenden Vektoren der Kommandos 
verbiegen, so können Sie eigene Maschinenprogramme mit 
diesen Kommandos aufrufen. 


9.3 Die Variablen 

Zur Verwaltung der Variablen gibt es ebenfalls etwas zu sagen. 
Wenn Sie Ihr BASIC-Programm ändern, so werden die bestehen¬ 
den Variablen nicht gelöscht. Auch nach einer Fehlermeldung 
sind alle Variablenwerte noch vorhanden. Das Originalhandbuch 
von Commodore ist in diesem Punkt (Kap. 3-7) bedauer¬ 
licherweise falsch. Dieser Unterschied zum C64 und den anderen 
Commodore-Computern kann viel Kopfzerbrechen bereiten, 
erinnert man sich an diese Tatsache einmal nicht. Sollten Sie 
jetzt denken, daß Sie Ihr Programm nach einer Fehlermeldung 
einfach ändern und mit GOTO weiterlaufen lassen können, so 
ist das trotzdem nicht möglich. Das BASIC 7.0 löscht nach 
Änderungen zwar nicht die Variablen, aber alle Parameter für 
FOR-NEXT-Schleifen, GOSUB-Befehle und alle anderen 
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Sprung- oder Schleifenbefehle gehen verloren (der BASIC-Stack 
also). 


9.4 Die Speicheraufteilung 

Wie Sie wissen, hat Ihr Commodore 128 zwei RAM-Bänke zu je 
64 KByte. Diese werden vom BASIC 7.0 fast vollständig 
ausgenutzt. Das BASIC 7.0 trennt strikt nach Programm und 
Variablen. Programme sind ausschließlich in Bank 0 vorhanden. 
Variablen dagegen in Bank 1. 

Der Grafikspeicher fällt etwas aus dem Rahmen, da er nur dann 
reserviert wird, wenn wirklich Grafik dargestellt werden soll. 
Wenn Sie den GRAPHIC-Befehl zum ersten Mal benutzen, wird 
Ihr BASIC-Programm um 9 KByte in der Bank 0 nach oben 
verschoben. Alle Adressen auf dem Prozessorstack oder 
anderswo, die in das Programm zeigen, werden durch eine sehr 
aufwendige Routine in der Reservierung ab $9F4F angepaßt. 
Ein BASIC-Programm liegt dann nicht mehr ab $1C00 im 
Speicher sondern, ab $4000. Der Speicher von $1C00 bis $1FFF 
wird dann als Farb-RAM für die Grafik benutzt. Die Grafik 
selber belegt die restlichen 8 KByte von $2000 bis $4000. Sobald 
Sie den GRAPHIC CLR-Befehl benutzen, wird der 
Grafikspeicher gelöscht und das Programm wieder nach $IC00 
verschoben. Nicht nur die Verwaltung der Variablen ist also 
dynamisch, auch die Programmbank wird so verwaltet. 

In der Variablenbank 1 werden am Anfang die einfachen 
Variablen gespeichert. Direkt dahinter sind die Feldvariablen 
( Arrays ) zu finden. Der folgende Speicher ist frei. Vom Ende 
des Variablenspeichers abwärts werden die Stringinhalte 
gespeichert. Damit der Interpreter sich zurechtfindet, verwaltet 
er die Zeiger ($2D) bis ($35) für Programm und Daten. Das 
Programmende ist in ($1210) und das Ende des verfügbaren 
Programmspeichers in ($1212) gespeichert. 
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9.5 Dateiformate des BASIC 7.0 
9.5.1 Das Programmzeilenformat 

Eine Programmzeile beginnt im Speicher mit einer Verket¬ 
tungsadresse (Linkadresse) auf die nächste Zeile. Die Link¬ 
adresse besteht aus zwei Byte. Sie erleichtert das schnelle 
Auffinden von einzelnen Zeilen. Ist die Linkadresse gleich Null, 
dann ist das Programmende erreicht. Es folgen dann keine Daten 
mehr. 

Die folgenden zwei Byte geben die Zeilennummer der Zeile an. 

Nun folgt der Programmtext der Zeile. Befehle sind als Token 
abgelegt. Eine Programmzeile kann theoretisch maximal 250 
Zeichen Text beinhalten, ohne den Interpreter zu verwirren. 
Praktisch ist diese Zahl aber durch die Länge des 
Eingabepuffers auf 160 beschränkt. 

Ein Null-Byte $00 schließt jede Programmzeile ab. Das Null- 
Byte hat aber noch eine zweite Funktion. Es zeigt auch an, daß 
danach wieder eine Verkettungsadresse folgt. Demnach zeigt es 
gleichzeitig auch den Anfang einer Programmzeile an. Das läßt 
sich sehr anschaulich zeigen. Tippen Sie einfach einmal zwei 
Zeilen Programm irgendeiner Art ein. Schreiben Sie nun mit 
dem Monitor in die Speicherzelle $1C00 einen Wert ungleich 
null. Geben Sie nun 

RUN 

ein. Sie erhalten eine Fehlermeldung vom Interpreter, der das 
Null-Byte in $1C00 nicht gefunden hat; er konnte also nicht den 
Anfang einer neuen Programmzeile oder einen Doppelpunkt als 
Trennzeichen finden und hat dies gemeldet. Auch das Eintippen 
von 


NEW 

löst das Problem nicht. Erst ein Schreiben von $00 an die 
Adresse $1C00 läßt die Fehlermeldung wieder verschwinden. 
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9.5.2 Das Format von Realzahlen 

Das Format von reellen Zahlen ist etwas kompliziert. Es gibt 
nämlich zwei Möglichkeiten der Darstellung: Das Speicherformat 
und das sogenannte FAC-Format. 

Das Speicherformat einer Realzahl belegt fünf Byte. Im ersten 
Byte ist der Exponent gespeichert. Ist die Zahl Null, so ist der 
Exponent auch Null. Ist die Zahl aber nicht Null, dann ist der 
Grundwert des Exponenten immer $80, also dezimal 128. Man 
hat deshalb nach unten und nach oben jeweils 127 Werte Platz, 
was einen Exponentenbereich von -127 bis +127 ermöglicht. In 
den restlichen vier Byte ist der Realteil der Zahl - die 
sogenannte Mantisse - gespeichert. Das höchstwertige Bit des 
Realteils, das immer eins wäre, ist nicht abgespeichert. Es wird 
von den Arithmetikroutinen aus dem Realteil herausgeschoben. 
Der Exponent wird entsprechend angepaßt. Dieser Vorgang 
heißt Normalisierung. Das Vorzeichen der Zahl belegt Bit 7 des 
zweiten Bytes im Speicherformat. 

Das FAC-Format (Floating-point-ACumulator), das seinen 
Namen von der englischen Bezeichnung der Rechenregister hat, 
ist etwas anders aufgebaut als das Speicherformat. Es besteht aus 
sechs Byte. Im ersten Byte ist der Exponent gespeichert. Das 
zweite Byte ist fast identisch mit dem des Speicherformats. Das 
Vorzeichen in Bit 7 ist aber immer gesetzt. Byte drei bis fünf 
entsprechen denen des Speicherformats. Byte sechs enthält 
ausschließlich das Vorzeichen aus Bit 2 des Speicherformats. 

Wichtig für Sie ist normalerweise nur das Speicherformat, da das 
FAC-Format automatisch vom Interpreter erzeugt und nur zum 
Rechnen benutzt wird. 

9.5.3 Das Format von Integerzahlen 

Die Integerzahlen belegen jeweils zwei Byte. Sie sind im 
High/Low-Format abgespeichert. Das höherwertige Byte kommt 
also immer zuerst! Beachten Sie diesen Unterschied zur 
Assemblerprogrammierung des 6502 unbedingt. Die Integer¬ 
zahlen sind in Zweierkomplementform gespeichert. Das 
bedeutet, daß negative Zahlen gebildet werden, indem man die 
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normalen positiven invertiert und eins aufaddiert. Das 

Vorzeichen einer Zahl läßt sich also im Bit 7 des High-Bytes 

erkennen. Einige Beispiele hierzu: 

+5 = $00 $05 
-5 = $FF $FB 
+32767 = $7F $FF 
-32768 = $80 $00 

Integerzahlen haben also einen Wertebereich von -32768 bis 

+32767. Das BASIC 7.0 besitzt aber leider keine Integer¬ 
arithmetik. Jede Integerzahl wird zuerst in eine Realzahl 
gewandelt. Nach einer Rechenoperation wird das reelle Ergebnis 
wieder in das Integerformat konvertiert. Sie sehen, die 

Benutzung von Integerwerten bringt keinerlei Vorteile. 


9.5.4 Das Format der Variablcnnamen 

Jeder Variablenname hat zwei gültige Zeichen. Ist kein zweites 
Zeichen angegeben, so wird stattdessen ein Null-Byte verwendet. 
Der Variablentyp ist im Bit 7 der beiden Zeichen angegeben. 
Dabei gelten folgende Zuordnungen: 


Realvariable: 
Funktion: 
Stringvariable: 
Integervariable: 


Zeichen 1 
Zeichen 1 + $80 
Zeichen 1 
Zeichen 1 + $80 


Zeichen 2 
Zeichen 2 
Zeichen 2 + $80 
Zeichen 2 + $80 


Wie Sie sehen, werden auch Funktionen als Variable im Speicher 
abgelegt. Deshalb wird das Format eines Funktionsnamens hier 
ebenfalls beschrieben. 


9.5.5 Das Format von Realvariablen 

Realvariablen belegen im Speicher sieben Byte. Der Name ist 
wie in Kapitel 9.5.4 beschrieben kodiert. Die eigentliche 
Realzahl ist im Speicherformat abgelegt. 

Eine Realvariable hat folgendes Format im Speicher: 
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Byte 1: Name 1 
Byte 2: Name 2 

Byte 3: Höchstwertiges Byte der Mantisse 

Byte 4: Mantissenbyte 

Byte 5: Mantissenbyte 

Byte 6: Mantissenbyte 

Byte 7: Niederwertiges Byte der Mantisse 


Sie müssen sich nicht um das Speicherformat der Realzahl 
kümmern, wollen Sie nicht in Maschinensprache direkt Einfluß 
hierauf nehmen. Die ROM-Routinen, die einen Wert aus dem 
Speicher in ein Rechenregister (FAC) des Interpreters kopieren, 
verarbeiten das Speicherformat automatisch. 


9.5.6 Das Format von Funktionen 

Auch Funktionen, die Sie mit dem BASIC-Befehl DEF FN 
definiert haben, werden wie normale Variablen im Speicher 
abgelegt (wir erwähnten dies bereits). Sie belegen ebenfalls 
sieben Byte und unterscheiden sich nur in der Kodierung des 
Namens von den anderen Variablen. 

Eine Funktion hat folgendes Format im Speicher: 


Byte 1: Name 1 + $80 
Byte 2: Name 2 

Byte 3: Zeiger auf Funktion Low 
Byte 4: Zeiger auf Funktion High 
Byte 5: Zeiger auf Funktionsvariable Low 
Byte 6: Zeiger auf FunktionBvariable High 
Byte 7: Unbenutzt 


9.5.7 Das Format von Stringvariablen 

Stringvariablen belegen im Speicher sieben Byte. Sie beinhalten 
nicht den eigentlichen String, sondern nur die Länge und die 
Adresse des Strings. 

Eine Stringvariable hat folgendes Format im Speicher: 
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Byte 1: Name 1 
Byte 2: Name 2 + $80 
Byte 3: Stringlänge 
Byte 4: Stringadresse Low 
Byte 5: Stringadresse High 
Byte 6: $00 
Byte 7: $00 


Zwei Byte werden also nicht benutzt, weswegen man möglichst 
viel in einem String speichern sollte. Die eigentlichen Strings 
werden vom Ende des Variablenspeichers ab abwärts angelegt. 
Am Ende jedes Strings werden noch zwei Zeigerbyte angelegt, 
der sogenannte Trailer. Er zeigt auf die Stringlänge: Byte 3 der 
Variablendefinition. Wird der String durch irgendeine Operation 
ungültig, so wird er nicht gelöscht. Im Low-Byte des Trailers 
wird die Stringlänge eingetragen und das High-Byte des Trailers 
wird einfach auf $FF gesetzt. Der alte String gilt damit als 
ungültig. Nun wird ein neuer Platz für den neu erstellten String 
reserviert. Die Vernichtung der alten Strings wird in der 
Garbage Collection erledigt (Kapitel 9.6). 


9.5.8 Das Format von Integervariablen 

Integervariablen belegen im Speicher sieben Byte und haben das 
folgende Format im Speicher: 


Byte 1: Name 1 + $80 
Byte 2: Name 2 + $80 
Byte 3: High-Byte 
Byte 4: Low-Byte 
Byte 5: $00 
Byte 6: $00 
Byte 7: $00 


Wie man sieht, ist jede Verwendung einer Integervariablen 
Verschwendung von drei Byte. Außerdem verlangsamen 
Integervariablen den Rechenvorgang des Interpreters nur, da er 
keine Integerarithmetik besitzt und jede ganze Zahl erst in eine 
Realzahl wandelt, bevor er sie verarbeitet. 
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9.5.9 Das Format von Feldern 

Felder (Arrays) benötigen etwas mehr Verwaltungsaufwand als 
einfache Variablen. Da Feldvariablen nicht mit den einfachen 
Variablen gemischt sind, sondern im Speicher dahinter gespei¬ 
chert werden, ist keine besondere Bezeichnung nötig. Ein Feld 
besteht aus einem Feldkopf (Deskriptorblock), der die 
Eigenschaften und die Größe des Feldes beschreibt, sowie dem 
gesamten Feldinhalt. In den ersten zwei Byte finden Sie den 
Namen des Feldes. In den nächsten zwei Byte ist die Gesamt¬ 
länge des Feldes gespeichert. Der Interpreter benutzt diese 
Adreßangabe, um beim Suchen ein Feld schnell überspringen zu 
können. In Byte 5 ist die Anzahl der Felddimensionen 
abgespeichert. Ab Byte 6 finden Sie dann die Größen der 
einzelnen Dimensionen. Da man mehr als 255 Elemente pro 
Dimension benutzen darf, wird jede einzelne Größe als 
Adreßangabe gespeichert und belegt demnach zwei Byte. Die 
letzte Dimension, die im DIM-Befehl genannt worden ist, wird 
als erste angegeben. Sie müssen also auf die umgekehrte 
Reihenfolge achten. Der Feldinhalt schließt sich direkt an. Ist 
das Feld eindimensional, so werden die Elemente der Reihe nach 
abgelegt, bei mehrdimensionalen Feldern spaltenweise. Die 
Größe eines Elementes richtet sich nach dem Feldtyp. Ein 
Realelement belegt fünf Byte und ist im Speicherformat abge¬ 
legt. Ein Integerelement benötigt dagegen nur zwei Byte. Ein 
Stringelement braucht drei Byte, da nicht nur die Adresse 
sondern auch die Länge des Strings abgespeichert werden muß. 

Wenn Sie statt einfachen Integervariablen Integerfelder benutzen 
sollten, dann sparen Sie erheblich an Speicherplatz. Denn auch 
60 KByte Speicher für Variablen können sehr schnell belegt 
sein. 

9.6 Die Garbage Collection 

Was soll eine Müllsammlung in Ihrem Commodore 128? Das ist 
einfach zu erklären. Wird vom Interpreter für einen alten String 
ein neuer angelegt (beispielsweise bei Addition eines Zeichens), 
so wird der alte String nicht gelöscht. Durch einen Vermerk im 
Trailer wird er einfach für ungültig erklärt, der neue String 
bekommt einen eigenen Platz zugewiesen. Bei intensiver 
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Benutzung von Strings in Ihrem Programm kann es nun dazu 
kommen, daß der Variablenspeicher "bis zum Rand" gefüllt ist. 
Wenn der Interpreter dies feststellt, dann gibt er nicht einfach 
einen Fehler aus. Er versucht erst einmal den gesamten 
Stringmüll, der den Speicher füllt, zu sammeln und zu löschen. 

Wie funktioniert nun die Garbage Collection? Der Interpreter 
durchsucht die Strings vom Ende des Speichers an. Anhand des 
Trailers kann er die Länge eines Strings sehr schnell finden und 
überspringt gültige Strings. Findet er aber einen ungültigen 
String, bei dem das High-Byte des Trailers $FF ist, so holt er 
sich aus dem Low-Byte die Länge des Strings, schiebt vom 
Anfang des Stringspeichers an alle anderen Strings nach oben 
und löscht auf diese Weise den ungültigen String. Nun werden 
werden alle Zeiger (Deskriptoren) auf die verschobenen Strings 
in den Variablen- und Feldbeschreibungen angepaßt. Danach 
wird von der aktuellen Position aus der nächste ungültige String 
gesucht und gelöscht, bis der Anfang des Stringspeichers erreicht 
ist. Durch die Übernahme des Trailers aus dem BASIC 4.0 in 
das BASIC 7.0 konnte die Stringverarbeitung gegenüber dem 
BASIC 2.0 des C64 so extrem beschleunigt werden, daß man sie 
kaum noch bemerkt. 


9.7 Die Stacks 

Wieso Stacks, der Prozessor hat doch nur einen Stapelspeicher, 
werden Sie sagen. Das stimmt schon, aber das BASIC 7.0 
verwaltet noch einen eigenen Stack ab $0800 für Informationen 
über FOR-NEXT-Schleifen, GOSUB-Befehle und die anderen 
Sprung- und Schleifenbefehle. Der Prozessorstapel wird vom 
BASIC 7.0 auch benutzt, aber nur zur Auswertung von 
Ausdrücken. Beim C64 waren diese Informationen alle auf dem 
Prozessorstapel gespeichert. Da bei Ihrem Commodore 128 aber 
nun ein eigener Speicher für das BASIC 7.0 vorhanden ist, 
können Sie wesentlich mehr Schleifen und Unterprogramm¬ 
aufrufe verwenden, ohne eine Fehlermeldung zu verursachen. 
Probieren sie dieses kleine Programm einmal im C64-Modus und 
dann wieder im C128-Modus aus: 
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10 a=0 

20 a=a+1 :printa:gosub20 


Der Unterschied der Zahlen, die zuletzt ausgegeben werden, ist 
sicherlich interessant. 


9.8 Interrupts im BASIC 7.0 

Programmunterbrechungen werden im BASIC 7.0 durch den 
COLLISION-Befehl erlaubt. Das BASIC 7.0 hat eine eigene 
Interruptroutine, die vom Betriebssystem zusammen mit der 
Tastaturabfrage regelmäßig aufgerufen wird. Falls die 
Interruptlogik eingeschaltet ist, setzt diese Routine entspre¬ 
chende Flags, falls zum Beispiel der Lichtgriffel benutzt worden 
ist. Der Interpreter testet bei jedem Befehlsaufruf, ob ein Flag 
gesetzt worden ist. Wenn dies passiert ist, dann rettet er die 
Arbeitswerte auf den Stapel, sperrt die Interruptlogik und ruft 
sich selbst - und damit das entsprechende Unterprogramm - mit 
dem GOSUB-Befehl rekursiv auf. 

Eine etwas andere Art der Programmunterbrechung wird vom 
TRAP-Befehl unterstützt. Tritt im Programm ein Fehler auf, 
dann wird getestet, ob mit dem TRAP-Befehl eine Fehler¬ 
behandlung programmiert worden ist. Fällt dieser Test positiv 
aus, dann rettet der Interpreter die Arbeitsdaten nicht auf den 
Stapel, sondern in einen eigenen Speicher für TRAP-Daten. Er 
blockiert dann die Fehlerbehandlung und ruft sich selbst direkt 
mit dem GOTO-Befehl auf, um die Routine für die 
Fehlerbehandlung anzuspringen. 


9.9 Nutzung der BASIC-ROM-Routinen 
9.9.1 Das Sprungmodul 

Sicher können Sie sich unter der Überschrift noch nicht viel 
vorstellen. Aber haben Sie schon einmal die Routinen des 
Betriebssystems JSRFAR $FF6E und JMPFAR $FF71 benutzt, 
um ROM-Routinen aufzurufen? Dann wissen Sie sicher, daß es 
mehr als unangenehm ist, jedesmal alle nötigen Übergabe¬ 
parameter zu setzen (Siehe Kapitel 7). Diese Arbeit nimmt Ihnen 
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das Sprungmodul ab. Es erlaubt Ihnen von jeder Stelle im 
Speicher jede andere anzuspringen, ohne daß Sie sich mit dem 
Einschalten des ROM oder der Übergabe von Parametern 
abquälen müssen. Wenn Sie früher das Glockenzeichen $07 
ausgeben wollten, so mußten Sie erst mühselig die 
Zeropageadressen $02 bis $09 setzen, bevor Sie die Ausgabe 
$FFD2 anspringen konnten. Genau das geht nun einfacher: 

5000: a9 07 Ida #$07 

5002: 20 00 17 jsr $1700 

5005: 20 d2 ff jsr $ffd2 

5008: 24 Of bit $0f 

500a: ... 


Sie laden einfach das Glockenzeichen $07 in den Akku und 
springen das Sprungmodul ab $1700 an. Es erwartet als nächsten 
Befehl einen JSR mit der Adresse, an die Sie zu springen 
wünschen. Außerdem ist die Angabe der Bank - in diesem Fall 
15 - nötig. Sie brauchen sich auch nicht um irgendwelche Flags 
zu kümmern. Die Prozessorregister und der Status bleiben ebenso 
wie der Stackpointer erhalten. Das Programm wird mit dem 
Befehl fortgesetzt, der auf den BIT-Befehl folgt. 

Wollen Sie nicht mit JSR, sondern mit JMP eine andere Routine 
aufrufen, so sieht das fast genauso aus: 


5000 

a9 

07 


Ida 

#$07 

5002 

20 

03 

17 

jsr 

$1703 

5005 

4c 

d2 

ff 

jmp 

$ffd2 

5008 

24 

Of 


bi t 

$0f 


Sie sehen, es ist nur ein Sprung nach $1703 und dann ein JMP 
an die Adresse mit Bank-Angabe erforderlich. Auch hier bleiben 
alle Register und Flags erhalten. 

Diese Möglichkeit, ein Programm zu schreiben, das viele ROM- 
Routinen benutzt, ist sicher nicht die, die durch überragende 
Geschwindigkeit überzeugt. Sie hilft jedoch, ein Programm 
wesentlich übersichtlicher zu gestalten, und macht es außerdem 
leichter verschiebbar. Natürlich ist das Sprungmodul nicht nur 
für ROM-Routinen benutzbar. Es erlaubt auch den Ansprung 
einer anderen RAM-Bank. 
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Für die besonders Interessierten hier zuerst das Listing des 
Sprungmoduls im Assembler: 


1700 

4c 

40 

17 

jmp 

$1740 

Einsprung für JSR 

1703 

4c 

63 

17 

jmp 

$1763 

Einsprung für JMP 

1706 

85 

06 


sta 

$06 

Register setzen 

1708 

86 

07 


stx 

$07 


170a 

84 

08 


sty 

$08 


170c 

08 



php 


Status setzen 

170d 

68 



pla 



170e 

85 

05 


sta 

$05 


1710 

ba 



tsx 



1711 

bd 

03 

01 

Ida 

$0103,x 

Rücksprungadresse 

1714 

85 

03 


sta 

$03 

als Vektor setzen 

1716 

18 



clc 



1717 

69 

05 


ade 

#$05 

und hinter Bank-Angabe 

1719 

9d 

03 

01 

sta 

$0103,x 

setzen 

171c 

bd 

04 

01 

Ida 

$0104,x 


171 f 

85 

04 


sta 

$04 


1721 

69 

00 


ade 

#$00 


1723 

9d 

04 

01 

sta 

$0104,x 


1726 

aO 

01 


tdy 

#$01 


1728 

bl 

03 


Ida 

($03),y 

Befehlsbyte $20 oder $4C 

172a 

48 



pha 


retten 

172b 

c8 



iny 



172c 

bl 

03 


Ida 

($03),y 

Zieladresse holen 

172e 

48 



pha 


und retten 

172 f 

c8 



iny 



1730 

bl 

03 


Ida 

($03),y 


1732 

aa 



tax 



1733 

c8 



iny 



1734 

c8 



iny 



1735 

bl 

03 


Ida 

($03),y 

Bank holen 

1737 

85 

02 


sta 

$02 

und setzen 

1739 

86 

03 


stx 

$03 

Zieladresse setzen 

173b 

68 



pla 



173c 

85 

04 


sta 

$04 


173e 

68 



pla 


Befehlsbyte wieder holen 

173 f 

60 



rts 



1740 

20 

06 

17 

jsr 

$1706 

Adresse auswerten 

1743 

c9 

20 


emp 

#$20 

JSR-Befehl ? 

1745 

fO 

01 


beq 

$1748 

Ja, Skip 
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1747 

00 



brk 

1748 

ad 

00 

ff 

Ida SffOO 

174b 

48 



pha 

174c 

29 

cO 


and #$c0 

174e 

8d 

00 

ff 

sta SffOO 

1751 

20 

6e 

ff 

jsr Sff6e 

1754 

68 



pla 

1755 

8d 

00 

ff 

sta SffOO 

1758 

a5 

05 


Ida S05 

175a 

48 



pha 

175b 

a5 

06 


Ida S06 

175d 

a6 

07 


Idx S07 

175 f 

a4 

08 


Idy $08 

1761 

28 



plp 

1762 

60 



rts 

1763 

20 

06 

17 

jsr $1706 

1766 

c9 

4c 


cmp #$4c 

1768 

dO 

dd 


bne $1747 

176a 

68 



pla 

176b 

68 



pla 

176c 

ad 

00 

ff 

Ida SffOO 

176f 

29 

cO 


and #$c0 

1771 

8d 

00 

ff 

sta SffOO 

1774 

4c 

71 

ff 

jmp Sff71 


Fehler 

MMU-Uert retten 

ROM einblenden 

JSRFAR aufrufen 

MMU-Uert wieder setzen 
Status holen 

Register setzen 

und Status setzen 

Adresse auswerten 
JMP-Befehl ? 

Nein, Fehler 

Rücksprungadresse 

löschen 

ROM einblenden 


und JMPFAR aufrufen 


Sie können das Sprungmodul in jeden Speicherbereich legen, der 
nicht von ROM überdeckt werden kann. Wollen Sie es in beiden 
Speicherbänken nutzen, so muß es in jeder vorhanden sein. Es 
ist sehr leicht verschiebbar, da nur vier Adressen geändert 
werden müssen. Damit Sie nicht soviel Ärger beim Eintippen 
haben, ist das Sprungmodul hier noch einmal als Speicherauszug 
aufgelistet. Sie müssen die Zeilen nur mit dem Monitor eingeben 
und abspeichern. 
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>01700 4c 40 17 4c 63 17 85 06 86 07 84 08 08 68 85 05 
>01710 ba bd 03 01 85 03 18 69 05 9d 03 01 bd 04 01 85 
>01720 04 69 00 9d 04 01 aO 01 bl 03 48 c8 bl 03 48 c8 
>01730 bl 03 aa c8 c8 bl 03 85 02 86 03 68 85 04 68 60 
>01740 20 06 17 c9 20 fO 01 00 ad 00 ff 48 29 cO 8d 00 
>01750 ff 20 6e ff 68 8d 00 ff a5 05 48 a5 06 a6 07 a4 
>01760 08 28 60 20 06 17 c9 4c dO dd 68 68 ad 00 ff 29 
>01770 cO 8d 00 ff 4c 71 ff 

Das Sprungmodul ist die Grundlage für das folgende Kapitel 
dieses Buches. Sie sollten es also eintippen. Es sind nicht 
besonders viele Byte, aber diese wenigen sind sehr nützlich. 


9.10 Interessante BASIC-ROM-Routinen 

Das BASIC 7.0 Ihres Commodore 128 besitzt zwar keine offiziell 
anerkannte Sprungvektortabelle wie das Betriebssystem ab 
$FFxx, es ist aber trotzdem eine vorhanden. Sie liegt ab $AFxx, 
wie Sie auch im ROM-Listing sehen können, und enthält 
hauptsächlich Vektoren für die Fließpunktarithmetik. Diese sind 
natürlich für jede Form von rechenintensiven Programmen sehr 
nützlich und zum Glück auch einfach zu benutzen. Versuchen 
wir die einzelnen Routinen etwas näher nach Bedeutung und 
Bedienung zu beleuchten. Eine Anmerkung sei noch erlaubt; 
Commodore ändert zwar in den seltensten Fällen etwas 
freiwillig, aber wenn Commodore etwas macht, so meistens 
heimlich. Überzeugen Sie sich also besser vorher anhand des 
ROM-Listings, ob diese Sprungtabelle in Ihrem Commodore 128 
überhaupt in diesem Format vorhanden ist! 

Doch nun zu den einzelnen Routinen, die in der Sprungtabelle 
verzeichnet sind: Sind nur sehr wenige Parameter unmittelbar 
nötig, so sind diese als Eingabeparameter aufgeführt. Sind mehr 
nötig, sind es im Normalfall so viele, daß eine Aufzählung nicht 
mehr informativ ist. Auf jeden Fall sollten Sie die einzelnen 
Routinen auch im ROM-Listing nachschlagen, damit keine 
Irrtümer entstehen. 
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Adresse: SAFOO 

Zweck: FAC#1 in Integerformat bringen 

Wenn man diese Routine anspringt, so wird die Fließpunktzahl 
in FAC#1 in einen Integerwert in $66 und $67 gewandelt, wobei 
$66 das High-Byte und $67 das Low-Byte ist. Liegt die Realzahl 
nicht im Integerbereich, so wird eine Fehlermeldung ausgegeben. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF03 

Zweck: Integerwert in FAC#1 bringen 

Der Integerwert, den Sie im Akku und im Y-Register 
übergeben, wird in eine Real-Zahl in FAC#1 gewandelt. 

Eingabeparameter: .A, .Y 
Ausgabe parameter: keine 


Adresse: $AF06 

Zweck: FAC#1 in ASCII-Format wandeln 

Diese Routine wandelt die Realzahl im FAC#1 in einen ASCII- 
String ab $0100 um. Beendet wird der String durch ein Null- 
Byte. Übergeben wird im Akku und im Y-Register die Adresse 
$0100 als Zeiger auf den String. 

Eingabeparameter: keine 
Ausgabe parameter: .A, .Y 


Adresse: $AF09 

Zweck: ASCII-Zahlenstring in FAC#1 bringen 

Wenn man dieser Routine im Akku die Länge und in ($24) die 
Adresse eines Zahlenstrings in RAM-Bank 1 übergibt, so wird 
dieser in eine Realzahl in FAC#1 gewandelt, soweit er als Zahl 
erkannt werden kann. 
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Eingabe parameter: ,A,($24) 
Ausgabeparameter: keine 


Adresse: $AFOC 

Zweck: FAC#1 in Adreßformat wandeln 

Die Realzahl in FAC#1 wird in einen Adreßwert in ($16) 
gewandelt. Gleichzeitig wird dieser Wert im Y-Register und im 
Akku übergeben. Bei Bereichsüberschreitung wird eine 
Fehlermeldung ausgegeben. 

Eingabeparameter: keine 
Ausgabeparameter: .Y, .A, ($16) 


Adresse: $AF0F 

Zweck: Adreßwert in FAC#1 bringen 

Diese Routine ist nur im Zusammenhang mit $84E5 einfach und 
sinnvoll zu verwenden! Im Y-Register und im Akku muß der 
Adreßwert übergeben werden. Dann wird zuerst $84E5 und 
dann $AF0F angesprungen. Der Adreßwert steht dann als 
Realzahl in FAC# 1. 

Eingabeparameter: .Y, .A,Routine $84E5! 

Ausgabeparameter: keine 


Adresse: $AF12 

Zweck: FAC#1 = Konstante - FAC#1 

Mit dieser Routine wird vom FAC#I eine Realkonstante im 
Speicherformat aus Bank 1 abgezogen. Die Adresse der 
Konstante wird im Akku und im Y-Register übergeben. Eine 
Bereichsüberschreitung verursacht eine Fehlermeldung. 


Eingabeparameter: .A, .Y 
Ausgabeparameter: keine 
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Adresse: $AF15 

Zweck: FAC#1 = FAC#2 - FAC#1 

Der FAC#1 wird vom FAC#2 abgezogen, das Ergebnis steht im 
FAC#1. Bei Bereichsüberschreitung wird eine Fehlermeldung 
ausgegeben. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF18 

Zweck: FAC#1 = Konstante + FAC#1 

Mit dieser Routine wird eine Realkonstante im Speicherformat 
aus Bank 1 auf den FAC#1 aufaddiert. Die Adresse der 
Konstanten wird im Akku und im Y-Register übergeben. Eine 
Bereichsüberschreitung verursacht eine Fehlermeldung. 

Eingabeparameter: .A, .Y 
Ausgabeparameier: keine 


Adresse: $AF1B 

Zweck: FAC#1 = FAC#2 + FAC#1 

Der FAC#2 wird auf den FAC#1 aufaddiert, das Ergebnis steht 
im FAC#1. Bei Bereichsüberschreitung wird eine Fehlermeldung 
ausgegeben. 

Eingabeparameter: keine 
Ausgabe parameter: keine 


Adresse: $AF1E 

Zweck: FAC#1 = Konstante * FAC#1 

Mit dieser Routine wird eine Realkonstante im Speicherformat 
aus Bank 1 mit dem FAC#1 multipliziert. Die Adresse der 
Konstanten wird im Akku und im Y-Register übergeben. Eine 
Bereichsüberschreitung verursacht eine Fehlermeldung. 
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Eingabeparameter: .A, .Y 
Ausgabeparameter: keine 


Adresse: $AF21 

Zweck: FAC#1 = FAC#2 * FAC#1 

Der FAC#2 wird dem FAC#1 multipliziert, das Ergebnis steht 
im FAC#1. Bei Bereichsüberschreitung wird eine Fehlermeldung 
ausgegeben. 

Eingabeparameter: keine 
Ausgabe parameter: keine 


Adresse: $AF24 

Zweck: FAC#1 = Konstante / FAC#1 

Mit dieser Routine wird eine Realkonstante im Speicherformat 
aus Bank 1 durch den FAC#1 geteilt. Die Adresse der Konstan¬ 
ten wird im Akku und im Y-Register übergeben. Eine Bereichs¬ 
überschreitung verursacht eine Fehlermeldung. 

Eingabeparameter: .A, .Y 
Ausgabe parameter: keine 


Adresse: $AF27 

Zweck: FAC#1 = FAC#2 , FAC#1 

Der FAC#2 wird durch den FAC#1 geteilt, das Ergebnis steht 
im FAC#1. Bei Bereichsüberschreitung wird eine Fehlermeldung 
ausgegeben. 


Eingabeparameter: keine 
Ausgabeparameter: keine 
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Adresse: $AF2A 

Zweck: FAC#1 = LOG(FAC#l) 

Diese Routine entspricht der LOG-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF2D 

Zweck: FAC#1 = INT(FAC#1) 

Diese Routine entspricht der INT-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF30 

Zweck: FAC#1 = SQR(FAC#1) 

Diese Routine entspricht der SQR-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF33 

Zweck: Vorzeichenwechsel FAC#1 

Sie können mit dieser Routine ganz einfach das Vorzeichen des 
FAC#1 wechseln. 
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Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF36 

Zweck: FAC#1 = FAC#2 A Konstante 

Der FAC#2 wird mit einer Konstanten im Speicherformat 
potenziert. Die Adresse der Konstanten wird im Akku und im 
Y-Register übergeben. Das Ergebnis steht in FAC#1. Illegale 
Werte verursachen eine Fehlermeldung. Diese Routine ist nur 
mit Vorsicht zu genießen, da die Konstante aus der aktuellen 
Speicherkonfiguration geladen wird. Ist an der entsprechenden 
Stelle ein ROM eingeschaltet, so wird die Konstante auch von 
dort geladen. Speichern Sie Ihre Konstante einfach in die Bank 0 
unter $4000, und geben Sie dem Sprungmodul aus 3.1 als 
Bankwert 15 an. Sie ersparen sich so Ärger. 

Eingabeparameter: .A, .Y 
Ausgabeparameier: keine 


Adresse: $AF39 

Zweck: FAC#1 = FAC#2 A FAC#1 

Der FAC#2 wird mit dem FAC#1 potenziert. Das Ergebnis steht 
in FAC#1. Illegale Werte verursachen eine Fehlermeldung. Auch 
diese Routine verursacht ein Problem. Sie müssen vor dem 
Aufruf folgenden Befehl ausführen: 

LDA $63 

Dann funktioniert sie aber einwandfrei. 


Eingabeparameter: ,A als Inhalt von $63 
Ausgabeparameier: keine 
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Adresse: $AF3C 

Zweck: FAC#1 = EXP(FAC#1) 

Diese Routine entspricht der EXP-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF3F 

Zweck: FAC#1 = COS(FAC#l) 

Diese Routine entspricht der COS-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: SAF42 

Zweck: FAC#1 = SIN(FAC#1) 

Diese Routine entspricht der SIN-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF45 

Zweck: FAC#1 = TAN(FAC#1) 

Diese Routine entspricht der TAN-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 
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Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF48 

Zweck: FAC#1 = ATN(FAC#1) 

Diese Routine entspricht der ATN-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: SAF4B 
Zweck: FAC#1 runden 

Der FAC#1 wird gerundet. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF4E 

Zweck: FAC#1 = ABS(FAC#1) 

Diese Routine entspricht der ABS-Funktion des BASIC 7.0. Das 
Ergebnis steht in FAC#1. Illegale Werte verursachen eine 
Fehlermeldung. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: SAF51 

Zweck: Vorzeichen von FAC#1 holen 

Nach Ansprung dieser Routine steht im Akku das Vorzeichen 
vom FAC#1. Der Wert $01 bedeutet größer Null, $FF kleiner 
Null und $00 bedeutet, daß der FAC#1 gleich Null ist. 
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Eingabeparameter: keine 
Ausgabeparameter: .A 


Aaresse: $AF54 

7.weck: Vergleich Konstante mit FAC#1 

Diese Routine vergleicht eine Realkonstante im Speicherformat 
mit dem FAC#1. Die Adresse der Konstante wird im Akku und 
im Y-Register übergeben. Das Vergleichsergebnis wird im Akku 
übergeben. Es entspricht dem der Routine $AF51, der 
Vergleichswert ist aber nicht Null, sondern die Konstante. Hier 
tritt dasselbe Problem wie bei $AF36 auf. Die Konstante wird 
aus der aktuellen Speicherkonfiguration geladen, also auch aus 
dem ROM, falls dies eingeschaltet ist. Legen Sie Ihre Konstante 
also ins RAM unter $4000, um Probleme zu vermeiden. 

Eingabeparameter: .A, .Y 
Ausgabeparameter: ,A 


Adresse: $AF57 

Zweck: FAC#1 = RND(FAC#1) 

Diese Routine entspricht der RND-Funktion des BASIC 7.0, das 
Ergebnis steht im FAC#1. Bevor diese Routine aufgerufen wird, 
muß folgender Befehl ausgeführt werden, um die Flags zu 
setzen: 

LDA $63 

Dann gibt es aber ebenso wie bei $AF39 keine Probleme mehr. 

Eingabeparameter: .A als Inhalt von $63 
Ausgabeparameter: keine 


Adresse: $AF5A 

Zweck: FAC#2 = Konstante aus Bank 1 

Eine Realkonstante aus Bank 1 wird in den FAC#2 geladen. Die 
Adresse der Konstanten wird im Akku und im Y-Register 
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übergeben. Im Akku bekommen Sie den Exponenten des FAC#1 
als Wert zurück. 

Eingabeparameter: .A, .Y 
Ausgabeparameter: .A 


Adresse: $AF5D 

Zweck: FAC#2 = Konstante 

Eine Realkonstante wird in den FAC#2 geladen. Die Adresse 
der Konstanten wird im Akku und im Y-Register übergeben. 
Zurückgegeben wird im Akku der Exponent des FAC#I. Auch 
hier muß man wieder die aktuelle Speicherkonfiguration 
beachten und seine Konstante in einen mit Sicherheit freien 
RAM-Bereich legen. 

Eingabeparameter: .A, .Y 
Ausgabeparameter: .A 


Adresse: $AF60 

Zweck: FAC#1 = Konstante aus Bank 1 

Diese Routine hat für den FAC#1 dieselbe Funktion wie 
$AF5A. Es wird aber kein Exponentwert zurückgegeben. 

Eingabeparameter: .A, .Y 
Ausgabe parameter: keine 


Adresse: $AF63 

Zweck: FAC#1 = Konstante 

Diese Routine hat für den FAC#1 dieselbe Funktion wie 
$AF5D. Der Exponent des FAC#1 wird im Akku 
zurückgegeben. 

Eingabeparameter: .A, .Y 
Ausgabeparameter: .A 
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Adresse: $AF66 

Zweck: FAC#1 in den Speicher mit Rundung 

Der Inhalt des FAC#1 wird als Konstante im Speicherformat in 
der aktuellen Speicherbank abgelegt. Die Speicheradresse wird 
im X-Register und im Y-Register übergeben. 

Eingabeparameter: .X, .Y 
Ausgabeparameter: keine 


Adresse: $AF69 
Zweck: FAC#1 = FAC#2 

Der Inhalt des FAC#2 wird in den FAC#1 kopiert. 

Eingabe parameter: keine 
Ausgabe parameter: keine 


Adresse: $AF6C 

Zweck: FAC#2 = FAC#1 mit Rundung 

Der FAC#1 wird gerundet und in den FAC#2 kopiert. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF6F 

Zweck: Adresse der Hierarchiewerttabelle 

Dies ist keine ROM-Routine! Hier ist nur die Adresse der 
Hierarchiewerttabelle der Operatoren für die Auswertung von 
Ausdrücken FRMEVL $77EF abgelegt. 

Eingabeparameter: keine 
Ausgabeparameter: keine 
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Adresse: $AF72 

Zweck: Linie von Start- zu Ziel zeichnen 

Diese Routine entspricht in etwa dem DRAW-Befehl des 
BASIC 7.0. Sie müssen jedoch selber die Farbquelle $83, die 
Koordinatenwerte ab $1131 und den Rest der Grafik verwalten. 

Eingabeparameter: Koordinatenvorgaben 
Ausgabeparameter: keine 


Adresse: $AF75 

Zweck: Koordinaten setzen 

Diese Routine setzt auf dem Schirm einen Punkt an den 
aktuellen Grafikkoordinaten ab $1131. Sie berücksichtigt dabei 
auch die Angabe für doppelte Breite des BASIC-Befehls WIDTH 
und die des BOX-Befehls, die in $ 116B und in $116C 
gespeichert sind. Sie müssen wie bei $AF72 daran denken, daß 
Sie die gesamte Grafik selbst verwalten müssen! 

Eingabe parameter: Koordinaten vorgaben 
Ausgabeparameter: keine 


Adresse: $AF78 

Zweck: Nächsten Kreisbogenpunkt berechnen 

Hier müssen Sie relativ umfangreiche Vorbereitungen treffen, 
um diese Routine überhaupt nutzen zu können. Sie sollten den 
CIRCLE-Befehl im ROM-Listing ausgiebig studieren. 

Eingabeparameter: Koordinatenvorgaben 
Ausgabeparameter: keine 


Adresse: $AF7B 
Zweck: RUN-Befehl 

Diese Routine ist der Direkteinsprung in den RUN-Befehl, wie 
ihn der Interpreter machen würde. Sie müssen also den PC und 
die restlichen Flags des Interpreters richtig verwalten, da sonst 
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eine Fehlermeldung ausgegeben wird. Vergessen Sie nicht, vor 
dem Aufruf CHRGOT $0386 anzuspringen. Vom RUN-Befehl 
wird direkt in die Interpreterschleife gesprungen, der Computer 
kehrt also nicht in Ihr Programm zurück. 

Eingabeparameler: CHRGOT,Flags 
Ausgabeparameter: keine 


Adresse: SAF7E 

Zweck: PC aus Programmstart, CLR 

Diese Routine setzt den PC auf den Programmstart und führt 
dann den CLR-Befehl aus. Damit wird auch der Prozessorstack 
zurückgesetzt. Sie können deshalb diese Routine ausschließlich 
direkt anspringen, da bis auf die aktuelle Rücksprungadresse der 
Stack gelöscht wird. Hier ist Ihnen das Sprungmodul nicht von 
Nutzen. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF81 
Zweck: CLR-Befehl 

Diese Routine entspricht dem CLR-Befehl des BASIC 7.0. Sie 
müssen wie bei SAF7B vorher alle Flags setzen, die der 
Interpreter benötigt. Außerdem hat diese Routine dieselben 
Schwierigkeiten beim Aufruf wie $AF7E. Auch hier können Sie 
also das Sprungmodul nicht verwenden. 

Eingabeparameter: CHRGOT,Flags 
Ausgabeparameter: keine 


Adresse: $AF84 
Zweck: NEW-Befehl 

Diese Routine entspricht dem NEW-Befehl des BASIC 7.0. Die 
Handhabung ist dieselbe, wie bei $AF81 
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Eingabeparameter: CHRGOT,Flags 
Ausgabeparameter: keine 


Adresse: $AF87 

Zweck: Zeilenverkettung korrigieren 

Die Verkettungsadressen der Programmzeilen werden neu 
berechnet. Der Interpreter benutzt dies zum Beispiel nach dem 
Löschen von Zeilen im Programm. Für den GOTO-Befehl ist ein 
richtig verkettetes Programm wichtig. Rufen Sie also diese 
Routine auf, wenn Ihr Programm das BASIC-Programm 
verändert hat. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF8A 

Zweck: Umwandlung in Interpretercode 

Der Text, auf den der PC in $3D zeigt, wird bis zum 
Zeilenende, das durch ein Null-Byte markiert ist, in 
Interpretercode umgewandelt. Der Klartext der Befehle wird also 
durch Tokens ersetzt. Normalerweise wird die Eingabezeile ab 
$0200 abgelegt und der PC darauf gerichtet. Sie könnten diese 
Routine verwenden, um Eingaben Ihres Programms in 
Interpretercode zu verwandeln und um daraus dann ein BASIC- 
Programm zu machen. 

Eingabeparameter: PC 
Ausgabeparameter: keine 


Adresse: SAF8D 
Zweck: Zeile suchen 

Die Programmzeile wird gesucht, deren Zeilennummer in ($16) 
abgelegt ist. Wird die Zeile gefunden, so ist das C-Flag des 
Prozessorstatus gesetzt. Die Adresse der Programmzeile ist dann 
in ($61) abgelegt. 
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Eingabeparameler: ($16) 

Ausgabeparameter: C-Flag, ($61) 


Adresse: $AF90 

Zweck: Sprung an Interpreterschleifenstart 

Die Interpreterschleife wird angesprungen. Alle Flags des 
Interpreters und der PC müssen richtig vorbesetzt sein. Der 
Prozessor kehrt nicht wieder in Ihr Programm zurück. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF93 

Zweck: Nächstes Ausdruckelement holen 

Sollten Sie eigene Auswertungen in Ihrem Programm vornehmen, 
so können Sie dieses Unterprogramm von FRMEVL $77EF 
verwenden. Es wertet die nächste Zahl, den nächsten String, die 
nächste Funktion etc. aus, auf die der PC zeigt. Das Ergebnis 
steht immer im FAC#1. Hier ist ein Studium des ROM-Listings 
auf jeden Fall nötig. 

Eingabeparameter: keine 
Ausgabeparameter: FAC#1 


Adresse: $AF96 

Zweck: FRMEVL Ausdruck auswerten 

Ein beliebiger Ausdruck aus dem Programmtext auf den der PC 
zeigt wird ausgewertet. Die Flags $0F und $10, die den Typ des 
Ergebnisses angeben, werden entsprechend gesetzt. Das Ergebnis, 
das natürlich auch ein Zeiger auf einen String sein kann, steht 
im FAC#1. 

Eingabeparameter: keine 
Ausgabeparameter: FAC#1 




Das BASIC-ROM 


401 


Adresse: $AF99 

Zweck: RUN-Direkteinsprung 

Dies ist ein Direkteinsprung in den RUN-Befehl des BASIC 7.0 
und wirkt wie ein RUN ohne Angabe einer Zeilennummer. Da 
direkt in die Interpreterschleife eingesprungen wird, kehrt der 
Prozessor nicht in Ihr Programm zurück. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF9C 

Zweck: Programm-Modus setzen 

Der Programm-Modus wird eingeschaltet. Dabei werden der 
AUTO-Befehl, die BASIC-Interrupts und der Auto-Insert- 
Modus des Bildschirmeditors ausgeschaltet. Das Programmflag 
des Interpreters wird gesetzt und das Betriebssystem unterdrückt 
ab jetzt seine Meldungen. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AF9F 

Zweck: Zeilennummer lesen 

Eine Zeilennummer wird aus dem Programmtext eingelesen,auf 
den der PC zeigt und in ($16) abgelegt. Die Anzahl der 
eingelesenen Ziffern wird in $0A gespeichert. Vor dem Aufruf 
dieser Routine muß CHRGOT aufgerufen werden, um alle Flags 
zu setzen. 

Eingabe parameter: CHRGOT, Flags 
Ausgabe parameter: ($16),$0A 
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Adresse: $AFA2 

Zweck: Garbage-Collection 

Der Interpreter führt eine "Müllsammlung" durch, das heißt er 
bereinigt seinen Stringspeicher und löscht alle ungültigen Strings. 
Bei Programmen, die sehr viel mit Strings arbeiten, ist das hin 
und wieder nötig, damit in der Variablenbank 1 wieder freier 
Speicherplatz vorhanden ist. 

Eingabeparameter: keine 
Ausgabeparameter: keine 


Adresse: $AFA5 

Zweck: Direkteinsprung in Eingabeschleife 

Wenn Sie im X-Register und im Y-Register die Adresse minus 1 
einer eigenen Eingabezeile in Bank 0 angeben und diese Routine 
anspringen, so wird diese Eingabe so ausgewertet, wie der 
Interpreter eine Eingabe im Direktmodus auswerten würde. Der 
Prozessor kehrt aber nicht in Ihr Programm zurück. Der 
Interpreter läuft dann nämlich wieder in seiner Endlosschleife. 

Eingabe Parameter: .X, .Y 
Ausgabeparameter: keine 


Sie sehen, allein ein Kurzkommentar zu den ROM-Routinen der 
Sprungtabelle verbraucht einige Seiten dieses Buches. Es ist 
sicher verständlich, daß nicht die Handhabung jeder einzelnen 
Routine dokumentiert werden kann. Aber da Sie auch die 
meisten anderen Routinen, die im ROM-Listing und in der 
Speicherbelegung aufgeführt worden sind, benutzen können, 
werden hier noch einige Tips gegeben: 

- Das BASIC 7.0 ist sehr flexibel. Die einzelnen Routinen 
erfordern deshalb oft viele Parameter. Haben Sie alle 
beachtet? 

- Einige Routinen verändern den Stackpointer. Stürzt das 
Sprungmodul oder Ihr eigener Aufruf deshalb ab? 
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- Viele ROM-Routinen schalten zwischen den 
Speicherbanken um. Haben Sie die richtige 
Speicherkonfiguration gewählt? 

- BASIC-Befehle werden immer nach einem Aufruf von 
CHRGET $0380 angesprungen. Haben Sie das 
vergessen? 

- Der Interpreter "kramt" ausgiebig im Speicher. Liegt Ihr 
Programm auch wirklich in einem geschützten Bereich? 

Manche dieser Anmerkungen mögen Ihnen dumm erscheinen, sie 
sind aber alle aufgrund von eigenen Erfahrungen entstanden. 
Der Commodore 128 ist komplexer als man glaubt. Nachdem alle 
eventuellen Schwierigkeiten beseitigt sind, hier nun das sorgsam 
dokumentierte BASIC-ROM-Listing: 
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****************************** Sprungtabelle BASIC-Start 


4000 

4C 

23 

40 

JMP 

$4023 

4003 

4C 

09 

40 

JMP 

$4009 

4006 

4C 

4D 

A8 

JMP 

SA84D 

****************************** 

4009 

20 

CC 

FF 

JSR 

SFFCC 

400C 

20 

7A 

41 

JSR 

S417A 

400F 

20 

80 

41 

JSR 

$4180 

4012 

20 

12 

41 

JSR 

$4112 

4015 

20 

38 

52 

JSR 

$5238 

4018 

A9 

00 


LDA 

#$00 

401A 

85 

15 


STA 

$15 

401C 

58 



CLI 


401D 

4C 

37 4D 

JMP 

$4D37 

****************************** 

4020 

00 

FF 

FF 



****************************** 

4023 

20 

7A 

41 

JSR 

$417A 

4026 

20 

51 

42 

JSR 

$4251 

4029 

20 

45 

40 

JSR 

$4045 

402C 

20 

9B 

41 

JSR 

S419B 

402F 

AD 

04 

0A 

LDA 

o 

> 

o 

4032 

09 

01 


ORA 

#$01 

4034 

8D 

04 

0A 

STA 

$0A04 

4037 

A2 

03 


LDX 

#$03 

4039 

8E 

00 

0A 

STX 

$OA00 

403C 

A2 

FB 


LDX 

#$FB 

403E 

9A 



TXS 


403F 

20 

56 

FF 

JSR 

SFF56 

4042 

4C 

IC 

40 

JMP 

S401C 

****************************** 

4045 

A9 

4C 


LDA 

#$4C 

4047 

85 

56 


STA 

$56 

4049 

8D 

18 

12 

STA 

$1218 

404C 

A9 

28 


LDA 

#$28 

404E 

A0 

7D 


LDY 

#$7D 

4050 

80 

19 

12 

STA 

$1219 


BASIC-Kaltstart 

BASIC-Uarmstart 

BASIC-IRQ-Rout ine 

BASIC-Uarmstart 

I/O-Kanäle rücksetzen 

MMU progranmieren 

Sprite-Daten setzen 

Sound-Daten setzen 

Stack rücksetzen 

Momentanes I/O-Gerät = Tastatur 


■READY. 1 

Füllbytes 


BASIC-Kaltstart 

MMU programmieren 
BASIC-Vektoren setzen 
BASIC-Zeiger setzen 
Copyright ausgeben 
BASIC-IRQ Aufruf erlauben 


BASIC-Startvektor auf Warmstart 
SA 003 

Stapel rücksetzen 

Modul- und BOOT-Test 
•READY.' 

BASIC-Zeiger setzen 

JMP für Funktionsausuertung 
setzen 

JMP für USR-Befehl setzen 
USR-Adresse auf S7D28 setzen 
•ILLEGAL QUANT ITY• 
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4053 

8C 

1A 

12 

STY 

$121A 

4056 

A9 

9F 


LDA 

#$9F 

4058 

AO 

84 


LDY 

#$84 

405A 

8D 

7A 

11 

STA 

$117A 

405D 

8C 

7B 

11 

STY 

$117B 

4060 

A9 

3C 


LDA 

#$3C 

4062 

A0 

79 


LDY 

#$79 

4064 

8D 

7C 

11 

STA 

$117C 

4067 

8C 

7D 

11 

STY 

$ 117D 

406A 

A2 

55 


LDX 

#$55 

406C 

BD 

78 

42 

LDA 

$4278,X 

406F 

9D 

7F 

03 

STA 

$037F,X 

4072 

CA 



DEX 


4073 

DO 

F7 


BNE 

$406C 

4075 

8E 

DF 

03 

STX 

$03DF 

4078 

86 

15 


STX 

$15 

407A 

86 

1A 


STX 

$1A 

407C 

8E 

6F 

11 

STX 

$116F 

407F 

8E 

00 

IC 

STX 

$1C00 

4082 

86 

76 


STX 

$76 

4084 

86 

74 


STX 

$74 

4086 

86 

75 


STX 

$75 

4088 

8E 

6B 

11 

STX 

$116B 

408B 

8E 

6A 

11 

STX 

$116A 

408E 

8E 

6C 

11 

STX 

$116C 

4091 

8E 

1B 

12 

STX 

$121B 

4094 

8E 

IC 

01 

STX 

$01 IC 

4097 

8E 

76 

12 

STX 

$1276 

409A 

8E 

77 

12 

STX 

$1277 

409D 

8E 

78 

12 

STX 

$1278 

40A0 

8E 

7F 

12 

STX 

$127F 

40A3 

A0 

58 


LDY 

#$58 

40A5 

99 

7E 

11 

STA 

$ 117E, Y 

40A8 

88 



DEY 


40A9 

10 

FA 


BPL 

$40A5 

40AB 

E8 



INX 


40AC 

8E 

FD 

01 

STX 

$01 FD 

40AF 

8E 

FC 

01 

STX 

$01 FC 

40B2 

A2 

OF 


LDX 

#$0F 

40B4 

8E 

D5 

03 

STX 

$0305 

40B7 

A2 

0D 


LDX 

#$0D 

40B9 

86 

86 


STX 

$86 

40BB 

A2 

01 


LDX 

#$01 

40BD 

86 

84 


STX 

$84 

40BF 

A2 

02 


LDX 

#$02 

40C1 

86 

85 


STX 

$85 

40C3 

20 

5C 

6A 

JSR 

$6A5C 

40C6 

A2 

1B 


LDX 

#$1B 


Vektor Fließpunkt zu Integer 
auf $849F setzen 


Vektor Integer zu Fließpunkt 
auf $793C setzen 

BAS IC-Rout inen und Konstanten 
in Zero-Page 


Überlauf FAC#1 löschen 
Aktives I/O-Gerät = Tastatur 
Stringstack löschen 
TRACE ausschalten 
Programmstartbyte auf 0 
AUTO ausschalten 


Skalierung = 320 * 200 
Doppelte Breite löschen 
Ausfüllflag löschen 
RND-Exponent auf 0 
DOS-Gerätenummer löschen 
Interruptspeicher löschen 


Spriteparameter löschen 


BANK für SYS,POKE,PEEK auf 
15 setzen 

Vordergrundfarbe = Hellgrün 

Multicolorfarbe 1 = Weiß 

Multicolorfarbe 2 = Rot 

Gepackte Farbwerte setzen 
Stringstack rücksetzen 
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40C8 

86 

18 


STX 

$18 



40CA 

A2 

01 


LDX 

#$01 

Speicherstart für Programm 

in Bank 0 

40CC 

AO 

IC 


LDY 

#$1C 

auf $1C01 setzen 


40CE 

86 

2D 


STX 

$2D 



40D0 

84 

2E 


STY 

$2E 



40D2 

A9 

00 


LOA 

#$00 

Speicherstart für Variablen 

in Bank 1 

40D4 

AO 

04 


LDY 

#$04 

auf $0400 setzen 


40D6 

85 

2F 


STA 

$2F 



40D8 

84 

30 


STY 

$30 



40DA 

A9 

00 


LDA 

o 

o 

M 

% 

Speicherende für Programm in Bank 0 

40DC 

AO 

FF 


LDY 

#$FF 

auf $FF00 setzen 


40DE 

80 

12 

12 

STA 

$1212 



40E1 

8C 

13 

12 

STY 

$1213 



40E4 

A9 

00 


LDA 

#$00 

Speicherende für Variablen 

in Bank 1 

40E6 

AO 

FF 


LDY 

#$FF 

auf $FF00 setzen 


40E8 

85 

39 


STA 

$39 



40EA 

84 

3A 


STY 

$3A 



40EC 

A2 

3F 


LDX 

#$3F 

Spritepointer setzen 


40EE 

AO 

07 


LDY 

#$07 



40F0 

8A 



TXA 




40F1 

99 

F8 

07 

STA 

o 

-n 

O0 

-< 



40F4 

CA 



DEX 




40F5 

88 



DEY 




40F6 

10 

F8 


8PL 

$40F0 



40F8 

A9 

00 


LDA 

#$00 

Alle VIC-Daten löschen 


40FA 

A2 

6C 


LDX 

#$6C 



40FC 

9D 

7E 

11 

STA 

$117E,X 



40FF 

CA 



DEX 




4100 

10 

FA 


BPL 

$40 FC 



4102 

20 

12 

41 

JSR 

$4112 

Sound-Daten setzen 


4105 

A9 

DO 


LDA 

#$D0 

Zeiger auf Zeichengenerator 

setzen 

4107 

8D 

EC 

11 

STA 

$11EC 

(für CHAR-Befehl) 


410A 

A9 

D8 


LDA 

#$D8 



410C 

8D 

EB 

11 

STA 

$11EB 



410 F 

4C 

D9 

51 

JMP 

$51D9 

NEW-Befehl aufrufen 


****************************** 

Sound-Daten vorbesetzen 


4112 

A9 

20 


LDA 

#$20 

Tempo vorbesetzen 


4114 

AO 

01 


LDY 

#$01 



4116 

80 

29 

12 

STA 

$1229 



4119 

8C 

2A 

12 

STY 

$122A 



41 IC 

A9 

04 


LDA 

#$04 

Oktave auf 4 


41 IE 

8D 

2B 

12 

STA 

$1228 



4121 

A9 

10 


LDA 

#$10 

Tempo auf 16 


4123 

80 

22 

12 

STA 

$1222 



4126 

A9 

00 


LDA 

#$00 

Alle 3 Stimmen löschen 


4128 

80 

04 

D4 

STA 

$D404 
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412B 

8D 

OB 

D4 

STA 

SD40B 


412E 

8D 

12 

D4 

STA 

$0412 


4131 

8D 

FD 

12 

STA 

$12FD 

Interruptspeicher löschen 

4134 

A9 

OF 


LDA 

#$0F 

Lautstärken setzen 

4136 

8D 

74 

12 

STA 

$1274 


4139 

8D 

75 

12 

STA 

$1275 


413C 

8D 

18 

D4 

STA 

$0418 

Maximallautstärke 

413F 

A0 

ID 


LDY 

#$1D 


4141 

B9 

11 

70 

LDA 

$7011,Y 

Klangwerte vorbesetzen 

4144 

99 

3F 

12 

STA 

$123F,Y 


4147 

88 



DEY 



4148 

10 

F7 


BPL 

$4141 


414A 

A2 

09 


LDX 

#$09 


414C 

BD 

2F 

70 

LDA 

$702F,X 


414F 

9D 

67 

12 

STA 

$1267,X 

Pulswert High setzen 

4152 

CA 



DEX 



4153 

10 

F 7 


BPL 

$414C 


4155 

8E 

85 

12 

STX 

$1285 

Soundspeicher löschen 

4158 

8E 

86 

12 

STX 

$1286 


4158 

8E 

87 

12 

STX 

$1287 


415E 

8E 

24 

12 

STX 

$1224 

Playspeicher löschen 

4161 

8E 

26 

12 

STX 

$1226 


4164 

8E 

28 

12 

STX 

$1228 


4167 

AO 

02 


LDY 

#$02 

Stimmenzähler auf Stimme 3 (0 bis 2) 

4169 

8C 

2F 

12 

STY 

$122F 


416C 

A2 

00 


LDX 

#$00 


416E 

20 

B2 

6E 

JSR 

$6EB2 

Stimme vorbesetzen 

4171 

CE 

2F 

12 

DEC 

$ 122 F 


4174 

10 

F6 


BPL 

$416C 


4176 

EE 

2F 

12 

INC 

$122F 

Stiiraiennummer auf 0 

4179 

60 



RTS 



****************************** 

MMU programmieren 

417A 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

417D 

A2 

03 


LDX 

#$03 


417F 

BD 

89 

41 

LDA 

$4189,X 

MMU programmieren 

4182 

90 

01 

D5 

STA 

$D501,X 


4185 

CA 



DEX 



4186 

10 

F7 


BPL 

$417F 


4188 

60 



RTS 



****************************** 

Sprite-Daten setzen 

4180 

A9 

00 


LDA 

#$00 

Geschwindingkeit 0 

418F 

AO 

07 


LDY 

#$07 

Sprites 0 bis 7 verarbeiten 

4191 

BE 

D9 

6D 

LDX 

$6DD9,Y 

Offset auf Tabelle laden 

4194 

9D 

7E 

11 

STA 

$117E,X 

Geschwindigkeit auf 0 
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4197 

88 

DEY 

4198 

10 F7 

BPL $4191 

419A 

60 

RTS 


*****★*★****★*★★★★★★*★*****★★* Copyright susgeben 


419B 

AO 

00 


LDY 

o 

o 

£ 



4190 

B9 

BB 

41 

LDA 

$41BB, 

Y 


41A0 

C9 

40 


CMP 

#$40 


Zentrieren ? 

41A2 

DO 

OE 


BNE 

$41B2 


Nein, dann ausgeben 

41A4 

24 

D7 


BIT 

$D7 


80-Zeichen-Modus ? 

41A6 

10 

OD 


BPL 

$41B5 


Nein, dann nächstes Zeichen 

41A8 

A2 

13 


LDX 

#$13 


19 mal Space auf 80-Zeichen-Schirm 

41AA 

A9 

20 


LDA 

#$20 



41AC 

20 

69 

92 

JSR 

$9269 


Zeichen ausgeben 

41AF 

CA 



DEX 




41B0 

DO 

F8 


BNE 

$4 IAA 



41B2 

20 

69 

92 

JSR 

$9269 


Textzeichen ausgeben 

41B5 

C8 



INY 




41B6 

CO 

96 


CPY 

#$96 


Alles ausgegeben ? 

41B8 

DO 

E3 


BNE 

$4190 


Nein, weitermachen 

41BA 

60 



RTS 





Copyright-Text 

41BB 

93 

OD 

40 

20 43 

4F 4D 

4D 

(CLR) (CR) 'COMMODORE BASIC' 

41C3 

4F 

44 

4F 

52 45 

20 42 

41 

'v7.0 122365 BYTES FREE 1 

41 CB 

53 

49 

43 

20 56 

37 2E 

30 

(CR) '(01985 COMMODORE ELECTRONICS 

4103 

20 

31 

32 

32 33 

36 35 

20 

' ltd.' (CR) 

41DB 

42 

59 

54 

45 53 

20 46 

52 

•(01977 MICROSOFT CORP.' (CR) 

41E3 

45 

45 

OD 

40 20 

20 20 

28 

'ALL RIGHTS RESERVED' (CR) 

41EB 

43 

29 

31 

39 38 

35 20 

43 


41F3 

4F 

4D 

4D 

4F 44 

4F 52 

45 


41 FB 

20 

45 

4C 

45 43 

54 52 

4F 


4203 

4E 

49 

43 

53 2C 

20 4C 

54 


420B 

44 

2E 

OD 

40 20 

20 20 

20 


4213 

20 

20 

20 

20 20 

28 43 

29 


421B 

31 

39 

37 

37 20 

4D 49 

43 


4223 

52 

4F 

53 

4F 46 

54 20 

43 


422B 

4F 

52 

50 

2E OD 

40 20 

20 


4233 

20 

20 

20 

20 20 

20 20 

20 


423B 

20 

41 

4C 

4C 20 

52 49 

47 


4243 

48 

54 

53 

20 52 

45 53 

45 


424B 

52 

56 

45 

44 OD 

00 




**★★*★★***★****★*★★**★**★★★★*★ BASIC-Vektoren setzen 


4251 A2 11 


LDX #$11 



Das BASIC-ROM 


409 


4253 

BO 

67 

42 

LOA 

$4267,X 


4256 

90 

00 

03 

STA 

$0300,X 

Vektoren setzen 

4259 

CA 



DEX 



425A 

10 

F7 


BPL 

$4253 


425C 

A9 

78 


LOA 

#$78 

Vektor für Zusatzfunktionen 

425E 

8D 

FC 

02 

STA 

$02 FC 

auf $4C78 setzen 

4261 

A9 

4C 


LDA 

#$4C 


4263 

8D 

FD 

02 

STA 

$02FD 


4266 

60 



RTS 




BASIC-Vektortabelle 

4267 

3F 

4D 

C6 

4D OD 

43 51 51 


426F 

A2 

4A 

DA 

78 21 

43 CD 51 


4277 

A9 

4B 






ROM-Kopie der Zero-Page-Rout 

4279 

E6 

30 


INC 

$3D 

Kopie der CHRGET-Rout ine 

427B 

DO 

02 


BNE 

$427F 


427D 

E6 

3E 


INC 

$3E 


427F 

80 

01 

FF 

STA 

$FF01 

RAM-Bank 0 ein 

4282 

AO 

00 


LOY 

#$00 


4284 

Bl 

30 


LDA 

($30),Y 


4286 

8D 

03 

FF 

STA 

$FF03 

ROM wieder ein 

4289 

C9 

3A 


CMP 

#$3A 

>= 7 

428B 

BO 

OA 


BCS 

$4297 

Ja, SEC, Ende 

4280 

C9 

20 


CMP 

#$20 

Space ? 

428F 

FO 

E8 


BEQ 

$4279 

Ja, über lesen 

4291 

38 



SEC 


Zahlentest 

4292 

E9 

30 


SBC 

#$30 

Bei Zahl CLC 

4294 

38 



SEC 



4295 

E9 

DO 


SBC 

#$D0 


4297 

60 



RTS 



4298 

8D 

A6 

03 

STA 

$03A6 

Load aus RAM-Bank 0 

429B 

80 

01 

FF 

STA 

$F FO 1 

Read aus Bank 0 setzen 

429E 

Bl 

00 


LDA 

($00),Y 

$00=$03A6 ! 

42A0 

80 

03 

FF 

STA 

$FF03 

ROMs wieder ein 

42A3 

60 



RTS 



4 2 A4 

80 

B2 

03 

STA 

$0382 

Load aus RAM-Bank 1 

42A7 

80 

02 

FF 

STA 

$FF02 

Read aus Bank 1 setzen 

42AA 

Bl 

00 


LDA 

($00),Y 

$00=$03B2 ! 

42AC 

80 

04 

FF 

STA 

$FF04 

ROMs wieder ein 

42AF 

60 



RTS 




42B0 80 02 FF STA $FF02 


Load aus RAM Bank 1 
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42B3 

Bl 

24 


LDA 

($24),Y 




42B5 

8D 

04 

FF 

STA 

$FF04 

ROMS 

wieder ein 


42B8 

60 



RTS 





42B9 

8D 

01 

FF 

STA 

$FF01 

Load 

aus RAM-Bank 

0 

42BC 

81 

26 


LDA 

($26),Y 




42BE 

8D 

03 

FF 

STA 

$FF03 

ROMs 

wieder ein 


42C1 

60 



RTS 





42C2 

8D 

01 

FF 

STA 

$FF01 

Load 

aus RAM-Bank 

0 

42C5 

Bl 

30 


LDA 

($3D),Y 




42C7 

8D 

03 

FF 

STA 

$FF03 

ROMs 

wieder ein 


42CA 

60 



RTS 






****************************** py[Ibytes 
42CB 00 00 00 

****************************** verschiedene Bank-Loads 


42CE 

A9 

50 


LDA 

#$50 

Bank 

1 

LDA 

($50),Y 

42D0 

4C 

AB 

03 

JMP 

$03AB 





42D3 

A9 

3F 


LDA 

#$3F 

Bank 

1 

LDA 

($3F),Y 

42D5 

4C 

AR 

03 

JMP 

$03AB 





42D8 

A9 

52 


LDA 

#$52 

Bank 

1 

LDA 

($52),Y 

42DA 

4C 

AB 

03 

JMP 

$03AB 





42DD 

A9 

5C 


LDA 

#$5C 

Bank 

0 

LDA 

($5C),Y 

42DF 

4C 

9F 

03 

JMP 

$039F 





42E2 

A9 

5C 


LDA 

#$5C 

Bank 

1 

LDA 

($50,Y 

42E4 

4C 

AB 

03 

JMP 

$03AB 





42E7 

A9 

66 


LDA 

#$66 

Bank 

1 

LDA 

($66),Y 

42E9 

4C 

AB 

03 

JMP 

$03AB 





42EC 

A9 

61 


LDA 

#$61 

Bank 

0 

LDA 

($61),Y 

42EE 

4C 

9F 

03 

JMP 

$039F 





42F1 

A9 

70 


LDA 

#$70 

Bank 

0 

LDA 

($70),Y 

42F3 

4C 

9F 

03 

JMP 

$039F 





42F6 

A9 

70 


LDA 

#$70 

Bank 

1 

LDA 

($70),Y 

42F8 

4C 

AB 

03 

JMP 

$03AB 





42FB 

A9 

50 


LDA 

#$50 

Bank 

1 

LDA 

($50),Y 
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42FD 

4C 

AB 

03 

JMP 

$03AB 


4300 

A9 

61 


LDA 

#$61 

Bank 1 LDA ($61),Y 

4302 

4C 

AB 

03 

JMP 

S03AB 


4305 

A9 

24 


LDA 

#$24 

Bank 0 LDA ($24),Y 

4307 

4C 

9F 

03 

JMP 

$039F 


★★★*******★**★***★★★*★**★*★★★★ 

Umwandlung in Interpretercode 

430A 

6C 

04 

03 

JMP 

($0304) 

$430D Umwandlung in Interpretercode 

430D 

A5 

3D 


LDA 

$3D 

PC retten 

430F 

48 



PHA 



4310 

A5 

3E 


LDA 

$3E 


4312 

48 



PHA 



4313 

20 

86 

03 

JSR 

$0386 

CHRGOT 

4316 

4C 

IC 

43 

JMP 

$431C 


4319 

20 

80 

03 

JSR 

$0380 

CHRGET 

431C 

90 

FB 


BCC 

$4319 

Wenn Zahl,dann überlesen 

43 IE 

6C 

OC 

03 

JMP 

($0300 

$4321 ESC-Umwandlung 

4321 

BO 

03 


BCS 

$4326 

Wenn nicht erkannt, normal testen 

4323 

4C 

B2 

43 

JMP 

$43B2 

Token als Sondertoken eintragen 

4326 

C9 

00 


CMP 

#$00 

Zeilenende ? 

4328 

F0 

77 


BEO 

$43A1 

Ja, Ende 

432A 

C9 

3A 


CMP 

#$3A 

Doppelpunkt ? 

432C 

FO 

EB 


BEQ 

$4319 

Ja, über lesen 

432E 

C9 

3F 


CMP 

#$3F 

Fragezeichen ? 

4330 

DO 

04 


BNE 

$4336 

Nein, Skip 

4332 

A9 

99 


LDA 

#$99 

'?' durch PRINT ersetzen 

4334 

DO 

50 


BNE 

$4386 

und eintragen 

4336 

C9 

80 


CMP 

#$80 

Token ? 

4338 

90 

OB 


BCC 

$4345 

Nein,Skip 

433A 

C9 

FF 


CMP 

#$F F 

Token für PI ? 

433C 

FO 

DB 


BEQ 

$4319 

Ja, überlesen 

433E 

AO 

01 


LDY 

#$01 

Tokencode löschen 

4340 

20 

CC 

43 

JSR 

$43CC 


4343 

FO 

CE 


BEQ 

$4313 

Unbedingter Sprung 

4345 

C9 

22 


CMP 

#$22 

Anführungszeichen ? 

4347 

DO 

OD 


BNE 

$4356 

Nein, Skip 

4349 

20 

80 

03 

JSR 

$0380 

Nächstes Zeichen holen 

434C 

C9 

00 


CMP 

#$00 

Zeilenende ? 

434E 

FO 

51 


BEQ 

$43A1 

Ja, Ende 

4350 

C9 

22 


CMP 

#$22 

Zweites "" ? 

4352 

FO 

C5 


BEQ 

$4319 

Ja, zum Schleifenstart 
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4354 

DO 

F3 

BNE 

$4349 

4356 

A9 

46 

LDA 

#$46 

4358 

A0 

09 

LDY 

#$09 

435A 

20 

E2 43 

JSR 

$43E2 

435D 

90 

06 

BCC 

$4365 

435 F 

A9 

81 

LDA 

#$81 

4361 

A2 

00 

LDX 

#$00 

4363 

F0 

4B 

BEQ 

$43B0 

4365 

A9 

46 

LDA 

#$46 

4367 

AO 

C9 

LDY 

#$C9 

4369 

20 

E2 43 

JSR 

$43E2 

436C 

90 

06 

BCC 

$4374 

436E 

A9 

81 

LDA 

#$81 

4370 

A2 

FF 

LDX 

#$FF 

4372 

DO 

3C 

BNE 

$43B0 

4374 

A9 

44 

LDA 

#$44 

4376 

AO 

17 

LDY 

#$17 

4378 

20 

E2 43 

JSR 

$43E2 

437B 

90 

9C 

BCC 

$4319 

437D 

CO 

00 

CPY 

#$00 

437F 

FO 

03 

BEO 

$4384 

4381 

20 

CC 43 

JSR 

$43CC 

4384 

A5 

OD 

LDA 

$0D 

4386 

AO 

00 

LDY 

#$00 

4388 

91 

30 

STA 

($3D),Y 

438A 

C9 

8F 

CMP 

#$8F 

438C 

FO 

OD 

BEQ 

$4398 

438E 

C9 

83 

CMP 

#$83 

4390 

DO 

87 

BNE 

$4319 

4392 

20 

80 03 

JSR 

$0380 

4395 

20 

8F 52 

JSR 

$528F 

4398 

4C 

13 43 

JMP 

$4313 

439B 

20 

80 03 

JSR 

$0380 

439E 

20 

9D 52 

JSR 

$5290 

43A1 

A6 

3D 

LDX 

$3D 

43A3 

68 


PLA 


43A4 

85 

3E 

STA 

$3E 

43A6 

68 


PLA 


43A7 

85 

3D 

STA 

$3D 

43A9 

38 


SEC 


43AA 

8A 


TXA 


43AB 

E5 

3D 

SBC 

$3D 

43AD 

A8 


TAY 


43AE 

C8 


I NY 



Nein, weiterüberiesen 
Befehl ab $4609 ? 


Nein, Skip 
Tokenoffset 
Sondertokenwert 1 
Unbedingter Sprung 

Befehl ab $49C9 ? 


Nein, Skip 
Tokenoffset 
Sondertokenwert 2 
Unbedingter Sprung 

Befehl ab $4417 ? 


Nein, überlesen 
Befehlslänge ist 1 Zeichen ? 

Ja, Skip 

Falls nötig, Zeichen löschen 
Tokennuroner 

in Textzeile 
REM ? 

Ja, Skip 
DATA ? 

Nein, weitertesten 
CHRGET 

Nächstes Trennzeichen aufsuchen 
Weitertesten 

CHRGET 

REM-Zeile überlesen 
PC holen 


(Y) = Zeilentänge 



Das BAS IC-ROM 


413 


43AF 

60 


RTS 



43B0 

65 

OD 

ADC 

$0D 

Tokennunmer korrigieren 

43B2 

48 


PHA 



43B3 

88 


DEY 



43B4 

20 

CC 43 

JSR 

S43CC 

Befehlszeichen löschen 

43B7 

A9 

FE 

LOA 

#$FE 

Sondertokenwert 1 laden 

43B9 

E8 


INX 


Sondertoken 1 gefragt ? 

43BA 

DO 

02 

BNE 

S43BE 

Ja, Skip 

43BC 

A9 

CE 

LDA 

#$CE 

Sondertokenwert 2 laden 

43BE 

A0 

00 

LDY 

#$00 

Sondertoken in Textzeile 

43C0 

91 

3D 

STA 

($3D),Y 


43C2 

C8 


I NY 



43C3 

68 


PLA 


Tokenwert holen 

43C4 

91 

3D 

STA 

($3D),Y 

und in Befehlszeile 

43C6 

20 

80 03 

JSR 

o 

CO 

ro 

o 

«A 

CHRGET 

43C9 

4C 

19 43 

JMP 

$4319 

Ueitertesten 

★★★★★★★★•fr********************* 

(Y) Zeichen aus Zeile löschen 

43CC 

18 


CLC 



43CD 

98 


TYA 


Länge auf PC aufaddieren 

43CE 

65 

3D 

ADC 

$3D 


43D0 

85 

24 

STA 

$24 


43D2 

A5 

3E 

LDA 

$3E 


4304 

69 

00 

ADC 

#$00 


43D6 

85 

25 

STA 

$25 


4308 

AO 

FF 

LDY 

#$F F 

Offset auf Start 

43DA 

C8 


I NY 



43DB 

Bl 

24 

LDA 

C$24),Y 

Zeichen umkopieren 

43DD 

91 

3D 

STA 

($3D),Y 


430 F 

DO 

F9 

BNE 

$43DA 

bis Zeilenende 

43E1 

60 


RTS 



****************************** 

Befehl erkennen 

43E2 

85 

25 

STA 

$25 

Zeiger auf Befehlstabelle setzen 

43E4 

84 

24 

STY 

$24 


43E6 

AO 

00 

LDY 

#$00 

Befehlsnummer auf 0 

43E8 

84 

00 

STY 

$0D 


43EA 

88 


DEY 



43EB 

C8 


INY 



43EC 

Bl 

3D 

LDA 

($3D),Y 

Textzeichen 

43EE 

38 


SEC 


gleich 

43EF 

Fl 

24 

SBC 

($24),Y 

Zeichen aus Tabelle ? 

43F1 

FO 

F8 

BEQ 

$43EB 

Ja, weitervergleichen 

43F3 

C9 

80 

CMP 

#$80 

Befehl erkannt ? 

43F5 

FO 

1B 

BEQ 

$4412 

Ja, Ende 
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43F7 

Bl 

24 


LDA 

($24), 

Y 

43F9 

30 

03 


BMI 

$43 FE 


43FB 

C8 




INY 




43 FC 

DO 

F9 


BNE 

$43 F 7 


43FE 

C8 




INY 




43 FF 

E6 

00 



INC 

$0D 


4401 

18 



CLC 




4402 

98 



TYA 




4403 

65 

24 


ADC 

$24 


4405 

85 

24 


STA 

$24 


4407 

90 

02 


BCC 

$440B 


4409 

E6 

25 



INC 

$25 


440B 

18 



CLC 




440C 

AO 

00 


LDY 

31 

O 

O 


440E 

Bl 

24 


LDA 

($24), 

,Y 

4410 

DO 

DA 


BNE 

$43EC 


4412 

05 

OD 


ORA 

$0D 


4414 

85 

OD 


STA 

$0D 


4416 

60 



RTS 




****************************** 

4417 

45 

4E 

C4 

46 

4F 

D2 

4E 

45 

441F 

58 

D4 

44 

41 

54 

CI 

49 

4E 

4427 

50 

55 

54 

A3 

49 

4E 

50 

55 

442F 

D4 

44 

49 

CD 

52 

45 

41 

C4 

4437 

4C 

45 

04 

47 4F 

54 

CF 

52 

443F 

55 

CE 

49 

C6 

52 

45 

53 

54 

4447 

4F 

52 

C5 

4 7 

4F 

53 

55 

C2 

444F 

52 

45 

54 

55 

52 

CE 

52 

45 

4457 

CD 

53 

54 

4F 

DO 

4F 

CE 

57 

445F 

41 

49 

D4 

4C 

4F 

41 

C4 

53 

4467 

41 

56 

C5 

56 

45 

52 

49 

46 

446F 

D9 

44 

45 

06 

50 

4F 

4B 

C5 

4477 

50 

52 

49 

4E 

54 

A3 

50 

52 

447F 

49 

4E 

D4 

43 

4F 

4E 

D4 

4C 

4487 

49 

53 

D4 

■'.3 

4C 

D2 

43 

4D 

448F 

C4 

53 

59 

03 

4F 

50 

45 

CE 

4497 

43 

4C 

4F 

5 5 

C5 

47 

45 

D4 

449F 

4E 

45 

D7 

54 

41 

42 

A8 

54 

44A7 

CF 

46 

CE 

53 

50 

43 

A8 

54 

44AF 

48 

45 

CE 

4E 

4F 

D4 

53 

54 

44B7 

45 

DO 

AB 

AD 

AA 

AF 

DE 

41 

44BF 

4E 

C4 

4F 

D2 

BE 

BD 

BC 

53 

44C7 

47 

CE 

49 

4E 

D4 

41 

42 

D3 

44CF 

55 

53 

D2 

46 

52 

C5 

50 

4F 

44D7 

D3 

53 

51 

D2 

52 

4E 

C4 

4C 

44DF 

4F 

C7 45 

58 

DO 

43 

4F 

D3 


Momentanen Befehl überlesen 
Uenn Ende, Skip 

Unbedingter Sprung 

Befehlszähler erhöhen 

Zeiger auf Tabelle erhöhen 


CLC = Befehl nicht gefunden 

Tabellenende ? 

Nein, ueitersuchen 
Tokennummer setzen 


Befehlsklartexte 

END FOR NEXT 
DATA INPUT# 

INPUT 
DIM READ 
LET GOTO RUN 
IF RESTORE 
GOSUB 

RETURN REM 
STOP ON WA IT 
LOAD SAVE 
VER1FY 
DEF POKE 
PRINT# PRINT 
CONT LIST 
CLR CMD 
SYS OPEN 
CLOSE GET 
NEU TAB( TO 
FN SPC( THEN 
NOT STEP 
♦•**/' AND 
OR > = < SGN 
INT ABS 
USR FRE POS 
SOR RND LOG 
EXP COS 
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44E7 

53 

49 

CE 

54 

41 

CE 

41 

54 

SIN TAN ATN 

44EF 

CE 

50 

45 

45 

CB 

4C 

45 

CE 

PEEK LEN 

44F7 

53 

54 

52 

A4 

56 

41 

CC 

41 

STR$ VAL ASC 

44FF 

53 

C3 

43 

48 

52 

A4 

4C 

45 

CHR$ LEFT$ 

4507 

46 

54 

A4 

52 

49 

47 48 

54 

RIGHTS 

450F 

A4 

4D 

49 

44 

A4 

47 

CF 

52 

HIDS GO RGR 

4517 

47 

D2 

52 

43 

4C 

D2 

80 


RCLR 

451E 

4A 

4 F 

D9 

52 

44 

4F 

04 

44 

JOY RDOT DEC 

4526 

45 

C3 

48 

45 

58 

A4 

45 

52 

HEXS ERRS 

452E 

52 

A4 

49 

4E 

53 

54 

D2 

45 

INSTR ELSE 

4536 

4C 

53 

C5 

52 

45 

53 

55 

4D 

RESUME 

453E 

C5 

54 

52 

41 

DO 

54 

52 

4F 

TRAP TRON 

4546 

CE 

54 

52 

4F 

46 

C6 

53 

4F 

TROFF SOUND 

454E 

55 

4E 

C4 

56 

4F 

CC 

41 

55 

VOL AUTO 

4556 

54 

CF 

50 

55 

44 

45 

C6 

47 

PUDEF GRAPHIC 

455E 

52 

41 

50 

48 

49 

C3 

50 

41 

PAINT 

4566 

49 

4E 

D4 

43 

48 

41 

02 

42 

CHAR BOX 

456E 

4F 

D8 

43 

49 

52 

43 

4C 

C5 

CIRCLE 

4576 

47 

53 

48 

41 

50 

C5 

53 

53 

GSHAPE SSHAPE 

457E 

48 

41 

50 

C5 

44 

52 

41 

D 7 

DRAU 

4586 

4C 

4F 

43 

41 

54 

C5 

43 

4F 

LOCATE COLOR 

453E 

4C 

4 F 

D? 

53 

43 

4F 

43 

4C 

SCNCLR 

4596 

D2 

53 

43 

41 

4C 

C5 

48 

45 

SCALE HELP 

459E 

4C 

Dü 

44 

CF 

4C 

4F 

4F 

DO 

DO LOOP 

45A6 

45 

58 

49 04 

44 

49 

52 

45 

EXIT DIRECTORY 

45AE 

43 

54 

4F 

52 

09 

44 

53 

41 

DSAVE 

4586 

56 

C5 

44 

4C 

4F 

41 

C4 

48 

OLOAD HEADER 

458E 

45 

41 

44 

45 

D2 

53 

43 

52 

SCRATCH 

45C6 

41 

54 

43 

C8 

45 

4F 

4C 

4C 

COLLECT 

45CE 

45 

43 

D4 

43 

4F 

50 

D9 

52 

COPY RENAME 

45D6 

45 

4E 

41 

40 

05 

42 

41 

43 

BACKUP 

45DE 

4B 

55 

DO 

44 

45 

4C 

45 

54 

DELETE 

45E6 

C5 

52 

45 

4E 

55 

40 

42 

45 

RENUMBER 

45EE 

D2 

4B 

45 

D9 

4D 

4F 

4E 

49 

KEY MONITOR 

45F6 

54 

4F 

D2 

55 

53 

49 

4E 

C7 

US ING 

45FE 

55 

4E 

54 

49 

CC 

5 7 

48 

49 

UNTIL UH ILE 

4606 

4C 

CS 

00 







4609 

42 

41 

4E 

CB 

46 

49 

4C 

54 

BANK FILTER 

4611 

45 

D2 

50 

4C 

41 

D9 

54 

45 

PLAY TEMPO 

4619 

40 

50 

CF 

40 

4F 

56 

53 

50 

MOVSPR 

4621 

02 

53 

50 

52 

49 

54 

C5 

53 

SPRITE SPRCOLOR 

4629 

50 

52 

43 

4F 

4C 

4F 

D2 

52 

RREG 

4631 

52 

45 

C7 45 

4E 

56 45 

4C 

ENVELOPE 

4639 

4F 

50 

C5 

53 

4C 

45 

45 

DO 

SLEEP 

4641 

43 

41 

54 

41 

4C 

4F 

C7 

44 

CATALOG DOPEN 

4649 

4F 

50 

45 

CE 

41 

50 

50 

45 

APPEND 
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4651 

4E 

C4 

44 

43 

4C 

4F 

53 

C5 

4659 

42 

53 

41 

56 

C5 

42 

4C 

4F 

4661 

41 

C4 

52 

45 

43 

4F 

52 

C4 

4669 

43 

4F 

4E 

43 

41 

D4 

44 

56 

4671 

45 

52 

49 

46 

D9 

44 

43 

4C 

4679 

45 

41 

D2 

53 

50 

52 

53 

41 

4681 

D6 

43 

4F 

4C 

4C 

49 

53 

49 

4689 

4F 

CE 

42 

45 

47 

49 

CE 

42 

4691 

45 

4E 

C4 

57 

49 

4E 

44 

4F 

4699 

D7 

42 

4F 

4F 

D4 

57 

49 

44 

46A1 

54 

C8 

53 

50 

52 

44 

45 

C6 

46A9 

51 

55 

49 

D4 

53 

54 

41 

53 

46B1 

C8 

AO 

46 

45 

54 

43 

C8 

AO 

46B9 

53 

57 

41 

DO 

4F 

46 

C6 

46 

46C1 

41 

53 

D4 

53 

4C 

4F 

D7 

00 

46C9 

50 

4F 

D4 

42 

55 

4D 

DO 

50 

46D1 

45 

CE 

52 

53 

50 

50 

4F 

D3 

46D9 

52 

53 

50 

52 

49 

54 

C5 

52 

46E1 

53 

50 

43 

4 F 

4C 

4F 

D2 

58 

46E9 

4F 

D2 

52 

57 

49 

4E 

44 

4F 

46F1 

D7 

50 

4F 

49 

4E 

54 

45 

D2 

46F9 

00 








46FA 

00 

00 







****************************** 

46FC 

CC 

4B 




$80 



46FE 

F8 

50 




$81 



4700 

F3 

57 




$82 



4702 

8E 

52 




$83 



4704 

47 

56 




$84 



4706 

61 

56 




$85 



4708 

7A 

58 




$86 



470A 

A8 

56 




$87 



470C 

C5 

53 




$88 



470E 

DA 

59 




$89 



4710 

9A 

5A 




$8A 



4712 

C4 

52 




$8B 



4714 

C9 

5A 




$8C 



4716 

CE 

59 




$8D 



4718 

61 

52 




$8E 



471A 

9C 

52 




$8F 



471C 

CA 

4B 




$90 



471E 

A2 

53 




$91 



4720 

2C 

6C 




$92 



4722 

2B 

91 




$93 




DCLOSE 
BSAVE BLOAD 
RECORD 

CONCAT DVERIFY 

DCLEAR 

SPRSAV 

COLLISION 

BEGIN BEND 

WINDOW 

BOOT WIDTH 

SPRDEF 

QUIT STASH 

FETCH 

SWAP OFF 

FAST SLOW 

POT BUMP 
PEN RSPPOS 
RSPRITE 
RSPCOLOR XOR 
RWINDOW 
POINTER 


Token und Adressen der Befehte 

S4BCD END 
$5DF9 FOR 
$57F4 NEXT 
$528F DATA 
$5648 INPUT# 

$5662 INPUT 
$587B DIM 
$56A9 READ 
$53C6 LET 
$59DB GOTO 
$5A9B RUN 
$52C5 IF 
$5ACA RESTORE 
$59CF GOSUB 
$5262 RETURN 
$5290 REM 
$4BCB STOP 
$53A3 ON 
$6C2D WA IT 
$912C LOAD 
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4724 

11 91 

$94 

$9112 

SAVE 

4726 

28 91 

$95 

$9129 

VER1FY 

4728 

F9 84 

$96 

$84 FA 

DEF 

472A 

E4 80 

$97 

$80E5 

POKE 

472C 

39 55 

$98 

$553A 

PRINT# 

472E 

59 55 

$99 

$555A 

PRINT 

4730 

5F 5A 

$9A 

$5A60 

CONT 

4732 

El 50 

$9B 

$50E2 

LIST 

4734 

F7 51 

$9C 

$51F8 

CLR 

4736 

3F 55 

$90 

$5540 

CMD 

4738 

84 58 

$9E 

$5885 

SYS 

473A 

8C 91 

$9F 

$9180 

OPEN 

473C 

99 91 

$A0 

$919A 

CLOSE 

473E 

11 56 

$A1 

$5612 

GET 

4740 

D5 51 

$A2 

$5106 

NEU 

4742 

90 53 

$05 

$5391 

ELSE 

4744 

61 5F 

$06 

$5F62 

RESUME 

4746 

4C 5F 

$D7 

$5F40 

TRAP 

4748 

83 58 

$08 

$58B4 

TRON 

474A 

86 58 

$09 

$58B7 

TROFF 

474C 

EB 71 

$DA 

$71EC 

SOUND 

474E 

C4 71 

$DB 

$71C5 

VOL 

4750 

74 59 

$DC 

$5975 

AUTO 

4752 

33 5F 

$00 

$5F34 

PUDEF 

4754 

59 6B 

$DE 

$6B5A 

GRAPHIC 

4756 

A7 61 

$DF 

$61A8 

PAINT 

4758 

D6 67 

$E0 

$6707 

CHAR 

475A 

B6 62 

$E1 

$62B7 

BOX 

475C 

80 66 

$E2 

S668E 

CIRCLE 

475E 

8C 65 

$E3 

$6580 

GSHAPE 

4760 

2A 64 

$E4 

$642B 

SSHAPE 

4762 

96 67 

$E5 

$6797 

DRAU 

4764 

54 69 

$E6 

$6955 

LOCATE 

4766 

El 69 

$E7 

$69E2 

COLOR 

4768 

78 6A 

$E8 

$6A79 

SCNCLR 

476A 

5F 69 

$E9 

$6960 

SCALE 

476C 

85 59 

$EA 

$5986 

HELP 

476E 

DF 5F 

$E8 

$5FE0 

DO 

4770 

89 60 

$EC 

S608A 

LOOP 

4772 

38 60 

$ED 

$6039 

EXIT 

4774 

7D A0 

SEE 

$A07E 

DIRECTORY 

4776 

8B AI 

$EF 

SA18C 

DSAVE 

4778 

A6 AI 

SFO 

$A1A7 

DLOAD 

477A 

66 A2 

$F1 

$A267 

HEADER 

477C 

AO A2 

$F2 

$A2A1 

SCRATCH 

477E 

2E A3 

$F3 

$A32F 

COLLECT 

4780 

45 A3 

$F4 

$A346 

COPY 






$F5 


SA36E 

RENAME 

$F6 


SA37C 

BACKUP 

$F7 


S5E87 DELETE 

$F8 


S5AF8 

RENUMBER 

$F9 


$61OA 

KEY 

$FA 


SBOOO 

MONITOR 

SFE 

$02 

S6BC9 

BANK 

$FE 

$03 

$7046 

FILTER 

LU 

U. 

$04 

S6DE1 

PLAY 

$FE 

$05 

S6FD7 

TEMPO 

SFE 

$06 

S6CC6 MOVSPR 

SFE 

$07 

S6C4F 

SPRITE 

SFE 

$08 

$7190 

SPRCOLOR 

SFE 

$09 

S58BD 

RREG 

SFE 

$0A 

S70C1 

ENVELOPE 

LU 

U_ 

SOB 

S6BD7 SLEEP 

SFE 

SOC 

SA07E 

CATALOG 

LU 

U. 

SOD 

SA11D 

DOPEN 

SFE 

SOE 

SA 134 

APPEND 

SFE 

SOF 

SA16F 

DCLOSE 

LU 

U. 

$10 

SA1C8 

BSAVE 

SFE 

$11 

SA218 

BLOAD 

SFE 

$12 

SA207 

RECORD 

SFE 

$13 

SA362 

CONCAT 

SFE 

$14 

SA1A4 

DVERIFY 

SFE 

$15 

SA322 

DCLEAR 

SFE 

$16 

S76EC 

SPRSAV 

SFE 

$17 

$7164 

COLLISION 

SFE 

$18 

S796C 

BEGIN 

LU 

u. 

$19 

S528F 

BEND 

SFE 

S1A 

S72CC 

WINDOW 

SFE 

S18 

S7335 

BOOT 

SFE 

SIC 

$71B6 

WIDTH 

SFE 

$10 

$7372 

SPRDEF 

SFE 

SIE 

$4846 

QU IT 

SFE 

S1F 

SAA1F 

STASH 

SFE 

$20 

$0000 

i i 

SFE 

$21 

SAA24 

FETCH 

SFE 

$22 

$0000 

i i 

LU 

U. 

4* 

$23 

SAA29 

SWAP 

SFE 

$24 

$4846 

OFF 

SFE 

$25 

S77B3 

FAST 

SFE 

$26 

S77C4 

SLOW 

$B4 


S8C65 

SGN 

SB5 


S8CFB 

INT 

SB6 


S8C84 

ABS 
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47DE 

18 12 

$B7 

$1218 

USR 

47E0 

00 80 

$B8 

$8000 

FRE 

47E2 

DO 84 

$B9 

S84D0 

POS 

47E4 

B7 8F 

$BA 

S8FB7 

SQR 

47E6 

34 84 

SBB 

$8434 

RND 

47E8 

CA 89 

SBC 

S89CA 

LOG 

47EA 

33 90 

SBD 

$9033 

EXP 

47EC 

09 94 

SBE 

$9409 

COS 

47EE 

10 94 

SBF 

$9410 

SIN 

47F0 

59 94 

SCO 

$9459 

TAN 

47F2 

B3 94 

SCI 

$9483 

ATN 

47F4 

C5 80 

SC2 

S80C5 

PEEK 

47F6 

68 86 

SC3 

$8668 

LEN 

47F8 

AE 85 

SC4 

$85AE 

STR$ 

47FA 

4A 80 

SC 5 

S804A 

VAL 

47FC 

77 86 

SC6 

$8677 

ASC 

47FE 

BF 85 

SC 7 

$85BF 

CHR$ 

4800 

D6 85 

SC8 

S85D6 

LEFT$ 

4802 

0A 86 

SC9 

S860A 

RIGHTS 

4804 

IC 86 

SCA 

$861C 

MID$ 

4806 

82 81 

SCC 

$8182 

RGR 

4808 

9B 81 

SCO 

S819B 

RCLR 

480A 

00 00 


$0000 


480C 

03 82 

SCF 

$8203 

JOY 

480E 

0C 9B 

$00 

S9B0C 

RDOT 

4810 

76 80 

SD1 

$8076 

DEC 

4812 

42 81 

SD 2 

$8142 

HEX$ 

4814 

F6 80 

SD 3 

$80 F 6 

ERR$ 

4816 

4D 82 

SCE $02 

$824D 

POT 

4818 

7C 83 

SCE $03 

S837C 

BUMP 

481A 

AE 82 

SCE $04 

$82AE 

PEN 

481C 

97 83 

SCE $05 

$8397 

RSPPOS 

481E 

IE 83 

SCE $06 

$83 IE 

RSPRITE 

4820 

61 83 

SCE $07 

$8361 

RSPCOLOR 

4822 

El 83 

SCE $08 

S83E1 

XOR 

4824 

07 84 

SCE $09 

$8407 

RUINDOU 

4826 

FA 82 

SCE SOA 

$82 FA 

POINTER 


****************************** Hierarchiecodes, Token und Adressen 

der Operatoren 


4828 

79 

47 88 

$79 

$AA 

$8848 

♦ 

482B 

79 

30 88 

$79 

SAB 

$8831 

- 

482E 

7B 

26 8A 

$7B 

$AC 

$8A27 

* 

4831 

7B 

4B 8B 

$7B 

SAD 

S8B4C 

/ 

4834 

7F 

CO 8F 

$7F 

$AE 

S8FC1 

A 



420 


128 Intern 


4837 

50 

88 

4C 

$50 

> 

“n 

$4C89 AND 

483A 

46 

85 

4C 

$46 

O 

ca 

$4C86 OR 

483D 

7D 

F9 

8F 

$7D 


$8FFA Vorzeichenwechsel 

4840 

5A 

2F 

79 

$5A 

CO 

< 

$7930 NOT 

4843 

64 

B5 

4C 

$64 

$82 

$4CB6 Vergleich 


****************************** uninplemented Command 

4846 A2 28 LDX #$28 'UNIMPLEMENTED COMMAND 1 

4848 4C 3C 4D JMP $4D3C 


****************************** FehlGrfDGldungst gx t g 


484 B 

54 

4F 

4F 

20 

4D 

41 

4E 

59 

4853 

20 

46 

49 

4C 

45 

D3 

46 

49 

485B 

4C 

45 

20 

4F 

50 

45 

CE 

46 

4863 

49 

4C 

45 

20 

4E 

4 F 

54 

20 

486B 

4F 

50 

45 

CE 

46 

49 

4C 

45 

4873 

20 

4E 

4F 

54 

20 

46 

4F 

55 

487B 

4E 

C4 

44 

45 

56 

49 

43 

45 

4883 

20 

4E 

4F 

54 

20 

50 

52 

45 

488B 

53 

45 

4E 

D4 

4E 

4F 

54 

20 

4893 

49 

4E 

50 

55 

54 

20 

46 

49 

489B 

4C 

C5 

4E 

4F 

54 

20 

4 F 

55 

4 8 A3 

54 

50 

55 

54 

20 

46 

49 

4C 

48AB 

C5 

4D 

49 

53 

53 

49 

4E 

47 

48B3 

20 

46 

49 

4C 

45 

20 

4E 

41 

48BB 

4D 

C5 

49 

4C 

4C 

45 

47 

41 

48C3 

4C 

20 

44 

45 

56 

49 

43 

45 

48CB 

20 

4E 

55 

4D 

42 

45 

D2 

4E 

48d3 

45 

58 

54 

20 

57 

49 

54 

48 

48DB 

4F 

55 

54 

20 

46 

4F 

D2 

53 

48E3 

59 

4E 

54 

41 

D8 

52 

45 

54 

48EB 

55 

52 

4E 

20 

57 

49 

54 

48 

48F3 

4F 

55 

54 

20 

47 

4F 

53 

55 

48FB 

C2 

4F 

55 

54 

20 

4F 

46 

20 

4903 

44 

41 

54 

CI 

49 

4C 

4C 

45 

490B 

47 

41 

4C 

20 

51 

55 

41 

4L 

4913 

54 

49 

54 

09 

4F 

56 

45 

52 

491B 

46 

4C 

4F 

D7 

4 F 

55 

54 

20 

4923 

4F 

46 

20 

4D 

45 

4D 

4F 

52 

492B 

D9 

55 

4E 

44 

45 

46 

27 

44 

4933 

20 

53 

54 

41 

54 

45 

4D 

45 

493B 

4E 

D4 

42 

41 

44 

20 

53 

55 

4943 

42 

53 

43 

52 

49 

50 

D4 

52 

4948 

45 

44 

49 

4D 

27 

44 

20 

41 

4953 

52 

52 

41 

D9 

44 

49 

56 

49 

495B 

53 

49 

4F 

4E 

20 

42 

59 

20 


1 'TOO MANY FILES 1 

2 'FILE OPEN 1 

3 'FILE NOT OPEN 1 

4 'FILE NOT FOUND 1 

5 'DEVICE NOT PRESENT 1 

6 'NOT INPUT FILE 1 

7 'NOT OUTPUT FILE 1 

8 'MISSING FILE NAME 1 

9 'ILLEGAL DEVICE NUMBER 1 

10 'NEXT UITHOUT FOR 1 

11 'SYNTAX 1 

12 'RETURN UITHOUT GOSUB 1 

13 'OUT OF DATA 1 

14 'ILLEGAL QUANTITY 1 

15 'OVERFLOW' 

16 'OUT OF MEMORY' 

17 ’UNDEF'D STATEMENT' 

18 'BAD SUBSCRIPT' 

19 ’REDIM'D ARRAY* 

20 'DIVISION BY ZERO' 
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4963 

5A 

45 

52 

CF 

49 

4C 

4C 

45 

21 

•ILLEGAL DIRECT' 

496B 

47 

41 

4C 

20 

44 

49 

52 

45 



4973 

43 

D4 

54 

59 

50 

45 

20 

40 

22 

•TYPE MISMATCH 1 

497B 

49 

53 

4D 

41 

54 

43 

C8 

53 

23 

•STRING TOO LONG 1 

4983 

54 

52 

49 

4E 

47 

20 

54 

4F 



498B 

4F 

20 

4C 

4F 

4E 

C7 

46 

49 

24 

•FILE DATA' 

4993 

4C 

45 

20 

44 

41 

54 

CI 

46 

25 

•FORMULA TOO COMPLEX' 

499B 

4F 

52 

40 

55 

4C 

41 

20 

54 



49A3 

4F 

4F 

20 

43 

4F 

4D 

50 

4C 



49AB 

45 

08 

43 

41 

4E 

27 

54 

20 

26 

•CAN'T CONTINUE' 

49B3 

43 

4F 

4E 

54 

49 

4E 

55 

C5 



49BB 

55 

4E 

44 

45 

46 

27 

44 

20 

27 

•UNDEF'D FUNCTION' 

49C3 

46 

55 

4E 

43 

54 

49 

4F 

CE 



49CB 

56 

45 

52 

49 

46 

D9 

4C 

4F 

28 

•VERIFY' 

49D3 

41 

C4 

42 

52 

45 

41 

4B 

00 

29 

•LOAD' 30 'BREAK' 

49DB 

AO 

43 

41 

4E 

27 

54 

20 

52 

31 

•CAN'T RESUME' 

49E3 

45 

53 

55 

40 

C5 

4C 

4F 

4F 

32 

•LOOP NOT FOUND' 

49EB 

50 

20 

4E 

4F 

54 

20 

46 

4F 



49F3 

55 

4E 

C4 

4 C 

4F 

4F 

50 

20 

33 

•LOOP UITHOUT DO' 

49FB 

57 

49 

54 

48 

4F 

55 

54 

20 



4A03 

44 

CF 

44 

49 

52 

45 

43 

54 

34 

•DIRECT MODE ONLY' 

4A0B 

20 

40 

4F 

44 

45 

20 

4F 

4E 



4A13 

4C 

D9 

4E 

4F 

20 

47 

52 

41 

35 

'NO GRAPHICS AREA' 

4A1B 

50 

48 

49 

43 

53 

20 

41 

52 



4A23 

45 

CI 

42 

41 

44 

20 

44 

49 

36 

•BAD DISK' 

4A2B 

53 

CB 

42 

45 

4E 

44 

20 

4E 

37 

•BEND NOT FOUND' 

4A33 

4F 

54 

20 

46 

4F 

55 

4E 

C4 



4A3B 

4C 

49 

4E 

45 

20 

4E 

55 

4D 

38 

■LINE NUMBER TOO LARGE 

4A43 

42 

45 

52 

20 

54 

4F 

4F 

20 



4A4B 

4C 

41 

52 

47 

C5 

55 

4E 

52 

39 

'UNRESOLVED REFERENCE' 

4A53 

45 

53 

4F 

4C 

56 

45 

44 

20 



4A5B 

52 

45 

46 

45 

52 

45 

4E 

43 



4A63 

C5 

55 

4E 

49 

4D 

50 

4C 

45 

40 

•UNIMPLEMENTED COMMAND 

4A6B 

4D 

45 

4E 

54 

45 

44 

20 

43 



4A73 

4F 

4D 

40 

41 

4E 

C4 

46 

49 

41 

•FILE READ* 

4A7B 

4C 

45 

20 

52 

45 

41 

C4 





★***************************** z e jg C r auf Fehlenneldüng 

Nummer (X) setzen 


4A82 

AA 


TAX 

Nummer in (X) 

4A83 

AO 

00 

LDY #$00 


4A85 

A9 

4B 

LDA #$4B 

Fehlermeldungstexte 

4A87 

85 

26 

STA $26 

ab $4848 

4A89 

A9 

48 

LDA #$48 


4A8B 

85 

27 

STA $27 


4A8D 

CA 


DEX 

Fehlertext erreicht ? 

4A8E 

30 

OE 

BMI $4A9E 

Ja, Ende 
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128 Intern 


4A90 

Bl 

26 


LDA 

($26),Y 

Zeichen holen 

4A92 

48 



PHA 



4A93 

E6 

26 


INC 

$26 

Pointer erhöhen 

4A95 

DO 

02 


BNE 

$4A99 


4A97 

E6 

27 


INC 

$27 


4A99 

68 



PLA 


Zeichen war Ende einer Meldung ? 

4A9A 

10 

F4 


BPL 

$4A90 

Nein, weiterüberiesen 

4A9C 

30 

EF 


BMI 

$4A8D 

Nächste Meldung lesen 

4A9E 

60 



RTS 



★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■fr 

Interpreterschleife / Befehl auswer 

4A9F 

6C 

08 

03 

JMP 

($0308) 

$4AA2 Befehl ausführen 

4AA2 

24 

7F 


BIT 

$7F 

Direktmodus ? 

4AA4 

10 

4A 


BPL 

> 

TI 

o 

Ja, Skip 

4AA6 

AD 

7F 

12 

LDA 

$127F 

BASIC-IRQ erlaubt ? 

4AA9 

30 

45 


BMI 

$4AF0 

Nein, Skip 

4AAB 

A2 

07 


LDX 

#$02 


4AAD 

BD 

76 

12 

LDA 

$1276,X 

Auslöse-IRQ gefunden ? 

4AB0 

FO 

3B 


BEO 

$4AED 

Nein, Skip 

4AB2 

A9 

00 


LDA 

#$00 

IRQ löschen 

4AB4 

90 

76 

12 

STA 

$1276,X 


4AB7 

BD 

79 

12 

LDA 

$1279,X 

Zei lennummer setzen 

4ABA 

85 

16 


STA 

$16 


4ABC 

BD 

7C 

12 

LDA 

$127C,X 


4ABF 

85 

17 


STA 

$17 


4AC1 

8A 



TXA 



4AC2 

48 



PHA 



4AC3 

A5 

3D 


LDA 

$3D 

PC retten 

4AC5 

48 



PHA 



4AC6 

A5 

3E 


LDA 

$3E 


4AC8 

48 



PHA 



4AC9 

AD 

7F 

12 

LDA 

$127F 

BASIC-IRQ verbieten 

4ACC 

09 

80 


ORA 

#$80 


4ACE 

8D 

7F 

12 

STA 

$127F 


4AD1 

20 

80 

03 

JSR 

$0380 

CHRGET 

4AD4 

20 

ID 

5A 

JSR 

$5A1D 

GOSUB-Uerte auf den BASIC-Stack 

4 AD 7 

20 

E2 

59 

JSR 

$59E2 

GOTO-Befehl ausführen 

4ADA 

20 

r6 

4A 

JSR 

$4AF6 

BASIC-IRQ-Programm ausführen 

4ADD 

AD 

7F 

12 

LDA 

$ 127F 

BASIC-IRQ wieder erlauben 

4AE0 

29 

7F 


AND 

#$7F 


4AE2 

80 

7F 

12 

STA 

$127F 


4AE5 

68 



PLA 


PC holen 

4AE6 

85 

3E 


STA 

$3E 


4AE8 

68 



PLA 



4AE9 

85 

3D 


STA 

$3D 


4AEB 

68 



PLA 



4AEC 

AA 



TAX 
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4AED 

CA 



DEX 


4AEE 

10 

BD 


BPL 

$4AAD 

4AF0 

20 

80 

03 

JSR 

$0380 

4AF3 

20 

3F 

4B 

JSR 

$4B3F 


Alle IRQ-Quellen abgearbeitet ? 

Nein, weitertesten 

CHRGET 

Befehl ausführen 


****************************** intGrprsterschleifenstart 


4AF6 

20 

B5 

4B 

JSR $4BB5 

Test auf STOP-Taste 

4AF9 

24 

7F 


BIT $7F 

Direktmodus ? 

4AFB 

10 

06 


BPL $4B03 

Ja, Skip 

4AFD 

20 

34 

4B 

JSR $4834 

PC für CONT setzen 

4B00 

BA 



TSX 

Stapelzeiger retten 

4801 

86 

82 


STX $82 


4B03 

A0 

00 


LDY #$00 


4B05 

20 

C9 

03 

JSR $03C9 

Aktuelles Zeichen holen 

4B08 

FO 

03 


BEQ $4B0D 

Wenn Zeilenende, Skip 

4B0A 

4C 

AE 

4B 

JMP $4BAE 

Test auf 1 :' 

4B0D 

24 

7F 


BIT $7F 

Direktmodus ? 

4B0F 

10 

20 


BPL $4B31 

Ja, Skip 

4B11 

AO 

02 


LDY #$02 


4B13 

20 

C9 

03 

JSR $03C9 

Programmende ? 

4B16 

FO 

19 


BEQ $4B31 

Ja, 'READY.' 

4B18 

C8 



INY 


4B19 

20 

C9 

03 

JSR $03C9 

Aktuelle Zeilennummer 

4B1C 

85 

3B 


STA $3B 

setzen 

4B1E 

C8 



INY 


4B1F 

20 

C9 

03 

JSR $03C9 


4B22 

85 

3C 


STA $3C 


4B24 

98 



TYA 

PC korrigieren 

4B25 

18 



CLC 


4B26 

65 

30 


ADC $3D 


4B28 

85 

3D 


STA $30 


4B2A 

90 

02 


BCC $4B2E 


4B2C 

E6 

3E 


INC $3E 


4B2E 

4C 

9F 

4A 

JMP $4A9F 

Interpreterschleife 

4B31 

4C 

37 

40 

JMP $4D37 

■READY.' 

****************************** 

PC für CONT setzen 

4B34 

A5 

30 


LOA $30 

PC holen 

4B36 

A4 

3E 


LDY $3E 


4B38 

80 

02 

12 

STA $1202 

und in CONT-Zeiger setzen 

4B3B 

8C 

03 

12 

STY $1203 


4B3E 

60 



RTS 



****************************** ßgfchl ausführen 
4B3F FO FD BEQ $4B3E Wenn Trennzeichen, Skip 



2C 6F 11 

BIT $116F 

Trace ? 

10 13 

BPL S4B59 

Nein, Skip 

24 7F 

BIT $7F 

Direktmodus ? 

10 0F 

BPL $4B59 

Ja, Skip 

48 

PHA 


A9 58 

LDA #$5B 

Eckige Klammer auf 

20 OC 56 

JSR $560C 

Zeichen ausgeben 

20 2E 8E 

JSR $8E2E 

Zeilennummer ausgeben 

A9 5D 

LDA #$5D 

Eckige Klammer zu 

20 OC 56 

JSR $560C 

Zeichen ausgeben 

68 

PLA 


C9 FE 

CMP #$FE 

Sondertokenwert 1 ? 

FO 37 

BEQ $4B94 

Ja, Skip 

C9 CB 

CMP #$CB 

Token für GO ? 

DO 03 

BNE S4B64 

Nein, Skip 

4C 3D 5A 

JMP $5A3D 

G064 und GO TO Test 

C9 CA 

CMP #$CA 

Token für MID$ ? 

FO 23 

BEQ S4B8B 

Ja, ausführen 

C9 FB 

CMP #$FB 

Ungültiger Tokenwert ? 

BO 3F 

BCS $4BAB 

Ja, Fehler 

C9 A3 

CMP #$A3 


90 06 

BCC $4B76 


C9 D5 

CMP #$D5 


90 37 

BCC $4BAB 

Ja, Fehler 

E9 32 

SBC #$32 

Tokenwert anpassen 

38 

SEC 


E9 80 

SBC #$80 

Tokengrundwert $80 abziehen 

BO 03 

BCS $4B7E 

Wenn gültiges Token, Skip 

4C C6 53 

JMP $53C6 

LET-Befehl 

OA 

ASL 

Token in Offset umrechnen 

A8 

TAY 


B9 FD 46 

LDA $46FD,Y 

Befehlsadresse auf Stapel legen 

48 

PHA 


B9 FC 46 

LDA $46FC,Y 


48 

PHA 


4C 80 03 

JMP $0380 

CHRGET und Befehlsaufruf 

A9 59 

LDA #$59 

MID$ ausführen ($5901) 

48 

PHA 


A9 00 

LDA #$00 


48 

PHA 


4C 80 03 

JMP $0380 

CHRGET 

20 80 03 

JSR $0380 

Sondertoken testen und 

FO 12 

BEQ $4BAB 

ausführen 

C9 02 

CMP #$02 

Tokenwert ungültig ? 

90 08 

BCC $4BA5 

Ja, Escapetest 

C9 27 

CMP #$27 
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4B9F 

BO 

04 


BCS 

in 

< 

CO 

ä 

4BA1 

69 

47 


ADC 

#$47 

AB A3 

DO 

D9 


BNE 

$4B7E 

4BA5 

38 



SEC 


4BA6 

6C 

10 

03 

JMP 

($0310) 

4BA9 

90 

E6 


BCC 

$4B91 

4BAB 

4C 

6C 

79 

JHP 

$796C 

4BAE 

C9 

3A 


CMP 

#$3A 

4BB0 

DO 

F9 


BNE 

$4BAB 

4BB2 

4C 

9F 

4A 

JMP 

$4A9F 

****************************** 

4BB5 

20 

93 

92 

JSR 

$9293 

4BB8 

F0 

01 


BEO 

$4BBB 

4BBA 

60 



RTS 


4B8B 

AC 

oc 

12 

LDY 

$120C 

4BBE 

C8 



INY 


4BBF 

F0 

0F 


BEQ 

$4BD0 

4BC1 

20 

93 

92 

JSR 

$9293 

4BC4 

F0 

FB 


BEQ 

$4BC1 

4BC6 

A2 

1F 


LDX 

#$1E 

4BC8 

4C 

3C 

4D 

JMP 

$4D3C 

****************************** 

4BCB 

BO 

01 


BCS 

$4BCE 

****************************** 

4BCD 

18 



CLC 


4BCE 

DO 

26 


BNE 

$4BF6 

4BD0 

24 

7F 


BIT 

$7F 

4BD2 

10 

00 


BPL 

$4BE 1 

4BD4 

20 

34 

4B 

JSR 

$4B34 

4BD7 

A5 

3B 


LDA 

$3B 

4BD9 

A4 

3C 


LDY 

$3C 

4BDB 

8D 

00 

12 

STA 

$1200 

4BDE 

8C 

01 

12 

STY 

$1201 

4BE1 

68 



PLA 


4BE2 

68 



PLA 


4BE3 

90 

0E 


BCC 

$4BF3 

4BE5 

20 

81 

92 

JSR 

$9281 


Ja, Escapetest 
Tokenwert anpassen 
Unbedingter Sprung 

Fehlerflag vorbesetzen 
$4BA9 ESC-Befehl ausführen 
Uenn kein Fehler, Befehlsaufruf 
'SYNTAX' 

':' ? 

Nein, Fehler 

Zurück zur Befehlsausführung 

STOP-Taste testen 

STOP-Taste gedrückt ? 

Ja, Skip 

TRAP erlaubt ? 

Nein, Skip 

Warten bis Taste losgelassen 
'BREAK' 


BASIC-Befehl STOP 

Unbedingter Sprung 

BASIC-Befehl END 

END-Flag setzen 

Wenn kein Trennzeichen, Ende 

Direktmodus ? 

Ja,Skip 

PC für CONT setzen 
Zeilennumner retten 


Rücksprungadresse löschen 

Bei Aufruf durch END, Skip 
Text ausgeben 


****************************** Textkonstante 'BREAK' 
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4BE8 00 0A 42 52 45 41 4B 00 (CR) (LF) 'BREAK' 


****************************** 


4BF0 

4C 

AF 

40 

JMP $40AF 

•IN' Nummer, 'READY 

4BF3 

4C 

37 

4D 

JMP $4037 

'READY.' 

4BF6 

60 



RTS 



****************************** Punktion aufrufcn 


4BF7 

C9 CE 


CMP 

#$CE 

4BF9 

F0 59 


BEQ 

$4C54 

4BFB 

C9 D5 


CMP 

#$D5 

4BFD 

B0 AC 


BCS 

$48AB 

4BFF 

C9 CB 


CMP 

#$CB 

4C01 

90 02 


BCC 

$4C05 

4C03 

E9 01 


SBC 

#$01 

4C05 

48 


PHA 


4C06 

AA 


TAX 


4C07 

20 80 

03 

JSR 

$0380 

4C0A 

E0 D3 


CPX 

#$D3 

4C0C 

F0 08 


BEQ 

$4C16 

4C0E 

E0 CB 


CPX 

#$CB 

4C10 

B0 29 


BCS 

$4C3B 

4C12 

E0 C8 


CPX 

#$C8 

4C14 

90 25 


BCC 

$4C38 

4C16 

20 59 

79 

JSR 

$7959 

4C19 

20 EF 

77 

JSR 

$77EF 

4C1C 

20 5C 

79 

JSR 

$795C 

4C1F 

20 DD 

77 

JSR 

$77DD 

4C22 

68 


PLA 


4C23 

C9 D3 


CMP 

#$D3 

4C25 

F0 59 


BEQ 

$4C80 

4C27 

AA 


TAX 


4C28 

A5 67 


LDA 

$67 

4C2A 

48 


PHA 


4C2B 

A5 66 


LDA 

$66 

4C20 

48 


PHA 


4C2E 

8A 


TXA 


4C2F 

48 


PHA 


4C30 

20 F4 

87 

JSR 

$87F4 

4C33 

68 


PLA 


4C34 

A8 


TAY 


4C35 

8A 


TXA 


4C36 

48 


PHA 


4C37 

98 


TYA 


4C38 

4C 3F 

4C 

JMP 

$4C3F 


Sondertoken 2 ? 

Ja, Skip 

Keine Funktion ? 

Ja, Fehler 

BASIC 2.0 Funktion ? 

Ja, Skip 

BASIC 7.0 Funktionstoken anpassen 
Wert retten 
und in (X) 

CHRGET 

Funktion ERR$ 7 
Ja, Skip 

BASIC 7.0 Funktion ? 

Ja, Skip 

Numerische Funktion ? 

Ja, Skip 
Test auf '(' 

FRMEVL 

Test auf ')' 

Test auf String 


Byte-Wert für Funktion auswerten 
Tokenwert wieder holen 
und in (Y) retten 
Byte-Uert auf Stapel legen 


Tokenwert wieder in (A) 


Funktion INSTR ? 

Ja, Sonderbehandlung 
Token retten 
Deskriptoradresse retten 


Tokenwert auf Stapel 
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4C3B 

20 

50 

79 

JSR 

$7950 

Term in Klammern auswerten 

4C3E 

68 



PLA 


Token wieder holen 

4C3F 

38 



SEC 



4C40 

E9 

B4 


SBC 

#$B4 

in Offset umrechnen 

4C42 

0A 



ASL 



4C43 

A8 



TAY 



4C44 

B9 

D9 

47 

LDA 

$47D9,Y 

Funktionsadresse setzen 

4C47 

85 

58 


STA 

$58 


4C49 

B9 

D8 

47 

LDA 

$47D8,Y 


4C4C 

85 

57 


STA 

$57 


4C4E 

20 

56 

00 

JSR 

$0056 

Funktion aufrufen 

4C51 

4C 

DA 

77 

JMP 

$77DA 

und Ergebnis auf numerisch prüfen 

4C54 

20 

80 

03 

JSR 

$0380 

CHRGET 

4C57 

F0 

2A 


BEQ 

$4C83 

Wenn Trennzeichen, Fehler 

4C59 

C9 

OA 


CMP 

#$0A 

Funktion POINTER ? 

4C5B 

F0 

OB 


BEQ 

$4C68 

Ja, Skip 

4C5D 

48 



PHA 


Token retten 

4C5E 

20 

80 

03 

JSR 

$0380 

CHRGET 

4C61 

20 

59 

79 

JSR 

$7959 

Test auf '(' 

4C64 

20 

EF 

77 

JSR 

$77EF 

FRMEVL 

4C67 

68 



PLA 


Token wieder holen 

4C68 

C9 

02 


CMP 

#$02 

Ungültiges Token ? 

4C6A 

90 

08 


BCC 

$4C74 

Ja, Sonderbehandlung 

4C6C 

C9 

OB 


CMP 

#$0B 


4C6E 

BO 

04 


BCS 

$4C74 

Ja, Sonderbehandlung 

4C70 

69 

Dl 


ADC 

#$D1 

Tabellenoffset berechnen 

4C72 

DO 

CB 


BNE 

$4C3F 

Unbedingter Sprung 

4C74 

38 



SEC 


Fehlerflag setzen 

4C75 

20 

7D 

4C 

JSR 

$4C7D 

Sonderfunktion aufrufen 

4C78 

BO 

09 


BCS 

$4C83 

Wenn Fehler, Skip 

4C7A 

4C 

DA 

77 

JMP 

$77DA 

Ergebnis auf numerisch prüfen 

4C7D 

6C 

FC 

02 

JMP 

($02FC) 

ESC-Funkt ionsauf ruf 

4C80 

4C 

CI 

99 

JMP 

$99C1 

INSTR aufrufen 

4C83 

4C 

6C 

79 

JMP 

$796C 

■SYNTAX' 

****************************** 

BASIC-Befehl OR 

4C86 

AO 

FF 


LDY 

#$FF 

Verknüpfungswert laden 

4C88 

2C 



.BYTE $2C 


****************************** 

BASIC-Befehl AND 

4C89 

AO 

00 


LDY 

#$00 

Verknüpfungswert laden 

4C8B 

84 

OD 


STY 

$0D 


4C8D 

20 

B4 

84 

JSR 

$84 B4 

FAC#1 in Integer 

4C90 

A5 

66 


LDA 

$66 

Werte verknüpfen 
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4C92 

45 

0D 


EOR 

$0D 

4C94 

85 

09 


STA 

$09 

4C96 

A5 

67 


LDA 

$67 

4C98 

45 

0D 


EOR 

$0D 

4C9A 

85 

0A 


STA 

$0A 

4C9C 

20 

28 

8C 

JSR 

$8C28 

4C9F 

20 

B4 

84 

JSR 

$84B4 

4CA2 

A5 

67 


LDA 

$67 

4CA4 

45 

0D 


EOR 

$0D 

4CA6 

25 

0A 


AND 

$0A 

4CA8 

45 

0D 


EOR 

$00 

4CAA 

A8 



TAY 


4CAB 

A5 

66 


LDA 

$66 

4CAD 

45 

0D 


EOR 

$0D 

4CAF 

25 

09 


AND 

$09 

4CB1 

45 

00 


EOR 

$0D 

4CB3 

4C 

3C 

79 

JMP 

$793C 

****************************** 

4CB6 

20 

DE 

77 

JSR 

$77DE 

4CB9 

BO 

13 


BCS 

$4CCE 

4CBB 

A5 

6F 


LDA 

$6F 

4CBD 

09 

7F 


ORA 

#$7F 

4CBF 

25 

6B 


AND 

$6B 

4CC1 

85 

6B 


STA 

$6B 

4CC3 

A9 6A 


LDA 

#$6A 

4CC5 

A0 

00 


LDY 

#$00 

4CC7 

20 

87 

8C 

JSR 

$8C87 

4CCA 

AA 



TAX 


4CCB 

4C 

01 

4D 

JMP 

$4001 

****************************** 

4CCE 

A9 

00 


LDA 

#$00 

4CD0 

85 

0F 


STA 

$0F 

4CD2 

C6 

4F 


DEC 

$4F 

4CD4 

20 

81 

87 

JSR 

$8781 

4CD7 

85 

63 


STA 

$63 

4CD9 

86 

64 


STX 

$64 

4CDB 

84 

65 


STY 

$65 

4CDD 

A5 

6D 


LDA 

$60 

4CDF 

A4 

6E 


LDY 

$6E 

4CE1 

20 

85 

87 

JSR 

$8785 

4CE4 

86 

6D 


STX 

$6D 

4CE6 

84 

6E 


STY 

$6E 

4CE8 

AA 



TAX 


4CE9 

38 



SEC 



FAC#2 in FAC#1 
FAC#1 in Integer 
Ergebnis setzen 


Uert in FAC#1 
Vergleich 

Auf gleichen Typ testen 
Uenn String, Skip 

Speicherformat setzen 

Zeiger auf FAC#2 

Vergleich Konstante mit FAC#1 

Stringvergleich 

Typ auf numerisch setzen 

Vergleichsmaske anpassen 
Stringparameter holen + FRESTR 
Deskriptor speichern 

Zeiger auf 2. String 
FRESTR 

Adresse setzen 

Länge des 2. Strings in (X) 
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4CEA 

E5 

63 

SBC 

$63 

4CEC 

F0 

08 

BEQ 

$4CF6 

4CEE 

A9 

01 

LDA 

#$01 

4CF0 

90 

04 

BCC 

$4CF6 

4CF2 

A6 

63 

LDX 

$63 

4CF4 

A9 

FF 

LDA 

#$FF 

4CF6 

85 

68 

STA 

$68 

4CF8 

A0 

FF 

LDY 

#$FF 

4CFA 

E8 


INX 


4CFB 

C8 


INY 


4CFC 

CA 


DEX 


4CFD 

DO 

07 

BNE 

$4D06 

4CFF 

A6 

68 

LDX 

$68 

4D01 

30 

1B 

BMI 

$4D1E 

4D03 

18 


CLC 


4D04 

90 

18 

BCC 

$4D1E 

4D06 

A9 

60 

LDA 

#$60 

4D08 

20 

AB 03 

JSR 

$03AB 

4D0B 

48 


PHA 


4D0C 

A9 

64 

LDA 

#$64 

4D0E 

20 

AB 03 

JSR 

$03AB 

4D11 

85 

79 

STA 

$79 

4D13 

68 


PLA 


4D14 

C5 

79 

CMP 

$79 

4D16 

FO 

E3 

BEQ 

$4CFB 

4D18 

A2 

FF 

LDX 

#$FF 

4D1A 

B0 

02 

BCS 

$4D1E 

4D1C 

A2 

01 

LDX 

#$01 

4D1E 

E8 


INX 


4D1F 

8A 


TXA 


4D20 

2A 


ROL 


4D21 

25 

14 

AND 

$14 

4D23 

FO 

02 

BEQ 

$4027 

4D25 

A9 

FF 

LDA 

#$FF 

4D27 

4C 

68 8C 

JMP 

$8C68 


****************************** 


Stringlängen gleich ? 

Ja, Skip 

Flag für 2. String kürzer setzen 
Wenn 2. String kürzer, Skip 
Länge des 1. Strings in (X) 

Flag für 1. String kürzer 
setzen 

Offset auf Start 


Ende erreicht ? 

Nein, Skip 
1. String kürzer ? 

Ja, Skip 
Flag setzen 
Unbedingter Sprung 

Zeichen aus 2. String holen 

und retten 

Zeichen aus 1. String holen 


Zeichen gleich ? 

Ja, weitervergleichen 

Flag für 1. String kürzer laden 

Wenn kürzer, Skip 

Flag für 2. String kürzer laden 

Vergleichsergebnis setzen 


Ergebnis setzen 
'READY.' ausgeben 


4D2A 20 81 92 JSR $9281 Text ausgeben 

4D2D 00 52 45 41 44 59 2E 0D (CR) 'READY.' 

4D35 00 

4D36 60 RTS 
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****************************** •READY. 1 


4D37 

A2 

80 


LDX 

#$80 

Kein Fehler, 'READY.'-Wert 

4D39 

2C 



.BYTE $2C 


4D3A 

A2 

10 


LDX 

#$10 

•OUT OF MEMORY 1 

4D3C 

6C 

00 

03 

JMP 

($0300) 

$4D3F Fehlerroutine, Nummer 

4D3F 

80 

03 

FF 

STA 

$FF03 

Write in Bank 0 setzen 

4D42 

8A 



TXA 


Fehler gesetzt ? 

4D43 

30 

72 


BMI 

$4DB7 

Nein, Skip 

4D45 

8E 

08 

12 

STX 

$1208 

Fehlernummer für TRAP setzen 

4D48 

24 

7F 


BIT 

$7F 

Direktmodus ? 

4D4A 

10 

30 


BPL 

$4D7C 

Ja, Skip 

4D4C 

A0 

01 


LOY 

#$01 

Werte für TRAP setzen 

4D4E 

B9 

3B 

00 

LOA 

$003B,Y 

BASIC-Zeilennummer setzen 

4D51 

99 

09 

12 

STA 

$1209,Y 


4D54 

B9 

02 

12 

LOA 

$1202,Y 

PC setzen 

4D57 

99 

OE 

12 

STA 

$120E,Y 


4D5A 

88 



DEY 



4D5B 

10 

Fl 


BPL 

$4D4E 


4D5D 

AC 

OC 

12 

LDY 

$120C 

TRAP erlaubt ? 

4D60 

C8 



I NY 



4D61 

FO 

19 


BEQ 

$4D7C 

Nein, Skip 

4D63 

88 



DEY 



4D64 

84 

17 


STY 

$17 

Zeilennummer High setzen 

4D66 

8C 

OD 

12 

STY 

$120D 


4069 

AC 

OB 

12 

LDY 

$1208 

Zeilennummer Low setzen 

4D6C 

84 

16 


STY 

$16 


4D6E 

A2 

FF 


LDX 

#$FF 

TRAP verbieten 

4D70 

8E 

OC 

12 

STX 

S120C 


4D73 

A6 

82 


LDX 

$82 

Stapelzeiger setzen 

4D75 

9A 



TXS 



4D76 

20 

FB 

59 

JSR 

$59FB 

GOTO-Befehl aufrufen 

4D79 

4C 

F6 

4A 

JMP 

$4AF6 

Interpreterschlei fe 

4D7C 

CA 



DEX 



4D7D 

8A 



TXA 



4D7E 

20 

82 

4A 

JSR 

$4A82 

Fehlertext anwählen 

4D81 

20 

6F 

92 

JSR 

$926F 

CLRCH I/O rücksetzen 

4D84 

A9 

00 


LDA 

#$00 

Aktives I/O-Gerät = Tastatur 

4D86 

85 

15 


STA 

$15 


4D88 

24 

D7 


BIT 

$D7 

80-Zeichen-Modus ? 

4D8A 

30 

02 


BMI 

$4D8E 

Ja, Skip 

4D8C 

85 

08 


STA 

$D8 

Textschirm einschalten 

4D8E 

20 

98 

55 

JSR 

$5598 

(CR) out 

4D91 

20 

OA 

56 

JSR 

$560A 

'?' out 

4D94 

AO 

00 


LDY 

#$00 

Fehlermeldungstext ausgeben 

4096 

Bl 

26 


LDA 

($26),Y 
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4D98 

48 



PHA 



4099 

29 

7F 


AND 

#$7F 


4D9B 

20 

OC 

56 

JSR 

$560C 

Zeichen ausgeben 

4D9E 

C8 



INY 



4D9F 

68 



PLA 



4DA0 

10 

F4 

BPL $4096 

Uenn Textende nicht erreicht, weiter 

ausgeben 






4DA2 

20 

38 

52 

JSR 

$5238 

BASIC-Zeiger rücksetzen 

4DA5 

20 

81 

92 

JSR 

$9281 

Text ausgeben 

4DA8 

20 

45 

52 

52 4F 

52 00 00 

’ ERROR' (CR) 

4DAF 

A4 

3C 


LDY 

$3C 

Zeilennunmer gesetzt ? 

4DB1 

C8 



INY 



4DB2 

F0 

03 


BEO 

$4DB7 

Nein, Skip 

4DB4 

20 

26 

8E 

JSR 

$8E26 

■IN* Zeilennunmer ausgeben 

4DB7 

20 

2A 

40 

JSR 

$40 2A 

•READY. 1 ausgeben 

4DBA 

A9 

80 


LOA 

#$80 

Direktmodus setzen 

4DBC 

20 

90 

FF 

JSR 

$FF90 


4DBF 

A9 

00 


LDA 

#$00 

BASIC-Direktmodus setzen 

4DC1 

85 

7F 


STA 

$7F 


4DC3 

6C 

02 

03 

JMP 

($0302) 

$4DC6 BASIC-Uarmstart 

4DC6 

A2 

FF 


LDX 

#$FF 

Zeilennummer löschen 

4DC8 

86 

3C 


STX 

$3C 


4DCA 

20 

93 

4F 

JSR 

$4F93 

Befehlszeile in Puffer 

4DC0 

86 

30 


STX 

$30 

Zeiger auf Puffer 

4DCF 

84 

3E 


STY 

$3E 


4DD1 

20 

80 

03 

JSR 

$0380 

CHRGET 

4DD4 

AA 



TAX 



4DD5 

F0 

EC 


BEO 

$4DC3 

Uenn Puffer leer, dann nochmal 

4DD7 

90 

09 


BCC 

$40E2 

Uenn erstes Zeichen Zahl, Zeile einfügen 

4DD9 

20 

DA 

43 

JSR 

$430A 

Umwandlung in Interpretercode 

4DDC 

20 

86 

04 

JSR 

$0386 

CHRGOT 

4D0F 

4C 

F3 

4A 

JMP 

$4AF3 

Interpreterschlei fe 



lr**i 

lr**4 

******1 


Löschen und Einfügen von Programmzeilen 

4DE2 

20 

AO 

50 

JSR 

$50A0 

Zeilennunmer holen 

4DE5 

20 

OA 

43 

JSR 

$430A 

Umwandlung in Interpretercode 

4DE8 

84 

00 


STY 

$00 

Zeilenlänge setzen 

4DEA 

20 

64 

50 

JSR 

$5064 

Zeile vorhanden ? 

4DED 

90 

7B 


BCC 

$4E6A 

Nein, Skip 

4DEF 

A0 

00 


LDY 

#$00 

Zeile löschen 

4DF1 

20 

EC 

42 

JSR 

$42EC 

Linkadresse Low laden 

4DF4 

38 



SEC 



4DF5 

E5 

61 


SBC 

$61 

- Zeilenstartadresse Low 

4DF7 

38 



SEC 



4DF8 

E9 

04 


SBC 

#$04 

- 4 Verwaltungsbytes 
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4DFA 

E5 

OD 


SBC 

$0D 

Alte Zeilenlänge >= benötigte Länge ? 

4DFC 

BO 

IC 


BCS 

$4E1A 

Ja, Skip 

4DFE 

49 

FF 


EOR 

#$FF 

Zweierkomplement 

4EOO 

69 

01 


ADC 

#$01 

ergibt notwendigen Platz 

4E02 

AC 

11 

12 

LDY 

$1211 

Nötigen Platz auf 

4E05 

60 

10 

12 

ADC 

$1210 

Programmende aufaddieren 

4E08 

90 

01 


BCC 

$4E0B 

Kein Übertrag, Skip 

4E0A 

C8 



INY 


High-Byte erhöhen 

4E06 

CC 

13 

12 

CPY 

$1213 

Speicherende erreicht ? 

4E0E 

90 

OA 


BCC 

$4E1A 

Nein, Skip 

4E10 

DO 

05 


BNE 

$4E17 

Ja, Fehler 

4E12 

CD 

12 

12 

CMP 

$1212 


4E15 

90 

03 


BCC 

$4E1A 

Nein, Skip 

4E17 

4C 

3A 

4D 

JMP 

$4D3A 

'OUT OF MEMORY ERROR' 

4E1A 

AO 

01 


LDY 

#$01 

Offset auf High-Byte der Linkadresse 

4E1C 

20 

EC 

42 

JSR 

$42EC 

High-Byte laden 

4E1F 

85 

25 


STA 

$25 

und setzen 

4E21 

AD 

10 

12 

LDA 

$1210 

Low-Byte Programmende laden 

4E24 

85 

24 


STA 

$24 

und als Zeigerbyte setzen 

4E26 

A5 

62 


LDA 

$62 


4E28 

85 

27 


STA 

$27 


4E2A 

88 



DEY 


Offset auf Low-Byte setzen 

4E2B 

20 

EC 

42 

JSR 

$42EC 

Low-Byte der Linkadresse laden 

4E2E 

18 



CLC 



4E2F 

E5 

61 


SBC 

$61 

- Startadresse der Zeile 

4E31 

49 

FF 


EOR 

#$FF 

ergibt negative Zeilenlänge 

4E33 

18 



CLC 



4E34 

6D 

10 

12 

ADC 

$1210 

Programmende erniedrigen 

4E37 

80 

10 

12 

STA 

$1210 


4E3A 

85 

26 


STA 

$26 

und Low-Byte des Zeigers setzen 

4E3C 

AD 

11 

12 

LDA 

$1211 

High-Byte setzen 

4E3F 

69 

FF 


ADC 

#$FF 


4E41 

8D 

11 

12 

STA 

$1211 


4E44 

E5 

62 


SBC 

$62 

- High-Byte Zeilenadresse 

4E46 

AA 



TAX 


ergibt Speicherseitenzahl 

4E47 

38 



SEC 



4E48 

A5 

61 


LDA 

$61 

Low-Byte Zeilenadresse 

4E4A 

ED 

10 

12 

SBC 

$1210 

- Low-Byte Programmende 

4E4D 

A8 



TAY 


ergibt negativen Restbetrag 

4E4E 

BO 

03 


BCS 

$4E53 

Kein Übertrag, Skip 

4E50 

E8 



I NX 


Eine Speicherseite mehr ! 

4E51 

C6 

27 


DEC 

$27 

Zeiger korrigieren 

4E53 

18 



CLC 



4E54 

65 

24 


ADC 

$24 

Startzeiger 

4E56 

90 

03 


BCC 

$4E5B 

um Restbetrag korrigieren 

4E58 

C6 

25 


DEC 

$25 


4E5A 

18 



CLC 



4E5B 

20 

05 

43 

JSR 

$4305 

Zeichen des Programms holen 
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4E5E 

91 26 

STA 

($26),Y 

4E60 

C8 

INY 


4E61 

00 F8 

BNE 

$4E5B 

4E63 

E6 25 

INC 

$25 

4E65 

E6 27 

INC 

$27 

4E67 

CA 

DEX 


4E68 

DO Fl 

BNE 

CO 

LH 

LU 

ä 


und kopieren 

Ende der Speicherseite ? 

Nein, weitermachen 
High-Bytes der Zeiger erhöhen 

Alle Speicherseiten kopiert ? 
Nein, weitermachen 


****************************** Programmzeile einfügen 


4E6A 

20 

38 52 

JSR 

$5238 

4E60 

20 

4F 4F 

JSR 

$4F4F 

4E70 

A0 

00 

LDY 

#$00 

4E72 

Bl 

3D 

LDA 

($3D),Y 

4E74 

DO 

03 

BNE 

$4E79 

4E76 

4C 

D5 40 

JMP 

$4DD5 

4E79 

18 


CLC 


4E7A 

AD 

10 12 

LDA 

$1210 

4E7D 

AC 

11 12 

LDY 

$1211 

4E80 

85 

5C 

STA 

$5C 

4E82 

84 

5D 

STY 

$5D 

4E84 

65 

0D 

ADC 

$0D 

4E86 

90 

01 

BCC 

$4E89 

4E88 

C8 


INY 


4E89 

18 


CLC 


4E8A 

69 

04 

ADC 

#$04 

4E8C 

90 

01 

BCC 

$4E8F 

4E8E 

C8 


INY 


4E8F 

85 

5A 

STA 

$5A 

4E91 

84 

5B 

STY 

$5B 

4E93 

CC 

13 12 

CPY 

$1213 

4E96 

90 

0A 

BCC 

$4EA2 

4E98 

DO 

05 

BNE 

$4E9F 

4E9A 

CD 

12 12 

CMP 

$1212 

4E9D 

90 

03 

BCC 

$4EA2 

4E9F 

4C 

3A 4D 

JMP 

$4D3A 

4EA2 

8D 

10 12 

STA 

$1210 

4EA5 

8C 

11 12 

STY 

$1211 

4EA8 

38 


SEC 


4EA9 

A5 

5C 

LDA 

$5C 

4EAB 

E5 

61 

SBC 

$61 

4EAD 

85 

24 

STA 

$24 

4EAF 

A8 


TAY 


4EB0 

A5 

50 

LDA 

$5D 

4EB2 

E5 

62 

SBC 

$62 

4EB4 

AA 


TAX 


4EB5 

E8 


I NX 


4EB6 

98 


TYA 



CLR-Befehl 

Verkettung korrigieren 

Zeichen im Puffer ? 

Ja, Skip 

Nein, zur Eingabeschleife 
Altes Programmende 
setzen 

♦ Länge der Eingabezeile 


♦ 4 Verwaltungsbytes 


ergibt neues Programmende 

> Speicherende in Bank 0 ? 
Nein, Skip 
Ja, Fehler 

Nein, Skip 

•OUT OF MEMORY ERROR' 

Neues Programmende setzen 

Altes Programmende Low-Byte 
• Zeilenstart Low-Byte 
ergibt Zeiger Low-Byte 
und Restbetrag 
Altes Programmende High-Byte 
- Zeilenstart High-Byte 

ergibt Speicherseitenzahl 
Restbetrag ? 
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4EB7 

FO 

25 

BEQ 

$4EDE 

Nein, Skip 

4EB9 

A5 

5C 

LDA 

$5C 

Quellzeiger korrigieren 

4EBB 

38 


SEC 



4EBC 

E5 

24 

SBC 

$24 


4EBE 

85 

5C 

STA 

$5C 


4EC0 

BO 

03 

BCS 

S4EC5 


4EC2 

C6 

5D 

DEC 

$5D 


4EC4 

38 


SEC 


Zielzeiger korrigieren 

4EC5 

A5 

5A 

LDA 

$5A 


4EC7 

E5 

24 

SBC 

$24 


4EC9 

85 

5A 

STA 

$5A 


4ECB 

BO 

09 

BCS 

$4ED6 


4ECD 

C6 

5B 

DEC 

$5B 


4ECF 

90 

05 

BCC 

$4ED6 


4ED1 

20 

DD 42 

JSR 

$42DD 

Zeichen aus Programm holen 

4ED4 

91 

5A 

STA 

($5A),Y 

und kopieren 

4ED6 

88 


DEY 


Speicherseite kopiert ? 

4ED7 

DO 

F8 

BNE 

$4ED1 

Nein, weitermachen 

4ED9 

20 

DD 42 

JSR 

$42DD 

Letztes Byte 

4EDC 

91 

5A 

STA 

($5A),Y 

kopieren 

4EDE 

C6 

5D 

DEC 

$5D 

Seitenzeiger erniedrigen 

4EE0 

C6 

5B 

DEC 

$5B 


4EE2 

CA 


DEX 


Alle Speicherseiten kopiert ? 

4EE3 

DO 

Fl 

BNE 

$4ED6 

Nein, weitermachen 

4EE5 

AO 

00 

LOY 

#$00 


4EE7 

A9 

01 

LDA 

#$01 


4EE9 

91 

61 

STA 

($61),Y 

Linkadresse mit $0101 vorbesetzen 

4EEB 

C8 


INY 


damit Verkettungsroutine ab $4F4F 

4EEC 

91 

61 

STA 

($61),Y 

richtig funktioniert 

4EEE 

C8 


INY 



4EEF 

A5 

16 

LDA 

$16 

Zeilennummer eintragen 

4EF1 

91 

61 

STA 

($61),Y 


4EF3 

A5 

17 

LDA 

$17 


4EF5 

C8 


INY 



4EF6 

91 

61 

STA 

($61),Y 


4EF8 

18 


CLC 



4EF9 

A5 

61 

LDA 

$61 

Adresse auf Programmtextanfang setzen 

4EFB 

69 

04 

ADC 

#$04 


4EFD 

85 

61 

STA 

$61 


4EFF 

90 

02 

BCC 

$4F03 


4F01 

E6 

62 

INC 

$62 


4F03 

A4 

OD 

LDY 

$0D 

und Programmtext in Zeile eintragen 

4F05 

88 


DEY 



4F06 

Bl 

3D 

LDA 

V* 

M 

o 

-< 


4F08 

91 

61 

STA 

($61),Y 


4F0A 

88 


DEY 



4F0B 

CO 

FF 

CPY 

#$FF 


4F0D 

DO 

F7 

BNE 

$4F06 
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4F0F 

20 

4F 4F 

JSR 

$4F4F 

Verkettung korrigieren 

4F12 

20 

54 52 

JSR 

$5254 

PC auf Programmstart setzen 

4F15 

A5 

74 

LDA 

$74 

AUTO eingeschaltet ? 

4F17 

05 

75 

ORA 

$75 


4F19 

F0 

31 

BEQ 

$4F4C 

Nein, Skip 

4F1B 

A5 

16 

LDA 

$16 

AUTO-Offset auf Zeilennummer aufaddieren 

4F1D 

18 


CLC 



4F1E 

65 

74 

ADC 

$74 


4F20 

85 

65 

STA 

$65 

und setzen 

4F22 

A5 

17 

LDA 

$17 


4F24 

65 

75 

ADC 

$75 


4F26 

BO 

24 

BCS 

$4F4C 

Wenn Wert zu groß, zur Eingabeschleife 

4F28 

C9 

FA 

CMP 

#$FA 


4F2A 

BO 

20 

BCS 

$4F4C 

Wenn Wert zu groß, zur Eingabeschteife 

4F2C 

85 

64 

STA 

$64 


4F2E 

A2 

90 

LDX 

#$90 

Adressuert in FAC#1 

4F30 

38 


SEC 



4F31 

20 

75 8C 

JSR 

$8C75 


4F34 

20 

42 8E 

JSR 

$8E42 

FAC#1 in ASCII ab $0100 wandeln 

4F37 

A2 

00 

LDX 

#$00 


4F39 

BD 01 

01 

LDA $0101,X Zeilennummertext in Tastaturpuffei 

eintragen 





4F3C 

F0 

06 

BEQ 

$4F44 


4F3E 

90 

4A 03 

STA 

$034A,X 


4F41 

E8 


I NX 



4F42 

DO 

F5 

BNE 

$4F39 


4F44 

A9 

ID 

LDA 

#$1D 

und ein Cursor Right in Tastaturpuffer 

4F46 

90 

4A 03 

STA 

$034A,X 


4F49 

E8 


I NX 



4F4A 

86 

DO 

STX 

$D0 

Zeichenanzahl im Tastaturpuffer setzen 

4F4C 

4C 

C3 4D 

JMP 

$4DC3 

Zur Eingabeschleife 

****************************** 

Verkettung berichtigen 

4F4F 

A5 

2D 

LDA 

$2D 

($24) auf Programmstart 

4F51 

A4 

2E 

LDY 

$2E 


4F53 

85 

24 

STA 

$24 


4F55 

84 

25 

STY 

$25 


4F57 

18 


CLC 



4F58 

AO 

00 

LDY 

#$00 


4F5A 

20 

05 43 

JSR 

$4305 

Bank 0 LDA ($24),Y 

4F5D 

DO 

06 

BNE 

$4F65 

Wenn Linkadresse gesetzt, Skip 

4F5F 

C8 


INY 



4F60 

20 

05 43 

JSR 

$4305 

Programmende erreicht ? 

4F63 

FO 

2D 

BEQ 

$4F92 

Ja, Skip 

4F65 

AO 

04 

LDY 

#$04 

Zeilentext überlesen 

4F67 

C8 


INY 
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4F68 

20 

05 

43 

JSR 

$4305 


4F6B 

DO 

FA 


8NE 

$4F67 


4F6D 

C8 



INY 


Verkettung berichtigen 

4F6E 

98 



TYA 



4F6F 

65 

24 


ADC 

$24 


4F71 

AA 



TAX 



4F72 

AO 

00 


LDY 

o 

o 

g 


4F74 

91 

24 


STA 

($24),Y 

und setzen 

4F76 

98 



TYA 



4F77 

65 

25 


ADC 

$25 


4F79 

C8 



INY 



4F7A 

91 

24 


STA 

($24),Y 


4F7C 

86 

24 


STX 

$24 

Zeiger auf nächste Zeile setzen 

4F7E 

85 

25 


STA 

$25 


4F80 

90 

D6 


BCC 

$4F58 

Unbedingter Sprung 

****************************** 

Programmende setzen 

4F82 

18 



CLC 



4F83 

A5 

24 


LDA 

$24 

Zeiger aus der Routine $4F4F 

4F85 

A4 

25 


LDY 

$25 


4F87 

69 

02 


ADC 

#$02 

+ 2 

4F89 

90 

01 


BCC 

$4F8C 


4F8B 

C8 



INY 



4F8C 

8D 

10 

12 

STA 

$1210 

ergibt Programmende 

4F8F 

8C 

11 

12 

STY 

$1211 


4F92 

60 



RTS 



****************************** 

Zeile in Puffer holen 

4F93 

A2 

00 


LDX 

#$00 

Offset auf 0 

4F95 

20 

E5 

90 

JSR 

£ 

O 

m 

v/i 

BAS IN 

4F98 

C9 

OD 


CMP 

#$0D 

CR ? 

4F9A 

DO 

03 


BNE 

$4 F9F 

Nein, Skip 

4F9C 

4C 

8B 

55 

JMP 

$558B 

Puffer abschließen 

4F9F 

9D 

00 

02 

STA 

$0200,X 

Zeichen in Puffer 

4FA2 

E8 



1 NX 


Offset erhöhen 

4FA3 

EO 

AI 


CPX 

#$A1 

Zuviele Zeichen ? 

4FA5 

90 

EE 


BCC 

$4F95 

Nein, weitermachen 

4FA7 

4C 

ED 

A5 

JMP 

$A5ED 

•STRING TOO LONG' 

****************************** 

Stapelsuchrout i ne 

4FAA 

85 

02 


STA 

$02 

Suchcode setzen 

4FAC 

20 

47 

50 

JSR 

$5047 

BASIC-Stackpointer holen 

4FAF 

A5 

3F 


LDA 

$3F 

Stapel leer ? 

4FB1 

C9 

FF 


CMP 

#$FF 


4FB3 

DO 

06 


BNE 

$4FBB 

Nein, Skip 
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4FB5 

A5 

40 

LDA 

$40 


4FB7 

C9 

09 

CHP 

#$09 


4FB9 

F0 

40 

BEO 

$4FFB 

Ja, Ende 

4FBB 

8D 

03 FF 

STA 

$FF03 

Bank 0 vorwählen 

4FBE 

AO 

00 

LDY 

o 

o 

g 


4 FCO 

A5 

02 

LDA 

$02 


4FC2 

C9 

81 

CMP 

#$81 

FOR-Code ? 

4FC4 

DO 

1B 

BNE 

$4 FEI 


4FC6 

Dl 

3F 

CMP 

<$3F),Y 

FOR gefunden ? 

4FC8 

DO 

33 

BNE 

$4FFD 

Nein, Ende 

4FCA 

AO 

02 

LDY 

#$02 


4 FCC 

A5 

4C 

LDA 

$4C 

Variablennamen vergleichen 

4FCE 

C9 

FF 

CMP 

#$FF 


4FD0 

FO 

2B 

BEO 

$4 F FD 


4FD2 

Dl 

3F 

CMP 

($3F),Y 


4FD4 

DO 

07 

BNE 

$4 FDD 


4FD6 

88 


DEY 



4FD7 

A5 

4B 

LDA 

$4B 


4FD9 

Dl 

3F 

CMP 

($3F),Y 


4FDB 

FO 

20 

BEO 

$4FFD 

Wenn gleich, gefunden 

4FDD 

A2 

12 

LDX 

#$12 


4FDF 

DO 

OE 

BNE 

$4FEF 


4FE1 

Bl 

3F 

LDA 

($3F),Y 

Code gefunden ? 

4FE3 

C5 

02 

CMP 

$02 


4FE5 

FO 

16 

BEQ 

$4FFD 

Ja, Ende 

4FE7 

A2 

12 

LDX 

#$12 

Offset 18 

4FE9 

C9 

81 

CMP 

#$81 

FOR-Code ? 

4FEB 

FO 

02 

BEO 

$4FEF 

Ja, Skip 

4FED 

A2 

05 

LDX 

#$05 

Offset 5 

4FEF 

8A 


TXA 


Ueitersuchen 

4FF0 

18 


CLC 



4FF1 

65 

3F 

ADC 

$3F 


4FF3 

85 

3F 

STA 

$3F 


4FF5 

90 

B8 

BCC 

$4FAF 


4FF7 

E6 

40 

INC 

$40 


4FF9 

DO 

B4 

BNE 

$4FAF 


4FFB 

AO 

01 

LDY 

#$01 

Flag für nicht gefunden 

4FFD 

60 


RTS 



****************************** 

BASIC-Stackpointer erhöhen 

4FFE 

49 

FF 

EOR 

#$FF 

Zweierkomplement 

5000 

38 


SEC 



5001 

65 

7D 

ADC 

$7D 

auf Stapelzeiger aufaddieren 

5003 

85 

7D 

STA 

$7D 


5005 

A4 

7E 

LDY 

$7E 


5007 

BO 

01 

BCS 

< 

o 

o 

LH 


5009 

88 


DEY 
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500A 

84 7E 

STY $7E 


500C 

CO 08 

CPY #$08 

Stapel voll ? 

500E 

90 34 

BCC $5044 

Ja, Fehler 

5010 

DO 04 

BNE $5016 


5012 

C5 7D 

CMP $7D 


5014 

90 2E 

BCC $5044 

Ja, Fehler 

5016 

60 

RTS 



****************************** schafft Platz im Speicher 

für Variablen und Programmzeilen 


5017 

C4 36 

CPY $36 

Platz schon vorhanden ? 

5019 

90 28 

BCC $5043 

Ja, Ende 

501B 

DO 04 

BNE $5021 

Nein, Skip 

501D 

C5 35 

CMP $35 


501F 

90 22 

BCC $5043 

Ja, Ende 

5021 

48 

PHA 

Register retten 

5022 

A2 09 

LDX #$09 


5024 

98 

TYA 


5025 

48 

PHA 


5026 

85 59 

LDA $59,X 


5028 

CA 

DEX 


5029 

10 FA 

BPL $5025 


502B 

20 EA 92 

JSR $92EA 

Garbage-Collection 

502e 

A2 F7 

LDX #$F7 

Register holen 

5030 

68 

PLA 


5031 

95 63 

STA $63,X 


5033 

E8 

I NX 


5034 

30 FA 

BMI $5030 


5036 

68 

PLA 


5037 

A8 

TAY 


5038 

68 

PLA 


5039 

C4 36 

CPY $36 

Platz jetzt vorhanden ? 

503B 

90 06 

BCC $5043 

Ja, Ende 

503D 

DO 05 

BNE $5044 

Nein, Fehler 

503F 

C5 35 

CMP $35 


5041 

BO 01 

BCS $5044 

Nein, Fehler 

5043 

60 

RTS 


5044 

4C 3A 4D 

JMP S4D3A 

•OUT OF MEMORY ERROR 1 

****************************** 

BASIC-Stackpointer in Hilfszeiger 

5047 

A5 7D 

LDA $7D 


5049 

85 3F 

STA $3F 


504B 

A5 7E 

LDA $7E 


504D 

85 40 

STA $40 


504F 

60 

RTS 
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****************************** Hilfszeiger in BASIC-Stackpointer 


5050 

A5 3F 

LDA 

$3F 

5052 

85 7D 

STA 

$7D 

5054 

A5 40 

LDA 

$40 

5056 

85 7E 

STA 

$7E 

5058 

60 

RTS 



****************************** UASIC-Stack um (Y) Bytes leeren 


5059 

98 


TYA 


505A 

18 


CLC 


505B 

65 

7D 

ADC $7D 


505D 

85 

7D 

STA $7D 


505F 

90 

02 

BCC $5063 


5061 

E6 

7E 

INC $7E 


5063 

60 


RTS 


****************************** 

Programmzeile suchen 

5064 

A5 

2D 

LDA $2D 

Zeiger auf Programmanfang 

5066 

A6 

2E 

LDX $2E 


5068 

A0 

01 

LDY #$01 

Offset auf Linkadresse High 

506A 

85 

61 

STA $61 


506C 

86 

62 

STX $62 


506E 

20 

EC 42 

JSR $42EC 

Linkadresse High = 0 ? 

5071 

F0 

2B 

BEQ $509E 

Ja, Ende, nicht gefunden 

5073 

C8 


I NY 


5074 

C8 


INY 


5075 

20 

EC 42 

JSR $42EC 


5078 

85 

79 

STA $79 

Zeilennummern High gleich ? 

507A 

A5 

17 

LDA $17 


507C 

C5 

79 

CMP $79 


507E 

90 

1F 

BCC $509F 

Kleiner, Ende, nicht gefunden 

5080 

F0 

03 

BEQ $5085 


5082 

88 


DEY 


5083 

DO 

OE 

BNE $5093 


5085 

88 


DEY 


5086 

20 

EC 42 

JSR $42EC 


5089 

85 

79 

STA $79 

Zeilennummern Low gleich ? 

508B 

A5 

16 

LDA $16 


5080 

C5 

79 

CMP $79 


508F 

90 

OE 

BCC $509F 

Kleiner, Ende, nicht gefunden 

5091 

FO 

OC 

BEQ $509F 

Gleich, gefunden, C-Flag=1 

5093 

88 


DEY 


5094 

20 

EC 42 

JSR $42EC 

Linkadresse neu setzen 

5097 

AA 


TAX 


5098 

88 


DEY 
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5099 

20 

EC 

42 

JSR 

$42EC 

509C 

BO 

CA 


BCS 

$5068 

509E 

18 



CLC 


509F 

60 



RTS 



50A0 

A2 

00 


LDX 

#$00 

50A2 

86 

OA 


STX 

$0A 

50 A4 

86 

16 


STX 

$16 

50A6 

86 

17 


STX 

$17 

50A8 

BO 

37 


BCS 

$50E1 

50AA 

E6 

OA 


INC 

$0A 

50AC 

E9 

2F 


SBC 

#$2F 

50AE 

85 

09 


STA 

$09 

50B0 

A5 

17 


LDA 

$17 

50B2 

85 

24 


STA 

$24 

50B4 

C9 

19 


CMP 

#$19 

50B6 

90 

03 


BCC 

$50BB 

50B8 

4C 

6C 

79 

JMP 

$796C 

50BB 

A5 

16 


LDA 

$16 

50BD 

0A 



ASL 


50BE 

26 

24 


ROL 

$24 

50C0 

0A 



ASL 


50C1 

26 

24 


ROL 

$24 

50C3 

65 

16 


ADC 

$16 

50C5 

85 

16 


STA 

$16 

50C7 

A5 

24 


LDA 

$24 

50C9 

65 

17 


ADC 

$17 

50CB 

85 

17 


STA 

$17 

50CD 

06 

16 


ASL 

$16 

50CF 

26 

17 


ROL 

$17 

50D1 

A5 

16 


LDA 

$16 

5003 

65 

09 


ADC 

$09 

5005 

85 

16 


STA 

$16 

50D7 

90 

02 


BCC 

$50DB 

5009 

E6 

17 


INC 

$17 

50DB 

20 

80 

03 

JSR 

$0380 

50DE 

4C 

A8 

50 

JMP 

$50A8 

50E1 

60 



RTS 



50E2 

20 

FB 

5E 

JSR 

$5EFB 

50E5 

AO 

01 


LDY 

#$01 

50E7 

20 

EC 

42 

JSR 

$42EC 

50EA 

DO 

06 


BNE 

S50F2 

50EC 

88 



DEY 



Unbedingter Sprung 


Zeilennummer nach ($16) einiesen 


Zeichenzähler auf 0 
Nummer = 0 

Uenn keine Zahl, Ende 
1 Ziffer mehr 

ASCII-Wert in Hex-Zahl wandeln 
und setzen 


Nummer > 6400 ? 
Nein, Skip 
'SYNTAX' 

Zahl = Zahl * 10 


Auf die Zahl den 
Ziffernwert aufaddieren 


CHRGET nächstes Zeichen 
Zum Schleifenanfang 


BASIC-Befehl LIST 

Zeilenbereich holen 

Linkadresse = 0 ? 
Nein, Skip 
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50ED 

20 

EC 

42 

JSR 

$42EC 

50F0 

F0 

2E 


BEO 

$5120 

50F2 

20 

B5 

4B 

JSR 

$4BB5 

50F5 

20 

98 

55 

JSR 

$5598 

50F8 

A0 

02 


LDY 

#$02 

50FA 

20 

EC 

42 

JSR 

$42EC 

50FD 

AA 



TAX 


50FE 

C8 



INY 


50FF 

20 

EC 

42 

JSR 

$42EC 

5102 

C5 

17 


CMP 

$17 

5104 

00 

04 


BNE 

$510A 

5106 

E4 

16 


CPX 

$16 

5108 

F0 

02 


BEQ 

$510C 

510A 

B0 

14 


BCS 

$5120 

510C 

20 

23 

51 

JSR 

$5123 

510F 

A0 

00 


LDY 

#$00 

5111 

20 

EC 

42 

JSR 

$42EC 

5114 

AA 



TAX 


5115 

C8 



INY 


5116 

20 

EC 

42 

JSR 

$42EC 

5119 

86 

61 


STX 

$61 

511B 

85 

62 


STA 

$62 

5110 

4C 

E 5 

50 

JHP 

$50E5 

5120 

4C 

98 

55 

JMP 

$5598 

****************************** 

5123 

A0 

03 


LDY 

#$03 

5125 

84 

4R 


STY 

$4B 

5127 

84 

11 


STY 

$11 

5129 

20 

32 

8E 

JSR 

$8E32 

512C 

A9 

20 


LDA 

#$20 

512E 

A4 

4B 


LOY 

$4B 

5130 

29 

7f 


AND 

#$7F 

5132 

20 

OC 

56 

JSR 

$560C 

5135 

C9 

22 


CMP 

#$22 

5137 

DO 

06 


BNE 

$513F 

5139 

A5 

11 


LDA 

$11 

513B 

49 

FF 


EOR 

#$FF 

513D 

85 

11 


STA 

$11 

513F 

C8 



INY 


5140 

F0 

0E 


BEQ 

$5120 

5142 

24 

55 


BIT 

$55 

5144 

10 

03 


BPL 

$5149 

5146 

20 

AC 

59 

JSR 

$59AC 

5149 

20 

EC 

42 

JSR 

$42EC 

514C 

F0 

30 


BEO 

$518B 

514E 

6C 

06 

03 

JMP 

($0306) 


Ja, Ende 

STOP-Taste prüfen 
(CR) out, neue Zeile 
Offset auf Zeilennummer laden 
Zeilennummer Low-Byte 
in (X) 

Zeilennummer High-Byte in (A) 
Endnummer überschritten ? 


Nein, Skip 
Ja, Ende 
LIST eine Zeile 
Linkadresse laden 


und als Zeiger auf die nächste 
Zeile setzen 
Zum Anfang der Schleife 
(CR) out, neue Zeile 

LIST eine Zeile 

Offset auf Programmtext 
Zeilenzeiger setzen 
Hochkommaflag löschen 
Zeilennummer ausgeben 
Space 

Offset laden 
Zeichen anpassen 
Zeichen ausgeben 

I IM 7 

Nein, Skip 
Flag invertieren 


Maximale Zeilenlänge erreicht ? 
Ja, (CR), Ende 
HELP-Flag gesetzt ? 

Nein, Skip 

HELP Ausgabetest 

Zeichen aus Zeile holen 

Uenn Zeilenende, Ende 

$5151 Umwandlung in Klartext 
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5151 

10 

DF 

BPL $5132 

Kein Befehl, direkt ausgeben 

5153 

C9 

FF 

CMP #$FF 

Code für PI ? 

5155 

FO 

DB 

BEQ $5132 

Ja, direkt ausgeben 

5157 

24 

11 

BIT $11 

Hochkommaflag gesetzt ? 

5159 

30 

D7 

BMI $5132 

Ja, Zeichen direkt ausgeben 

515B 

C9 

FE 

CMP #$FE 

Sondertoken 1 ? 

5150 

FO 

2D 

BEQ $518C 

Ja, Skip 

515F 

C9 

CE 

CMP #$CE 

Sondertoken 2 ? 

5161 

FO 

43 

BEQ $51A6 

Ja, Skip 

5163 

AA 


TAX 

Befehlsnummer in (X) 

5164 

84 

4B 

STY $4B 


5166 

A9 

44 

LDA #$44 

Textzeiger auf Befehlstabelle 1 $4417 

5168 

AO 

17 

LDY #$17 


516A 

85 

25 

STA $25 


516C 

84 

24 

STY $24 


516E 

AO 

00 

LDY #$00 


5170 

CA 


DEX 

Befehl gefunden ? 

5171 

10 

OF 

BPL $5182 

Ja, Skip 

5173 

Bl 

24 

LDA ($24),Y 

Einen Befehl über lesen 

5175 

48 


PHA 


5176 

E6 

24 

INC $24 


5178 

DO 

02 

BNE $517C 


517A 

E6 

25 

INC $25 


517C 

68 


PLA 

Befehlsende erreicht ? 

517D 

10 

F4 

BPL $5173 

Nein, weiterüberiesen 

517F 

30 

EF 

BMI $5170 

Nächsten Befehl lesen 

5181 

C8 


INY 


5182 

Bl 

24 

LDA ($24),Y 

Befehl ausgeben 

5184 

30 

A8 

BMI $512E 

Letztes Zeichen auf Schirm 

5186 

20 

OC 56 

JSR $560C 

Zeichen ausgeben 

5189 

DO 

F6 

BNE $5181 

Unbedingter Sprung 

518B 

60 


RTS 


518C 

AA 


TAX 

Sondertoken 1 

5180 

C8 


INY 


518E 

20 

EC 42 

JSR $42EC 

Nächstes Zeichen = 0 ? 

5191 

FO 

9F 

BEQ $5132 

Ja, direkt ausgeben 

5193 

84 

4B 

STY $4B 


5195 

C9 

02 

CMP #$02 

Token gültig ? 

5197 

90 

27 

BCC $5ICO 

Nein, Skip 

5199 

C9 

27 

CMP #$27 


519B 

BO 

23 

BCS $5ICO 

Nein, Skip 

5190 

69 

7E 

ADC #$7E 

Tokennummern auf $80 anheben 

519F 

AA 


TAX 


5 IAO 

AO 

09 

LDY #$09 

Zeiger auf Befehtstabelle 2 $4609 

51A2 

A9 

46 

LDA #$46 


51 A4 

DO 

C4 

BNE $516A 

Befehl ausgeben 
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51A6 

AA 



TAX 


Sondertoken 2 

51A7 

C8 



INY 



51A8 

20 

EC 

42 

JSR 

S42EC 

Nächstes Zeichen = 0 ? 

51 AB 

FO 

85 


BEQ 

$5132 

Ja, direkt ausgeben 

51 AD 

84 

4B 


STY 

$4B 


51AF 

C9 

02 


CMP 

#$02 

Token gültig ? 

51B1 

90 

OD 


BCC 

$51 CO 

Nein, Skip 

51B3 

C9 

OB 


CMP 

#$0B 


51B5 

BO 

09 


BCS 

$5 ICO 

Nein, Skip 

51B7 

69 

7E 


ADC 

#$7E 

Tokennummern auf $80 anheben 

51B9 

AA 



TAX 



5 IBA 

A0 

C9 


LDY 

#$C9 

Zeiger auf Befehlstabelle 3 $46C9 

51BC 

A9 

46 


LDA 

#$46 


51BE 

DO 

AA 


BNE 

$516A 

Befehl ausgeben 

5 ICO 

EO 

FE 


CPX 

#$FE 

Sondertoken 1 ? 

51C2 

DO 

03 


BNE 

$51C7 

Nein, Skip 

51C4 

A2 

00 


LDX 

#$00 

Flag für Sondertoken 1 

51C6 

2C 



.BYTE $2C 


51C7 

A2 

FF 


LDX 

#$FF 

Flag für Sondertoken 2 

51C9 

38 



SEC 


Flag für letztes Zeichen 

51 CA 

6C 

OE 

03 

JMP 

b* 

O 

U4 

o 

m 


5 ICD 

BO 

04 


BCS 

$5103 

Wenn letztes Zeichen, direkt ausgeben 

51CF 

AO 

00 


LDY 

#$00 


51D1 

FO 

AF 


BEQ 

$5182 

Befehl ab ($24) ausgeben 

51D3 

4C 

32 

51 

JMP 

$5132 


****************************** 

BASIC-Befehl NEU 

51D6 

FO 

01 


BEQ 

$5109 

Bei Trennzeichen, Skip 

51D8 

60 



RTS 



51D9 

A9 

00 


LDA 

#$00 

Erste Linkadresse löschen 

51DB 

A8 



TAY 



51DC 

91 

2D 


STA 

($2D),Y 


51DE 

C8 



INY 



51DF 

91 

2D 


STA 

($2D),Y 


51E1 

80 

6 h 

11 

STA 

$116F 

Trace ausschalten 

51E4 

A5 

2D 


LDA 

$2D 

Prograirmendezeiger setzen 

51E6 

18 



CLC 



51E7 

69 

02 


ADC 

#$02 


51E9 

80 

10 

12 

STA 

$1210 


51EC 

A5 

2E 


LDA 

$2E 


51EE 

69 

00 


ADC 

#$00 


51FO 

80 

11 

12 

STA 

$1211 


51F3 

20 

54 

52 

JSR 

$5254 

PC auf Programmstart 

51F6 

A9 

00 


LDA 

#$00 
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****************************** BASIC-Befehl CLR 


51F8 

DO 

55 


BNE 

S524F 

51 FA 

20 

7B 

92 

JSR 

$927B 

51 FD 

A0 

00 


LDY 

#$00 

51FF 

84 

7A 


STY 

$7A 

5201 

88 



DEY 


5202 

8C 

OC 

12 

STY 

$120C 

5205 

8C 

09 

12 

STY 

$1209 

5208 

8C 

OA 

12 

STY 

$120A 

520B 

8C 

08 

12 

STY 

$1208 

520E 

A5 

39 


LOA $39 

5210 

A4 

3A 


LDY 

$3A 

5212 

85 

35 


STA 

$35 

5214 

84 

36 


STY 

$36 

5216 

A9 

FF 


LDA 

#$FF 

5218 

AO 

09 


LDY 

#$09 

521A 

85 

7D 


STA 

$7D 

521C 

84 

7E 


STY 

$7E 

521E 

A5 

2F 


LDA 

$2F 

5220 

A4 

30 


LDY 

$30 

5222 

85 

31 


STA 

$31 

5224 

84 

32 


STY 

$32 

5226 

85 

33 


STA 

$33 

5228 

84 

34 


STY 

$34 

522A 

A2 

03 


LDX 

#$03 

522C 

BD 

50 

52 

LDA 

$5250,X 

522F 

9D 

04 

12 

STA 

$1204.X 

5232 

CA 



DEX 


5233 

10 

F7 


BPL 

$522C 

5235 

20 

El 

5A 

JSR 

$5AE1 

5238 

A2 

18 


LDX 

#$1B 

523A 

86 

18 


STX 

$18 

523C 

68 



PLA 


523D 

A8 



TAY 


523E 

68 



PLA 


523F 

A2 

FA 


LDX 

#$FA 

5241 

9A 



TXS 


5242 

48 



PHA 


5243 

98 



TYA 


5244 

48 



PHA 


5245 

A9 

00 


LDA 

#$00 

5247 

8D 

03 

12 

STA 

$1203 

524A 

85 

12 


STA 

$12 

524C 

80 

DF 

03 

STA 

$03DF 

524F 

60 



RTS 



Kein Trennzeichen, Ende 
CLALL I/O-Kanäle rücksetzen 
DS$ löschen 

TRAP- und HELP-Flags löschen 

Stringstart auf Speicherende 

BASIC-Stack initialisieren 

Variablenstart auf 
Start der Bank 1 

Zeichen für PRINT USING setzen 

RESTORE-Befehl 
Stringstack initialisieren 

Rücksprungadresse retten 

Stapelzeiger initialisieren 
Rücksprungadresse wieder setzen 

CONT sperren 

FAC#1 Überlauf löschen 
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****************************** Zeichen für PRINT USING 


5250 20 2C 2E 24 ' ■ 

****************************** p£ suf Prograrranstart 


5254 

18 



CLC 



5255 

A5 

2D 


LOA 

$2D 

Programnstart 

5257 

69 

FF 


ADC 

#$FF 

minus 1 

5259 

85 

3D 


STA 

$3D 

in PC setzen 

525B 

A5 

2E 


LDA 

$2E 


525D 

69 

FF 


ADC 

#$FF 


525F 

85 

3E 


STA 

$3E 


5261 

60 



RTS 



****************************** 

BASIC-Befehl RETURN 

5262 

68 



PLA 


Rücksprungadresse löschen 

5263 

68 



PLA 



5264 

A9 

80 


LDA 

#$8D 

Token für GOSUB 

5266 

20 

AA 

4F 

JSR 

$4FAA 

Token auf BASIC-Stack ? 

5269 

F0 

05 


BEO 

$5270 

Ja, Skip 

526B 

A2 

oc 


LDX 

#$0C 

■RETURN W1THOUT GOSUB' 

526D 

4C 

3C 

40 

JHP 

$4D3C 


5270 

20 

50 

50 

JSR 

$5050 

BASIC-Stackpointer setzen 

5273 

A0 

05 


LDY 

#$05 

BASIC-Stack leeren 

5275 

20 

59 

50 

JSR 

$5059 


5278 

88 



DEY 



5279 

Bl 

3F 


LDA 

($3F),Y 

PC setzen 

527B 

85 

3E 


STA 

$3E 


527D 

88 



DEY 



527E 

Bl 

3F 


LDA 

($3F),Y 


5280 

85 

3D 


STA 

$3D 


5282 

88 



DEY 



5283 

Bl 

3F 


LDA 

($3F),Y 

Zeilennumner (und Direktmodusflag) 

5285 

20 

3B 

A8 

JSR 

$A83B 

setzen 

5288 

Bl 

3F 


LDA 

($3F),Y 


528A 

85 

3B 


STA 

$3B 


528C 

4C 

8F 

52 

JMP 

$528F 

??? 

****************************** 

BASIC-Befehl DATA 

528F 

20 

A2 

52 

JSR 

$52A2 

Nächstes Statement suchen 

5292 

98 



TYA 


PC korrigieren 

5293 

18 



CLC 



5294 

65 

30 


ADC 

$3D 


5296 

85 

30 


STA 

$3D 


5298 

90 

02 


BCC 

$529C 
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529A E 6 3E INC $3E 

529C 60 RTS 

****************************** BASIC-Befehl REM 


5290 

20 

A5 

52 

JSR $52A5 

Bis zum Zeilenende überiesen 

52A0 

F0 

FO 


BEO $5292 

Unbedingter Sprung 

****************************** 

Nächstes Trennzeichen suchen 

52A2 

A2 

3A 


LDX #$3A 

1 : 1 als Trennzeichen vorgeben 

5 2 A4 

2C 



.BYTE $2C 


52A5 

A2 

00 


LDX #$00 

$00, bis Zeilenende gehen 

52A7 

86 

09 


STX $09 


52A9 

AO 

00 


LDY #$00 

Offset auf 0 

52AB 

84 

OA 


STY $0A 


5 2 AD 

A5 

OA 


LDA $0A 

Zeichen tauschen 

52AF 

A 6 

09 


LDX $09 


52B1 

85 

09 


STA $09 


52B3 

86 

OA 


STX $0A 


52B5 

20 

C9 

03 

JSR $03C9 

Zeilenende ? 

52B8 

FO 

E2 


BEO $529C 

Ja, Ende 

52BA 

C5 

OA 


CMP $0A 

Zeichen gefunden ? 

52BC 

FO 

DE 


BEQ $529C 

Ja, Ende 

52BE 

C 8 



INY 

Offset erhöhen 

52BF 

C9 

22 


CMP #$22 

i ii i 7 

52C1 

DO 

F2 


BNE $5285 

Nein, weiterüberiesen 

52C3 

FO 

E 8 


BEQ $52AD 

Ja, Endeflags vertauschen 

****************************** 

BASIC-Befehl IF 

52C5 

20 

EF 

77 

JSR $77EF 

FRMEVL Ausdruck auswerten 

52C8 

20 

86 

03 

JSR $0386 

CHRGOT 

52CB 

C9 

89 


CMP #$89 

Token für GOTO ? 

52CD 

FO 

05 


BEQ $52D4 

Ja, Skip 

52CF 

A9 

A7 


LDA #$A7 

Token für THEN 

52D1 

20 

5E 

79 

JSR $795E 

Prüft auf Code 

52D4 

A5 

63 


LDA $63 

Ausdruck ungleich 0 (wahr) ? 

5206 

DO 

26 


BNE $52FE 

Ja, Skip 

52D8 

20 

86 

03 

JSR $0386 

CHRGOT 

52DB 

C9 

FE 


CMP #$FE 

Sondertoken 1 ? 

52DD 

DO 

OB 


BNE $52EA 

Nein, Skip 

52DF 

C 8 



INY 


52E0 

20 

C9 

03 

JSR $03C9 

Nächstes Zeichen 

52E3 

C9 

18 


CMP #$18 

= Token für BEGIN ? 

52E5 

DO 

03 


BNE $52EA 

Nein, Skip 

52E7 

20 

20 

53 

JSR $5320 

BEGIN-BEND überlesen 

52EA 

20 

8 F 

52 

JSR $528F 

DATA ausführen (Zum nächsten 
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52ED 

A0 

00 


LDY #$00 


52EF 

20 

C9 

03 

JSR $0309 

Momentanes Zeichen = Zeilenende 

52F2 

F0 

A9 


BEO $5290 

Ja, REM ausführen 

52F4 

20 

80 

03 

JSR $0380 

CHRGET 

52F7 

C9 

D5 


CMP #$D5 

Token für ELSE ? 

52F9 

DO 

EF 


BNE $52EA 

Nein, weitertesten 

52FB 

20 

80 

03 

JSR $0380 

CHRGET 

52FE 

20 

86 

03 

JSR $0386 

CHRGOT 

5301 

F0 

17 


BEQ $531A 

Wenn Trennzeichen, Ende 

5303 

BO 

03 


BCS $5308 

Wenn keine Zahl, Skip 

5305 

4C 

DB 

59 

JMP $59DB 

GOTO 

5308 

C9 

FE 


CMP #$FE 

Sondertoken 1 ? 

530A 

DO 

OE 


BNE $531A 

Nein, Skip 

530C 

C8 



INY 


530D 

20 

C9 

03 

JSR $03C9 

Nächstes Zeichen 

5310 

C9 

18 


CMP #$18 

Token für BEGIN ? 

5312 

DO 

06 


BNE $531A 

Nein, Skip 

5314 

20 

80 

03 

JSR $0380 

Zwei Zeichen überlesen 

5317 

20 

80 

03 

JSR $0380 


531A 

20 

86 

03 

JSR $0386 

CHRGOT 

531D 

4C 

3F 

4B 

JMP $4B3F 

Interpreterschlei fe 

****************************** 

BEGIN-BEND überlesen 

5320 

20 

80 

03 

JSR $0380 

CHRGET 

5323 

DO 

27 


BNE $534C 

Wenn kein Trennzeichen, Skip 

5325 

C9 

3A 


CMP #$3A 

? 

5327 

FO 

F7 


BEQ $5320 

Ja, weiterlesen 

5329 

24 

7F 


BIT $7F 

Direktmodus ? 

532B 

10 

4A 


BPL $5377 

Ja, Fehler 

5320 

AO 

02 


LDY #$02 


532F 

20 

C9 

03 

JSR $03C9 

Linkadresse High holen 

5332 

FO 

43 


BEQ $5377 

Wenn Programmende, Fehler 

5334 

C8 



INY 


5335 

20 

C9 

03 

JSR $03C9 

Zeilennummer setzen 

5338 

85 

3B 


STA $3B 


533A 

C8 



INY 


533B 

20 

C9 

03 

JSR $03C9 


533E 

85 

3C 


STA $3C 


5340 

98 



TYA 

PC korrigieren 

5341 

18 



CLC 


5342 

65 

3D 


ADC $3D 


5344 

85 

3D 


STA $3D 


5346 

90 

D8 


BCC $5320 


5348 

E6 

3E 


INC $3E 


534A 

DO 

D4 


BNE $5320 

weitertesten 
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534C 

C9 

22 


CMP 

#$22 

534E 

DO 

07 


BNE 

$5357 

5350 

20 

7C 

53 

JSR 

$537C 

5353 

F0 

DO 


BEQ 

$5325 

5355 

DO 

C9 


BNE 

$5320 

5357 

C9 

8F 


CMP 

#$8F 

5359 

DO 

06 


BNE 

$5361 

535B 

20 

9D 

52 

JSR 

$529D 

535E 

4C 

29 

53 

JMP 

$5329 

5361 

C9 

FE 


CMP 

#$FE 

5363 

DO 

BB 


BNE 

$5320 

5365 

20 

80 

03 

JSR 

$0380 

5368 

C9 

19 


CMP 

#$19 

536A 

F0 

OA 


BEQ 

$5376 

536C 

C9 

18 


CMP 

#$18 

536E 

DO 

BO 


BNE 

$5320 

5370 

20 

20 

53 

JSR 

$5320 

5373 

4C 

20 

53 

JMP 

$5320 

5376 

60 



RTS 


5377 

A2 

25 


LDX 

#$25 

5379 

4C 

3C 

4D 

JMP 

$4D3C 

************* 

r **************** i 

537C 

A0 

00 


LDY 

#$00 

537E 

E6 

3D 


INC 

$3D 

5380 

DO 

02 


BNE 

$5384 

5382 

E6 

3E 


INC 

$3E 

5384 

20 

C9 

03 

JSR 

$03C9 

5387 

FO 

07 


BEQ 

$5390 

5389 

C9 

22 


CMP 

#$22 

538B 

DO 

Fl 


BNE 

$537E 

538D 

4C 

80 

03 

JMP 

$0380 

5390 

60 



RTS 


*****************************1 

5391 

C9 

FE 


CMP 

#$FE 

5393 

DO 

OB 


BNE 

$53A0 

5395 

C8 



INY 


5396 

20 

C9 

03 

JSR 

$03C9 

5399 

C9 

18 


CMP 

#$18 

539B 

DO 

03 


BNE 

$53A0 

539D 

20 

20 

53 

JSR 

$5320 

53A0 

4C 

90 

52 

JMP 

$529D 


■ ii ■ 7 

Nein, Skip 

Text über lesen 

Wenn Zeilenende, Skip 

Weitertesten 

Token für REM ? 

Nein, Skip 
REM ausführen 
Ueitertesten 
Sondertoken 1 ? 

CHRGET 

Token für BEND ? 

Ja, Ende 
Token für BEGIN 
Nein, weitertesten 
Rekursiver Aufruf 
Weitertesten 

■UNRESOLVED REFERENCE' 


Text in "" über lesen 

Offset auf 0 
PC erhöhen 


Zeichen aus Programmtext holen 
Wenn Zeilenende, Ende 

I II I ^ 

Nein, weiterlesen 
CHRGET 


Falls nötig, BEGIN-BEND überlesen 

Sondertoken 1 ? 

Nein, REM-Befehl 

Nächstes Zeichen 
Token für BEGIN 
Nein, REM-Befehl 
BEGIN-BEND überlesen 
REM-Befehl 
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****************************** BASIC-Befehl ON 


5 3 A3 

20 

F4 

87 

JSR 

S87F4 

53A6 

48 



PHA 


53A7 

C9 

80 


CMP 

#$8D 

53A9 

F0 

07 


BEQ 

$53B2 

53AB 

C9 

89 


CMP 

#$89 

5 3 AD 

F0 

03 


BEO 

$53B2 

53AF 

4C 

6C 

79 

JMP 

$796C 

53B2 

C6 

67 


DEC 

$67 

53B4 

DO 

04 


BNE 

$53BA 

53B6 

68 



PLA 


53B7 

4C 

59 

4B 

JMP 

$4B59 

53BA 

20 

80 

03 

JSR 

$0380 

53BD 

20 

A0 

50 

JSR 

$50A0 

53C0 

C9 

2C 


CMP 

#$2C 

53C2 

F0 

EE 


BEQ 

$53B2 

53C4 

68 



PLA 


53C5 

60 



RTS 


****************************** 

53C6 

20 

AF 

7A 

JSR 

$7AAF 

53C9 

85 

4B 


STA 

$4B 

53CB 

84 

4C 


STY 

$4C 

53CD 

A9 

B2 


LDA 

#$B2 

53CF 

20 

5E 

79 

JSR 

$795E 

53D2 

A5 

10 


LDA 

$10 

53D4 

48 



PHA 


53D5 

A5 

0F 


LDA 

$0F 

5307 

48 



PHA 


5308 

20 

EF 

77 

JSR 

$77EF 

53DB 

68 



PLA 


53DC 

2A 



ROL 


53DD 

20 

DE 

77 

JSR 

$77DE 

53E0 

00 

22 


BNE 

$5404 

53E2 

68 



PLA 


53E3 

10 

15 


BPL 

$53FA 

****************************** 

53E5 

20 

47 

8C 

JSR 

$8C47 

53E8 

20 

B4 

84 

JSR 

$84 B 4 

53EB 

A0 

00 


LDY 

#$00 

53ED 

A5 

66 


LDA 

$66 

53EF 

80 

04 

FF 

STA 

$FF04 

53F2 

91 

4B 


STA 

($4B),Y 

53F4 

C8 



I NY 



Byte-Wert holen 
Token retten 
Token für GOSUB ? 

Ja, Skip 
Token für GOTO ? 

Ja, Skip 
'SYNTAX' 

Richtige Nummer erreicht ? 
Nein, Nummer überlesen 
Befehlstoken holen 
Befehl ausführen 
CHRGET 

Zeilennummer lesen 

V ? 

Ja, weitertesten 
Token vom Stapel löschen 


BASIC-Befehl LET 

Variable suchen 
Adresse setzen 

Token für '=' 

Prüft auf Code 
Integer-Flag retten 

Typ-Flag retten 

FRMEVL Ausdruck auswerten 

Typ-Flag holen 
Typ prüfen 
Wenn String, Skip 
Real ? 

Ja, Skip 

Integer Wertzuweisung 

FAC#1 runden 
FAC#1 in Integer 


Write in Bank 1 setzen 
Wert in Variable eintragen 
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53F5 

A5 

67 


LDA $67 



53F7 

91 

4B 


STA ($4B),Y 



53F9 

60 



RTS 



****************************** 

Real Uertzuweisung 

53FA 

A6 

4B 


LDX $4B 

Adresse holen 


53FC 

A4 

4C 


LDY $4C 



53FE 

8D 

04 

FF 

STA $FF04 

Write in Bank 

1 setzen 

5401 

4C 

00 

8C 

JMP $8C00 

Variablenwert 

eintragen 


string Ucrtzuwcisung 

5404 68 PLA 

5405 A4 4C LDY $4C Variablenadresse High 

5407 CO 03 CPY #$03 Variable TIS ? 

5409 DO 72 BNE $547D Nein, Skip 

540B 20 81 87 JSR $8781 FRESTR 

540E C9 06 CMP #$06 Stringlänge = 6 ? 

5410 DO 3E BNE $5450 Nein, Fehler 

5412 AO 00 LDY #$00 

5414 84 63 STY $63 

5416 84 68 STY $68 

5418 84 72 STY $72 Stellenzähler löschen 

541A 20 48 54 JSR $5448 Prüft nächstes Zeichen auf Ziffer 

541D 20 17 8B JSR $8B17 FAC#1 = FAC#1 * 10 

5420 E6 72 INC $72 1 Stelle mehr 

5422 A4 72 LDY $72 

5424 20 48 54 JSR $5448 Prüft nächstes Zeichen auf Ziffer 

5427 20 38 8C JSR $8C38 FAC#2 = FAC#1 

542A AA TAX FAC = 0 ? 

5428 FO 05 BEQ $5432 Ja, Skip 

542D E8 INX 

542E 8A TXA 

542F 20 22 8B JSR $8B22 FAC#1 = FAC#1 ♦ FAC#2 

5432 A4 72 LDY $72 

5434 C8 INY 

5435 CO 06 CPY #$06 6 Stellen erreicht ? 

5437 DO DF BNE $5418 Nein, weitermachen 

5439 20 17 8B JSR $8817 FAC#1 = FAC#1 * 10 

543C 20 C7 8C JSR $8CC7 FAC#1 in Integerformat 

543F A6 66 LDX $66 Wert holen 

5441 A4 65 LDY $65 

5443 A5 67 LDA $67 

5445 4C DB FF JMP $FFDB 


Uhrzeit setzen 
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****************************** Zeichen auf Ziffer prüfen 


5448 

20 

B7 

03 

JSR $0387 

Zeichen holen 

544B 

20 

90 

03 

JSR $0390 

Zeichen testen 

544E 

90 

03 


BCC $5453 

Wenn Ziffer, Skip 

5450 

4C 

28 

7D 

JMP $7028 

•ILLEGAL QUANTITY 

5453 

E9 

2F 


SBC #$2F 

von ASCII zu Zahl 

5455 

4C 

BO 

80 

JMP $8DB0 

in FAC 


****************************** String im Programm ? / Zuweisung 


5458 

68 



PLA 


5459 

C8 



INY 


545A 

C5 

36 


CMP $36 

String im Programmtext ? 

545C 

90 

18 


BCC $5476 

Ja, Skip 

545E 

DO 

08 


BNE $5468 


5460 

88 



DEY 


5461 

20 

E7 

42 

JSR $42E7 


5464 

C5 

35 


CMP $35 


5466 

90 

OE 


BCC $5476 

Ja, Skip 

5468 

A4 

67 


LDY $67 


546A 

C4 

30 


CPY $30 


546C 

90 

08 


BCC $5476 

Ja, Skip 

546E 

00 

24 


BNE $5494 

Nein, weiter 

5470 

A5 

66 


LOA $66 


5472 

C5 

2F 


CMP $2F 


5474 

BO 

IE 


BCS $5494 

Nein, weiter 

5476 

A5 

66 


LOA $66 


5478 

A4 

67 


LDY $67 


547A 

4C 

B2 

54 

JMP $54B2 


****************************** 

Wertzuweisung an normalen 

547D 

AO 

02 


LOY #$02 


547F 

20 

E7 

42 

JSR S42E7 

Stringadresse High 

5482 

C5 

7C 


CMP $7C 

= DS$ Adresse High 7 

5484 

DO 

D4 


BNE S545A 

Nein, Skip 

5486 

48 



PHA 

Retten 

5487 

88 



DEY 


5488 

20 

E7 

42 

JSR $42E7 

Stringadresse Low 

548B 

C5 

7B 


CMP $7B 

= DS$ Adresse Low ? 

5480 

DO 

C9 


BNE $5458 

Nein, Skip 

548F 

A5 

7A 


LDA $7A 

DS$ = "» ? 

5491 

FO 

C5 


BEQ $5458 

Ja, Skip 

5493 

68 



PLA 

Adresse High holen 

5494 

AO 

00 


LDY #$00 


5496 

20 

E7 

42 

JSR $42E7 

Stringlänge holen 

5499 

20 

88 

86 

JSR $8688 

Speicherplatz prüfen 
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549C 

A5 

52 


LDA 

$52 

String in Stringbereich übertragen 

549E 

A4 

53 


LDY 

$53 


54A0 

85 

70 


STA 

$70 


54A2 

84 

71 


STY 

$71 


54A4 

20 

4E 

87 

JSR 

$874 E 

String in reservierten Bereich übertragen 

54A7 

A5 

70 


LDA 

$70 


54A9 

A4 

71 


LDY 

$71 


54AB 

20 

EO 

87 

JSR 

$87E0 

Stringzeiger von Stringstack löschen 

54AE 

A9 

63 


LDA 

#$63 


5480 

AO 

00 


LDY 

#$00 


54B2 

85 

52 


STA 

$52 


54B4 

84 

53 


STY 

$53 


54B6 

85 

24 


STA 

$24 


54B8 

84 

25 


STY 

$25 


54BA 

20 

EO 

87 

JSR 

$87E0 

Stringzeiger löschen 

548D 

20 

F6 

54 

JSR 

$54F6 

String im Stringbereich 

54C0 

90 

OE 


BCC 

S54D0 

Nein, Skip 

54C2 

AO 

00 


LDY 

#$00 


54C4 

A5 

4B 


LDA 

$4B 

Trailer auf Deskriptor setzen 

54C6 

80 

04 

FF 

STA 

$FF04 

Write in Bank 1 setzen 

54C9 

91 

24 


STA 

($24),Y 


54CB 

C8 



I NY 



54CC 

A5 

4C 


LDA 

$4C 


54CE 

91 

24 


STA 

($24),Y 


54D0 

A5 

4B 


LDA 

$48 

Zeiger auf Deskriptor neu setzen 

5402 

85 

24 


STA 

$24 


5404 

A5 

4C 


LDA 

$4C 


5406 

85 

25 


STA 

$25 


5408 

20 

F6 

54 

JSR 

$54 F6 

Alter String im Stringbereich ? 

54DB 

90 

OC 


BCC 

$54E9 

Nein, Skip 

54DD 

88 



DEY 


Deskriptor löschen 

54DE 

A9 

FF 


LDA 

#$F F 


54E0 

80 

04 

FF 

STA 

$FF04 

Urite in Bank 1 setzen 

54E3 

91 

24 


STA 

($24),Y 

String für ungültig erklären 

54E5 

88 



DEY 



54E6 

8A 



TXA 



54E7 

91 

24 


STA 

($24),Y 


54E9 

AO 

02 


LDY 

#$02 

Stringparameter in Variable übertragen 

54EB 

A9 

52 


LDA 

#$52 


54ED 

20 

AB 

03 

JSR 

$03AB 


54F0 

91 

4B 


STA 

($4B),Y 


54F2 

88 



DEY 



54F3 

10 

F6 


BPL 

$54EB 


54F5 

60 



RTS 




****************************** T est au f ds$ oder String im Programmtext 


54F6 AO 00 


LDY #$00 
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54F8 

20 

B7 03 

JSR $03B7 

Länge holen 

54FB 

48 


PHA 

und retten 

54FC 

F0 

39 

BEQ $5537 

Wenn Länge = 0, Ende 

54 FE 

C8 


INY 


54FF 

20 

B7 03 

JSR $03B7 

Adresse laden 

5502 

AA 


TAX 


5503 

C8 


INY 


5504 

20 

B7 03 

JSR $03B7 


5507 

C5 

3A 

CMP $3A 

Adresse oberhalb Stringspeicher ? 

5509 

90 

06 

BCC $5511 


550B 

DO 

2A 

BNE $5537 

Ja, Ende 

550D 

E4 

39 

CPX $39 


550F 

BO 

26 

BCS $5537 

Ja, Ende 

5511 

20 

B7 03 

JSR $03B7 


5514 

C5 

36 

CMP $36 

Adresse unterhalb Stringspeicher ? 

5516 

90 

1F 

BCC $5537 

Ja, Ende 

5518 

DO 

04 

BNE $551E 


551A 

E4 

35 

CPX $35 


551C 

90 

19 

BCC $5537 

Ja, Ende 

551E 

C5 

7C 

CMP $7C 

Deskriptor für DS$ ? 

5520 

DO 

04 

BNE $5526 


5522 

E4 

7B 

CPX $7B 


5524 

FO 

11 

BEQ $5537 

Ja, Ende 

5526 

86 

24 

STX $24 

Adresse setzen 

5528 

85 

25 

STA $25 


552A 

68 


PLA 


552B 

AA 


TAX 

Länge in (X) 

552C 

18 


CLC 

Zeiger auf Ende setzen 

5520 

65 

24 

ADC $24 


552F 

85 

24 

STA $24 


5531 

90 

02 

BCC $5535 


5533 

E6 

25 

INC $25 


5535 

38 


SEC 

Flag für String im Stringbereich 

5536 

60 


RTS 


5537 

68 


PLA 


5538 

18 


CLC 

Flag für String nicht im Stringbereich 

5539 

60 


RTS 


****************************** 

BASIC-Befehl PRINT# 

553A 

20 

40 55 

JSR $5540 

CMD-Befehl 

553D 

4C 

58 56 

JMP $5658 

und CLRCH 

****************************** 

BASIC-Befehl CMD 

5540 

20 

F4 87 

JSR $87F4 

Holt Byte-Wert 

5543 

FO 

05 

BEQ $554A 

Kein Zeichen mehr, Skip 

5545 

A9 

2C 

LDA #$2C 

1 1 
$ 
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5547 

20 

5E 

79 

JSR 

$795E 

554A 

08 



PHP 


554B 

86 

15 


STX 

$15 

554D 

20 

EB 

90 

JSR 

$90EB 

5550 

28 



PLP 


5551 

4C 

5A 

55 

JHP 

$555A 

5554 

20 

E5 

55 

JSR 

$55E5 

5557 

20 

86 

03 

JSR 

$0386 

****************************** 

555A 

F0 

3C 


BEQ 

$5598 

555C 

C9 

FB 


CMP 

#$FB 

555E 

00 

03 


BNE 

$5563 

5560 

4C 

20 

95 

JMP 

$9520 

5563 

F0 

43 


BEQ 

$55A8 

5565 

C9 

A3 


CMP 

#$A3 

5567 

F0 

50 


BEQ 

$55B9 

5569 

C9 

A6 


CMP 

#$A6 

556B 

18 



CLC 


556C 

F0 

4B 


BEQ 

$55B9 

556E 

C9 

2C 


CMP 

#$2C 

5570 

FO 

37 


BEQ 

$55A9 

5572 

C9 

3B 


CMP 

#$3B 

5574 

F0 

5E 


BEQ 

$5504 

5576 

20 

EF 

77 

JSR 

$77EF 

5579 

24 

0F 


BIT 

$0F 

557B 

30 

D7 


BMI 

$5554 

557D 

20 

42 

8E 

JSR 

$8E42 

5580 

20 

9A 

86 

JSR 

$869A 

5583 

20 

E5 

55 

JSR 

$55E5 

5586 

20 

00 

56 

JSR 

$5600 

5589 

00 

CC 


BNE 

$5557 

558B 

A9 

00 


LDA 

#$00 

558D 

90 

00 

02 

STA 

$0200,X 

5590 

A2 

FF 


LDX 

#$F F 

5592 

A0 

01 


LDY 

#$01 

5594 

A5 

15 


LDA 

$15 

5596 

DO 

10 


BNE 

$55A8 

5598 

A9 

0D 


LDA 

#$0D 

559A 

20 

OC 

56 

JSR 

$560C 

5590 

24 

15 


BIT 

$15 

559F 

10 

05 


BPL 

$55A6 

55A1 

A9 

OA 


LDA 

#$0A 

55A3 

20 

OC 

56 

JSR 

$560C 


Prüft auf Code 

Nummer des Ausgabegeräts setzen 
CKOUT Ausgabe setzen 

Zum PRINT-Befehl 

String ausgeben 
CHRGOT 

BASIC-Befehl PRINT 

Wenn Trennzeichen, CR out 
Token für US ING ? 

Nein, Skip 
PRINT USING-Befehl 
Wenn Trennzeichen, Ende 
Token für TAB( ? 

Ja, Skip 

Token für SPC( ? 

Flag für SPC( setzen 
Ja, zu SPC( 

? 

Ja, Skip 
? 

Ja, Skip 

FRMEVL Ausdruck auswerten 
Typ = String ? 

Ja, ausgeben 

FAC#1 in String umwandeln 
Parameter holen 
String ausgeben 

CURSOR-RIGHT oder SPACE ausgeben 
Weitermachen 

Eingabepuffer 

mit $00 abschließen 

Zeiger auf Puffer setzen 

Ausgabegerät = Tastatur ? 

Nein, Skip 
CR out 

Filenummer > 128 ? 

Nein, Skip 
LF out 
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55A6 

49 

FF 


E0R 

#$FF 

55A8 

60 



RTS 


55A9 

38 



SEC 


55AA 

20 

8D 

92 

JSR 

$9280 

5 5 AD 

98 



TYA 


55AE 

38 



SEC 


55AF 

E9 

0A 


SBC 

#$0A 

55B1 

80 

FC 


BCS 

S55AF 

55B3 

49 

FF 


E0R 

#$FF 

55B5 

69 

01 


ADC 

#$01 

55B7 

DO 

16 


BNE 

$55CF 

****************************** 

55B9 

08 



PHP 


55BA 

38 



SEC 


55BB 

20 

8D 

92 

JSR 

$9280 

55BE 

84 

OB 


STY 

$0B 

55C0 

20 

Fl 

87 

JSR 

$87F1 

55C3 

C9 

29 


CMP 

#$29 

55C5 

DO 

13 


BNE 

$55DA 

55C7 

28 



PLP 


55C8 

90 

06 


BCC 

$55D0 

55CA 

8A 



TXA 


55CB 

E5 

OB 


SBC 

$08 

55CD 

90 

05 


BCC 

$55D4 

55CF 

AA 



TAX 


55D0 

E8 



1NX 


55D1 

CA 



DEX 


55D2 

DO 

09 


BNE 

$55DD 

55D4 

20 

80 

03 

JSR 

$0380 

55D7 

4C 

63 

55 

JMP 

$5563 

55DA 

4C 

6C 

79 

JMP 

$796C 

55DD 

20 

00 

56 

JSR 

$5600 

55E0 

DO 

EF 


BNE 

$55D1 

****************************** 

55E2 

20 

9A 

86 

JSR 

$869A 

55E5 

20 

81 

87 

JSR 

$8781 

55E8 

AA 



TAX 


55E9 

A0 

00 


LDY 

#$00 

55EB 

E8 



INX 


55EC 

CA 



DEX 


55ED 

F0 

B9 


BEO 

$55A8 

55EF 

20 

B7 

03 

JSR 

$03B7 


Zehnertabulator 
CURSOR-Position holen 


- 10 

Wenn positiv, Skip 
Zweierkomplement bilden 


TAB( und SPC( 


CURSOR-Position holen 
und retten 
Byte-Wert holen 
•)' ? 

Nein, Fehler 
SPC( ? 

Ja, Skip 

TAB-Wert > CURSOR-Position ? 
Nein, Ende 


CHRGET 

Weitermachen 

CURSOR-RIGHT oder SPACE ausgeben 
Weitermachen 

String ausgeben 

Parameter holen 
FRESTR 


Stringende ? 

Ja, Ende 

Zeichen aus String holen 
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55F2 

20 

OC 

56 

JSR 

$560C 

55F5 

C8 



INY 


55F6 

C9 

0D 


CMP 

#$0D 

55F8 

00 

F2 


BNE 

$55EC 

55FA 

20 

A6 

55 

JSR 

$55A6 

55FD 

4C 

EC 

55 

JHP 

$55EC 


5600 

A5 

15 


LOA 

$15 

5602 

F0 

03 


BEQ 

$5607 

5604 

A9 

20 


LDA 

#$20 

5606 

2C 



.BYTE $2C 

5607 

A9 

10 


LDA 

#$1D 

5609 

2C 



.BYTE $2C 

560A 

A9 

3F 


LDA 

#$3F 

560C 

20 

DF 

90 

JSR 

$90DF 

560F 

29 

FF 


AND 

#$FF 

5611 

60 



RTS 


***★**★*****★★★★********★*★*★★ 

5612 

20 

D9 

84 

JSR 

$8409 

5615 

85 

77 


STA 

$77 

5617 

C9 

23 


CMP 

#$23 

5619 

F0 

0A 


BEQ 

$5625 

561B 

C9 

F9 


CMP 

#$F9 

5610 

DO 

16 


BNE 

$5635 

561F 

20 

80 

03 

JSR 

$0380 

5622 

4C 

35 

56 

JMP 

$5635 

5625 

20 

80 

03 

JSR 

$0380 

5628 

20 

F4 

87 

JSR 

$87F4 

562B 

A9 

2C 


LDA 

#$2C 

562D 

20 

5F 

79 

JSR 

$795 E 

5630 

86 

15 


STX 

$15 

5632 

20 

FD 

90 

JSR 

$90FD 

5635 

A2 

01 


LDX 

#$01 

5637 

A0 

02 


LDY 

#$02 

5639 

A9 

00 


LDA 

#$00 

563B 

80 

01 

02 

STA 

$0201 

563E 

A9 

40 


LDA 

#$40 

5640 

20 

B2 

56 

JSR 

$56B2 

5643 

A6 

15 


LDX 

$15 

5645 

DO 

13 


BNE 

$565A 

5647 

60 



RTS 



und ausgeben 

CR erreicht ? 

Nein, weitermachen 

Fehler ! Richtig : JSR $5590 

Weitermachen 

CURSOR-RIGHT oder SPACE ausgeben 

Ausgabe in Bildschirm ? 

Ja, CURSOR-RIGHT out 
SPACE out 

CURSOR-RIGHT out 

'?• out 

Flags setzen 


BASICBefehl GET 

Test auf Direktmodus 
Zeichen retten 
•#' ? 

Ja, GET# 

Token für KEY ? 

Nein, Skip 
CHRGET 
GETKEY 
CHRGET 

Byte-Uert holen 

I I 
# 

Prüft auf Code 
Eingabegerät setzen 
CHKIN Eingabe setzen 
Zeiger auf Pufferende $0201 

Puffer mit 0 abschließen 

Flag für GET 

Wertzuweisung an Variable 
Eingabegerät = Tastatur ? 
Nein, CLRCH 
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****************************** BASIC-Befehl INPUT# 


5648 

20 

F4 

87 

JSR 

$87F4 

564B 

A9 

2C 


LDA 

#$2C 

564D 

20 

5E 

79 

JSR 

S795E 

5650 

86 

15 


STX 

$15 

5652 

20 

FD 

90 

JSR 

$90FD 

5655 

20 

71 

56 

JSR 

$5671 

5658 

A5 

15 


LDA $15 

565A 

20 

6F 

92 

JSR 

$926F 

565D 

A2 

00 


LDX 

#$00 

565F 

86 

15 


STX 

$15 

5661 

60 



RTS 



5662 

C9 

22 


CMP 

#$22 

5664 

DO 

OB 


BNE 

$5671 

5666 

20 

13 

79 

JSR 

$7913 

5669 

A9 

3B 


LDA 

#$3B 

566B 

20 

5E 

79 

JSR 

$795E 

566E 

20 

E5 

55 

JSR 

$55E5 

5671 

20 

D9 

84 

JSR 

$84D9 

5674 

A9 

2C 


LDA 

#$2C 

5676 

8D 

FF 

01 

STA 

$01 FF 

5679 

20 

9C 

56 

JSR 

$569C 

567C 

A5 

15 


LDA 

$15 

567E 

F0 

OD 


BEO 

$5680 

5680 

20 

51 

92 

JSR 

$9251 

5683 

29 

02 


AND 

#$02 

5685 

F0 

06 


BEO 

$5680 

5687 

20 

58 

56 

JSR 

$5658 

568A 

4C 

8F 

52 

JHP 

$528F 

568D 

AD 

00 

02 

LDA 

$0200 

5690 

DO 

IE 


BNE 

$56B0 

5692 

A5 

15 


LDA 

$15 

5694 

DO 

E3 


BNE 

$5679 

5696 

20 

A2 

52 

JSR 

S52A2 

5699 

4C 

92 

52 

JHP 

$5292 

569C 

A5 

15 


LDA 

$15 

569E 

DO 

06 


BNE 

$56A6 

56A0 

20 

OA 

56 

JSR 

$560A 

56A3 

20 

04 

56 

JSR 

$5604 

56A6 

4C 

93 

4F 

JHP 

$4F93 


Byte-Wert holen 

I I 
# 

Prüft auf Code 
Eingabegerät setzen 
CHK1N 

INPUT ohne Dialogstring 
CLRCH 

Eingabe auf Tastatur 


BASIC-Befehl INPUT 

i ii i ? 

Nein, Skip 
Dialogstring holen 

I • I 

Prüft auf Code 
String ausgeben 
Test auf Direktmodus 

I I 
« 

als erstes Zeichen in Puffer 
Eingabezeile holen 
Eingabegerät = Tastatur ? 

Ja, Skip 
Status holen 
Time-out ? 

Nein, Skip 

CLRCH, Eingabe von Tastatur 
Nächstes Statement aufsuchen 
Zeichen im Puffer ? 

Ja, Skip 

Eingabe von Tastatur ? 

Nein, Ende 

PC auf nächstes Statement 


Eingabe von Tastatur ? 

Nein, Skip 
'?■ ausgeben 
SPACE ausgeben 

Zeile in Eingabepuffer holen 
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****************************** BASIC-Befehl READ 


56A9 

A6 

43 


LDX 

$43 

56AB 

A4 

44 


LDY 

$44 

5 6 AD 

A9 

98 


LDA 

#$98 

56AF 

2C 



•BYTE S2C 

56B0 

A9 

00 


LDA 

#$00 

56B2 

85 

13 


STA 

$13 

56B4 

86 

45 


STX 

$45 

56B6 

84 

46 


STY 

$46 

56B8 

20 

AF 

7A 

JSR 

$7AAF 

56BB 

85 

4B 


STA 

$48 

56BD 

84 

4C 


STY 

$4C 

56BF 

A2 

01 


LDX 

#$01 

56C1 

B5 

3D 


LDA 

$3D,X 

56C3 

95 

4D 


STA 

$40, X 

56C5 

B5 

45 


LDA 

$45, X 

56C7 

95 

3D 


STA 

$3D,X 

56C9 

CA 



DEX 


56CA 

10 

F5 


BPL 

$56C1 

56CC 

20 

86 

03 

JSR 

$0386 

56CF 

DO 

31 


BNE 

$5702 

56D1 

24 

13 


BIT 

$13 

56D3 

50 

1A 


BVC 

$56EF 

56D5 

A5 

77 


LDA 

$77 

56D7 

C9 

F9 


CMP 

#$F9 

56D9 

DO 

08 


BNE 

$56E3 

56DB 

20 

09 

91 

JSR 

$9109 

56DE 

AA 



TAX 


56DF 

F0 

FA 


BEQ 

$56DB 

56E1 

DO 

03 


BNE 

$56E6 

56E3 

20 

09 

91 

JSR 

$9109 

56E6 

8D 

00 

02 

STA 

$0200 

56E9 

A2 

FF 


LDX 

#$FF 

56EB 

A0 

01 


LDY 

#$01 

56ED 

DO 

OF 


BNE 

$56FE 

56EF 

10 

03 


BPL 

$56F4 

56F1 

4C 

CA 

57 

JMP 

$57CA 

56F4 

A5 

15 


LDA 

$15 

56F6 

DO 

03 


BNE 

$56FB 

56F8 

20 

OA 

56 

JSR 

$560A 

56FB 

20 

9C 

56 

JSR 

$569C 

56FE 

86 

3D 


STX 

$3D 

5700 

84 

3E 


STY 

$3E 

5702 

20 

80 

03 

JSR 

$0380 

5705 

24 

OF 


BIT 

$0F 

5707 

10 

31 


BPL 

$573A 


DATA-Zeiger holen 

Flag für READ setzen 

Flag für INPUT oder INPUT# 
setzen 

Eingabezeiger setzen 

Variable suchen 
Adresse setzen 


PC retten 

PC auf Eingabezeiger 


CHRGOT 
GET ? 

Nein, Skip 

GETKEY ? 

Nein, Skip 

Warten auf ein Zeichen 


Unbedingter Sprung 
GET IN 

Zeichen in Puffer 
Zeiger auf Puffer setzen 

weiter 

Wenn kein READ, Skip 

Eingabe von Tastatur ? 
Nein, Skip 
'?' ausgeben 
Eingabezeile holen 
PC setzen 

CHRGET 

Typ = String ? 

Nein, Skip 
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5709 

24 

13 

BIT 

*13 

570B 

50 

09 

BVC 

$5716 

5700 

E8 


INX 


570E 

86 

30 

STX 

$3D 

5710 

A9 

00 

LDA 

#$00 

5712 

85 

09 

STA 

$09 

5714 

F0 

OC 

BEQ 

$5722 

5716 

85 

09 

STA 

$09 

5718 

C9 

22 

CMP 

#$22 

571A 

F0 

07 

BEO 

$5723 

571C 

A9 

3A 

LDA 

#$3A 

571E 

85 

09 

STA 

$09 

5720 

A9 

2C 

LDA 

#$2C 

5722 

18 


CLC 


5723 

85 

0A 

STA 

$0A 

5725 

A5 

3D 

LDA 

$3D 

5727 

A4 

3E 

LDY 

$3E 

5729 

69 

00 

ADC 

#$00 

572B 

90 

01 

BCC 

$572E 

572D 

C8 


INY 


572E 

20 

AO 86 

JSR 

$86A0 

5731 

20 

1F 79 

JSR 

$791F 

5734 

20 

05 54 

JSR 

$5405 

5737 

4C 

44 57 

JMP 

$5744 

573A 

A2 

00 

LDX 

#$00 

573C 

20 

22 8D 

JSR 

$8022 

573F 

A5 

10 

LDA 

$10 

5741 

20 

E3 53 

JSR 

$53E3 

5744 

20 

86 03 

JSR 

$0386 

5747 

F0 

3B 

BEO 

$5784 

5749 

C9 

2C 

CMP 

#$2C 

574B 

F0 

37 

BEO 

$5784 

574D 

A5 

13 

LDA 

$13 

574F 

F0 

OA 

BEO 

$5758 

5751 

30 

04 

BMI 

$5757 

5753 

A6 

15 

LDX 

$15 

5755 

00 

08 

BNE 

$575F 

5757 

A2 

16 

LDX 

#$16 

5759 

00 

06 

BNE 

$5761 

575B 

A5 

15 

LDA 

$15 

575D 

F0 

05 

BEQ 

*5764 

575F 

A2 

18 

LDX 

#$18 

5761 

4C 

3C 4D 

JMP 

$4D3C 

5764 

20 

81 92 

JSR 

$9281 


GET ? 

Nein, Skip 


Unbedingter Sprung 

I II I ? 

Ja, Skip 

I . I 

I I 

f 


PC laden 
und 1 addieren 


String übernehmen 
PC hinter String setzen 
String an Variable zuweisen 

String in Zahl umwandeln 


FAC#1 in Variable übertragen 
CHRGET 

Wenn Ende, Skip 

V ? 

Ja, Skip 

Wenn INPUT, Skip 
Wenn READ, Skip 
Eingabe von Tastatur ? 

Nein, Skip 
•TYPE MISMATCH 1 

Eingabe von Tastatur ? 

Ja, Skip 
■FILE DATA* 

String ausgeben 


****************************** Textkonstante '7REDO FROM START' 


5767 3F 52 45 44 4F 20 46 52 '7RED0 FROM START' (CR) 
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576F 4F 4D 20 53 54 41 52 54 
5777 0D 00 

****************************** 


5779 

AD 

02 12 

LDA 

$1202 

577C 

AC 

03 12 

LDY 

$1203 

577F 

85 

3D 

STA 

$3D 

5781 

84 

3E 

STY 

$3E 

5783 

60 


RTS 


****************************** 

5784 

A2 

01 

LDX 

#$01 

5786 

B5 

3D 

LDA 

$3D,X 

5788 

95 

45 

STA 

$45, X 

578A 

B5 

4D 

LDA 

$4D,X 

578C 

95 

3D 

STA 

$3D,X 

578E 

CA 


DEX 


578F 

10 

F5 

BPL 

$5786 

5791 

20 

86 03 

JSR 

$0386 

5794 

F0 

06 

BEQ 

$579C 

5796 

20 

5C 79 

JSR 

$795C 

5799 

4C 

B8 56 

JMP 

$56B8 

579C 

A5 

45 

LDA 

$45 

579E 

A4 

46 

LDY 

$46 

57A0 

A6 

13 

LDX 

$13 

57A2 

10 

05 

BPL 

$57A9 

57A4 

85 

43 

STA 

$43 

57A6 

84 

44 

STY 

$44 

57A8 

60 


RTS 


57A9 

A0 

00 

LDY 

#$00 

57AB 

A9 

45 

LDA 

#$45 

57AD 

20 

9F 03 

JSR 

$039 F 

57B0 

F0 

17 

BEQ 

$57C9 

57B2 

A5 

15 

LDA 

$15 

57B4 

DO 

13 

BNE 

$57C9 

57B6 

20 

81 92 

JSR 

$9281 


PC auf Befehlsanfang setzen 
PC auf Befehlsanfang setzen 


PC in Eingabezeiger 
PC wieder setzen 


CHRGOT 

Wenn Trennzeichen, Skip 
Test auf Komma 
weitermachen 
Variablenzeiger 

Readbefehl ? 

Nein, Skip 

in DATA-Zeiger setzen 


Falls nötig 

Noch Zeichen in Eingabe vorhanden 
Nein, Ende 

Eingabe von Tastatur ? 

Nein, Skip 
1 7EXTRA IGNORED 1 


****************************** Textkonstante 1 7EXTRA IGNORED' 


57B9 3F 45 58 54 52 41 20 49 '7EXTRA IGNORED' (CR) 

57C1 47 4E 4F 52 45 44 OD 00 

****************************** 


57C9 60 


RTS 
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****************************** 

Nächstes DATA suchen 

57CA 

20 

A2 

52 

JSR S52A2 

Nächstes Trennzeichen suchen 

57CD 

C8 



1NY 


57CE 

AA 



TAX 

Zeilenende ? 

57CF 

DO 

15 


BNE $57E6 

Nein, Skip 

57D1 

A2 

OD 


LDX #$0D 

Nummer für 'OUT OF DATA' 

57D3 

C8 



INY 


57D4 

20 

C9 

03 

JSR $03C9 

Programmende ? 

57D7 

F0 

40 


BEO $5819 

Ja, Fehler 

57D9 

C8 



INY 


57DA 

20 

C9 

03 

JSR $03C9 

DATA-Zeiger setzen 

57DD 

85 

41 


STA $41 


57DF 

C8 



INY 


57E0 

20 

C9 

03 

JSR $03C9 


57E3 

C8 



INY 


57E4 

85 

42 


STA $42 


57E6 

20 

92 

52 

JSR $5292 

PC auf nächstes Statement 

57E9 

20 

86 

03 

JSR $0386 

CHRGOT 

57EC 

AA 



TAX 


57ED 

EO 

83 


CPX #$83 

Token für DATA ? 

57EF 

DO 

D9 


BNE $57CA 

Nein, ueitersuchen 

57F1 

4C 

02 

57 

JMP $5702 

Daten lesen 

****************************** 

BASIC-Befehl NEXT 

57F4 

DO 

13 


BNE $5809 

Wenn Variable angegeben, Skip 

57F6 

AO 

FF 


LDY #$FF 

Flag für keine Variable 

57F8 

DO 

14 


BNE $580E 

Unbedingter Sprung 

57FA 

AO 

12 


LDY #$12 


57FC 

20 

59 

50 

JSR $5059 

BASIC-Stack um (Y) Bytes leeren 

57FF 

20 

86 

03 

JSR $0386 

CHRGOT 

5802 

C9 

2C 


CMP #$2C 

Zeichen = 1 , 1 ? 

5804 

DO 

71 


BNE $5877 

Nein, Ende 

5806 

20 

80 

03 

JSR $0380 

CHRGET 

5809 

20 

AF 

7A 

JSR $7AAF 

Variable suchen 

580C 

85 

4B 


STA $4B 

Adresse setzen 

580E 

84 

4C 


STY $4C 


5810 

A9 

81 


LDA #$81 

Token für FOR 

5812 

20 

AA 

4F 

JSR $4FAA 

Im BASIC-Stack ? 

5815 

FO 

05 


BEO $581C 

Ja, Skip 

5817 

A2 

OA 


LDX #$0A 

•NEXT WITHOUT FOR' 

5819 

4C 

3C 

4D 

JMP $4D3C 


581C 

20 

50 

50 

JSR $5050 

BASIC-Stackpointer setzen 

581F 

A5 

3F 


LDA $3F 

Zeiger auf Schleifenwert 

5821 

18 



CLC 

im BASIC-Stack setzen 

5822 

69 

03 


ADC #$03 


5824 

A4 

40 


LDY $40 
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5826 

90 

01 


BCC 

$5829 

5828 

C8 



INY 


5829 

20 

D4 

8B 

JSR 

S8BD4 

582C 

A0 

08 


LDY 

#$08 

582E 

Bl 

3F 


LDA 

($3F),Y 

5830 

85 

68 


STA 

$68 

5832 

A0 

01 


LDY 

#$01 

5834 

Bl 

3F 


LDA 

($3 F),Y 

5836 

48 



PHA 


5837 

AA 



TAX 


5838 

C8 



INY 


5839 

Bl 

3F 


LDA 

($3 F ), Y 

583B 

48 



PHA 


583C 

A8 



TAY 


5830 

8A 



TXA 


583E 

20 

45 

88 

JSR 

$8845 

5841 

68 



PLA 


5842 

A8 



TAY 


5843 

68 



PLA 


5844 

AA 



TAX 


5845 

80 

04 

FF 

STA 

$FF04 

5848 

20 

00 

8C 

JSR 

$8C00 

584B 

A5 

3F 


LDA 

$3F 

5840 

18 



CLC 


584E 

69 

09 


ADC 

#$09 

5850 

A4 

40 


LDY 

$40 

5852 

90 

01 


BCC 

$5855 

5854 

C8 



INY 


5855 

8D 

03 

FF 

STA 

$FF03 

5858 

20 

87 

8C 

JSR 

$8C87 

585B 

AO 

08 


LDY 

#$08 

5850 

38 



SEC 


585E 

Fl 

3F 


SBC 

($3 F ),Y 

5860 

FO 

98 


BEQ 

$57FA 

5862 

AO 

11 


LDY 

#$11 

5864 

Bl 

3F 


LDA 

($3F),Y 

5866 

85 

3D 


STA 

$3D 

5868 

88 



DEY 


5869 

Bl 

3F 


LDA 

($3F),Y 

586B 

85 

3E 


STA 

$3E 

5860 

88 



DEY 


586E 

Bl 

3F 


LDA 

($3F),Y 

5870 

85 

3C 


STA 

$3C 

5872 

88 



DEY 


5873 

Bl 

3F 


LDA 

($3F),Y 

5875 

85 

3B 


STA 

$3B 

5877 

60 



RTS 



Variable von BASIC-Stack in FAC#1 


FAC#1^Konstante (A)/(Y) + FAC#1 


Write in Bank 1 setzen 
FAC#1 nach (X>/<Y> mit Rundung 


Read aus Bank 0 setzen 

Vergleich Konstante (A)/(Y) mit FAC#1 
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****************************** 


5878 20 5C 79 JSR S795C Test auf Komma 

********************* ********* BASIC-Befehl DIM 


587B 

AA 



TAX 


587C 

20 

B4 

7A 

JSR $7AB4 

Variable dimensionieren 

587F 

20 

86 

03 

JSR $0386 

CHRGET 

5882 

DO 

F4 


BNE $5878 

Wenn kein Trennzeichen, weitermachen 

5884 

60 



RTS 


****************************** 

BASIC-Befehl SYS 

5885 

20 

12 

88 

JSR $8812 

Adresse holen 

5888 

A5 

16 


LDA $16 

Adresse setzen 

588A 

85 

04 


STA $04 


588C 

A5 

17 


LDA $17 


588E 

85 

03 


STA $03 


5890 

AD 

D5 

03 

LDA $03D5 

Bank setzen 

5893 

85 

02 


STA $02 


5895 

20 

U 

9E 

JSR $9E1E 

Falls nötig 

5898 

90 

02 


BCC $589C 


589A 

86 

06 


STX $06 

(A) setzen 

589C 

20 

IE 

9E 

JSR $9E1E 

Falls nötig 

589F 

90 

02 


BCC $58A3 


58A1 

86 

07 


STX $07 

(X) setzen 

5 8 A3 

20 

IE 

9E 

JSR $9E1E 

FalIs nötig 

58A6 

90 

02 


BCC $58AA 


58A8 

86 

08 


STX $08 

(Y) setzen 

58AA 

20 

IE 

9E 

JSR $9E1E 

FalIs nötig 

58AD 

90 

02 


BCC $58B1 


58AF 

86 

05 


STX $05 

Status setzen 

58B1 

4C 

6F 

FF 

JMP $FF6E 

JSRFAR Programmaufruf 

fr***************************** 

BASIC-Befehle TRON/TROFF 

58B4 

A9 

FF 


LDA #$FF 

TRON 

58B6 

2C 



.BYTE $2C 


58B7 

A9 

00 


LDA #$00 

TROFF 

58B9 

80 

6F 

11 

STA $116F 

Traceflag setzen 

58BC 

60 



RTS 


****************************** 

BASIC-Befehl RREG 

58BD 

A9 

00 


LDA #$00 

Offset auf 0 

58BF 

85 

OD 


STA $0D 
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58C1 

20 

86 

03 

JSR $0386 

CHRGOT 

58C4 

F0 

37 


BEQ $58FD 


58C6 

C9 

2C 


CMP #$2C 

? 

58C8 

F0 

21 


BEQ S58EB 

Ja, Skip 

58CA 

20 

AF 

7A 

JSR $7AAF 

Variable suchen 

58CD 

85 

4B 


STA $4B 

Adresse setzen 

58CF 

84 

4C 


STY S4C 


58D1 

A5 

OF 


LDA $0F 

String ? 

5803 

DO 

29 


BNE $58FE 

Ja, Fehler 

58D5 

A4 

OD 


LDY $0D 

Offset laden 

58D7 

B9 

06 

00 

LDA $0006,Y 

Registerwert laden 

58DA 

CO 

03 


CPY #$03 

Prozessorstatus laden ? 

58DC 

DO 

02 


BNE $58E0 

Nein, Skip 

58DE 

A5 

05 


LDA $05 

Prozessorstatus laden 

58E0 

A8 



TAY 

Wert als Low-Byte laden 

58E1 

A9 

00 


LDA #$00 

High-Byte auf 0 

58E3 

20 

3C 

79 

JSR $793C 

Integeruert in FAC#1 

58E6 

A5 

10 


LDA $10 

Datentyp laden 

58E8 

20 

E3 

53 

JSR $53E3 

Wertzuweisung 

58EB 

E6 

OD 


INC $0D 

Offset erhöhen 

58ED 

A5 

OD 


LDA $0D 

Alle Werte übernommen ? 

58EF 

C9 

04 


CMP #$04 


58F1 

BO 

OA 


BCS $58FD 

Ja, Ende 

58F3 

20 

86 

03 

JSR $0386 

Ende erreicht ? 

58F6 

FO 

05 


BEQ $58FD 

Ja, Ende 

58F8 

20 

80 

03 

JSR $0380 

Falls nötig 

58FB 

DO 

C4 


BNE $58C1 

weitermachen 

58FD 

60 



RTS 


58FE 

4C 

E7 

77 

JMP $77E7 

•TYPE MISMATCH‘ 

****************************** 

BASIC-Befehl MID$ 

5901 

20 

59 

79 

JSR $7959 

Test auf 

5904 

20 

AF 

7A 

JSR $7AAF 

Variable suchen 

5907 

85 

4B 


STA $4B 

Adresse setzen 

5909 

84 

4C 


STY $4C 


590B 

20 

DD 

77 

JSR $77DD 

Test auf String 

590E 

20 

09 

88 

JSR $8809 

Byte-Wert holen 

5911 

CA 



DEX 


5912 

86 

78 


STX $78 

Einsetzposition setzen 

5914 

C9 

29 


CMP #$29 

.). ? 

5916 

FO 

04 


BEQ $591C 

Ja, Skip 

5918 

20 

09 

88 

JSR $8809 

Byte-Wert holen 

591B 

2C 



.BYTE $2C 


591C 

A2 

FF 


LDX #$FF 


591E 

86 

77 


STX $77 

Übernahmelänge setzen 

5920 

20 

56 

79 

JSR $7956 


5923 

A9 

B2 


LDA #$B2 

Token für '=' 
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5925 

20 

5E 79 

JSR 

$795 E 

Prüft auf Code 

5928 

20 

EF 77 

JSR 

S77EF 

Ausdruck auswerten 

592B 

20 

DD 77 

JSR 

S77DD 

und auf String prüfen 

592E 

A0 

02 

LDY 

#$02 


5930 

A9 

4B 

LDA 

#$48 


5932 

20 

AB 03 

JSR 

$03AB 


5935 

99 

5D 00 

STA 

$005D,Y 

Deskriptor des alten Strings setzen 

5938 

20 

E7 42 

JSR 

$42E7 


593B 

99 

60 00 

STA 

$0060,Y 

Deskriptor des Einsetzstrings setzen 

593E 

88 


DEY 



593 F 

10 

EF 

BPL 

$5930 


5941 

38 


SEC 



5942 

A5 

61 

LDA 

$61 


5944 

E5 

78 

SBC 

$78 


5946 

85 

61 

STA 

$61 


5948 

BO 

02 

BCS 

$594C 


594A 

C6 

62 

DEC 

$62 


594C 

A5 

77 

LDA 

$77 

Übernahmelänge kleiner als 

594E 

C5 

60 

CMP 

$60 

Länge des Einsetzstrings ? 

5950 

90 

02 

BCC 

$5954 

Ja, Fehler 

5952 

A5 

60 

LDA 

$60 

länge des Einsetzstrings = 0 ? 

5954 

AA 


TAX 



5955 

FO 

18 

BEO 

$596F 

Ja, Ende 

5957 

18 


CLC 


+ Einsetzposition 

5958 

65 

78 

ADC 

$78 

zu groß ? 

595A 

BO 

16 

BCS 

$5972 

Ja, Fehler 

595C 

C5 

5D 

CMP 

$5D 

größer als Länge des alten Strings ? 

595E 

90 

02 

BCC 

$5962 


5960 

DO 

10 

BNE 

$5972 

Ja, Fehler 

5962 

A4 

78 

LDY 

$78 

Einsetzposition laden 

5964 

A9 

61 

LDA 

#$61 


5966 

20 

AB 03 

JSR 

$03AB 

Einsetzstring byteweise 

5969 

91 

5E 

STA 

($5E),Y 

in alten String übertragen 

596B 

C8 


I NY 



596C 

CA 


DEX 



5960 

DO 

F5 

BNE 

$5964 


596F 

4C 

81 87 

JMP 

$8781 

FRESTR 

5972 

4C 

28 7D 

JMP 

$7D28 

•ILLEGAL QUANTITY• 

****************************** 

BASIC-Befehl AUTO 

5975 

20 

FO 84 

JSR 

$84 FO 

Test auf Progranrnnodus 

5978 

20 

AO 50 

JSR 

$50A0 

Zeilennummer lesen 

597B 

A5 

16 

LDA 

$16 

AUTO-Offset setzen 

597D 

85 

74 

STA 

$74 


597F 

A5 

17 

LDA 

$17 


5981 

85 

75 

STA 

$75 




466 


128 Intern 


5983 4C 37 4D JMP $4D37 
****************************** 


5986 

AE 

08 

12 

LDX 

$1208 

5989 

E8 



I NX 


598A 

FO 

ID 


BEQ 

$59A9 

598C 

AD 

09 

12 

LDA 

$1209 

598F 

AC 

OA 

12 

LDY 

$120A 

5992 

85 

16 


STA 

$16 

5994 

84 

17 


STY 

$17 

5996 

20 

64 

50 

JSR 

$5064 

5999 

90 

OE 


BCC 

$59A9 

599B 

66 

55 


ROR 

$55 

599D 

20 

98 

55 

JSR 

$5598 

59A0 

A6 

16 


LDX 

$16 

59A2 

A5 

17 


LDA 

$17 

59A4 

20 

23 

51 

JSR 

$5123 

59A7 

46 

55 


LSR 

$55 

59A9 

4C 

98 

55 

JMP 

$5598 

****************************** 

59AC 

A6 

62 


LDX 

$62 

59AE 

98 



TYA 


59AF 

18 



CLC 


59B0 

65 

61 


ADC 

$61 

59B2 

90 

01 


BCC 

$59B5 

59B4 

E8 



INX 


59B5 

EC 

OF 

12 

CPX 

$120F 

59B8 

DO 

14 


BNE 

V^l 

<3 

n 

m 

598A 

CD 

OE 

12 

CMP 

$120E 

59BD 

90 

OF 


BCC 

$59CE 

59BF 

FO 

OD 


BEQ 

$59CE 

59C1 

46 

55 


LSR 

$55 

59C3 

A9 

12 


LDA 

#$12 

59C5 

24 

D7 


8IT 

$D7 

59C7 

10 

02 


BPL 

$59C8 

59C9 

A9 

02 


LDA 

#$02 

59CB 

4C 

OC 

56 

JMP 

$560C 

59CE 

60 



RTS 


****************************** 

59CF 

20 

ID 

5A 

JSR 

$5A1D 

5902 

20 

86 

03 

JSR 

$0386 

5905 

20 

DB 

59 

JSR 

$59DB 


■READY. 1 

BASIC-Befehl HELP 

Fehler aufgetreten 

Nein, Ende 

Zeilennummer setzen 


Zeile suchen 

Wenn nicht gefunden, Ende 
In HELP-Flag BIT 7 setzen 
CR out 

1 Zeile listen 


HELP-Flag löschen 
CR out 

LIST-Unterroutine für HELP 

High-Byte laden 
Offset in (A) 

LIST-Zeiger korrigieren 


> Fehler PC ? 

Nein, Skip 

Nein, Skip 
Nein, Skip 
HELP-Flag löschen 
Code für REVERS 
80-Zeichen-Modus ? 

Nein, Skip 

Code für UNTERSTREICHEN EIN 
Zeichen out 


BASIC-Befehl GOSUB 

GOSUB-Werte auf Stack 

CHRGOT 

GOTO 
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59D8 

4C 

F6 

4A 

JMP 

$4AF6 

Interpreterschleife 

****************************** 

BASIC-Befehl GOTO 

59DB 

20 

AO 

50 

JSR 

$50A0 

Zeilennummer lesen 

59DE 

A5 

OA 


LDA 

$0A 

Ziffern gelesen ? 

59E0 

F0 

38 


BEQ 

$5A1A 

Nein, Fehler 

59E2 

20 

A5 

52 

JSR 

S52A5 

Zeilenende suchen 

59E5 

38 



SEC 



59E6 

A5 

3B 


LDA 

$3B 

Zeilennummer kleiner als 

59E8 

E5 

16 


SBC 

$16 

laufende Zeile ? 

59EA 

A5 

3C 


LDA 

$3C 


59EC 

E5 

17 


SBC 

*17 


59EE 

BO 

OB 


BCS 

S59FB 

nein, Skip 

59F0 

98 



TYA 


ab laufender Zeile suchen 

59F1 

38 



SEC 



59F2 

65 

3D 


ADC 

*3D 


59F4 

A6 

3E 


LDX 

*3E 


59F6 

90 

07 


BCC 

*59FF 


59F8 

E8 



I NX 



59F9 

BO 

04 


BCS 

*59FF 


59FB 

A5 

2D 


LDA 

S2D 

ab Programmstart suchen 

59FD 

A6 

2E 


LDX 

$2E 


59FF 

20 

68 

50 

JSR 

*5068 

Zeile suchen 

5A02 

90 

11 


BCC 

*5A15 

Wenn nicht gefunden, Fehler 

5A04 

A5 

61 


LDA 

$61 

PC setzen 

5A06 

E9 

01 


SBC 

#$01 


5A08 

85 

3D 


STA 

*3D 


5A0A 

A5 

62 


LDA 

*62 


5A0C 

E9 

00 


SBC 

#$00 


5A0E 

85 

3E 


STA 

$3E 


5A10 

24 

7F 


BIT 

$7F 

Direktmodus 7 

5A12 

10 

60 


BPL 

$5A81 

Ja, Skip 

5A14 

60 



RTS 



5A15 

A2 

11 


LDX 

#$11 

•UNDEF'D STATEMENT 1 

5A17 

4C 

3C 

4D 

JMP 

$4D3C 


5A1A 

4C 

6C 

79 

JMP 

$796C 

•SYNTAX ERROR 1 

****************************** 

GOSUB-Uerte auf BASIC-Stack legen 

5A1D 

A9 

05 


LDA 

#$05 

BASIC-Stackpointer um 5 Bytes versetzen 

5A1F 

20 

FE 

4F 

JSR 

$4FFE 


5A22 

AO 

04 


LDY 

#$04 


5A24 

A5 

3E 


LDA 

$3E 

PC eintragen 

5A26 

91 

7D 


STA 

($7D),Y 


5A28 

88 



DEY 



5A29 

A5 

3D 


LDA 

$3D 


5A2B 

91 

7D 


STA 

($7D),Y 
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5A2D 

88 



DEY 


5A2E 

A5 

3C 


LDA 

$3C 

5A30 

91 

7D 


STA 

($7D),Y 

5A32 

88 



DEY 


5A33 

A5 

3B 


LDA 

$3B 

5A35 

91 

7D 


STA 

($7D),Y 

5A37 

88 



DEY 


5A38 

A9 

8D 


LDA 

#$8D 

5A3A 

91 

7D 


STA 

($7D),Y 

5A3C 

60 



RTS 


****★★★★*★*★*★★*★★#★*****★*** 

5A3D 

20 

80 

03 

JSR 

$0380 

5A40 

C9 

A4 


CMP 

#$A4 

5A42 

DO 

06 


BNE 

$5A4A 

5A44 

20 

80 

03 

JSR 

$0380 

5A47 

4C 

DB 

59 

JMP 

$59DB 

5A4A 

20 

F4 

87 

JSR 

CD 

TI 

5A4D 

E0 

40 


CPX 

#$40 

5A4F 

F0 

03 


BEQ 

$5A54 

5A51 

4C 

6C 

79 

JMP 

$796C 

5A54 

20 

El 

A 7 

JSR 

$A7E1 

5A57 

DO 

06 


BNE 

$5A5F 

5A59 

20 

45 

A8 

JSR 

$A845 

5A5C 

4C 

4D 

FF 

JMP 

$FF4D 

5A5F 

60 



RTS 



******★★*★****★*********★*★** 


5A60 

DO 

38 


BNE 

$5A9A 

5A62 

24 

7F 


BIT 

$7F 

5A64 

30 

34 


BMI 

$5A9A 

5A66 

A2 

1A 


LDX 

#$1A 

5A68 

AC 

03 

12 

LDY 

$1203 

5A6B 

DO 

03 


BNE 

$5A70 

5A6D 

4C 

3C 

4D 

JMP 

$4D3C 

5A70 

AD 

02 

12 

LDA 

$1202 

5A73 

85 

3D 


STA 

$3D 

5A75 

84 

3E 


STY 

$3E 

5A77 

AD 

00 

12 

LDA 

$1200 

5A7A 

AC 

01 

12 

LDY 

$1201 

5A7D 

85 

38 


STA 

$3B 

5A7F 

84 

3C 


STY 

$3C 

5A81 

A9 

80 


LDA 

#$80 

5A83 

85 

7F 


STA 

$7F 


Zei lennummer eintragen 


Token für GOSUB eintragen 


Test auf GO TO und G064 
CHRGET 

Token für TO ? 

Nein, Skip 
CHRGET 
GOTO-Befehl 
Byte-Wert holen 
= 64 ? 

Ja, Skip 
•SYNTAX ERROR' 

'ARE YOU SURE?' 

Nein, nicht sicher 
ROMs einschalten 
C64-Modus auf rufen 


BASIC-Befehl CONT 

Kein Trennzeichen, Skip 
Direktmodus ? 

Ja, Skip 

Nimmer für *CAN‘T CONT1NUE 1 
Contnimmer gültig ? 

Ja, Skip 
Fehlerausgabe 
PC setzen 


Zeilennummer setzen 


Programmmodus setzen 
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5A85 

OA 



ASL 


5A86 

85 

74 


STA 

$74 

5A88 

85 

75 


STA 

$75 

5A8A 

8D 

7F 

12 

STA 

$127F 

5A8D 

85 

F6 


STA 

$F6 

5A8F 

A2 

02 


LDX 

#$02 

5A91 

90 

76 

12 

STA 

$1276,X 

5A94 

CA 



DEX 


5A95 

10 

FA 


BPL 

$5A91 

5A97 

4C 

90 

FF 

JMP 

$FF90 

5A9A 

60 



RTS 


****************************** 

5A9B 

F0 

18 


BEO 

$5AB5 

5A9D 

90 

IC 


BCC 

$5ABB 

5A9F 

A9 

40 


LDA 

#$40 

5AA1 

85 

7F 


STA 

$7F 

5AA3 

20 

A7 

AI 

JSR 

$A1A7 

5AA6 

20 

81 

5A 

JSR 

$5A81 

5AA9 

20 

F3 

51 

JSR 

$51F3 

5AAC 

20 

4F 

4F 

JSR 

$4F4F 

5AAF 

20 

98 

55 

JSR 

$5598 

5AB2 

4C 

F6 

4A 

JMP 

$4AF6 

5AB5 

20 

81 

5A 

JSR 

$5A81 

5AB8 

4C 

F3 

51 

JMP 

$51F3 

5ABB 

20 

FA 

51 

JSR 

$51 FA 

5ABE 

20 

86 

03 

JSR 

$0386 

5AC1 

20 

DB 

59 

JSR 

$59DB 

5AC4 

20 

81 

5A 

JSR 

$5A81 

5AC7 

4C 

F6 

4A 

JMP 

$4AF6 

****************************** 

5ACA 

F0 

15 


BEQ 

$5AE1 

5ACC 

20 

12 

88 

JSR 

$8812 

5ACF 

84 

16 


STY 

$16 

5AD1 

85 

17 


STA 

$17 

5AD3 

20 

64 

50 

JSR 

$5064 

5AD6 

B0 

03 


BCS 

$5ADB 

5AD8 

4C 

15 

5A 

JMP 

$5A15 

5ADB 

A5 

61 


LDA 

$61 

5ADD 

A4 

62 


LDY 

$62 

5ADF 

B0 

05 


BCS 

$5AE6 

5AE1 

38 



SEC 


5AE2 

A5 

2D 


LDA 

$2D 


AUTO-Offset auf 0 

lnterruptmöglichkeiten löschen 
Auto-Insert löschen 
Interrupt-Speicher löschen 


Systemmeldüngen verbieten 

BASIC-Befehl RUN 

RUN ohne Angaben 
RUN mit Nummer 
Direktmodusflag vorbesetzen 

LOAD Programm 
Programm-Modus setzen 
Zeiger auf Programmstart, CLR 
Verkettung korrigieren 
CR out 

Interpreterschleife 

Prograirm-Modus setzen 
Zeiger auf Programmstart, CLR 

CLR-Befehl 
CHRGOT 
GOTO-Befehl 
Progranm-Modus setzen 
Interpreterschleife 

BASIC-Befehl RESTORE 

Wenn keine Nummer, Skip 
Adressausdruck einiesen 
Zeilennummer setzen 

Zeile suchen 
Wenn gefunden, Skip 
'UNDEF'D STATEMENT' 
Zeilenadresse nehmen 


Programmstart nehmen 
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5AE4 

A4 2E 

LDY $2E 

5AE6 

E9 01 

SBC #$01 

5AE8 

B0 01 

BCS $5AEB 

5AEA 

88 

DEY 

5AEB 

85 43 

STA $43 

5AED 

84 44 

STY $44 

5AEF 

60 

RTS 


in DATA-Adresse setzen 


****************************** joken für RENUMBER 


5AF0 89 8A 8D A7 8C D6 D7 D5 GOTO,RUN,GOSUB.THEN.RESTORE 

RESUME,TRAP,ELSE 

****************************** ßASIC-Befehl RENUMBER 


5AF8 

20 

FO 

84 

JSR $84FO 

Test auf Programm-Modus 

5AFB 

A9 

00 


LDA #$00 


5AFD 

A2 

OA 


LDX #$0A 


5AFF 

8E 

70 

11 

STX $1170 

Startzeile auf 10 

5B02 

80 

71 

11 

STA $1171 


5B05 

8E 

72 

11 

STX $1172 

Schrittweite auf 10 

5B08 

80 

73 

11 

STA $1173 


5B0B 

85 

5C 


STA $5C 

Anfangszeilennummer auf 0 

5B0D 

85 

5D 


STA $50 


5B0F 

20 

86 

03 

JSR $0386 

CHRGOT 

5B12 

FO 

54 


BEQ $5B68 


5B14 

20 

AO 

50 

JSR $50A0 

Zeilennummer holen 

5B17 

A5 

OA 


LDA $0A 

Zeilennummer vorhanden ? 

5B19 

FO 

OA 


BEQ $5B25 

Nein, Skip ? 

5B1B 

A5 

16 


LDA $16 

Startzeile setzen 

5B1D 

A6 

17 


LDX $17 


5B1F 

80 

70 

11 

STA $1170 


5B22 

8E 

71 

11 

STX $1171 


5B25 

20 

06 

9E 

JSR $9E06 

Schrittweite auswerten und in (A)/(Y) 

5B28 

90 

OE 


BCC $5B38 

Wenn keine Angabe, Skip 

5B2A 

8C 

72 

11 

STY $1172 

Schrittweite setzen 

5B2D 

80 

73 

11 

STA $1173 


5B30 

00 

72 

11 

ORA $1172 

Schrittweite = 0 ? 

5B33 

DO 

03 


BNE $5B38 

Nein, Skip 

5B35 

4C 

28 

7D 

JMP $7028 

•ILLEGAL QUANTITY 1 


5B38 20 06 9E JSR $9E06 Anfangszeilennummer auswerten und in 

(A)/(Y) 

5B3B 90 2B BCC $5B68 Wenn keine Angabe, Skip 
5B3D 84 5C STY $5C Zei lennummer setzen 

5B3F 84 16 STY $16 

5B41 85 5D STA $5D 

5B43 85 17 STA $17 

5B45 20 64 50 JSR $5064 


Programmzeile suchen 
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5B48 

A5 

61 


LDA 

$61 

5B4A 

A6 

62 


LDX 

$62 

5B4C 

85 

5A 


STA 

$5A 

5B4E 

86 

5B 


STX 

$5B 

5B50 

AD 

70 

11 

LDA 

$1170 

5B53 

AE 

71 

11 

LDX 

$1171 

5B56 

85 

16 


STA 

$16 

5B58 

86 

17 


STX 

$17 

5B5A 

20 

64 

50 

JSR 

$5064 

5B5D 

38 



SEC 


5B5E 

A5 

61 


LDA 

$61 

5B60 

E5 

5A 


SBC 

$5A 

5B62 

A5 

62 


LDA 

$62 

5B64 

E5 

5B 


SBC 

$5B 

5B66 

90 

CD 


BCC 

$5835 

5B68 

20 

68 

50 

JSR 

$5D68 

5B6B 

20 

9C 

50 

JSR 

$5D9C 

5B6E 

C8 



INY 


5B6F 

20 

C9 

03 

JSR 

$03C9 

5B72 

F0 

3A 


BEQ 

$5BAE 

5B74 

C8 



INY 


5B75 

20 

C9 

03 

JSR 

$03C9 

5B78 

38 



SEC 


5B79 

E5 

5C 


SBC 

$5C 

5B7B 

C8 



INY 


5B7C 

20 

C9 

03 

JSR 

$03C9 

5B7F 

E5 

5D 


SBC 

$5D 

5B81 

B0 

07 


BCS 

$5B8A 

5B83 

20 

90 

5B 

JSR 

$5B9D 

5B86 

DO 

EC 


BNE 

$5874 

5B88 

F0 

24 


BEO 

$5BAE 

5B8A 

20 

90 

5B 

JSR 

$5B9D 

5B8D 

F0 

1F 


BEQ 

$5BAE 

5B8F 

20 

89 

50 

JSR 

$5D89 

5B92 

B0 

04 


BCS 

$5B98 

5B94 

C9 

F9 


CMP 

#$F9 

5B96 

90 

F2 


BCC 

$5B8A 

5B98 

A2 

26 


LDX 

#$26 

5B9A 

4C 

3C 

4D 

JMP 

$4D3C 


**************************** 


5B9D 

AO 

00 


LDY 

o 

o 

S 

5B9F 

20 

C9 

03 

JSR 

$03C9 

5BA2 

AA 



TAX 


5BA3 

C8 



INY 


5BA4 

20 

C9 

03 

JSR 

$03C9 


Adresse setzen 


Startzeilennummer setzen 


Programmzeile suchen 

Startadresse Startzeile 
kleiner als 

Startadresse Anfangszeile 
Ja, Fehler 

Zeiger auf Start setzen 
Ein Zeichen überlesen 

Linkadresse-High = 0 ? 

Ja, Skip 

Anfangszeile erreicht ? 


Ja, Skip 

PC auf Linkadresse setzen 

Wenn Programmende, Skip 

PC auf Linkadresse setzen 
Wenn Programmende, Skip 
Zeilennummer erhöhen 
Wenn zu groß, Fehler 

sonst Bereich weitertesten 
•LINE NUMBER TOO LARGE* 


* PC auf Linkadresse setzen 


Programmende ? 
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5BA7 

F0 

04 


BEQ 

$5BAD 

Ja, Skip 

5BA9 

86 

3D 


STX 

$3D 

PC neu setzen 

5BAB 

85 

3E 


STA 

$3E 


5 BAD 

60 



RTS 



ft***************************** 


5BAE 

A9 

01 


LDA 

#$01 

Flag auf Testen setzen 

5BB0 

85 

77 


STA 

$77 


5BB2 

AD 

10 

12 

LDA 

$1210 

Programmendezeiger setzen 

5BB5 

AE 

11 

12 

LDX 

$1211 


5BB8 

85 

3F 


STA 

$3F 


5BBA 

86 

40 


STX 

$40 


5BBC 

20 

FB 

5B 

JSR 

$5BFB 

RENUMBER auf Plausibilität prüfen 

5BBF 

C6 

77 


DEC 

$77 

Flag auf RENUMBER setzen 

5BC1 

20 

FB 

5B 

JSR 

$5BFB 

Programmtext renumerieren 

5BC4 

20 

99 

5D 

JSR 

$5D99 

Linkadresse lesen 

5BC7 

F0 

2F 


BEQ 

$5BF8 

Wenn Programmende, Skip 

5BC9 

20 

9C 

5D 

JSR 

$5D9C 

Zei lennummer-Low holen 

5BCC 

85 

16 


STA 

$16 

und setzen 

5BCE 

C8 



INY 



5BCF 

20 

C9 

03 

JSR 

$03C9 

Zei lennummer-High holen 

5BD2 

38 



SEC 


Aktuelle Zeile kleiner als 

5BD3 

E5 

5D 


SBC 

$5D 

Startzeile ? 

5BD5 

90 

19 


BCC 

$5BF0 

Ja, Skip 

5BD7 

DO 

06 


BNE 

$5BDF 

>, Skip 

5BD9 

A5 

16 


LDA 

$16 

Aktuelle Zeile kleiner als 

5BDB 

E5 

5C 


SBC 

$5C 

Startzeile ? 

5BDD 

90 

11 


BCC 

$5BF0 

Ja, Skip 

5BDF 

A5 

64 


LDA 

$64 

Zeile mit neuer Nummer 

5BE1 

91 

3D 


STA 

($3D),Y 

versehen 

5BE3 

88 



DEY 



5BE4 

A5 

65 


LDA 

$65 


5BE6 

91 

30 


STA 

($3D),Y 


5BE8 

20 

9C 

5D 

JSR 

$5D9C 

Zeile überlesen 

5BEB 

20 

80 

5D 

JSR 

$5D80 


5BEE 

FO 

D4 


BEQ 

$5BC4 

Unbedingter Sprung 

5BF0 

20 

9C 

5D 

JSR 

$5D9C 

Zeile überlesen 

5BF3 

20 

83 

5D 

JSR 

$5D83 


5BF6 

FO 

CC 


BEQ 

$5BC4 

Unbedingter Sprung 

5BF8 

4C 

E5 

5E 

JHP 

$5EE5 

Programmende neu setzen und 'READY 


****************************** 


5BFB 20 54 52 JSR $5254 PC auf Programmstart 
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5BFE 

20 

99 

5D 

JSR 

$5D99 

2 Zeichen lesen 

5C01 

DO 

03 


BNE 

$5C06 

Wenn Linkadresse High gesetzt, Skip 

5C03 

4C 

68 

5D 

JMP 

S5D68 

Zeiger auf Start, Ende 

5C06 

20 

9C 

5D 

JSR 

$5D9C 

Zeilennummer setzen 

5C09 

85 

4B 


STA 

$4B 


5C0B 

20 

9C 

5D 

JSR 

$5D9C 


5C0E 

85 

4C 


STA 

$4C 


5C10 

20 

9C 

5D 

JSR 

$5D9C 

Zeichen aus Programmtext holen 

5C13 

C9 

22 


CMP 

#$22 

1 II 1 ? 

5C15 

DO 

OB 


BNE 

$5C22 

Nein, Skip 

5C17 

20 

9C 

50 

JSR 

$5D9C 

Zeichen aus Programmtext holen 

5C1A 

FO 

E2 


BEQ 

$5BFE 

Wenn Zeilenende, nächste Zeile testen 

5C1C 

C9 

22 


CMP 

#$22 

2. "" erreicht ? 

5C1E 

DO 

F7 


BNE 

$5C17 

Nein, Zeichen überlesen 

5C20 

FO 

EE 


BEQ 

$5C 10 

Ja, Zeile weitertesten 

5C22 

AA 



TAX 


Zeilenende ? 

5C23 

FO 

D9 


BEQ 

$5BFE 

Ja, nächste Zeile testen 

5C25 

10 

E9 


BPL 

$5C10 

Wenn kein Token, überlesen 

5C27 

A2 

08 


LDX 

#$08 

Token in RENUMBER-Tabelle ? 

5C29 

DD 

EF 

5A 

CMP 

$5AEF,X 


5C2C 

FO 

28 


BEQ 

$5C56 

Ja, Skip 

5C2E 

CA 



DEX 



5C2F 

DO 

F8 


BNE 

$5C29 


5C31 

C9 

CB 


CMP 

#$CB 

Token für GO ? 

5C33 

DO 

OB 


BNE 

$5C40 

Nein, Skip 

5C35 

20 

80 

03 

JSR 

$0380 

Nächstes Zeichen Zeilenende ? 

5C38 

FO 

C4 


BEQ 

$5BFE 

Ja, nächste Zeile testen 
(Fehler, reagiert auch bei 1 !) 

5C3A 

C9 

A4 


CMP 

#$A4 

Token für TO ? 

5C3C 

FO 

18 


BEO 

$5C56 

Ja, Skip 

5C3E 

DO 

DO 


BNE 

$5C10 

Nein, überlesen 

5C40 

C9 

FE 


CMP 

#$FE 

Sondertoken 1 ? 

5C42 

DO 

CC 


BNE 

$5C10 

Nein, überlesen 

5C44 

20 

80 

03 

JSR 

$0380 

Nächstes Zeichen Trennzeichen ? 

5C47 

FO 

EC 


BEQ 

$5C35 

Ja, überlesen (Sinn sehr fragwürdig !) 

5C49 

C9 

17 


CMP 

#$17 

Token für COLLISION ? 

5C4B 

DO 

C3 


BNE 

$5C 10 


5C4D 

20 

80 

03 

JSR 

$0380 

Zeichen bis überlesen 

5C50 

FO 

E3 


BEQ 

$5C35 

Wenn Trennzeichen, weitertesten 

5C52 

C9 

2C 


CMP 

#$2C 

? 

5C54 

DO 

F7 


BNE 

$5C4D 

Nein, überlesen 

5C56 

A5 

3D 


LDA 

$3D 

PC retten 

5C58 

8D 

00 

12 

STA 

$1200 


5C5B 

A5 

3E 


LDA 

$3E 


5C50 

8D 

01 

12 

STA 

$1201 
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5C60 

20 

80 

03 

JSR 

$0380 

CHRGET 

5C63 

BO 

AE 


BCS 

S5C13 

Wenn keine Zahl, über lesen 

5C65 

20 

AO 

50 

JSR 

$50A0 

Zeilennummer einiesen 

5C68 

20 

19 

5D 

JSR 

$5D19 

Neue Zeilennummer berechnen 

5C6B 

AD 

00 

12 

LDA 

$1200 

PC wieder holen 

5C6E 

85 

3D 


STA 

$3D 


5C70 

AD 

01 

12 

LDA 

$1201 


5C73 

85 

3E 


STA 

$3E 


5C75 

20 

80 

03 

JSR 

$0380 

CHRGET Spaces überlesen 

5C78 

A5 

3D 


LDA 

$3D 

PC um 1 erniedrigen 

5C7A 

DO 

02 


BNE 

$5C7E 


5C7C 

C6 

3E 


DEC 

$3E 


5C7E 

C6 

3D 


DEC 

$3D 


5C80 

A2 

FF 


LDX 

#$FF 

Pufferoffset auf Start 

5C82 

A5 

77 


LDA 

$77 

Nummer jetzt eintragen ? 

5C84 

FO 

41 


BEO 

$5CC7 

Ja, Skip 

5C86 

20 

8F 

5C 

JSR 

$5C8F 

Speichergröße testen 

5C89 

C9 

2C 


CMP 

#$2C 

Nächstes Zeichen ? 

5C8B 

FO 

C9 


BEO 

$5C56 

Ja, weiter Zeilennummer verarbeiten 

5C8D 

DO 

84 


BNE 

$5C13 

Nein, weitertesten 


Speicher für Zeilennummern testen 

5C8F 

E8 



INX 



5C90 

BD 

01 

01 

LDA 

$0101,x 

Pufferende erreicht ? 

5C93 

FO 

1F 


BEQ 

$5CB4 

Ja, Skip 

5C95 

20 

80 

03 

JSR 

$0380 

Zeichen aus Programmtext eine Zahl ? 

5C98 

90 

F5 


BCC 

$5C8F 

Ja, weitertesten 

5C9A 

E6 

3F 


INC 

$3F 

Es muß ein Zeichen mehr in den 

5C9C 

DO 

02 


BNE 

$5CA0 

Programmtext übertragen werden 

5C9E 

E6 

40 


INC 

$40 


5 CAO 

38 



SEC 



5CA1 

A5 

3F 


LDA 

$3F 

Speicherende erreicht ? 

5CA3 

ED 

12 

12 

SBC 

$1212 


5CA6 

A5 

40 


LDA 

$40 


5CA8 

ED 

13 

12 

SBC 

$1213 


5CAB 

BO 

17 


BCS 

$5CC4 

Ja, Fehler 

5 CAD 

E8 



INX 



5CAE 

BD 

01 

01 

LDA 

$0101,X 

Pufferende jetzt erreicht ? 

5CB1 

DO 

E7 


BNE 

$5C9A 

Nein, noch ein Zeichen mehr 

5CB3 

60 



RTS 



5CB4 

20 

80 

03 

JSR 

$0380 

Nächstes Zeichen aus Programm eine Zahl ? 

5CB7 

BO 

OA 


BCS 

$5CC3 

Nein, Ende 

5CB9 

A5 

3F 


LDA 

$3F 

Es kann ein Zeichen aus dem Programm 

5CBB 

DO 

02 


BNE 

$5CBF 

gelöscht werden 

5CBD 

C6 

40 


DEC 

$40 


5CBF 

C6 

3F 


DEC 

$3F 




Das BASIC-ROM 


475 


5CC1 

90 

Fl 


BCC 

$5CB4 

Unbedingter Sprung, weitertesten 

5CC3 

60 



RTS 



5CC4 

4C 

3A 

4D 

JMP 

$4D3A 

■OUT OF MEMORY' 

****************************** 

Neue Zeilennummer eintragen 

5CC7 

E8 



INX 


Offset erhöhen 

5CC8 

BD 

01 

01 

LDA 

$0101,X 

Pufferende erreicht ? 

5CCB 

F0 

2C 


BEQ 

$5CF9 

Ja, Skip 

5CCD 

48 



PHA 


Zeichen retten 

5CCE 

20 

9C 

5D 

JSR 

$5D9C 

Zeichen aus Programmtext holen 

5CD1 

C9 

3A 


CMP 

#$3A 

Zeichen > '9' ? 

5CD3 

BO 

OC 


BCS 

$5CE1 

Ja, Skip 

5CD5 

C9 

20 


CMP 

#$20 

Space ? 

5CD7 

FO 

08 


BEQ 

$5CE1 

Ja, Skip 

5CD9 

38 



SEC 



5 CDA 

E9 

30 


SBC 

#$30 


5CDC 

38 



SEC 



5CDD 

E9 

DO 


SBC 

#$D0 

Zeichen < '0' ? 

5CDF 

90 

10 


BCC 

$5CF1 

Nein, Ziffer, überschreiben 

5CE1 

20 

A7 

5D 

JSR 

$5DA7 

Zeiger vorbesetzen 

5CE4 

E6 

60 


INC 

$6D 

Ein Zeichen im Programm einfügen 

5CE6 

20 

DF 

5D 

JSR 

$5DDF 


5CE9 

EE 

10 

12 

INC 

$1210 

Programmende korrigieren 

5CEC 

DO 

03 


BNE 

$5CF1 


5CEE 

EE 

11 

12 

INC 

$1211 


5CF1 

68 



PLA 


Ziffer aus Puffer holen 

5CF2 

AO 

00 


LDY 

#$00 


5CF4 

91 

3D 


STA 

($3D ), Y 

und in Programmtext eintragen 

5CF6 

E8 



INX 


Puffer 

5CF7 

DO 

CF 


BNE 

$5CC8 

wei terbearbeiten 

5CF9 

20 

80 

03 

JSR 

$0380 

Nächstes Zeichen noch eine Ziffer ? 

5CFC 

BO 

8B 


BCS 

$5C89 

Nein, ueitertesten 

5CFE 

20 

A7 

5D 

JSR 

$50A7 

Zeiger vorbesetzen 

5D01 

C6 

6D 


DEC 

$60 

Programm um ein Zeichen kürzen 

5D03 

20 

C6 

5D 

JSR 

$5DC6 


5D06 

AD 

10 

12 

LDA 

$1210 

Programmende korrigieren 

5D09 

DO 

03 


BNE 

$5D0E 


5D0B 

CE 

11 

12 

DEC 

$1211 


5D0E 

CE 

10 

12 

DEC 

$1210 


5D11 

20 

86 

03 

JSR 

$0386 

Noch eine Ziffer ? 

5D14 

90 

E8 


BCC 

$5CFE 

Ja, löschen 

5D16 

4C 

89 

5C 

JMP 

$5C89 

Ueitertesten 

****************************** 

Unterroutine für RENUMBER 

5D19 

20 

68 

5D 

JSR 

$5068 

Zeiger auf Start 

5D1C 

20 

99 

5D 

JSR 

$5D99 

Linkadresse lesen 



476 


128 Intern 


5D1F 

DO 

OD 


BNE 55D2E 

Wenn kein Programmende, Skip 

5D21 

A2 

27 


LDX #$27 

■UNRESOLVED REFERENCE' 

5D23 

A5 

4B 


LDA $4B 

Zeilennummer setzen 

5D25 

85 

3B 


STA $3B 


5D27 

A5 

4C 


LDA $4C 


5D29 

85 

3C 


STA $3C 


5D2B 

4C 

3C 

40 

JMP $4D3C 

Fehlerausgabe 

5D2E 

20 

9C 

5D 

JSR $5D9C 

Zeilennummer Low holen 

5D31 

85 

5A 


STA $5A 

und setzen 

5D33 

C5 

16 


CMP $16 

= Suchzeile ? 

5035 

DO 

27 


BNE $5D5E 

Nein, Skip 

5D37 

20 

9C 

5D 

JSR $5D9C 

Zeilennummer High holen 

5D3A 

85 

5B 


STA $5B 

und setzen 

5D3C 

C5 

17 


CMP $17 

= Suchzeile ? 

5D3E 

DO 

23 


BNE $5063 

Nein, Skip 

5040 

38 



SEC 

Suchzeile 

5041 

E5 

5D 


SBC $5D 

kleiner als Startzeile ? 

5D43 

90 

08 


BCC $5D4D 

Ja, Suchzeile setzen 

5D45 

DO 

OE 


BNE $5D55 

Falls > zur Umwandlung 

5D47 

A5 

16 


LDA $16 


5D49 

E5 

5C 


SBC $5C 


5D4B 

BO 

08 


BCS $5D55 

Falls >= zur Umwandlung 

5D4D 

A5 

16 


LDA $16 

Suchzeilennummer setzen 

5D4F 

85 

65 


STA $65 


5D51 

A5 

17 


LOA $17 


5053 

85 

64 


STA $64 


5D55 

A2 

90 


LDX #$90 


5D57 

38 



SEC 


5D58 

20 

75 

8C 

JSR $8C75 

Adresswert in FAC#1 

5D5B 

4C 

42 

8E 

JMP $8E42 

FAC#1 in ASCII ab $0100 

5D5E 

20 

9C 

5D 

JSR S5D9C 

Zeilennummer High lesen 

5061 

85 

5B 


STA $5B 

und setzen 

5D63 

20 

75 

5D 

JSR $5D75 

Falls nötig Zeilennummer erhöhen 

5066 

FO 

B4 


BEQ $5DlC 

Unbedingter Sprung 

****************************** 

Zeiger auf Startposition 

5D68 

AD 

70 

11 

LDA $1170 

Startzeilennummer setzen 

5D6B 

85 

65 


STA $65 


5060 

AD 

71 

11 

LDA $1171 


5D70 

85 

64 


STA $64 


5D72 

4C 

54 

52 

JMP $5254 

PC auf Programmstart 


****************************** Zeilenleseroutinen für RENUMBER 


5075 A5 5A 
5D77 38 


LDA $5A 
SEC 


Aktuelle Zeile 
kleiner als 
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5D78 

E5 

5C 


SBC $5C 

Startzeile ? 

5D7A 

A5 

5B 


LDA $5B 


5D7C 

E5 

5D 


SBC $5D 


5D7E 

90 

03 


BCC S5D83 

Ja, Skip 

5D80 

20 

89 

5D 

JSR $5089 

Zei lennummer erhöhen 

5D83 

20 

9C 

5D 

JSR $5D9C 

Zeilenende erreicht ? 

5D86 

DO 

FB 


BNE $5083 

Nein, weitersuchen 

5D88 

60 



RTS 


****************************** 

Zei lennuinner um Schrittweite erhöhen 

5D89 

A5 

65 


LDA $65 

Aktuelle neue Nummer 

5D88 

18 



CLC 


5D8C 

6D 

72 

11 

ADC $1172 

+ Schrittweite 

5D8F 

85 

65 


STA $65 


5D91 

A5 

64 


LDA $64 


5D93 

60 

73 

11 

ADC $1173 


5D96 

85 

64 


STA $64 


5D98 

60 



RTS 


****************************** 

2.Zeichen aus Programmtext holen 

5099 

20 

9C 

5D 

JSR S5D9C 

1 Zeichen überlesen 

5D9C 

A0 

00 


LOY #$00 

GETCHR aus Programmtext ohne 

509E 

E6 

3D 


INC $3D 

Untersuchung des Zeichens 

5DA0 

DO 

02 


BNE $5DA4 


5DA2 

E6 

3E 


INC $3E 


5DA4 

4C 

C9 

03 

JMP $03C9 


****************************** 

Zeiger vorbesetzen für Move 

5DA7 

A5 

3D 


LDA $3D 

($24) auf PC 

50A9 

85 

24 


STA $24 


5DA8 

A5 

3E 


LDA $3E 


5DAD 

85 

25 


STA $25 


5DAF 

AD 

10 

12 

LDA $1210 

($26) auf Programmende 

5DB2 

85 

26 


STA $26 


5DB4 

AD 

11 

12 

LDA $1211 


5DB7 

85 

27 


STA $27 


5DB9 

AO 

00 


LDY #$00 

Offsets löschen 

5DBB 

84 

OD 


STY $0D 


5DB0 

84 

60 


STY $60 


5DBF 

60 



RTS 


****************************** 

MOVEDOWN Bank 0, Einsprung $5DC6 

5DC0 

E6 

24 


INC $24 

Movepointer erhöhen 

5DC2 

DO 

02 


BNE $50C6 
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5DC4 

E6 25 

INC $25 


5DC6 

A4 OD 

LDY $00 

Offset 1 laden 

5DC8 

C8 

INY 


5DC9 

20 05 43 

JSR $4305 

Zeichen aus Bank 0 holen 

5DCC 

A4 60 

LDY $60 

Offset 2 laden 

5DCE 

C8 

INY 


5DCF 

91 24 

STA ($24),Y 

Zeichen in Bank 1 schreiben 

5DD1 

20 EE 5D 

JSR $5DEE 

Ende ? 

5DD4 

DO EA 

BNE $5DC0 

Nein, weitermachen 

5DD6 

60 

RTS 


****************************** 

MOVEUP Bank 1, Einsprung $5DDF 

5DD7 

A5 26 

LOA $26 

Movepointer erniedrigen 

5DD9 

DO 02 

BNE $5DDD 


5DD8 

C6 27 

DEC $27 


5DDD 

C6 26 

DEC $26 


5DDF 

A4 00 

LDY $0D 

Offset 1 laden 

5DE1 

20 CO 03 

JSR $03C0 

Zeichen aus Bank 0 holen 

5DE4 

A4 60 

LDY $6D 

Offset 2 laden 

5DE6 

91 26 

STA ($26),Y 

Zeichen in Bank 0 speichern 

5DE8 

20 EE 5D 

JSR $5DEE 

Ende ? 

5DEB 

DO EA 

BNE $5DD7 

Nein, weitermachen 

5DED 

60 

RTS 


****************************** 

Test auf ($24)=($26) 

5DEE 

A5 24 

LDA $24 


50 FO 

C5 26 

CMP $26 


5DF2 

DO 04 

BNE $5DF8 


5DF4 

A5 25 

LDA $25 


5DF6 

C5 27 

CMP $27 


50 F 8 

60 

RTS 


****************************** 

BASIC-Befehl FOR 

5DF9 

A9 80 

LDA #$80 

Integerwerte sperren 

5DFB 

85 12 

STA $12 


5DFD 

20 C6 53 

JSR $53C6 

FOR-Variable durch LET vorbesetzen 

5EOO 

A9 81 

LDA #$81 

Token für FOR 

5E02 

20 AA 4F 

JSR $4FAA 

in BASIC-Stack ? 

5E05 

FO 08 

BEQ $5E0F 

Ja, Skip 

5E07 

A9 12 

LDA #$12 

Platz im Stack reservieren 

5E09 

20 FE 4F 

JSR $4FFE 


5E0C 

20 47 50 

JSR $5047 

BASIC-Stackpointer in Hilfszeiger 

5E0F 

20 50 50 

JSR $5050 

Hilfszeiger in BASIC-Stackpointer 
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5E12 

20 

A2 52 

JSR 

$52A2 

5E15 

98 


TYA 


5E16 

A0 

11 

LDY 

#$11 

5E18 

18 


CLC 


5E19 

65 

3D 

ADC 

$3D 

5E1B 

91 

7D 

STA 

($7D),Y 

5E1D 

A5 

3E 

LDA 

S3E 

5E1F 

69 

00 

AOC 

#$00 

5E21 

88 


DEY 


5E22 

91 

7D 

STA 

($7D),Y 

5E24 

A5 

3C 

LDA 

$3C 

5E26 

88 


DEY 


5E27 

91 

70 

STA 

($7D).Y 

5E29 

A5 

3B 

LDA 

$3B 

5E2B 

88 


DEY 


5E2C 

91 

7D 

STA 

($7D),Y 

5E2E 

A9 

A4 

LDA 

#$A4 

5E30 

20 

5E 79 

JSR 

$795E 

5E33 

20 

DA 77 

JSR 

$77DA 

5E36 

20 

D7 77 

JSR 

$77D7 

5E39 

A5 

68 

LDA 

$68 

5E3B 

09 

7F 

ORA 

#$7F 

5E3D 

25 

64 

AND 

$64 

5E3F 

85 

64 

STA 

$64 

5E41 

A2 

04 

LDX 

#$04 

5E43 

A0 

00 

LDY 

#$0D 

5E45 

B5 

63 

LDA 

$63,X 

5E47 

91 

7D 

STA 

($7D), Y 

5E49 

CA 


DEX 


5E4A 

88 


DEY 


5E4B 

10 

F8 

BPL 

$5E45 

5E4D 

A9 

9C 

LDA 

#$9C 

5E4F 

AO 

89 

LDY 

#$89 

5E51 

20 

D4 8B 

JSR 

$8BD4 

5E54 

20 

86 03 

JSR 

$0386 

5E57 

C9 

A9 

CMP 

#$A9 

5E59 

DO 

06 

BNE 

$5E61 

5E5B 

20 

80 03 

JSR 

$0380 

5E5E 

20 

07 77 

JSR 

$77D7 

5E61 

20 

57 8C 

JSR 

$8C57 

5E64 

48 


PHA 


5E65 

20 

47 8C 

JSR 

$8C47 

5E68 

68 


PLA 


5E69 

A0 

08 

LDY 

#$08 

5E6B 

A2 

05 

LDX 

#$05 

5E6D 

91 

7D 

STA 

($7D),Y 

5E6F 

B5 

62 

LDA 

$62, X 

5E71 

88 


DEY 



Nächstes Trennzeichen suchen 


PC in BASIC-Stack 


Zeilennummer in BASIC-Stack 


Token für TO 
Prüft auf Code 

Prüft auf numerische Variable 
Ausdruck in FAC#1 


Schleifenendwert auf BASIC-Stack 


Zeiger auf Konstante 1 

als STEP-Uert in FAC#1 
CHRGOT 

= Token für STEP ? 

Nein, Skip 
CHRGET 

Ausdruck in FAC#1 
Vorzeichen von FAC#1 holen 
und retten 
FAC#1 runden 
Vorzeichen wieder holen 
STEP-Uert auf BASIC-Stack 
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5E72 

CA 



DEX 


5E73 

10 

F8 


BPL 

$5E6D 

5E75 

A5 

4C 


LDA 

$4C 

5E77 

91 

7D 


STA 

($7D),Y 

5E79 

A5 

4B 


LDA 

$4B 

5E7B 

88 



DEY 


5E7C 

91 

7D 


STA 

($7D),Y 

5E7E 

A9 

81 


LDA 

#$81 

5E80 

88 



DEY 


5E81 

91 

7D 


STA 

($7D),Y 

5E83 

60 



RTS 


5E84 

4C 

6C 

79 

JMP 

$796C 

****************************** 

5E87 

20 

F0 

84 

JSR 

$84 F0 

5E8A 

20 

86 

03 

JSR 

$0386 

5E8D 

F0 

F5 


BEO 

$5E84 

5E8F 

20 

FB 

5E 

JSR 

</> 

Ul 

m 

u 

03 

5E92 

A5 

61 


LDA 

$61 

5E94 

A6 

62 


LDX 

$62 

5E96 

85 

26 


STA 

$26 

5E98 

86 

27 


STX 

$27 

5E9A 

20 

64 

50 

JSR 

$5064 

5E9D 

90 

15 


BCC 

$5EB4 

5E9F 

A0 

01 


LDY 

#$01 

5EA1 

20 

EC 

42 

JSR 

$42EC 

5EA4 

88 



DEY 


5EA5 

AA 



TAX 


5EA6 

DO 

05 


BNE 

$5EAD 

5EA8 

20 

EC 

42 

JSR 

$42EC 

5EAB 

F0 

07 


BEO 

$5EB4 

5EAD 

20 

LC 

42 

JSR 

$42EC 

5EB0 

85 

61 


STA 

$61 

5EB2 

86 

62 


STX 

$62 

5EB4 

A5 

26 


LDA 

$26 

5EB6 

38 



SEC 


5EB7 

E5 

61 


SBC 

$61 

5EB9 

AA 



TAX 


5EBA 

A5 

27 


LDA 

$27 

5EBC 

E5 

62 


SBC 

$62 

5EBE 

A8 



TAY 


5EBF 

B0 

24 


BCS 

$5EE5 

5EC1 

8A 



TXA 


5EC2 

18 



CLC 


5EC3 

60 

10 

12 

ADC 

$1210 

5EC6 

8D 

10 

12 

STA 

$1210 


Variablenadresse auf BASIC-Stack 


FOR-Token auf BASIC-Stack 


■SYNTAX 1 

BASIC-Befehl DELETE 

Test auf Programm-Modus 
letztes Zeichen = Trennzeichen ? 
Ja, Skip 

Zeilenbereich lesen 
Startzeilenadresse vorbesetzen 


Zeile suchen 

Wenn nicht gefunden, Skip 
Linkadresse High laden 


Programmende ? 

Nein, Skip 

Linkadresse Low laden 
Wenn Programmende, Skip 
Linkadresse Low laden 
Adresse neu setzen 

Löschung erforderlich ? 


Nein, Skip 

Programmende korrigieren 
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5EC9 

98 



TYA 



5ECA 

6D 

11 

12 

ADC 

$1211 


5ECD 

80 

11 

12 

STA 

$1211 


5ED0 

AO 

00 


LDY 

#$00 

Programmtext blockweise verschieben 

5ED2 

20 

EC 

42 

JSR 

$42EC 


5ED5 

91 

26 


STA 

($26),Y 


5ED7 

C8 



I NY 



5ED8 

DO 

F8 


BNE 

$5ED2 


5EDA 

E6 

62 


INC 

$62 


5EDC 

E6 

27 


INC 

$27 


5EDE 

AD 

11 

12 

LDA 

$1211 


5EE1 

C5 

27 


CMP 

$27 


5EE3 

BO 

ED 


BCS 

$5ED2 


5EE5 

20 

4F 

4F 

JSR 

$4F4F 

Verkettung korrigieren 

5EE8 

A5 

24 


LDA 

$24 

Programmende neu setzen 

5EEA 

A6 

25 


LDX 

$25 


5EEC 

18 



CLC 



5EED 

69 

02 


ADC 

#$02 


5EEF 

8D 

10 

12 

STA 

$1210 


5EF2 

90 

01 


BCC 

$5EF5 


5EF4 

E8 



INX 



5EF5 

8E 

11 

12 

STX 

$1211 


5EF8 

4C 

37 

4D 

JMP 

$4D37 

•READY.' 


Zeilenbereich lesen 

5EFB 

FO 

12 


BEO 

$5F0F 

Wenn Trennzeichen, Skip 

5EFD 

90 

10 


BCC 

$5F0F 

Wenn Zahl, Skip 

5EFF 

C9 

AB 


CMP 

#$AB 

Token für 1 - 1 ? 

5F01 

DO 

OC 


BNE 

$5 FO F 

Nein, Skip 

5F03 

AO 

01 


LDY 

#$01 


5F05 

20 

C9 

03 

JSR 

$03C9 

Folgendes Zeichen = Trennzeichen ? 

5F08 

FO 

27 


BEQ 

$5 F31 

Ja, Fehler 

5F0A 

C9 

3A 


CMP 

#$3A 

? 

5F0C 

FO 

23 


BEQ 

$5F31 

Ja, Fehler 

5F0E 

38 



SEC 



5F0F 

20 

AO 

50 

JSR 

$50A0 

Zeilennummer lesen 

5F12 

20 

64 

50 

JSR 

$5064 

Zeile suchen 

5F15 

20 

86 

03 

JSR 

$0386 

Momentanes Zeichen = Trennzeichen ? 

5F18 

FO 

OC 


BEQ 

$5F26 

Ja, Skip 

5F1A 

C9 

AB 


CMP 

#$A8 

= i.i ? 

5F1C 

DO 

13 


BNE 

$5F31 

Nein, Fehler 

5F1E 

20 

80 

03 

JSR 

$0380 

CHRGET 

5F21 

20 

AO 

50 

JSR 

$50A0 

Zeilennummer holen 

5F24 

DO 

OB 


BNE 

$5F31 

Wenn Fehler, Skip 

5F26 

A5 

OA 


LDA 

$0A 

Zeilennummer gelesen 

5F28 

DO 

06 


BNE 

$5F30 

Ja, Skip 

5F2A 

A9 

FF 


LDA 

#$FF 

Zeilennummer auf Maximalwert 
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5F2C 

in 

CO 

16 

STA $16 


5F2E 

85 

17 

STA $17 


5F30 

60 


RTS 


5F31 

4C 

6C 79 

JMP $796C 

■SYNTAX' 

****************************** 

BASIC-Befehl PUDEF 

5F34 

20 

7B 87 

JSR $877B 

FRMEVL + FRESTR 

5F37 

A8 


TAY 

Länge in (Y) 

5F38 

88 


DEY 


5F39 

CO 

04 

CPY #$04 

Länge > 4 ? 

5F3B 

90 

03 

BCC $5F40 

Nein, Skip 

5F3D 

4C 

28 7D 

JMP $7D28 

■ILLEGAL QUANTITY' 

5F40 

20 

B7 03 

JSR $03B7 

Zeichen holen 

5F43 

8D 

03 FF 

STA $FF03 

Urite in Bank 0 setzen 

5F46 

99 

04 12 

STA $1204,Y 

Stringwerte in PRINT USING Tabelle 

5F49 

88 


DEY 

übertragen 

5F4A 

10 

F4 

BPL $5F40 


5F4C 

60 


RTS 


****************************** 

BASIC-Befehl TRAP 

5F40 

20 

D9 84 

JSR $84D9 

Test auf Direktmodus 

5F50 

20 

86 03 

JSR $0386 

CHRGOT 

5F53 

F0 

07 

BEQ $5F5C 

Wenn Trennzeichen, Skip 

5F55 

20 

12 88 

JSR $8812 

TRAP-Nummer holen 

5F58 

8C 

OB 12 

STY $120B 

und setzen 

5F5B 

2C 


.BYTE $2C 


5F5C 

A9 

FF 

LDA #$F F 

TRAP-Nummer auf ungültig 

5F5E 

80 

OC 12 

STA $120C 


5F61 

60 


RTS 


****************************** 

BASIC-Befehl RESUME 

5F62 

20 

D9 84 

JSR $84D9 

Test auf Direktmodus 

5F65 

AE 

OA 12 

LDX $120A 

Fehler aufgetreten ? 

5F68 

E8 


INX 


5F69 

FO 

70 

BEQ $5FDB 

Nein, 'CAN•T RESUME' 

5F6B 

20 

86 03 

JSR $0386 

Nächstes Zeichen Trennzeichen ? 

5F6E 

FO 

47 

BEQ $5FB7 —«Ja, Skip 

5F70 

90 

3A 

BCC $5FAC 

Wenn Zahl, Skip 

5F72 

C9 

82 

CMP #$82 

Token für NEXT ? 

5F74 

DO 

62 

BNE $5FD8 

Nein, Fehler 

5F76 

20 

B7 5F 

JSR $5FB7 

TRAP-Daten in Uorkbereich übertragen 

5F79 

AO 

00 

LDY #$00 


5F7B 

20 

C9 03 

JSR $03C9 

Zeilenende ? 

5F7E 

DO 

26 

BNE $5FA6 

Nein, Skip 

5F80 

C8 


INY 
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5F81 

20 

C9 

03 

JSR $03C9 

Programmende ? 

5F84 

DO 

09 


BNE $5F8F 

Nein, Skip 

5F86 

C8 



INY 


5F87 

20 

C9 

03 

JSR $03C9 


5F8A 

DO 

03 


BNE $5F8F 

Nein, Skip 

5F8C 

4C 

37 

4D 

JMP S4D37 

■READY.' 

5F8F 

A0 

03 


LDY (»03 


5F91 

20 

C9 

03 

JSR $03C9 

Neue Zeilennummer setzen 

5F94 

85 

3B 


STA $3B 


5F96 

C8 



INY 


5F97 

20 

C9 

03 

JSR $03C9 


5F9A 

85 

3C 


STA $3C 


5F9C 

98 



TYA 


5F9D 

18 



CLC 


5F9E 

65 

3D 


ADC $3D 

PC korrigieren 

5FA0 

85 

3D 


STA $3D 


5FA2 

90 

02 


BCC $5FA6 


5FA4 

E6 

3E 


INC $3E 


5FA6 

20 

80 

03 

JSR $0380 

CHRGET 

5FA9 

4C 

8F 

52 

JMP $528F 

DATA-Befehl 

5FAC 

20 

12 

88 

JSR $8812 

Adresse auswerten 

5FAF 

85 

17 


STA $17 

setzen 

5FB1 

20 

C6 

5F 

JSR $5FC6 

TRAP-Daten löschen 

5FB4 

4C 

FB 

59 

JMP $59FB 

und GOTO 


****************************** TRAP-Daten in Workdaten übertragen 

und TRAP-Daten löschen 


5FB7 

A2 

01 


LDX #$01 


5FB9 

BD 

09 

12 

LDA $1209,X 

Zeilennummer setzen 

5FBC 

95 

3B 


STA $3B,X 


5FBE 

BD 

OE 

12 

LDA $120E,X 

PC setzen 

5FC1 

95 

3D 


STA $3D,X 


5FC3 

CA 



DEX 


5FC4 

10 

F3 


BPL $5FB9 


5FC6 

A2 

FF 


LDX #$FF 

TRAP-Daten löschen 

5FC8 

8E 

08 

12 

STX $1208 


5FCB 

8E 

09 

12 

STX $1209 


5FCE 

8E 

OA 

12 

STX $120A 


5 FD 1 

AE 

OD 

12 

LDX $1200 


5FD4 

8E 

oc 

12 

STX $120C 


5FD7 

60 



RTS 


5FD8 

4C 

6C 

79 

JMP $796C 

■SYNTAX' 

5FDB 

A2 

1F 


LDX #$1F 

■CAN'T RESUME' 
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5FDD 

4C 

3C 

4D 

JHP 

$4D3C 


****★***★★★★★★★★★*★★*★★★**★*★* 

BASIC-Befehl DO 

5FE0 

A0 

01 


LDY 

#$01 

Workdaten in Zwischenspeicher übertragen 

5FE2 

B9 

3D 

00 

LDA 

$003D,Y 


5FE5 

99 

14 

12 

STA 

$1214,Y 


5FE8 

B9 

3B 

00 

LDA 

$003B,Y 


5FEB 

99 

16 

12 

STA 

$1216,Y 


5FEE 

88 



DEY 



5FEF 

10 

Fl 


BPL 

$5FE2 


5FF1 

20 

86 

03 

JSR 

$0386 

Aktuelles Zeichen Trennzeichen ? 

5FF4 

FO 

IC 


BEQ 

$6012 

Ja, Skip 

5FF6 

C9 

FC 


CMP 

#$FC 

Token für UNTIL 

5FF8 

FO 

11 


BEQ 

$60 OB 

Ja, Skip 

5FFA 

C9 

FD 


CMP 

#$FD 

Token für UH ILE 

5FFC 

DO 

43 


BNE 

$6041 

Nein, Fehler 

5FFE 

20 

DB 

60 

JSR 

$60DB 

Logischen Ausdruck auswerten 

6001 

A5 

63 


LDA 

$63 

Ausdruck falsch ? 

6003 

DO 

OD 


BNE 

$6012 

Nein, Skip 

6005 

20 

86 

03 

JSR 

$0386 

CHRGOT 

6008 

4C 

47 

60 

JMP 

$6047 

Schleife überlesen 

600B 

20 

DB 

60 

JSR 

$60DB 

Logischen Ausdruck auswerten 

600E 

A5 

63 


LDA 

$63 

Ausdruck wahr ? 

6010 

DO 

F3 


BNE 

$6005 

Nein, Schleife überlesen 

6012 

A9 

05 


LDA 

#$05 

5 Bytes in BASIC-Stack reservieren 

6014 

20 

FE 

4F 

JSR 

$4FFE 


6017 

8D 

03 

FF 

STA 

$FF03 

Urite in Bank 0 setzen 

601A 

AO 

04 


LDY 

#$04 


601C 

AD 

15 

12 

LDA 

$1215 

Zei lennummer auf Stapel 

601F 

91 

7D 


STA 

($7D),Y 


6021 

88 



DEY 



6022 

AD 

14 

12 

LDA 

$1214 


6025 

91 

7D 


STA 

<$7D),Y 


6027 

88 



DEY 



6028 

AD 

17 

12 

LDA 

$1217 

PC auf Stapel 

602B 

91 

7D 


STA 

($7D), Y 


602D 

88 



DEY 



602E 

AD 

16 

12 

LDA 

$1216 


6031 

91 

7D 


STA 

($7D), Y 


6033 

88 



DEY 



6034 

A9 

EB 


LDA 

#$EB 

Token für DO auf Stapel 

6036 

91 

7D 


STA 

($7D),Y 


6038 

60 



RTS 
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****************************** BASIC-Befehl EXIT 


6039 

20 

9B 

60 

JSR 

$609B 

LOOP-Werte vom Stapel holen 

603C 

20 

86 

03 

JSR 

$0386 

CHRGOT 

603 F 

F0 

06 


BEO 

$6047 

Wenn Trennzeichen, Schleife überlesen 

6041 

4C 

6C 

79 

JMP 

$796C 

■SYNTAX 1 

6044 

20 

80 

03 

JSR 

$0380 

CHRGET 

6047 

FO 

17 


BEQ 

$6060 

Wenn Trennzeichen, Skip 

6049 

C9 

EC 


CMP 

#$EC 

Token für LOOP ? 

604B 

FO 

3A 


BEO 

$6087 

Ja, Skip 

604D 

C9 

22 


CMP 

#$22 

1 II 1 ? 

604 F 

FO 

OA 


BEQ 

$605B 

Ja, Skip 

6051 

C9 

EB 


CMP 

#$EB 

Token für DO ? 

6053 

DO 

EF 


BNE 

$6044 

Nein, weiterlesen 

6055 

20 

44 

60 

JSR 

$6044 

Rekursiver Aufruf 

6058 

4C 

05 

60 

JMP 

$6005 

Weiter überlesen 

605B 

20 

7C 

53 

JSR 

$537C 

Text in "■' über lesen 

605 E 

DO 

E4 


BNE 

$6044 

Wenn kein Trennzeichen, weiter überlesen 

6060 

C9 

3A 


CMP 

#$3A 

? 

6062 

FO 

EO 


BEQ 

$6044 

Ja, überlesen 

6064 

24 

7F 


BIT 

$7F 

Direktmodus ? 

6066 

10 

42 


BPL 

$60AA 

Ja, Skip 

6068 

AO 

02 


LDY 

#$02 


606A 

20 

C9 

03 

JSR 

$03C9 

Programmende ? 

6060 

FO 

3B 


BEO 

$60AA 

Ja, Skip 

606 F 

C8 



INY 



6070 

20 

C9 

03 

JSR 

$03C9 

Neue Zeilennummer setzen 

6073 

85 

3B 


STA 

$3B 


6075 

C8 



INY 



6076 

20 

C9 

03 

JSR 

$03C9 


6079 

85 

3C 


STA 

$3C 


607B 

98 



TYA 



6C7C 

18 



CLC 



6070 

65 

.0 


ADC 

$3D 

PC korrigieren 

607F 

85 

3D 


STA 

$3D 


6C81 

90 

CI 


BCC 

$6044 

Weiter über lesen 

6Uoj 

E6 

3E 


INC 

$3E 


6085 

DO 

BD 


BNE 

$6044 

Weiter überlesen 

6087 

4C 

8F 

52 

JMP 

$528F 

DATA-Befehl 

***** ************ ************* 

BASIC-Befehl LOOP 

608A 

FO 

35 


BEQ 

$60C1 

Wenn Trennzeichen, Skip 

608C 

C9 

FD 


CMP 

#$FD 

Token für WH ILE ? 

608E 

FO 

2C 


BEQ 

$60BC 

Ja, Skip 

6090 

C9 

FC 


CMP 

#$FC 

Token für UNTIL 
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6092 

DO 

AD 


BNE 

$6041 

6094 

20 

DB 

60 

JSR 

$60DB 

6097 

A5 

63 


LDA 

$63 

6099 

F0 

26 


BEQ 

$60C1 

****************************** 

609B 

A9 

EB 


LDA 

#$EB 

609D 

20 

AA 

4F 

JSR 

$4 FAA 

60A0 

DO 

15 


BNE 

$60B7 

60A2 

20 

50 

50 

JSR 

$5050 

60A5 

A0 

05 


LDY 

#$05 

60A7 

4C 

59 

50 

JMP 

$5059 

60AA 

AD 

16 

12 

LDA 

$1216 

60AD 

AE 

17 

12 

LDX 

$1217 

60B0 

85 

3B 


STA 

$3B 

60B2 

86 

3C 


STX 

$3C 

60B4 

A2 

20 


LDX 

#$20 

60B6 

2C 



.BYTE S2C 

60B7 

A2 

21 


LDX 

#$21 

60B9 

4C 

3C 

4D 

JMP 

$4D3C 

60BC 

20 

DB 

60 

JSR 

$60DB 

60BF 

F0 

DA 


BEO 

$609B 

60C1 

20 

9B 

60 

JSR 

$609B 

60C4 

88 



DEY 


60C5 

Bl 

3F 


LDA 

($3F),Y 

60C7 

85 

3E 


STA 

$3E 

60C9 

88 



DEY 


60CA 

Bl 

3F 


LDA 

($3F),Y 

60CC 

85 

30 


STA 

$3D 

60CE 

88 



DEY 


60CF 

Bl 

3F 


LDA 

($3F),Y 

60D1 

20 

3B 

A8 

JSR 

$A83B 

60D4 

Bl 

3F 


LDA 

($3F),Y 

60D6 

85 

3B 


STA 

$3B 

60D8 

4C 

Eü 

5F 

JMP 

$5FE0 

****************************** 

60DB 

20 

80 

03 

JSR 

$0380 

60DE 

4C 

EF 

77 

JMP 

$77EF 


Nein, Fehler 

Logischen Ausdruck auswerten 
Ausdruck gleich 0 (false) ? 

Ja, Skip 

LOOP-Daten vom BASIC-Stack löschen 

Token für DO 
im BASIC-Stack suchen 
Wenn nicht gefunden, Fehler 
Stackpointer setzen 
BASIC-Stack um 5 Bytes leeren 


Aktuelle Uerte in Zeilennummer 


•LOOP NOT FOUND' 
'LOOP UITHOUT DO' 


Logischen Ausdruck auswerten 
Wenn Ausdruck falsch, LOOP beenden 
LOOP-Daten vom Stapel holen 

PC vom Stapel holen 


Zeilennummer vom Stapel holen 


DO aufrufen 

Logischen Ausdruck auswerten 
CHRGET 

FRMEVL Ausdruck auswerten 


****************************** ßASIC-Routine KEY-Definition 


60E1 20 F4 87 JSR $87F4 

60E4 CA DEX 


Byte-Uert holen 
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60E5 

E0 

08 


CPX 

00 

o 

£ 


> 8 ? 

60E7 

90 

03 


BCC 

$60EC 


Nein, Skip 

60E9 

4C 

28 

7D 

JMP 

S7D28 


■ILLEGAL QUANTITY• 

60EC 

86 

77 


STX 

$77 


Tastennummer setzen 

60EE 

20 

5C 

79 

JSR 

S795C 


Test auf Komma 

60 Fl 

20 

7B 

87 

JSR 

S877B 


FRMEVL + FRESTR 

60F4 

A8 



TAY 



Länge setzen 

60F5 

A9 

01 


LDA 

#$01 



60 F 7 

85 

26 


STA 

$26 



60F9 

A9 

24 


LDA 

#$24 



60 FB 

A6 

77 


LDX 

$77 



60FD 

E8 



I NX 




60FE 

20 

45 

A8 

JSR 

$A845 


ROMs einschalten 

6101 

20 

65 

FF 

JSR 

$FF65 


Funktionstaste definieren 

6104 

BO 

01 


BCS 

$6107 


Wenn Fehler, Skip 

6106 

60 



RTS 




6107 

4C 

3A 

4D 

JMP 

$4D3A 


Fehler ausgeben 

****************************** 

BASIC-Befehl KEY 

610A 

FO 

15 


BEQ 

$6121 


Wenn Trennzeichen, Skip 

610C 

C9 

91 


CMP 

#$91 


Token für ON ? 

610E 

FO 

OE 


BEQ 

$61 IE 


Ja, Skip 

6110 

C9 

FE 


CMP 

#$FE 


Sondertoken 1 ? 

6112 

DO 

CD 


BNE 

$60E1 


Nein, Skip 

6114 

20 

80 

03 

JSR 

$0380 


CHRGET 

6117 

C9 

24 


CMP 

#$24 


Token für OFF ? 

6119 

FO 

03 


BEQ 

$61 IE 


Ja, Skip 

611B 

4C 

6C 

79 

JMP 

$796C 


■SYNTAX' 

61 IE 

4C 

46 

48 

JMP 

$4846 


•UNIMPLEMENTED COMMAND' 

6121 

A2 

00 


LDX 

#$00 


KEY-Nummer auf 0 

6123 

AO 

00 


LDY 

#$00 



6125 

E8 



INX 




6126 

BD 

FF 

OF 

LDA 

$0FFF, 

X 

Länge des Strings = 0 ? 

6129 

FO 

53 


BEQ 

$617E 


Ja, Skip 

612B 

85 

78 


STA 

$78 


Länge setzen 

612D 

86 

77 


STX 

$77 


Nummer setzen 

612F 

A2 

05 


LDX 

#$05 


•KEY nr,‘ ausgeben 

6131 

BD 

2A 

A8 

LDA 

$A82A, 

X 


6134 

CA 



DEX 




6135 

DO 

02 


BNE 

$6139 



6137 

05 

77 


ORA 

$77 


Nummer setzen 

6139 

20 

69 

92 

JSR 

$9269 


Zeichen ausgeben 

613C 

8A 



TXA 



Ende erreicht ? 

613D 

10 

F2 


BPL 

$6131 


Nein, weiter ausgeben 

613F 

A2 

07 


LDX 

#$07 



6141 

B9 

OA 

10 

LDA 

$100A, 

Y 

Zeichen aus String holen 

6144 

C8 



I NY 
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6145 

48 



PHA 


6146 

86 

79 


STX 

$79 

6148 

A2 

04 


LDX 

#$04 

614A 

DD 

A3 

61 

CMP 

$61A3,X 

614D 

F0 

34 


BEQ 

$6183 

614F 

CA 



DEX 


6150 

DO 

F8 


BNE 

$614A 

6152 

A6 

79 


LDX 

$79 

6154 

E0 

08 


CPX 

#$08 

6156 

90 

07 


BCC 

$615 F 

6158 

DO 

0A 


BNE 

$6164 

615A 

A9 

2B 


LDA 

#$2B 

615C 

20 

69 

92 

JSR 

$9269 

615F 

A9 

22 


LDA 

#$22 

6161 

20 

69 

92 

JSR 

$9269 

6164 

68 



PLA 


6165 

20 

69 

92 

JSR 

$9269 

6168 

A2 

09 


LDX 

#$09 

616A 

C6 

78 


DEC 

$78 

616C 

DO 

D3 


BNE 

$6141 

616E 

E0 

09 


CPX 

#$09 

6170 

90 

05 


BCC 

$6177 

6172 

A9 

22 


LDA 

#$22 

6174 

20 

69 

92 

JSR 

$9269 

6177 

A9 

80 


LDA 

#$8D 

6179 

20 

69 

92 

JSR 

$9269 

617C 

A6 

77 


LDX 

$77 

617E 

E0 

08 


CPX 

#$08 

6180 

DO 

A3 


BNE 

$6125 

6182 

60 



RTS 


6183 

A6 

79 


LDX 

$79 

6185 

BD 

9A 

61 

LDA 

$619A,X 

6188 

20 

69 

92 

JSR 

$9269 

618B 

CA 



DEX 


618C 

E0 

03 


CPX 

#$03 

618E 

B0 

F5 


BCS 

$6185 

6190 

68 



PLA 


6191 

20 

30 

A8 

JSR 

$A830 

6194 

A9 

29 


LDA 

#$29 

6196 

20 

69 

92 

JSR 

$9269 

6199 

A2 

08 


LDX 

#$08 

619B 

DO 

CD 


BNE 

$616A 


und retten 


Spezialzeichen ? 
Ja, Skip 


Funktionsstringnummer 
schon 8 ? 

Nein, Skip 
Wenn > 8, Skip 
'+' ausgeben 

"" ausgeben 

Zeichen wieder holen 
und ausgeben 

Alle Zeichen ausgegeben ? 
Nein, weitermachen 

I II I 

ausgeben 
(SHIFT) + (CR) 
ausgeben 

Alle Strings ausgegeben ? 
Nein, weitermachen 


'+CHR$( 1 ausgeben 


Zeichen wieder holen 
Bytewert ausgeben 

ausgeben 

Code für '+'-Ausgabe 
und weiter ausgeben 


****************************** Texte für KEY 


619D 28 24 52 48 43 2B 


' ($RHC+' 


•+CHR$(' 
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61A5 

22 

OD 

8D 

22 1B 

"" (CR) (SHIFT-CR) ,,M (ESC) 

****************************** 

BASIC-Befehl PAINT 

61A8 

20 

2F 

9E 

JSR $9E2F 

Farbquelle auswerten 

61 AB 

A2 

04 


LDX #$04 


61AD 

20 

52 

9E 

JSR S9E52 

Koordinaten holen 

6AB0 

20 

F2 

9D 

JSR $9DF2 

Aktuelle Koordinaten in Zielkoordinaten 

61B3 

20 

IC 

9E 

JSR $9E1C 

Modus-Byte auswerten und in (X) 

61B6 

E0 

02 


CPX #$02 

Wert < 2 ? 

61B8 

90 

03 


BCC $61BD 

Ja, Skip 

61BA 

4C 

28 

7D 

JMP $7D28 

■ILLEGAL QUANTITY' 

61BD 

8A 



TXA 


61BE 

4 A 



LSR 

Bit 0 in Bit 7 verschieben. 

61BF 

6A 



ROR 

also Modus-Bit setzen 

61C0 

85 

8B 


STA $8B 

Zeichenmodus setzen 

61C2 

10 

04 


BPL $61C8 


61C4 

A5 

83 


LDA $83 

Farbquelle = Hintergrundfarbe ? 

61C6 

FO 

07 


BEQ $61CF 

Ja, Ende 

61C8 

20 

49 9C 

JSR $9C49 

Koordinaten testen 

61CB 

BO 

02 


BCS $61CF 

Uenn falsche Koordinaten, Ende 

61 CD 

DO 

01 


BNE $6100 

Wenn richtig, Skip 

61CF 

60 



RT$ 


61D0 

20 

EA 

92 

JSR $92EA 

Garbage-Collection 

61D3 

8D 

03 

FF 

STA $FF03 

Urite in Bank 0 setzen 

61D6 

A5 

33 


LDA $33 

Feldende retten 

61D8 

85 

24 


STA $24 


61DA 

A5 

34 


LDA $34 


61DC 

85 

25 


STA $25 


61DE 

38 



SEC 


61DF 

A5 

35 


LDA $35 

($1B) = Stringspeicherstart - $0300 

61E1 

E9 

03 


SBC #$03 


61E3 

85 

1B 


STA $1B 


61E5 

A5 

36 


LDA $36 


61E7 

E9 

00 


SBC #$00 


61E9 

85 

IC 


STA $1C 


61EB 

A2 

00 


LDX #$00 


61ED 

86 

63 


STX $63 


61EF 

86 

64 


STX $64 


61 Fl 

AE 

33 

11 

LDX $1133 

Y-Koordinate erniedrigen 

61 FA 

DO 

03 


BNE $61F9 


61F6 

CE 

34 

11 

DEC $1134 


61F9 

CE 

33 

11 

DEC $1133 


61 FC 

20 

49 

9C 

JSR $9C49 

Koordinaten testen 

61 FF 

80 

02 


BCS $6203 

Uenn falsche Koordinaten, Skip 

6201 

DO 

EE 


BNE $61 Fl 

Wenn frei, weiter testen 

6203 

EE 

33 

11 

INC $1133 

Y-Koordinate wieder erhöhen 
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6206 

DO 

03 


BNE 

$620B 

6208 

EE 

34 

11 

INC 

$1134 

620B 

20 

19 

9C 

JSR 

$9C19 

620E 

AE 

31 

11 

LDX 

$1131 

6211 

DO 

03 


BNE 

$6216 

6213 

CE 

32 

11 

DEC 

$1132 

6216 

CE 

31 

11 

DEC 

$1131 

6219 

A5 

63 


LDA 

$63 

621B 

20 

7C 

62 

JSR 

$627C 

621E 

85 

63 


STA 

$63 

6220 

18 



CLC 


6221 

AD 

31 

11 

LDA 

$1131 

6224 

69 

02 


ADC 

#$02 

6226 

8D 

31 

11 

STA 

$1131 

6229 

90 

03 


BCC 

$622E 

622B 

EE 

32 

11 

INC 

$1132 

622E 

A5 

64 


LDA 

$64 

6230 

20 

7C 

62 

JSR 

$627C 

6233 

85 

64 


STA 

$64 

6235 

AE 

31 

11 

LDX 

$1131 

6238 

DO 

03 


BNE 

$623D 

623A 

CE 

32 

11 

DEC 

$1132 

623D 

CE 

31 

11 

DEC 

$1131 

6240 

EE 

33 

11 

INC 

$1133 

6243 

DO 

03 


BNE 

$6248 

6245 

EE 

34 

11 

INC 

$1134 

6248 

20 

49 9C 

JSR 

$9C49 

624B 

B0 

02 


BCS 

$624 F 

624D 

DO 

BC 


BNE 

$620B 

624 F 

A2 

03 


LDX 

#$03 

6251 

A0 

00 


LDY 

#$00 

6253 

A5 

25 


LDA 

$25 

6255 

C5 

34 


CMP 

$34 

6257 

DO 

06 


BNE 

$625 F 

6259 

A5 

24 


LDA 

$24 

625B 

C5 

33 


CMP 

$33 

625D 

F0 

1A 


BEO 

$6279 

625F 

A5 

24 


LDA 

$24 

6261 

DO 

02 


BNE 

$6265 

6263 

C6 

25 


DEC 

$25 

6265 

C6 

24 


DEC 

$24 

6267 

20 

B7 03 

JSR 

$03B7 

626A 

80 

03 

FF 

STA 

$FF03 

626D 

90 

31 

11 

STA 

$1131,X 

6270 

CA 



DEX 


6271 

10 

EC 


BPL 

$625 F 

6273 

20 

B5 

4B 

JSR 

$4BB5 


Koordinaten setzen 
X-Koordinate erniedrigen 


X-Koordinate um 2 erhöhen 


X-Koordinate wieder erniedrigen 


Y-Koordinate erhöhen 


Koordinaten testen 

Wenn falsche Koordinaten, Skip 

Uenn frei, weiter füllen 

PAINT-Stapel leer ? 

Nein, Skip 

Ja, Ende 

Stapelzeiger erniedrigen 


Koordinaten vom Stapel holen 
Write in Bank 0 setzen 
Koordinaten setzen 


STOP-Taste prüfen 
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6276 4C EB 61 JMP $61EB Zum PAINT-Start 

6279 4C F2 90 JMP $9DF2 Aktuelle Koordinaten in Zielkoordinaten 

****************************** Koordinaten für PAINT retten, falls nötig 


627C 

48 



PHA 


627D 

20 

49 

9C 

JSR $9C49 

Koordinaten testen 

6280 

B0 

18 


BCS S629A 

Wenn falsche Koordinaten, Ende 

6282 

FO 

16 


BEO $629A 

Wenn gesetzt, Ende 

6284 

68 



PLA 

(A) wieder holen 

6285 

00 

16 


BNE $6290 

Wenn gesetzt, Ende 

6287 

AA 



TAX 


6288 

A8 



TAY 


6289 

A5 

25 


LDA $25 

PAINT-Stack voll ? 

628B 

C5 

IC 


CMP $1C 


6280 

90 

OF 


BCC $629E 

Nein, Skip 

628 F 

DO 

06 


BNE $6297 


6291 

A5 

24 


LDA $24 


6293 

C5 

18 


CMP $1B 


6295 

90 

07 


BCC $629E 

Nein, Skip 

6297 

4C 

3A 

4D 

JMP $4D3A 

•OUT OF MEMORY 1 

629A 

68 



PLA 


629B 

A9 

00 


LDA #$00 

Flag auf 0 

6290 

60 



RTS 


629E 

BD 

31 

11 

LDA $1131,X 

Koordinaten auf PAINT-Stack 

62 AI 

80 

04 

FF 

STA $FF04 

Write in Bank 1 setzen 

62A4 

91 

24 


STA ($24),Y 


62A6 

8D 

03 

FF 

STA $FF03 

Read aus Bank 0 setzen 

62A9 

E6 

24 


INC $24 


62AB 

DO 

02 


BNE $62AF 


62AD 

E6 

25 


INC $25 


62AF 

E8 



INX 


62B0 

EO 

04 


CPX #$04 


62B2 

00 

EA 


BNE $629E 


62B4 

A9 

80 


LDA #$80 

Flag für gerettet setzen 

62B6 

60 



RTS 



k***i 


k***i 


' BASIC-Befehl BOX 

62B7 

20 

2F 

9E 

JSR $9E2F 

Farbquelle lesen 

62BA 

A2 

1F 


LDX #$1F 


62BC 

20 

6D 

9E 

JSR $9E6D 

Koordinate 1 auswerten 

62BF 

A2 

2B 


LDX #$2B 


62C1 

20 

52 

9E 

JSR $9E52 

Koordinate 2 auswerten 

62C4 

20 

06 

9E 

JSR $9E06 

Rotationswinkel auswerten 

62C7 

8C 

54 

11 

STY $1154 

und Winkelwert setzen 

62CA 

80 

55 

11 

STA $1155 


62C0 

20 

IC 

9E 

JSR $9E1C 

Ausmalflag lesen 
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EO 

02 


CPX 

#$02 

62D2 

90 

03 


BCC 

$62D7 

6204 

4C 

28 

7D 

JMP 

S7D28 

62D7 

8E 

6C 

11 

STX 

$116C 

62DA 

8A 



TXA 


62DB 

48 



PHA 


62DC 

20 

89 

63 

JSR 

$6389 

62DF 

68 



PLA 


62E0 

DO 

IC 


BNE 

$62 FE 

62E2 

F0 

03 


BEQ 

$62E7 

62E4 

20 

OB 

64 

JSR 

$640B 

62E7 

20 

30 

9B 

JSR 

$9B30 

62EA 

AD 

4E 

11 

LDA 

$114E 

62ED 

DO 

F5 


BNE 

$62E4 

62EF 

A2 

04 


LDX 

#$04 

62F1 

BD 

5B 

11 

LDA 

$115B,X 

62F4 

9D 

30 

11 

STA 

$1130,X 

62F7 

CA 



DEX 


62F8 

DO 

F7 


BNE 

$62 Fl 

62 FA 

8E 

6C 

11 

STX 

$116C 

62 FD 

60 



RTS 


62FE 

A2 

00 


LDX 

#$00 


AD 

49 

11 

LDA 

$1149 


4A 



LSR 


6304 

90 

02 


BCC 

$6308 

6306 

A2 

02 


LDX 

#$02 

6308 

BD 

60 

11 

LDA 

$1160,X 

630B 

8D 

5A 

11 

STA 

$115A 

630E 

BD 

61 

11 

LDA 

$1161,X 

6311 

8D 

5B 

11 

STA 

$115B 

6314 

A9 

00 


LDA 

#$00 

6316 

A2 

03 


LDX 

#$03 

6318 

90 

56 

11 

STA 

$1156,X 

631B 

CA 



DEX 


631C 

10 

FA 


BPL 

$6318 

631E 

A2 

07 


LDX 

#$07 


BD 

31 

11 

LDA 

$1131,X 

6323 

48 



PHA 


6324 

CA 



DEX 


6325 

10 

F9 


BPL 

$6320 


20 

30 

9B 

JSR 

$9830 

632A 

A2 

00 


LDX 

#$00 

632C 

68 



PLA 


6320 

9D 

31 

11 

STA 

$1131,X 

6330 

E8 



I NX 


6331 

E0 

08 


CPX 

#$08 


> 1 ? 

Nein, Skip 
•ILLEGAL QUANTITY• 

Ausmalflag setzen 

Ausmalwert retten 
Zielrichtung berechnen 
Ausmalen ? 

Ja, Skip 
Nein, Skip 

Zielrichtung berechnen 

Linie zur Zielkoordinate zeichnen 

Ende ? 

Nein, weitermachen 
Aktuelle Koordinaten setzen 


und Füllt lag löschen 


Offset auf Seitenlange 
Seite richtig ? 

Ja, Skip 

Seitenlänge passend setzen 


Zähler löschen 


Koordinaten retten 


Linie ziehen 


und Koordinaten wieder setzen 
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6333 

DO 

F7 


BNE 

S632C 


6335 

AD 

5A 

11 

LDA 

$115A 

Längenzähler schon 0 ? 

6338 

DO 

05 


BNE 

$633 F 

Nein, Skip 

633A 

CE 

5B 

11 

DEC 

$115B 


633D 

30 

BO 


BMI 

$62EF 

Ja, Ende 

633 F 

CE 

5A 

11 

DEC 

$115A 

Längenzähler erniedrigen 

6342 

A2 

25 


LDX 

#$25 

Offset auf Zähler X 

6344 

AO 

1B 


LDY 

#$1 B 

Offset auf Kosinuswert 

6346 

AD 

49 

11 

LDA 

$1149 

Seitennummer richtig ? 

6349 

4A 



LSR 



634A 

90 

02 


BCC 

$634 E 

Ja, Skip 

634 C 

AO 

19 


LDY 

#$19 

Offset auf Sinuswert 

634E 

A9 

00 


LDA 

#$00 

Übertragflag auf 0 

6350 

4A 



LSR 



6351 

48 



PHA 



6352 

20 

6D 

9D 

JSR 

$9060 

Winkelwert aufaddieren 

6355 

9D 

31 

11 

STA 

$1131,X 

und Koordinate setzen 

6358 

98 



TYA 



6359 

9D 

32 

11 

STA 

$1132,X 


635C 

68 



PLA 


Ubertragflag holen 

635D 

90 

02 


BCC 

$6361 

Wenn bei Rechnung kein Übertrag, Skip 

635 F 

09 

AO 


ORA 

#$A0 

Übertragflag setzen 

6361 

E8 



I NX 


Offset erhöhen 

6362 

E8 



I NX 



6363 

AO 

19 


LDY 

#$19 

Offset auf Sinuswert 

6365 

4E 

49 

11 

LSR 

$1149 

Seitennummer richtig ? 

6368 

90 

02 


BCC 

$636C 

Ja, Skip 

636A 

AO 

1B 


LDY 

#$1 B 

Offset auf Kosinuswert 

636C 

2E 

49 

11 

ROL 

$1149 

Seitennummer korrigieren 

636F 

EO 

22 


CPX 

#$27 

X un Y verarbeitet ? 

6371 

FO 

UD 


BEO 

$6350 

Nein, nochmal 

6373 

A2 

06 


LDX 

#$06 


6375 

DA 



ASL 


Noch Überträge ? 

6376 

FO 

BD 


BEQ 

$6335 

Nein, weitermachen 

6378 

90 

08 


BCC 

$6382 

Wenn kein aktueller Übertrag, Skip 

63 7A 

FE 

31 

11 

INC 

$1131,X 

Koordinate korrigieren 

63 7D 

DO 

03 


BNE 

$6382 


637F 

FE 

32 

11 

INC 

$1132,X 


6382 

OA 



ASL 



6383 

CA 



DEX 



6384 

CA 



DEX 


Alle korrigiert ? 

6385 

10 

Fl 


BPL 

$6378 

Nein, nochmal 

6387 

30 

95 


BMI 

$63 IE 

Unbedingter Sprung 

****************************** 

Zielrichtung berechnen 

6389 

AO 

23 


LDY 

#$23 

Offset auf Rotationswinkel 

638B 

20 

74 

9A 

JSR 

$9A74 

Winkelwerte berechnen 
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638E 

A2 

1F 


LDX 

#$1F 

6390 

AO 

2B 


LDY 

#$2B 

6392 

98 



TYA 


6393 

48 



PHA 


6394 

20 

99 

90 

JSR 

$9D99 

6397 

90 

35 

11 

STA 

$1135,X 

639A 

90 

39 

11 

STA 

$1139,X 

639D 

9D 

41 

11 

STA 

$1141,X 

63A0 

98 



TYA 


63 AI 

9D 

36 

11 

STA 

$1136,X 

63A4 

90 

3A 

11 

STA 

$113A,X 

63A7 

9D 

42 

11 

STA 

$1142,X 

63AA 

68 



PLA 


63AB 

A8 



TAY 


63AC 

20 

6D 

90 

JSR 

$9060 

63AF 

90 

31 

11 

STA 

$1131,X 

63B2 

98 



TYA 


63B3 

90 

32 

11 

STA 

$1132,X 

63B6 

AO 

2D 


LDY 

#$20 

63B8 

E8 



I NX 


63B9 

E8 



I NX 


63BA 

EO 

21 


CPX 

#$21 

63BC 

FO 

D4 


BEQ 

$6392 

63BE 

A9 

90 


LOA 

#$90 

63C0 

20 

F3 

9A 

JSR 

$9AF3 

63C3 

AD 

49 

11 

LOA 

$1149 

63C6 

29 

03 


AND 

#$03 

63C8 

80 

49 

11 

STA 

$1149 

63CB 

AA 



TAX 


63CC 

BO 

ED 

63 

LDA 

$63ED,X 

63CF 

20 

OB 

64 

JSR 

$64 OB 

6302 

20 

F2 

90 

JSR 

$90 F 2 

63D5 

AD 

4E 

11 

LDA 

$114E 

63D8 

20 

OB 

64 

JSR 

$6408 

63DB 

AE 

49 

11 

LDX 

$1149 

63DE 

BO 

ED 

63 

LDA 

$63ED,X 

63E1 

29 

FO 


AND 

#$F0 

63E3 

80 

4F 

11 

STA 

$114F 

63E6 

BO 

Fl 

63 

LDA 

$63F1,X 

63E9 

80 

4E 

11 

STA 

$114E 

63EC 

60 



RTS 



Offset auf X-Uert 1 
Offset auf X-Uert 2 
Offset retten 

(A)/(Y) = ABS(X-Uert 2 - X-Uert 1) 
Ergebnis setzen 


Offset auf X-Uert 2 wieder holen 
(A)/(Y) = (X-Uert 2 + X-Uert 1) 
Ergebnis setzen 


Offset auf Y-Uert 2 setzen 
Offset auf Y-Uert 1 erhöhen 

X und Y verarbeitet ? 

Nein, nochmal 

Abstandswerte berechnen 

Uinkelquadrant 

normalisieren 

und 

in Offset umrechnen 
und Bitmuster für Rechnung holen 
Endgültige Zielrichtung berechnen 
und Koordinate in Zielkoordinate 

Zielrichtung berechnen 
und Bitmuster setzen 


****************************** gj tmuster 

für Zielrichtngsberechnung 

63E0 BE E4 41 1B 
63Fl 41 1B BE E4 
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****************************** Namen der Programmierer ! 


63F5 

46 

52 

45 

44 20 

42 OD 

•FRED B 1 (CR) 

63 FC 

54 

45 

52 

52 59 

20 52 OD 

•TERRY R 1 (CR) 

6404 

4D 

49 

4B 

45 20 

49 OD 

•MIKE I' (CR) 


Z i elrichtungsberechnung 

6408 

20 

67 

67 

JSR 

$6767 

Zielrichtung berechnen 

640E 

A2 

04 


LDX 

#$04 


6410 

BO 

32 

11 

LOA 

$1132,X 


6413 

0A 



ASL 


Vorzeichen retten 

6414 

7E 

32 

11 

ROR 

$1132,X 

und Richtung durch 2 teilen 

6417 

7E 

31 

11 

ROR 

$1131,X 


641A 

90 

08 


BCC 

$6424 

Wenn gerader Wert, Skip 

64 IC 

FE 

31 

11 

INC 

$1131,X 

Wert erhöhen 

641F 

DO 

03 


BNE 

$6424 


6421 

FE 

32 

11 

INC 

$1132,X 


6424 

E8 



I NX 



6425 

E8 



I NX 



6426 

E0 

06 


CPX 

#$06 

X und Y verarbeitet ? 

6428 

FO 

E6 


BEQ 

$6410 

Nein, nochmal 

642A 

60 



RTS 



****************************** 

BASIC-Befehl SSHAPE 

64 2B 

20 

74 

AO 

JSR 

$A074 

Test auf HIRES-Bereich 

64 2E 

20 

AF 

7A 

JSR 

$7AAF 

Variable lesen 

6431 

8D 

03 

FF 

STA 

$FF03 

Write in Bank 0 setzen 

6434 

80 

5F 

11 

STA 

$115F 

Stringadresse setzen 

6437 

8C 

60 

11 

STY 

$1160 


64 3A 

24 

OF 


BIT 

$0F 

String 7 

643C 

30 

03 


BMI 

$6441 

Ja, Skip 

643E 

4C 

E 7 

77 

JMP 

$77E7 

•TYPE MISMATCH• 

6441 

A2 

28 


LOX 

#$28 


6443 

20 

6D 

9E 

JSR 

$9E6D 

Koordinate 1 holen 

6446 

A2 

04 


LDX 

#$04 


6448 

20 

52 

9E 

JSR 

$9E52 

Koordinate 2 holen 

644B 

A2 

2A 


LDX 

#$2A 


6440 

AO 

06 


LDY 

#$06 


644 F 

A9 

02 


LOA 

#$02 

Koordina tennumme r 

6451 

85 

HF 


STA 

$8E 

auf 2 setzen 

6453 

20 

95 

' 9C 

i JSR $9099 

(A)/(Y) = ABS(Koordinate 

2) 







6456 

AA 



TAX 



6457 

98 



TYA 



6458 

48 



PHA 



6459 

A4 

8E 


LDY 

$8E 

Koordinatennummer lesen 


Koordinate 
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645B 

20 

F9 9D 

JSR 

S9DF9 

645E 

90 

OC 

BCC 

$646C 

6460 

B9 

59 11 

LDA 

$1159,Y 

6463 

99 

31 11 

STA 

$1131,Y 

6466 

B9 

5A 11 

LDA 

$115A,Y 

6469 

99 32 11 

STA 

$1132,Y 

646C 

8A 


TXA 


646D 

99 

59 11 

STA 

$1159,Y 

6470 

99 

DB 03 

STA 

$03DB,Y 

6473 

68 


PLA 


6474 

99 

5A 11 

STA 

$1 ISA,Y 

6477 

99 

DC 03 

STA 

$03DC,Y 

647A 

A2 

28 

LDX 

#$28 

64 7C 

A0 

04 

LDY 

#$04 

64 7E 

C6 

8E 

DEC 

$8E 

6480 

C6 8E 

DEC 

$8E 

6482 

F0 

CF 

BEO 

$6453 

6484 

A0 

FF 

LDY 

#$FF 

6486 

8C 

55 11 

STY 

$1155 

6489 

AD 

31 11 

LDA 

$1131 

648C 

80 

5D 11 

STA 

$115D 

648F 

AD 

32 11 

LDA 

$1132 

6492 

80 

5E 11 

STA 

$115E 

6495 

98 


TYA 


6496 

20 

90 86 

JSR 

$8690 

6499 

80 

03 FF 

STA 

$FF03 

649C 

20 

E3 9C 

JSR 

$9CE3 

649F 

Bl 

8C 

LDA 

($80,Y 

64A1 

90 

0E 

BCC 

$64 Bl 

64A3 

AD 

31 11 

LDA 

$1131 

64A6 

24 

D8 

BIT 

$D8 

64A8 

10 

02 

BPL 

$64AC 

64 AA 

38 


SEC 


64AB 

2A 


ROL 


64AC 

29 

07 

AND 

#$07 

64AE 

AA 


TAX 


64 AF 

A9 

00 

LDA 

#$00 

64B1 

24 

D8 

BIT 

$D8 

64B3 

10 

01 

BPL 

$6486 

64B5 

CA 


DEX 


64 B6 

8E 

61 11 

STX 

$1161 

64B9 

0A 


ASL 


64BA 

CA 


DEX 


64BB 

10 

FC 

BPL 

$64B9 

64BD 

6A 


ROR 


64BE 

85 

8E 

STA 

$8E 

64C0 

A9 

08 

LDA 

#$08 

64C2 

24 

08 

BIT 

$D8 


Koordinate kopieren 
Koordinaten setzen 


Neue Koordinatenoffsets 
laden 

Koordinatennuimier erniedrigen 
Beide Koordinaten verarbeitet ? 
Nein, weitermachen 


Stringzeiger setzen 
Write in Bank 0 setzen 
Schirmadresse berechnen 
Wert aus Schirm holen 
Wenn kein Fehler, Skip 

Multicolormodus ? 

Nein, Skip 

Multicoloranpassung 


Multicolormodus ? 
Nein, Skip 

Bitzeiger setzen 


X-Offset 8 setzen 
Multicolormodus ? 
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64C4 

10 

01 

BPL 

S64C7 

Nein, Skip 


64C6 

4A 


LSR 


X-Offset auf 4 


64C7 

18 


CLC 




64 C 8 

60 

31 11 

ADC 

$1131 

X-Koordinate erhöhen 


64 CB 

80 

31 11 

STA 

$1131 



64CE 

90 

03 

BCC 

$64D3 



64D0 

EE 

32 11 

INC 

$1132 



64D3 

20 

E3 9C 

JSR 

$9CE3 

Schirmadresse berechnen 


64D6 

A9 

00 

LOA 

#$00 

Wert 0 vorbesetzen 


64D8 

BO 

02 

BCS 

$64DC 

Wenn falsche Koordinaten, 

Skip 

64DA 

Bl 

8C 

LDA 

>- 

u 

00 

♦A 

Wert aus Graphik holen 


64DC 

85 

8F 

STA 

$8F 

und setzen 


64DE 

AE 

61 11 

LDX 

$1161 



64E1 

4A 


LSR 




64E2 

E8 


INX 




64E3 

EO 

08 

CPX 

#$08 



64E5 

DO 

FA 

BNE 

$64E1 



64E7 

05 

8E 

ORA 

$8E 



64E9 

EE 

55 11 

INC 

$1155 



64EC 

AC 

55 11 

LOY 

$1155 



64EF 

CO 

FC 

CPY 

#$FC 

Maximal länge 252 erreicht 

? 

64 Fl 

90 

03 

BCC 

$64 F6 

Nein, Skip 


64 F3 

4C 

ED A5 

JMP 

$A5ED 

•STRING TOO LONG' 


64 F6 

80 

04 FF 

STA 

$FF04 

Urite in Bank 1 setzen 


64 F9 

91 

64 

STA 

($64),Y 

Ergebniswert in String speichern 

64 FB 

80 

03 FF 

STA 

$FF03 

Read aus Bank 0 setzen 


64 FE 

AE 

61 11 

LDX 

$1161 



6501 

AD 

59 11 

LDA 

$1159 



6504 

38 


SEC 




6505 

24 

08 

BIT 

$D8 

Multicolormodus ? 


6507 

10 

03 

BPL 

$650C 

Nein, Skip 


6509 

E9 

04 

SBC 

#$04 



650B 

2C 


.BYTE S2C 



650C 

A9 

08 

SBC 

#$08 



650E 

80 

59 11 

STA 

$1159 



6511 

A5 

8F 

LDA 

$8F 



6513 

BO 

A4 

BCS 

$6489 



6515 

CE 

5A 11 

DEC 

$115A 



6518 

10 

9F 

BPL 

$64 B9 



651A 

AE 

5B 11 

LDX 

$115B 



6510 

DO 

48 

BNE 

$6567 



651F 

CE 

5C 11 

DEC 

$115C 



6522 

10 

43 

BPL 

$6567 



6524 

24 

D8 

BIT 

$D8 



6526 

10 

06 

BPL 

$652E 



6528 

OE 

DB 03 

ASL 

$03DB 



652B 

2E 

DC 03 

ROL 

$03DC 



65 2E 

A2 

00 

LDX 

#$00 
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6530 

BO 

DB 

03 

LDA $03DB,X 

Länge/Breite laden 

6533 

C8 



INY 


6534 

80 

04 

FF 

STA SFF04 

Write in Bank 1 setzen 

6537 

91 

64 


STA <$64),Y 

Größe setzen 

6539 

80 

03 

FF 

STA SFF03 

Read aus Bank 0 setzen 

653C 

E8 



INK 


653D 

EO 

04 


CPX #$04 


653F 

00 

EF 


BNE $6530 


6541 

C8 



INY 


6542 

8C 

DB 

03 

STY $03DB 


6545 

A5 

64 


LDA $64 


6547 

80 

DC 

03 

STA $03DC 


654A 

A5 

65 


LDA $65 


654C 

80 

DD 

03 

STA $03DD 


654F 

A9 

DB 


LDA #$DB 

Zeiger auf $03DB setzen 

6551 

85 

66 


STA $66 


6553 

A9 

03 


LDA #$03 


6555 

85 

67 


STA $67 


6557 

AD 

5F 

11 

LDA $115F 

Adresse setzen 

655A 

85 

4B 


STA $4B 


655C 

AD 

60 

11 

LDA $1160 


655F 

85 

4C 


STA $4C 


6561 

20 

94 

54 

JSR $5494 

String zuweisen 

6564 

4C 

F2 

9D 

JMP $9DF2 

Aktuelle Koordinaten in 

6567 

CE 

5B 

11 

DEC $1158 


656A 

EE 

33 

11 

INC $1133 


656D 

DO 

03 


BNE $6572 


656F 

EE 

34 

11 

INC $1134 


6572 

AD 

5D 

11 

LDA $115D 


6575 

80 

31 

11 

STA $1131 


6578 

AD 

5E 

11 

LDA $115E 


657B 

80 

32 

11 

STA $1132 


65 7E 

AD 

DB 

03 

LDA $03DB 


6581 

80 

59 

11 

STA $1159 


6584 

AD 

DC 

03 

LDA $03DC 


6587 

80 

5A 

11 

STA $115A 


658A 

4C 

9C 

64 

JMP $649C 



****************************** BASIC-Befehl GSHAPE 


65 8D 

20 

74 

A0 

JSR 

$A074 

6590 

20 

7B 

87 

JSR 

$877B 

6593 

8D 

03 

FF 

STA 

$FF03 

6596 

8D 

53 

11 

STA 

$1153 

6599 

86 

26 


STX 

$26 

659B 

84 

27 


STY 

$27 

659D 

A2 

04 


LDX 

#$04 

659F 

20 

52 

9E 

JSR 

$9E52 


Test auf HIRES-Bereich 
FRMEVL + FRESTR, String 
Urite in Bank 0 setzen 
Länge setzen 
Adresse setzen 

Offset auf Koordinate 
Koordinate holen 


Zielkoordinaten 


holen 
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65A2 

20 

IC 

9E 

JSR 

$9E1C 

Byte-Wert in (X) holen 

65A5 

EO 

05 


CPX 

#$05 

> 4 ? 

65A7 

90 

03 


BCC 

$65AC 

Nein, Skip 

65A9 

4C 

28 

70 

JMP 

$7028 

■ILLEGAL QUANTITY 1 

65AC 

8E 

54 

11 

STX 

$1154 

Modus setzen 

65 AF 

A2 

03 


LDX 

#$03 

Zähler setzen 

65B1 

AC 

53 

11 

LDY 

$1153 

Länge des Strings 

65B4 

CO 

05 


CPY 

#$05 

> 4 ? 

65 B6 

BO 

01 


BCS 

$65B9 

Ja, Skip 

65B8 

60 



RTS 


Sonst Ende 

65B9 

88 



DEY 



65BA 

A9 

26 


LDA 

#$26 

Zeilenzahl und Spaltenbreite setzen 

65BC 

20 

AB 

03 

JSR 

$03AB 


65BF 

80 

03 

FF 

STA 

$FF03 

Write in Bank 0 setzen 

65C2 

90 

59 

11 

STA 

$1159,X 


65C5 

CA 



DEX 



65C6 

10 

Fl 


BPL 

$65B9 


65 C8 

8E 

55 

11 

STX 

$1155 

Stringbyte-Zeiger auf Start 

65CB 

20 

F2 

90 

JSR 

$90 F2 

Aktuelle Koordinaten in Zielkoordinaten 

65CE 

AD 

59 

11 

LDA 

$1159 

Spaltenbreite des SHAPE setzen 

6501 

80 

5D 

11 

STA 

$1150 


65D4 

AO 

5A 

11 

LDA 

$115A 


65D7 

80 

5E 

11 

STA 

$115E 


65DA 

A9 

08 


LDA 

#$08 

Bitzähler auf 8 setzen 

650C 

80 

69 

11 

STA 

$1169 


650 F 

EE 

55 

11 

INC 

$1155 

Stringzeiger erhöhen 

65E2 

AC 

55 

11 

LDY 

$1155 

und als Offset verwenden 

65E5 

A9 

26 


LDA 

#$26 


65E7 

20 

AB 

03 

JSR 

$03AB 

Byte-Uert aus String holen 

65EA 

80 

03 

FF 

STA 

$FF03 

Write in Bank 0 setzen 

65ED 

80 

57 

11 

STA 

$1157 

und Wert speichern 

65 FO 

20 

49 

9C 

JSR 

$9C49 

Koordinaten testen 

65F3 

80 

56 

11 

STA 

$1156 


65F6 

OE 

57 

11 

ASL 

$1157 


65F9 

2A 



ROL 



65FA 

CE 

69 

11 

DEC 

$1169 

Bitzähler korrigieren 

65 FD 

24 

D8 


BIT 

$08 

Multicolormodus ? 

65 FF 

10 

07 


BPL 

$6608 

Nein, Skip 

6601 

OE 

57 

11 

ASL 

$1157 

MCM-Anpassung 

6604 

2A 



ROL 



6605 

CE 

69 

11 

DEC 

$1169 


6608 

AE 

54 

11 

LDX 

$1154 

Zeichenmodus 

660B 

EO 

03 


CPX 

#$03 

= 3 

660D 

90 

oc 


BCC 

$661B 

Wenn kleiner, Skip 

660 F 

FO 

05 


BEQ 

$6616 

Wenn gleich, Skip 

6611 

4D 

56 

11 

EOR 

$1156 

Modus 4, gesetzte Schirmbits invertieren 



500 


128 Intern 


6614 

BO 

11 


BCS 

$6627 

Unbedingter Sprung 

6616 

2D 

56 

11 

AND 

$1156 

Modus 3 

6619 

BO 

OC 


BCS 

$6627 

Unbedingter Sprung 

661B 

EO 

01 


CPX 

#$01 

Zeichenmodus = 1 ? 

661D 

90 

08 


BCC 

$6627 

Wenn Modus = 0, Bits normal abbilden 

661F 

FO 

04 


BEQ 

$6625 

Wenn Modus 1, Bits invertiert abbilden 

6621 

00 

56 

11 

ORA 

$1156 

Modus 2, Bits dem Schirm überlagern 

6624 

2C 



•BYTE $2C 


6625 

49 

FF 


EOR 

#$FF 


6627 

29 

03 


AND 

#$03 

Wichtige Bits ausmaskieren 

6629 

24 

D8 


BIT 

$D8 

Multicolormodus ? 

662B 

30 

02 


BMI 

$662 F 

Ja, Skip 

6620 

29 

01 


AND 

#$01 

Einzelnes Bit ausmaskieren (Normgraphik) 

662 F 

85 

83 


STA 

$83 

Ergebnis als Farbquelle setzen 

6631 

20 

19 

9C 

JSR 

$9C19 

Bit an Koordinaten in Schirm 

6634 

EE 

31 

11 

INC 

$1131 

X-Koordinate erhöhen 

6637 

DO 

03 


BNE 

$663C 


6639 

EE 

32 

11 

INC 

$1132 


663C 

38 



SEC 



6630 

AD 

5D 

11 

LDA 

$115D 

Spaltenbreite 

6640 

24 

D8 


BIT 

$D8 

nach Graphikmodus 

6642 

10 

03 


BPL 

$6647 


6644 

E9 

02 


SBC 

#$02 

erniedrigen 

6646 

2C 



.BYTE S2C 


6647 

E9 

01 


SBC 

#$01 


6649 

80 

50 

11 

STA 

$115D 


664C 

AD 

5E 

11 

LDA 

$115E 


664 F 

E9 

00 


SBC 

#$00 


6651 

80 

5E 

11 

STA 

$115E 


6654 

BO 

2D 


BCS 

$6683 

Wenn noch nicht < 0, Skip 

6656 

A2 

01 


LDX 

#$01 


6658 

BD 

59 

11 

LDA 

$1159,X 

Spaltenbreite wieder setzen 

665B 

90 

5D 

11 

STA 

$1150,X 


665E 

BD 

35 

11 

LDA 

$1135,X 

X-Koordinate wieder setzen 

6661 

90 

31 

11 

STA 

$1131,X 


6664 

CA 



DEX 



6665 

10 

Fl 


BPL 

$6658 


6667 

EE 

33 

11 

INC 

$1133 

Y-Koordinate erhöhen 

666A 

DO 

03 


BNE 

$666F 


666C 

EE 

34 

11 

INC 

$1134 


666F 

38 



SEC 


Zeilenzahl erniedrigen 

6670 

AD 

5B 

11 

LDA 

$115B 


6673 

E9 

01 


SBC 

#$01 


6675 

80 

5B 

11 

STA 

$1158 


6678 

AD 

5C 

11 

LDA 

$115C 


667B 

E9 

00 


SBC 

#$00 


6670 

80 

5C 

11 

STA 

$115C 


6680 

BO 

09 


BCS 

$668B 

Wenn noch nicht < 0, weiterausgeben 
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6682 

60 



RTS 



6683 

AD 

69 

11 

LDA 

$1169 

Bitzähler = 0 ? 

6686 

FO 

03 


BEQ 

S668B 

Ja, Skip 

6688 

4C 

FO 

65 

JMP 

$65 FO 

Schleifenstart 2 

668B 

4C 

DA 

65 

JMP 

$65DA 

Schleifenstart 1 


BASIC-Befehl CIRCLE 

668E 

20 

2F 

9E 

JSR 

$9E2F 

Farbquelle auswerten 

6691 

A2 

1 F 


LDX 

#$1 F 


6693 

20 

52 

9E 

JSR 

$9E52 

Kreiskoordinaten ab $1150 holen 

6696 

20 

06 

9E 

JSR 

$9E06 

Kreisradius X holen 

6699 

8C 

54 

11 

STY 

$1154 

und setzen 

669C 

8D 

55 

11 

STA 

$1155 


669F 

20 

06 

9E 

JSR 

$9E06 

Kreisradius Y holen 

66A2 

8C 

56 

11 

STY 

$1156 

und setzen 

66A5 

80 

57 

11 

STA 

$1157 


66A8 

08 



PHP 


Status retten 

66A9 

A2 

23 


LDX 

#$23 


66AB 

20 

4A 

90 

JSR 

$9D4A 

X und Y skalieren 

66AE 

28 



PLP 


Status wieder holen 

66 AF 

BO 

11 


BCS 

$66C2 

Wenn Y-Radius angegeben, Skip 

66B1 

AD 

54 

11 

LDA 

$1154 

Y-Radius = X-Radius 

66B4 

80 

56 

11 

STA 

$1156 


66B7 

AD 

55 

11 

LDA 

$1155 


66BA 

24 

D8 


BIT 

$08 

Multicolormodus ? 

66BC 

10 

04 


BPL 

$66C2 

Nein, Skip 

66BE 

OE 

56 

11 

ASL 

$1156 

MCM-Anpassung 

66C1 

2A 



ROL 



66C2 

80 

57 

11 

STA 

$1157 


66C5 

20 

06 

9E 

JSR 

$9E06 

Startwinkel holen 

66C8 

8C 

5C 

11 

STY 

$115C 

und setzen 

66CB 

80 

50 

11 

STA 

$1150 


66CE 

20 

06 

9E 

JSR 

$9E06 

Endwinkel holen 

66D1 

8C 

5E 

11 

STY 

$115E 

und setzen 

6604 

80 

5F 

11 

STA 

$115F 


6607 

20 

06 

9E 

JSR 

$9E06 

Drehwinkel holen 

660A 

85 

77 


STA 

$77 

und (A) und (Y) vertauschen 

66DC 

98 



TYA 



6600 

A4 

77 


LOY 

$77 


66DF 

20 

77 

9A 

JSR 

$9A 77 

Winkelwerte berechnen 

66E2 

A2 

2D 


LDX 

#$2D 

Offset auf Endwinkel 

66E4 

AO 

2B 


LOY 

#$2B 

Offset auf Startwinkel 

66E6 

20 

7C 

90 

JSR 

$907C 

(A)/(Y) = Startwinkel - Endwinkel 

66E9 

90 

OE 


BCC 

$66F9 

Wenn gültig, Skip 

66EB 

A9 

68 


LDA 

#$68 

Sonst 360 Grad 

66ED 

AO 

01 


LOY 

#$01 


66EF 

20 

70 

90 

JSR 

$9070 

aufaddieren 
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66F2 

90 

31 

11 

STA 

$1131,X 

Winkelwert setzen 

66F5 

98 



TYA 



66F6 

90 

32 

11 

STA 

$1132,X 


66F9 

A2 

03 


LDX 

#$03 


66FB 

BD 

54 

11 

LDA 

$1154,X 

Radien kopieren 

66FE 

90 

58 

11 

STA 

$1158,X 


6701 

CA 



OEX 



6702 

10 

F7 


BPL 

$66 FB 


6704 

A9 

90 


LDA 

#$90 


6706 

20 

F3 

9A 

JSR 

$9AF3 

Abstandswerte berechnen 

6709 

A2 

07 


LDX 

#$07 


670B 

BD 

54 

11 

LDA 

$1154,X 

Radien kopieren 

670E 

90 

60 

11 

STA 

$1160,X 


6711 

CA 



DEX 



6712 

10 

F7 


BPL 

$670B 


6714 

20 

50 

67 

JSR 

$6750 

Nächste Koordinate Kreisbogen berechnen 

6717 

20 

F2 

90 

JSR 

$9DF2 

Aktuelle Koordinaten in Zielkoordinaten 

671A 

A2 

02 


LDX 

#$02 

Segmentwinkel vorwählen 

671C 

20 

IE 

9E 

JSR 

$9E1E 

Byte-Wert in (X) holen, falls vorhanden 

671F 

8A 



TXA 


Segmentwinkel gesetzt ? 

6720 

00 

03 


BNE 

$6725 

Ja, Skip 

6722 

4C 

28 

70 

JMP 

$7028 

■ILLEGAL QUANTITY• 

6725 

8E 

20 

12 

STX 

$1220 

Segmentwinkel setzen 

6728 

18 



CLC 



6729 

AD 

20 

12 

LDA 

$1220 

Segmentwinkel auf Startwinkel aufaddieren 

672C 

6D 

5C 

11 

ADC 

$115C 


672 F 

8D 

5C 

11 

STA 

$115C 


6732 

90 

03 


BCC 

$6737 


6734 

EE 

5D 

11 

INC 

$115D 


6737 

A2 

2D 


LDX 

#$2D 

Offset auf Startwinkel (momentaner Wert) 

6739 

A0 

2B 


LOY 

#$2B 

Offset auf Endwinkel 

673B 

20 

7C 

90 

JSR 

$9D7C 

(A)/(Y) = Startwinkel - Endwinkel 

673E 

BO 

08 


BCS 

$6748 

Wenn nicht ganz ausreichend, Skip 

6740 

20 

50 

67 

JSR 

$6750 

Nächste Koordinaten Kreisbogen berechnen 

6743 

20 

30 

9B 

JSR 

$9B30 

Linie ziehen 

6746 

90 

El 


BCC 

$6729 

Unbedingter Sprung 

6748 

AO 

2D 


LOY 

#$2D 

Offset auf Endwinkel 

674A 

20 

52 

67 

JSR 

$6752 

Nächste Koordinate berechnen 

674D 

4C 

30 

9B 

JMP 

$9B30 

Linie ziehen 

****************************** 

Nächste Koordinate Kreisbogen berechnen 

6750 

AO 

2B 


LOY 

#$2B 

Offset auf Startwinkel 

6752 

20 

74 

9A 

JSR 

$9A74 

Aktuelle Winkelwerte berechnen 

6755 

A2 

07 


LDX 

#$07 




Dns BAS IC-ROM 


503 


6757 

BD 

60 

11 

LDA $1160,X 

Kreiswinkelwerte in 

675A 

90 

54 

11 

STA $1154,X 

Rechenwerte bringen 

675D 

CA 



DEX 


675E 

10 

F7 


BPL $6757 


6760 

A9 

50 


LDA #$50 


6762 

20 

F3 

9A 

JSR $9AF3 

Abstandswerte berechnen 

6765 

A9 

10 


LDA #$10 

Vorzeichenbit 

6767 

80 

4E 

11 

STA $114E 


676A 

A0 

1 F 


LOY #$1F 

Offset auf Mittelpunkt X 

676C 

A2 

23 


LDX #$23 

Offset auf Winkelwerte 

676E 

OE 

4F 

11 

ASL $114F 

Vorzeichen für Addition setzen 

6771 

2E 

4E 

11 

ROL $114E 


6774 

20 

6B 

9D 

JSR $9D6B 

Koordinaten aufaddieren 

6777 

E8 



1 NX 

Offset auf Y-Wert setzen 

6778 

E8 



I NX 


6779 

OE 

4F 

11 

ASL $114 F 

Vorzeichenbits richtig setzen 

677C 

2E 

4E 

11 

ROL $114E 


677F 

20 

67 

90 

JSR $9067 

Werte aufaddieren 

6782 

48 



PHA 

und Endergebnis retten 

6783 

98 



TYA 


6784 

48 



PHA 


6785 

AO 

21 


LDY #$21 

Offset auf Mittelpunkt Y setzen 

6787 

E8 



1NX 

Offset wieder auf X-Wert setzen 

6788 

E8 



INX 


6789 

EO 

27 


CPX #$27 

X und Y verarbeitet ? 

678B 

FO 

El 


BEQ $676E 

Nein, nochmal 

6780 

A2 

03 


LDX #$03 


678F 

68 



PLA 

Ergebnis als Zielkoordinate speichern 

6790 

90 

35 

11 

STA $1135,X 


6793 

CA 



DEX 


6794 

10 

F9 


BPL $678F 


6796 

60 



RTS 


****************************** 

BASIC-Befehl DRAW 

6797 

20 

74 

AO 

JSR $A074 

Test auf HIRES-Bereich 

679A 

A2 

01 


LDX #$01 

Farbquelle auf Vordergrundfarbe setzen 

679C 

86 

83 


STX $83 


679E 

20 

86 

03 

JSR $0386 

CHRGOT 

67A1 

C9 

A4 


CMP #$A4 

Token für TO 7 

67A3 

FO 

OB 


BEO $67B0 

Ja, Skip 

67A5 

20 

32 

9E 

JSR $9E32 

Farbquelle auswerten 

67A8 

20 

86 

03 

JSR $0386 

CHRGOT 

67AB 

00 

03 


BNE $6780 

Wenn kein Trennzeichen, Skip 

67AD 

4C 

FB 

9B 

JMP $9BFB 

Koordinaten setzen 

67B0 

20 

86 

03 

JSR $0386 

CHRGOT 

6783 

C9 

2C 


CMP #$2C 

V 7 

67B5 

FO 

05 


BEQ $67BC 

Ja, Skip 
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67B7 

C9 

A4 


CHP #$A4 

Token für TO ? 

67B9 

F0 

01 


BEQ $67BC 

Ja, Skip 

67BB 

60 



RTS 


67BC 

48 



PHA 

Zeichen retten 

67BD 

20 

80 

03 

JSR $0380 

CHRGET 

67C0 

A2 

04 


LDX #$04 


67C2 

20 

70 

9E 

JSR $9E70 

Koordinaten lesen 

67C5 

68 



PLA 

Zeichen wieder holen 

67C6 

10 

06 


BPL $67CE 

Wenn nicht TO, Skip 

67C8 

20 

30 

9B 

JSR $9B30 


67CB 

4C 

BO 

67 

JMP $6780 

Zun Schleifenstart 

67CE 

20 

F2 

9D 

JSR $9DF2 

Aktuelle Koordinaten in Zielkoordinaten 

67D1 

20 

FB 

9B 

JSR $9BFB 

Koordinaten setzen 

67D4 

4C 

BO 

67 

JMP $67B0 

Zun Schleifenstart 

****************************** 

BASIC-Befehl CHAR 

67D7 

20 

32 

9E 

JSR $9E32 

Farbquelle auswerten 

67DA 

A2 

29 


LDX #$29 

40 Spalten 

67DC 

A0 

1A 


LDY #$1A 

25 Zeilen 

67DE 

A5 

D8 


LDA $D8 

Graphikmodus ? 

67E0 

DO 

05 


BNE $67E7 

Ja, Skip 

67E2 

20 

ED 

FF 

JSR $FFED 

Spalten und Zeilen des Textfensters holen 

67E5 

E8 



INX 

und jeweils um 1 erhöhen 

67E6 

C8 



INY 


67E7 

8E 

5E 

11 

STX $115E 

Spalten- und Zeilenwerte setzen 

67EA 

8C 

5F 

11 

STY $115F 


67ED 

20 

09 

88 

JSR $8809 

Spaltennummer auswerten 

67F0 

EC 

5E 

11 

CPX $115E 

> Maximalzahl ? 

67F3 

BO 

OB 


BCS $6800 

Ja, Fehler 

67F5 

8E 

5E 

11 

STX $115E 

Spaltennummer setzen 

67F8 

20 

09 

88 

JSR $8809 

Zeilennummer auswerten 

67FB 

EC 

5 F 

11 

CPX $115F 

> Maximalzahl ? 

67FE 

90 

03 


BCC $6803 

Nein, Skip 

6800 

4C 

28 

7D 

JMP $7D28 

■ILLEGAL QUANTITY■ 

6803 

8E 

5F 

11 

STX $115F 

Zeilennummer setzen 

6806 

20 

86 

03 

JSR $0386 

CHRGOT 

6809 

DO 

04 


BNE $680F 

Wenn kein Trennzeichen, Skip 

680B 

A9 

00 


LDA #$00 

Länge des Textes auf 0 

680D 

FO 

06 


BEQ $6815 

Unbedingter Sprung 

680 F 

20 

5C 

79 

JSR $795C 

Textstring auswerten 

6812 

20 

7B 

87 

JSR $877B 


6815 

8D 

03 

FF 

STA $FF03 

Urite in Bank 0 setzen 

6818 

8D 

6E 

11 

STA $116E 

Länge setzen 

681B 

98 



TYA 

Adresse retten 

681C 

48 



PHA 


6810 

8A 



TXA 


681E 

48 



PHA 
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505 


681F 

20 IC 9E 

JSR $9E1C 

Inversbyte auswerten 

6822 

8A 

TXA 


6823 

6A 

ROR 


6824 

6E 3D 11 

ROR $1130 

und Bit 7 in $113D entsprechend setzen 

6827 

68 

PLA 

Adresse wieder holen 

6828 

85 24 

STA $24 

und setzen 

682A 

68 

PLA 


682B 

85 25 

STA $25 


6820 

A5 D8 

LDA $08 

Graphikmodus ? 

682 F 

00 32 

BNE $6863 

Ja, Skip 

6831 

AE 5F 11 

LDX $115F 

Spalte und Zeile laden 

6834 

AC 5E 11 

LDY $115E 


6837 

18 

CLC 

Flag für Setzen laden 

6838 

20 80 92 

JSR $9280 

und Cursorposition setzen 

683B 

A0 00 

LDY #$00 

Offset auf 0 

683D 

2C 3D 11 

BIT $113D 

Invers ausgeben ? 

6840 

10 05 

BPL $6847 

Nein, Skip 

6842 

A9 12 

LDA #$12 

Code für (RVS) 

6844 

20 OC CO 

JSR $COOC 

ausgeben 

6847 

CC 6E 11 

CPY $116E 

Textende erreicht ? 

684A 

FO OC 

BEQ $6858 

Ja, Skip 

684C 

20 B7 03 

JSR $03B7 

Zeichen aus String holen 

684 F 

20 45 A8 

JSR $A845 

ROMs einschalten 

6852 

20 OC CO 

JSR $COOC 

Zeichen ausgeben 

6855 

C8 

I NY 

Offset erhöhen 

6856 

DO EF 

BNE $6847 

und weitermachen 

6858 

2C 30 11 

BIT $1130 

Invers ausgeben ? 

685 B 

10 05 

BPL $6862 

Nein, Skip 

6850 

A9 92 

LDA #$92 

Code für (OFF) 

685 F 

20 OC CO 

JSR $COOC 

Zeichen ausgeben 

6862 

60 

RTS 


6863 

20 74 AO 

JSR $A074 

Test auf HIRES-Bereich 

6866 

AD EC 11 

LDA $11EC 

Graphikzeichensatz anwählen 

6869 

80 68 11 

STA $1168 


686C 

A5 86 

LDA $86 

Vordergrundfarbe laden 

686E 

AA 

TAX 

in (X) 

686F 

48 

PHA 

und retten 

6870 

A5 83 

LDA $83 

Farbquelle retten 

6872 

48 

PHA 


6873 

24 08 

BIT $08 

Multicolormodus ? 

6875 

10 OE 

BPL $6885 

Nein, Skip 

6877 

68 

PLA 

Farbquelle wieder holen 

6878 

FO 16 

BEQ $6890 

Wenn Hintergrundfarbe, Skip 

687A 

4A 

LSR 

Zusatzfarbe ? 

687B 

FO 13 

BEQ $6890 

Nein, Skip 

687D 

A6 84 

LDX $84 

Passende Zusatzfarbe laden 

687F 

90 OF 

BCC $6890 
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6881 

A6 

85 


LDX 

$85 

6883 

60 

OB 


BCS 

$6890 

6885 

A6 

86 


LDX 

$86 

6887 

68 



PLA 


6888 

DO 

06 


BNE 

$6890 

688A 

20 

45 

A8 

JSR 

$A845 

688D 

AE 

21 

DO 

LDX 

$D021 

6890 

86 

86 


STX 

$86 

6892 

AE 

5F 

11 

LDX 

$115F 

6895 

A0 

00 


LDY 

#$00 

6897 

8C 

60 

11 

STY 

$1160 

689A 

AC 

60 

11 

LDY 

$1160 

6890 

EE 

60 

11 

INC 

$1160 

68A0 

20 

B7 

03 

JSR 

$03B7 

68A3 

8D 

03 

FF 

STA 

$FF03 

68A6 

CE 

6E 

11 

DEC 

$116E 

68A9 

30 

2C 


BMI 

$6807 

68AB 

C9 

OE 


CMP 

#$0E 

68AD 

00 

05 


BNE 

$68B4 

68 AF 

AD 

EB 

11 

LDA 

$11EB 

68B2 

DO 

07 


BNE 

S68BB 

68B4 

C9 

8E 


CMP 

#$8E 

68B6 

00 

08 


BNE 

$68C0 

68B8 

AD 

EC 

11 

LDA 

$11EC 

68BB 

80 

68 

11 

STA 

$1168 

68BE 

00 

09 


BNE 

$68C9 

68C0 

AC 

5E 

11 

LDY 

$115E 

68C3 

20 

DB 

68 

JSR 

$680 B 

68C6 

EE 

5E 

11 

INC 

$115E 

68C9 

CO 

27 


CPY 

#$27 

68CB 

90 

CD 


BCC 

$689A 

68C0 

A0 

00 


LDY 

#$00 

68CF 

8C 

5E 

11 

STY 

$115E 

6802 

E8 



I NX 


6803 

EO 

18 


CPX 

#$18 

6805 

90 

C3 


BCC 

$689A 

68D7 

68 



PLA 


68D8 

85 

86 


STA 

$86 

68DA 

60 



RTS 



Unbedingter Sprung 

Vordergrundfarbe 

Farbquelle = Hintergrundfarbe ? 

Nein, Skip 

ROMS einschalten 

Hintergrundfarbe aus VIC laden 

und setzen 

Zeilennummer laden 

Zeichenzähler auf 0 

Offset laden 

Zeichenzähler erhöhen 

Zeichen aus String holen 

Write in Bank 0 setzen 

Länge des Strings erniedrigen 

Uenn Ende, Skip 

(Fehler bei Längen über 127!) 

Code für (TEXT) ? 

Nein, Skip 

Textzeichensatz anwählen 
Unbedingter Sprung 
Code für (GRAPHIK) ? 

Nein, Skip 

Graphikzeichensatz anwählen 

Unbedingter Sprung 
Spaltennummer laden 
Zeichen ausgeben 
Spalte erhöhen 
40 erreicht ? 

Nein, zum Schleifenanfang 
Spalte auf 0 

Zeile erhöhen 
25 erreicht ? 

Nein, zum Schleifenanfang 
Vordergrundfarbe wieder holen 


****************************** Zeichen an (X)/(Y) in HIRES-Schirm 


68DB 

48 



PHA 

68DC 

20 

70 

9C 

JSR $9C70 

68DF 

98 



TYA 

68E0 

18 



CLC 

68E1 

7D 

33 

CO 

ADC $C033,X 


Zeichen retten 
Farbwert in HIRES-Schirm 


Schirmadresse setzen 
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68E4 

85 8C 

STA $8C 


68E6 

BD 4C CO 

LDA $C04C,X 


68E9 

69 00 

ADC #$00 

HIRES-Adresse=8*Textadresse, 

68EB 

06 8C 

ASL $8C 

da pro Zeichenposition 8 Byte 

68ED 

2A 

ROL 

benötigt werden 

68EE 

06 8C 

ASL $8C 


68F0 

2A 

ROL 


68F1 

06 8C 

ASL $8C 


68F3 

2A 

ROL 


68F4 

85 80 

STA $8D 


68F6 

80 03 FF 

STA $FF03 

Urite in Bank 0 setzen 

68F9 

A9 00 

LDA #$00 

Zeichengeneratoradresse berechnen 

68FB 

85 77 

STA $77 


68 FD 

68 

PLA 

Zeichenwert wieder holen 

68FE 

48 

PHA 

noch einmal retten 

68FF 

OA 

ASL 

und mit 8 multiplizieren. 

6900 

26 77 

ROL $77 

da ein Zeichen 8 Byte braucht 

6902 

OA 

ASL 


6903 

OA 

ASL 


6904 

26 77 

ROL $77 


6906 

85 26 

STA $26 

und setzen 

6908 

A5 77 

LDA $77 


690A 

6D 68 11 

ADC $1168 

Zeichengeneratoradresse aufaddieren 

690D 

85 27 

STA $27 


690F 

98 

TYA 


6910 

48 

PHA 


6911 

AO 07 

LDY #$07 

Zähler setzen 

6913 

AD 30 11 

LDA $113D 

Inversbit in Carry 

6916 

OA 

ASL 


6917 

Bl 26 

LDA ($26),Y 

Wert aus Zeichengenerator holen 

6919 

90 02 

BCC $6910 

Wenn normal, Skip 

691B 

49 FF 

EOR #$FF 

invertieren 

6910 

24 08 

BIT $D8 

Multicolormodus ? 

691F 

10 2B 

BPL $694C 

Nein, Skip 

6921 

29 AA 

AND #$AA 

MCM-Anpassung 

6923 

85 77 

STA $77 

Wert retten 

6925 

A5 83 

LDA $83 

Falls nötig, Zusatzfarbenanpassung 

6927 

DO OF 

8NE $6938 


6929 

A5 77 

LDA $77 


692B 

BO 07 

BCS $6934 


692D 

4A 

LSR 


692E 

45 77 

EOR $77 


6930 

49 AA 

EOR #$AA 


6932 

DO 18 

BNE $694C 

Unbedingter Sprung 

6934 

09 55 

ORA #$55 


6936 

DO 14 

BNE $694C 

Unbedingter Sprung 

6938 

C9 02 

CMP #$02 

Mehrfarbmodus 1 ? 

693A 

DO 04 

BNE $6940 

Nein, Skip 
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693C 

A5 

77 

LDA $77 


693E 

BO 

OC 

BCS $694C 


6940 

90 

07 

BCC $6949 


6942 

A5 

77 

LDA $77 


6944 

4A 


LSR 


6945 

45 

77 

EOR $77 


6947 

90 

03 

BCC $694C 


6949 

A5 

77 

LDA $77 


694B 

4A 


LSR 


694C 

91 

8C 

STA ($8C),Y 

Zeichen in HIRES-Schirm 

694E 

88 


DEY 

Zähler erniedrigen 

694 F 

10 

C2 

BPL $6913 

Falls nötig, weitermachen 

6951 

68 


PLA 

(Y) wieder holen 

6952 

A8 


TAY 


6953 

68 


PLA 

Zeichenwert wieder holen 

6954 

60 


RTS 



****************************** BASIC-Befehl LOCATE 


6955 

20 

74 

AO 

JSR $A074 

Test auf HIRES-Bereich 

6958 

A2 

04 


LDX #$04 

Offset auf Koordinaten setzen 

695A 

20 

70 

9E 

JSR $9E70 

Koordinaten lesen 

695D 

4C 

F2 

90 

JMP $9DF2 

und setzen 

****************************** 

BASIC-Befehl SCALE 

6960 

20 

F4 

87 

JSR $87F4 

Byte-Wert holen 

6963 

EO 

02 


CPX #$02 

> 1 ? 

6965 

90 

03 


BCC $696A 

Nein, Skip 

6967 

4C 

28 

7D 

JMP $7D28 

•ILLEGAL QUANTITY• 

696A 

8E 

6A 

11 

STX $116A 

Skalierungsflag setzen 

696D 

20 

86 

03 

JSR $0386 

CHRGOT 

6970 

DO 

14 


BNE $6986 

Wenn kein Trennzeichen, Skip 

6972 

A2 

00 


LDX #$C0 


6974 

A9 

50 


LDA #$50 

Skalierungswerte auf Standard setzen 

6976 

AO 

32 


LDY #$32 


6978 

24 

D8 


BIT $D8 

Multicolormodus ? 

697A 

10 

01 


BPL $697D 

Nein, Skip 

697C 

4A 



LSR 

X-Wert anpassen 

697D 

86 

87 


STX $87 

Skalierung X auf 20480 (normal) 

697F 

85 

88 


STA $88 

oder 10240 (MCM) 

6981 

86 

89 


STX $89 

Skalierung Y auf 12800 

6983 

84 

8A 


STY $8A 

(Skalierungen für 1023*1023!) 

6985 

60 



RTS 


6986 

20 

C4 

69 

JSR $69C4 

X-Skalierungsfaktor holen 

6989 

A9 

D8 


LDA #$D8 

Zeiger auf Konstante $68D9 setzen 

698B 

AO 

69 


LDY #$69 


698D 

20 

89 

8A 

JSR $8A89 

FAC#2 = Konstante 
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6990 

20 

4C 

8B 

JSR $8B4C 

FAC#1 = FAC#2 / FAC#1 

6993 

20 

15 

88 

JSR $8815 

FAC#1 in Adressformat 

6996 

C9 

00 


CMP #$00 

Wert = 0 ? 

6998 

DO 

04 


BNE $699E 

Nein, Skip 

699A 

CO 

00 


CPY #$00 


699C 

F0 

37 


BEO $6905 

Ja, Fehler 

699E 

48 



PHA 

Uert retten 

699 F 

98 



TYA 


69A0 

48 



PHA 


69A1 

20 

C4 

69 

JSR $69C4 

Y-Skalierungsfaktor holen 

69A4 

A9 

DD 


LDA #$DD 

Zeiger auf Konstante $69DD setzen 

69A6 

AO 

69 


LDY #$69 


69A8 

20 

89 

8A 

JSR $8A89 

FAC#2 = Konstante 

69AB 

20 

4C 

8B 

JSR $8B4C 

FAC#1 = FAC#2 / FAC#1 

69AE 

20 

15 

88 

JSR $8815 

FAC#1 in Adressformat 

69B1 

C9 

00 


CMP #$00 

Uert = 0 ? 

69B3 

DO 

04 


BNE $69B9 


69B5 

CO 

00 


CPY #$00 


69B7 

FO 

IC 


BEQ $69D5 

Ja, Fehler 

69B9 

84 

89 


STY $89 

Y-Skalierung setzen 

69BB 

85 

8A 


STA $8A 


69BD 

68 



PLA 


69BE 

85 

87 


STA $87 

X-Skalierung setzen 

69C0 

68 



PLA 


69C1 

85 

88 


STA $88 


69C3 

60 



RTS 


****************************** 

Skalierungsfaktor auswerten 

69C4 

20 

5C 

79 

JSR $795C 

Test auf Komma 

69C7 

20 

D7 

77 

JSR $77D7 

Faktor auswerten 

69CA 

A5 

68 


LDA $68 

Uert zu groß ? 

69CC 

30 

07 


BMI $69D5 

Ja, Fehler 

69CE 

A5 

63 


LDA $63 


69D0 

C9 

90 


CMP #$90 


69D2 

BO 

01 


BCS $69D5 

Ja, Fehler 

69D4 

60 



RTS 


6905 

4C 

28 

7D 

JMP $7028 

•ILLEGAL QUANTITY 1 

****************************** 

Divisionswerte für SCALE 

69D8 

99 

1F 

FF 

60 00 

20971200 

69E0 

98 

47 

FF 

38 00 

13107000 


BASIC-Befehl COLOR 

69E2 

20 

F4 

87 

JSR $87F4 

Farbquelle holen 

69E5 

EO 

07 


CPX #$07 

Uert > 6 ? 
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69E5 

E0 

07 


CPX 

#$07 

69E7 

BO 

60 


BCS 

$6 A4 9 

69E9 

86 

77 


STX 

$77 

69EB 

20 

09 

88 

JSR 

$8809 

69EE 

CA 



DEX 


69EF 

E0 

10 


CPX 

#$10 

69F1 

BO 

56 


BCS 

$6 A4 9 

69F3 

20 

45 

A8 

JSR 

$A845 

69F6 

8A 



TXA 


69F7 

A6 

77 


LDX 

$77 

69F9 

E0 

01 


CPX 

#$01 

69FB 

F0 

07 


BEQ 

$6A04 

69FD 

BO 

09 


BCS 

$6A08 

69FF 

8D 

21 

DO 

STA 

$0021 

6A02 

DO 

3F 


BNE 

$6A43 

6A04 

85 

86 


STA 

$86 

6A06 

F0 

3B 


BEQ 

$6A43 

6A08 

E0 

03 


CPX 

#$03 

6A0A 

F0 

06 


BEQ 

$6A12 

6A0C 

BO 

08 


BCS 

$6A16 

6A0E 

85 

84 


STA 

$84 

6A10 

DO 

31 


BNE 

$6 A4 3 

6A12 

85 

85 


STA 

$85 

6A14 

FO 

2D 


BEQ 

$6 A4 3 

6A16 

EO 

05 


CPX 

#$05 

6A18 

FO 

07 


BEQ 

$6A21 

6A1A 

BO 

16 


BCS 

$6A32 

6A1C 

8D 

20 

DO 

STA 

$0020 

6A1F 

DO 

22 


BNE 

$6A43 

6A21 

24 

D 7 


BIT 

$D7 

6A23 

10 

08 


BPL 

$6A2D 

6A25 

AA 



TAX 


6A26 

A5 

Fl 


LDA 

$F1 

6A28 

29 

FO 


AND 

#$F0 

6A2A 

ID 

4C 

6A 

ORA 

$6A4C,X 

6A20 

85 

Fl 


STA 

SF1 

6A2F 

4C 

43 

6A 

JMP 

$6A43 

6A32 

AA 



TAX 


6A33 

A9 

1A 


LDA 

#$1 A 

6A35 

8D 

00 

D6 

STA 

$0600 

6A38 

AD 

01 

D6 

LDA 

$0601 

6A3B 

29 

FO 


AND 

#$F0 

6A3D 

ID 

4C 

6A 

ORA 

$6A4C,X 

6A40 

8D 

01 

D6 

STA 

$0601 

6 A4 3 

20 

5C 

6A 

JSR 

$6A5C 

6A46 

4C 

IE 

9E 

JMP 

$9E1E 

6A49 

4C 

28 

7D 

JMP 

$7D28 


Wert > 6 ? 

Ja, Fehler 
Wert retten 
Farbwert holen 

Wert ungültig ? 

Ja, Fehler 
ROMs einschalten 
Farbwert in (A) 

Farbquelle 
Vordergrund ? 

Ja, Skip 

Wenn nicht Hintergrund, Skip 
Hintergrundfarbe setzen 
Unbedingter Sprung 
Vordergrundfarbe setzen 
Unbedingter Sprung 
Farbquelle Mehrfarbmodus 2 ? 

Ja, Skip 

Wenn nicht Mehrfarbmodus 1, Skip 
Mehrfarbe 1 setzen 
Unbedingter Sprung 
Mehrfarbe 2 setzen 
Unbedingter Sprung 
Farbquelle Textfarbe ? 

Ja, Skip 

Wenn nicht Randfarbe, Skip 
Randfarbe setzen 
Unbedingter Sprung 
80-Zeichen-Modus ? 

Nein, Skip 

80-Zeichen Farbwert berechnen 


Farbwert setzen 
Farbwert 

für 80-Zeichen Hintergrund retten 
VDC programmieren 


Gepackte Farbwerte setzen 
Byte-Wert holen 
■ILLEGAL QUANTITY• 
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****************************** 

Umrechnungstabelle für 80-Zeichen-Farben 

6A4C 

00 

OF 

08 

07 OB 

04 02 OD 


6A54 

0A 

oc 

09 

06 01 

05 03 OE 


****************************** 

Gepackte Farbwerte setzen 

6A5C 

A5 

86 


LDA 

$86 

Vordergrundfarbe laden 

6A5E 

0A 



ASL 


und Wert in oberes Nibble setzen 

6A5F 

OA 



ASL 



6A60 

OA 



ASL 



6A61 

OA 



ASL 



6A62 

85 

77 


STA 

$77 

Nibbleuert retten 

6A64 

20 

45 

A8 

JSR 

$A845 

ROMS einschalten 

6A67 

AD 

21 

DO 

LDA 

$D021 

Hintergrundfarbe laden 

6A6A 

29 

OF 


AND 

#$0F 

Wert isolieren 

6A6C 

05 

77 


ORA 

$77 

und Vordergrundwert dazusetzen 

6A6E 

80 

E2 

03 

STA S03E2 

Vordergrund/Hintergrund setzen 

6A71 

A5 

84 


LDA $84 

Multicolorfarbe mit 

6A73 

05 

77 


ORA 

$77 

Vordergrund verknüpfen 

6A75 

80 

E3 

03 

STA 

$03E3 

Vordergrund/Multicolor setzen 

6A78 

60 



RTS 



****************************** 

BASIC-Befehl SCNCLR 

6A79 

DO 

14 


BNE 

$6A8F 

Uenn Wertangabe, Skip 

6A7B 

20 

8C 

81 

JSR 

$818C 

Aktuellen Graphikmodus laden 

6A7E 

C9 

05 


CMP 

#$05 

Nur VIC-Schirm löschen ? 

6A80 

90 

09 


BCC 

$6A8B 

Ja, Skip 

6A82 

E9 

05 


SBC 

#$05 

Nur 80-Zeichen Schirm ? 

6A84 

FO 

58 


BEQ 

$6ADE 

Ja, Skip 

6A86 

48 



PHA 



6A87 

20 

DE 

6A 

JSR 

$6ADE 

80-Zeichen Schirm löschen 

6A8A 

68 



PLA 



6A8B 

AA 



TAX 


und VIC-Schirm 

6A8C 

4C 

9B 

6A 

JMP 

$6A9B 

löschen 

6A8F 

20 

F4 

87 

JSR 

$87F4 

Byte-Wert holen 

6A92 

EO 

05 


CPX 

#$05 

80-Zeichen Schirm löschen ? 

6A94 

FO 

48 


BEQ 

$6ADE 

Ja, Skip 

6A96 

90 

03 


BCC 

$6A9B 

Nein, Skip 

6A98 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY• 

6A9B 

8A 



TXA 


40-Zeichen Textschirm löschen ? 

6A9C 

FO 

54 


BEQ 

$6AF2 

Ja, Skip 

6A9E 

20 

74 

AO 

JSR 

$A074 

Test auf HIRES-Bereich 

6AA1 

8A 



TXA 


Löschangabe retten 

6AA2 

48 



PHA 



6AA3 

29 

01 


AND 

#$01 

Volle Graphik löschen ? 

6AA5 

DO 

21 


BNE 

$6AC8 

Ja, Skip 



512 


128 Inlern 


6AA7 

20 

F2 

6A 

JSR $6AF2 

40-Zeichen Schirm löschen 

6AAA 

A5 

D7 


LDA $D7 

40-Zeichen-modus ? 

6AAC 

48 



PHA 


6AAD 

10 

03 


BPL $6AB2 

Ja, Skip 

6AAF 

20 

5F 

FF 

JSR $FF5F 

40-Zeichen ein 

6A82 

AD 

34 

OA 

LDA $0A34 

Rasterzeilenwert holen 

6AB5 

38 



SEC 


6AB6 

E9 

30 


SBC #$30 

auf Schirmanfang umrechnen 

6AB8 

4A 



LSR 

und durch 8 teilen 

6AB9 

4A 



LSR 


6ABA 

4A 



LSR 


6ABB 

AA 



TAX 

ergibt Zeile 

6ABC 

AO 

00 


LDY #$00 

Spalte auf 0 

6ABE 

18 



CLC 


6ABF 

20 

8D 

92 

JSR $9280 

Cursor setzen = Textfenster (HOME) 

6AC2 

68 



PLA 

40-Zeichen-Modus ? 

6AC3 

10 

03 


BPL $6AC8 

Ja, Skip 

6AC5 

20 

5F 

FF 

JSR $FF5F 

80-Zeichen wieder ein 

6AC8 

68 



PLA 

Löschmodus wieder holen 

6AC9 

29 

02 


AND #$02 

Mehrfarbschirm löschen ? 

6ACB 

FO 

03 


BEQ $6ADO 

Nein, Skip 

6AC0 

20 

17 

6B 

JSR $6B17 

Farb-RAM mit MCM-Farwert füllen 

6 ADO 

20 

30 

6B 

JSR $6B30 

HIRES-Schirm löschen 

6 AD 3 

A9 

00 


LDA #$00 

Aktuelle Koordinaten auf 0 setzen 

6 AD 5 

A2 

03 


LDX #$03 


6AD7 

9D 

31 

11 

STA $1131,X 


6ADA 

CA 



DEX 


6ADB 

10 

FA 


BPL $6AD7 


6ADD 

60 



RTS 



****************************** 80-Zeichen Schirm löschen 


6ADE 

A5 

D7 


LDA 

$D7 

80-Zeichen-Modus 7 

6AE0 

48 



PHA 



6AE1 

30 

03 


BMI 

S6AE6 

Ja, Skip 

6AE3 

20 

5F 

FF 

JSR 

$FF5F 

80-Zeichen ein 

6AE6 

A9 

93 


LDA 

#$93 

Code für (CLR) 

6AE8 

20 

69 

92 

JSR 

$9269 

ausgeben 

6AEB 

68 



PLA 


80-Zeichen-Modus ? 

6AEC 

30 

03 


BMI 

$6AF1 

Ja, Skip 

6AEE 

20 

5F 

FF 

JSR 

$FF5F 

40-Zeichen wieder ein 

6AF1 

60 



RTS 




****************************** 40-Zeichen Schirm löschen 

40-Zeichen-Modus ? 


6AF2 A5 D7 
6AF4 48 
6AF5 10 03 


LOA $07 
PHA 

BPL $6AFA 


Ja, Skip 
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6AF7 

20 5F FF 

JSR $FF5F 

40-Zeichen ein 

6AFA 

A9 93 

LDA #$93 

Code für (CLR) 

6AFC 

20 69 92 

JSR $9269 

ausgeben 

6AFF 

68 

PLA 

40-Zeichen-Modus ? 

6B00 

10 03 

BPL $6605 

Ja, Skip 

6B02 

20 5F FF 

JSR $FF5F 

80-Zeichen wieder ein 

6B05 

60 

RTS 


****************************** 

Ab (Y) * 256 (X) Pages mit (A) füllen 

6B06 

84 80 

STY $8D 

High-Byte Speicherseite setzen 

6B08 

A0 00 

LDY #$00 

und Lou-Byte auf 0 

6B0A 

84 8C 

STY $8C 


6B0C 

91 8C 

STA ($8C),Y 

Speicherseite mit (A) füllen 

6B0E 

88 

DEY 


6B0F 

DO FB 

BNE $6B0C 


6B11 

E6 80 

INC $80 

High-Byte erhöhen 

6B13 

CA 

DEX 

Alle Speicherseiten gelöscht ? 

6B14 

DO F6 

BNE $6B0C 

Nein, weitermachen 

6B16 

60 

RTS 


****************************** 

Farb-RAM mit Multicolorfarbe 2 füllen 

6B17 

20 45 A8 

JSR $A845 

ROMs einschalten 

6B1A 

78 

SEI 

Schirmverwaltung stoppen 

6B1B 

A5 01 

LDA $01 

Farb-RAM-auswahl retten 

6B1D 

48 

PHA 


6B1E 

29 FE 

AND #$FE 

Farb-RAM 2 für Graphik anwählen 

6B20 

85 01 

STA $01 


6B22 

A5 85 

LDA $85 

Farbwert laden 

6B24 

AO D8 

LDY #$D8 

High-Byte Farb-RAM laden 

6B26 

A2 04 

LDX #$04 

4 Speicherseiten setzen 

6B28 

20 06 6B 

JSR $6B06 

Farb-RAM mit Farbe füllen 

6B2B 

68 

PLA 


6B2C 

85 01 

STA $01 

Farb-RAM-auswahl wieder setzen 

6B2E 

58 

CLI 

Schirmverwaltung des Betriebssystems 

6B2F 

60 

RTS 

wieder erlauben 

****************************** 

HIRES-Bereich löschen 

6B30 

A9 00 

LDA #$00 

0 als Löschwert 

6B32 

AO 20 

LDY #$20 

High-Byte HIRES-Bereich laden 

6B34 

A2 20 

LDX #$20 

32 Speicherseiten löschen 

6B36 

20 06 6B 

JSR $6806 

HIRES-Bereich löschen 

6B39 

AD E2 03 

LDA $03E2 

Gepackte Normfarbwerte laden 

6B3C 

24 D8 

BIT $08 

Multicolormodus ? 

6B3E 

10 03 

BPL $6B43 

Nein, Skip 

6B40 

AD E3 03 

LDA $03E3 

Gepackte MCM-Wert laden 
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6B43 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 


6B46 

AO 

IC 


LDY 

#$1C 

High-Byte auf Video-RAM (HIRES Farb-RAM) 

6B48 

A2 

04 


LDX 

#$04 

4 Speicherseiten setzen 


6B4A 

20 

06 

6B 

JSR 

S6B06 

Video-RAM füllen 


6B4D 

A2 

3F 


LDX 

#$3F 

Zeiger auf Sprites wieder setzen 

6B4F 

AO 

07 


LDY 

#$07 



6B51 

8A 



TXA 




6B52 

99 

F8 

1F 

STA 

$1FF8,Y 



6B55 

CA 



DEX 




6B56 

88 



DEY 




6B57 

10 

F8 


BPL 

$6B51 



6B59 

60 



RTS 




****************************** 

BASIC-Befehl GRAPHIC 


6B5A 

C9 

9C 


CMP 

#$9C 

Token für CLR ? 


6B5C 

DO 

OB 


BNE 

$6B69 

Nein, Skip 


6B5E 

20 

22 

AO 

JSR 

$A022 

HIRES-Bereich löschen 


6B61 

20 

80 

03 

JSR 

$0380 

Token für CLR überlesen 


6B64 

A9 

00 


LDA 

#$00 

Graphikmodus löschen 


6B66 

85 

D8 


STA 

$D8 



6B68 

60 



RTS 




6B69 

20 

F4 

87 

JSR 

$87F4 

Byte-Wert holen 


6B6C 

8A 



TXA 


und retten 


6B6D 

48 



PHA 




6B6E 

EO 

05 


CPX 

#$05 

80-Zeichen Schirm ? 


6B70 

FO 

42 


BEQ 

$6BB4 

Ja, Skip 


6B72 

BO 

4D 


BCS 

$6BC1 

Wenn größer, Fehler 


6B74 

BD 

C4 

6B 

LDA 

$6BC4,X 

Entsprechenden Graphikmodus 

laden 

6B77 

85 

D8 


STA 

$08 

und setzen 


6B79 

FO 

07 


BEO 

$6B82 

Wenn 40-Zeichen Textschirm, 

Skip 

6B7B 

20 

4F 

9F 

JSR 

$9F4F 

HIRES-Bereich reservieren 


6B7E 

24 

08 


BIT 

$08 

Geteilter Graphikschirm ? 


6B80 

50 

07 


BVC 

$6B89 

Nein, Skip 


6B82 

24 

D7 


BIT 

$D7 

40-Zeichen-Modus ? 


6B84 

10 

03 


BPL 

$6B89 

Ja, Skip 


6B86 

20 

5F 

FF 

JSR 

$FF5F 

40-Zeichen ein 


6B89 

20 

IC 

9E 

JSR 

$9E1C 

Löschmodus in (X) holen 


6B8C 

EO 

02 


CPX 

#$02 

Zu groß ? 


6B8E 

BO 

31 


BCS 

$6BC1 

Ja, Fehler 


6B90 

8A 



TXA 


Löschwert retten 


6B91 

48 



PHA 




6B92 

A2 

14 


LDX 

#$14 

Textzeile für Teilschirm auf 

20 

6B94 

20 

IE 

9E 

JSR 

$9E1E 

Zeilenuert holen 


6B97 

EO 

1A 


CPX 

#$1 A 

> 25 ? 


6B99 

BO 

26 


BCS 

$6BC1 

Ja, Fehler 



6B9B 8A TXA 

6B9C OA ASL 


Wert durch 8 teilen 
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6B9D 

0A 



ASL 


6B9E 

0A 



ASL 


6B9F 

69 

30 


ADC 

#$30 

6BA1 

8D 

34 

OA 

STA 

O 

> 

68A4 

68 



PLA 


6BA5 

A8 



TAY 


6BA6 

68 



PLA 


6BA7 

AA 



TAX 


6BA8 

98 



TYA 


6BA9 

F0 

03 


BEQ 

$6BAE 

6BA3 

20 

92 

6A 

JSR 

$6A92 

6BAE 

A9 

00 


LDA 

#$00 

6BB0 

80 

6A 

11 

STA 

$116A 

6BB3 

60 



RTS 


6BB4 

24 

D7 


BIT 

$D7 

6BB6 

30 

Dl 


BMI 

$6B89 

6BB8 

A5 

D8 


LDA 

$D8 

6BBA 

29 

BF 


AND 

#$8F 

6BBC 

85 

08 


STA 

$D8 

6BBE 

4C 

86 

6B 

JMP 

$6B86 

6BC1 

4C 

28 

7D 

JMP 

$7D28 

****************************** 

6BC4 

00 

20 

60 

AO EO 


****************************** 

6BC9 

20 

F4 

87 

JSR 

** 

CO 

“TI 

6BCC 

E0 

10 


CPX 

#$10 

6BCE 

B0 

04 


BCS 

$6BD4 

6BD0 

8E 

D5 

03 

STX 

$03D5 

6BD3 

60 



RTS 


6BD4 

4C 

28 

7D 

JMP 

$7D28 

****************************** 

6BD7 

20 

12 

88 

JSR 

$8812 

6BDA 

A2 

00 


LDX 

#$00 

6BDC 

78 



SEI 


6BDD 

8C 

ID 

OA 

STY 

$0A1D 

6BE0 

80 

IE 

OA 

STA 

$0A1E 

6BE3 

8E 

1F 

OA 

STX 

$0A1 F 

6BE6 

20 

OC 

6C 

JSR 

$6C0C 

6BE9 

20 

16 

6C 

JSR 

$6C16 

6BEC 

20 

09 

6C 

JSR 

$6C09 

6BEF 

AC 

ID 

OA 

LDY 

$0A1D 

6BF2 

AD 

IE 

OA 

LDA 

$0A1E 


+ Schirmoffset 

ergibt Rasterzei tennummer 

Löschmodus 

in (Y) 

Graphikmodus 
in (X) 

Löschen ? 

Nein, Skip 
SCNCLR anspringen 
Skalierung löschen 


80-Zeichen-Modus ? 

Ja, Skip 

40-Zeichenmodus setzen 


und weitermachen 
•ILLEGAL QUANT1TY• 

Modustabeile für GRAPHIC 


BASIC-Befehl BANK 

Byte-Uert holen 
> 15 ? 

Ja, Fehler 
Bank setzen 

•ILLEGAL QUANTITY• 

BASIC-Befehl SLEEP 

Argument auswerten 

und Uhr danach setzen 


= Wert * 2 
= Wert * 3 
= Wert * 12 
Wert holen 
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6BF5 

AE 

1F 

OA 

LDX S0A1F 


6BF8 

20 

09 

6C 

JSR $6C09 

= Wert * 48 

6BFB 

20 

16 

6C 

JSR $6C16 

= Wert * 60 

6BFE 

58 



CL1 

Interrupt wieder freigeben 

6BFF 

20 

B5 

4B 

JSR $4BB5 

STOP-Taste prüfen 

6C02 

AE 

1 F 

OA 

LDX $0A1F 

SLEEP-Zeit abgelaufen ? 

6C05 

E8 



I NX 


6C06 

DO 

F7 


BNE $6BFF 

Nein, weiterschlafen 

6C08 

60 



RTS 


****************************** 

Uhrzeit setzen für SLEEP 

6C09 

20 

OC 

6C 

JSR $6C0C 


6C0C 

OE 

ID 

OA 

ASL $0A1D 

Uhrzeit * 2 

6C0F 

2E 

IE 

OA 

ROL $0A1E 


6C12 

2E 

1F 

OA 

ROL S0A1F 


6C15 

60 



RTS 


****************************** 

Uhrzeit setzen für SLEEP 

6C16 

48 



PHA 

(A),(X),(Y) auf Uhr aufaddieren 

6C17 

98 



TYA 


6C18 

6D 

ID 

OA 

ADC $0A1D 


6C1B 

80 

ID 

OA 

STA $0A1D 


6C1E 

68 



PLA 


6C1F 

6D 

IE 

OA 

ADC $0A1E 


6C22 

8D 

IE 

OA 

STA $0A1E 


6C25 

8A 



TXA 


6C26 

6D 

1F 

OA 

ADC $0A1F 


6C29 

8D 

1F 

OA 

STA $0A1 F 


6C2C 

60 



RTS 


****************************** 

BASIC-Befeht WAIT 

6C2D 

20 

03 

88 

JSR $8803 

Adresse und Argument 1 holen 

6C30 

86 

4B 


STX $4B 

Argument setzen 

6C32 

A2 

00 


LDX #$00 


6C34 

20 

86 

03 

JSR $0386 

2. Argument ? 

6C37 

FO 

03 


BEQ $6C3C 

Nein, Skip 

6C39 

20 

09 

88 

JSR $8809 

2. Argument holen 

6C3C 

86 

4C 


STX $4C 

und setzen 

6C3E 

AO 

00 


LDY #$00 

Offset auf 0 

6C40 

AE 

D5 

03 

LDX $0305 

Bank anwählen 

6C43 

A9 

16 


LDA #$16 

LDA ($16),Y 

6C45 

20 

74 

FF 

JSR $FF74 

Uert aus Bank holen 

6C48 

45 

4C 


EOR $4C 

mit Argumenten verknüpfen 

6C4A 

25 

4B 


AND $4B 
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6C4C FO FO BEQ $6C3E Wenn 0, weiter warten 

6C4E 60 RTS 

****************************** BASIC•Befehl SPRITE 


6C4F 

20 

BB 

6C 

JSR 

S6CBB 

Spritenummer auswerten 

6C52 

20 

IE 

9E 

JSR 

$9E1E 

Aktivierungswert holen 

6C55 

90 

05 


BCC 

$6C5C 

Uenn Angabe, Skip 

6C57 

A0 

15 


LDY 

#$15 

Offset auf VIC-Spriteregister 

6C59 

20 

9B 

6C 

JSR 

$6C9B 

Sprite aktivieren/desaktivieren 

6C5C 

20 

IE 

9E 

JSR 

$9E1E 

Farbe auswerten 

6C5F 

90 

OE 


BCC 

$6C6F 

Uenn keine Angabe, Skip 

6C61 

CA 



DEX 



6C62 

EO 

10 


CPX 

#$10 

Falscher Uert ? 

6C64 

BO 

32 


BCS 

$6C98 

Ja, Fehler 

6C66 

8A 



TXA 


Wert in (A) 

6C67 

A6 

77 


LOX 

$77 

Spritenummer 

6C69 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

6C6C 

90 

27 

DO 

STA 

$D027,X 

Farbwert setzen 

6C6F 

20 

IE 

9E 

JSR 

$9E1E 

Priorität auswerten 

6C72 

90 

05 


BC«?ia79 

Wenn keine Angabe, Skip 

6C74 

AO 

1 B 


LDY 

#$18 

Offset auf VIC-Register 

6C76 

20 

9B 

6C 

JSR 

$6C9B 

Priorität setzen/löschen 

6C79 

20 

IE 

9E 

JSR 

$9E1E 

X-Dehnung auswerten 

6C7C 

90 

05 


BCC 

$6C83 

Wenn kein Angabe, Skip 

6C7E 

AO 

ID 


LDY 

#$1D 

Offset auf VIC-Register 

6C80 

20 

9B 

6C 

JSR 

$6C9B 

X-Dehnung setzen 

6C83 

20 

IE 

9E 

JSR 

$9E1E 

Y-Dehnung auswerten 

6C86 

90 

05 


BCC 

$6C8D 

Wenn keine Angabe, Skip 

6C88 

AO 

17 


LDY 

#$17 

Offset auf VIC-Register 

6C8A 

20 

9B 

6C 

JSR 

$6C9B 

Y-Dehnung setzen 

6C8D 

20 

IE 

9E 

JSR 

$9E1E 

Modusangabe auswerten 

6C90 

90 

05 


BCC 

$6C97 

Wenn keine Angabe, Skip 

6C92 

AO 

IC 


LDY 

#$1C 

Offset auf VIC-Register 

6C94 

20 

9B 

6C 

JSR 

$6C9B 

Modus setzen 

6C97 

60 



RTS 



6C98 

4C 

28 

70 

JMP 

$7D28 

•ILLEGAL QUANTITY• 


****************************** Bits im VIC für Sprites programmieren 


6C9B 

8A 



TXA 


Setzen/löschen 

6C9C 

4A 



LSR 


in Carry 

6C9D 

DO 

F9 


BNE 

$6C98 

Wenn Wert > 1, Fehler 

6C9F 

A6 

77 


LDX 

$77 

Spritenummer laden 

6CA1 

BD 

B3 

6C 

LDA 

$6CB3,X 

Bitwert laden 

6CA4 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

6CA7 

19 

00 

DO 

ORA 

$D000,Y 

Bit setzen 

6CAA 

BO 

03 


BCS 

$6CAF 

Wenn Wert setzen, Skip 
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6CAC 

5D 

B3 

6C 

E0R $6CB3,X 

Bit löschen 

6CAF 

99 

00 

DO 

STA $0000,Y 

und in VIC speichern 

6CB2 

60 



RTS 



****************************** Zweierpotenzen für SPRITE 
6CB3 01 02 04 08 10 20 40 80 

****************************** spritenummer auswerten 


6CBB 

20 F4 87 

JSR $87F4 

Byte-Wert holen 

6CBE 

CA 

DEX 

und erniedrigen 

6CBF 

E0 08 

CPX #$08 

> 7 ? 

6CC1 

B0 D5 

BCS $6C98 

Ja, Fehler 

6CC3 

86 77 

STX $77 

Spritenummer setzen 

6CC5 

60 

RTS 



****************************** BASIC-Befehl MOVSPR 


6CC6 

20 

BB 

6C 

JSR 

$6CBB 

6CC9 

20 

9E 

60 

JSR 

$60 9E 

6CCC 

2C 

6E 

11 

BIT 

$116E 

6CCF 

50 

03 


BVC 

$6CD4 

6CD1 

4C 

6C 

79 

JMP 

$796C 

6CD4 

8C 

35 

11 

STY 

$1135 

6CD7 

8C 

37 

11 

STY 

$1137 

6CDA 

80 

36 

11 

STA 

$1136 

6CDD 

8D 

38 

11 

STA 

$1138 

6CE0 

20 

9E 

60 

JSR 

$6D9E 

6CE3 

2C 

6E 

11 

BIT 

$116E 

6CE6 

50 

61 


BVC 

$6049 

6CE8 

30 

3A 


BMI 

$6024 

6CEA 

98 



TYA 


6CEB 

48 



PHA 


6CEC 

A0 

04 


LDY 

#$04 

6CEE 

20 

74 

9A 

JSR 

$9A74 

6CF1 

A6 

77 


LDX 

$77 

6CF3 

BC 

D9 

60 

LDY 

$6009,X 

6CF6 

A9 

00 


LOA 

#$00 

6CF8 

99 

7E 

11 

STA 

$117E,Y 

6CFB 

C8 



INY 


6CFC 

A2 

03 


LDX 

#$03 

6CFE 

5E 

4A 

11 

LSR 

$114A,X 

6D01 

CA 



DEX 


6D02 

7E 

4A 

11 

ROR 

$114A,X 

60 05 

CA 



DEX 


6D06 

10 

F6 


BPL 

$6CFE 

6008 

E8 



INX 



Spri tenummer auswerten 
Wertangabe auswerten 
Komma angegeben ? 

Ja, Skip 
•SYNTAX' 

X und Y-Koordinaten setzen 


Ueiteren Parameter auswerten 
Konma angegeben ? 

Ja, Skip 

Wenn Relativkoordinaten, Skip 

Geschwirtdigkei t 

retten 

Winkelwerte berechnen 
Spritenummer 

Offset auf Spritewerttabelle laden 
Geschwirtdigkei t 
auf 0 setzen 

Winkelwerte durch 2 teilen 


(X) = 0 
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6D09 

BO 

49 

11 

LDA 

$1149,X 

Uinkelwerte 

6D0C 

C8 



INY 



6D0D 

99 

7E 

11 

STA 

S117E.Y 

in Spritewerttabel le übertragen 

6D10 

E0 

04 


CPX 

#$04 


6D12 

DO 

F4 


BNE 

$6008 


6014 

A9 

00 


LDA 

#$00 


6016 

C8 



INY 



6D17 

99 

7E 

11 

STA 

$ 117E, Y 


601A 

CA 



DEX 



6D1B 

DO 

F9 


BNE 

$6016 


6D1D 

68 



PLA 


Geschwindigkeit holen 

60 IE 

29 

OF 


AND 

#$0F 

Anpassung auf 0 bis 15 

6D20 

99 

74 

11 

STA 

$1174,Y 

und Speichern 

6D23 

60 



RTS 



****************************** 

Relativkoordinaten setzen 

6D24 

20 

39 

81 

JSR 

$8139 

(X) und (Y) vertauschen 

6027 

A8 



TAY 



6D28 

8A 



TXA 



6D29 

20 

77 

9A 

JSR 

$9A 77 

Uinkelwerte berechnen 

6D2C 

A2 

04 


LDX 

#$04 

Offset auf Koordinate 

60 2E 

20 

4A 

90 

JSR 

$904A 

Koordinaten skalieren 

6D31 

A2 

04 


LOX 

#$04 


6033 

18 



CLC 



6D34 

20 

CE 

9A 

JSR 

$9ACE 


60 37 

9D 

31 

11 

STA 

$1131,X 

Koordinaten setzen 

6D3A 

98 



TYA 



6D3B 

90 

32 

11 

STA 

$1132,X 


603E 

E8 



INX 



6D3F 

E8 



I NX 



6D40 

EO 

06 


CPX 

#$06 


6D42 

FO 

FO 


BEQ 

$6034 


6D44 

6E 

6E 

11 

ROR 

$116E 

Bit 7 setzen 

6D47 

30 

OB 


BMI 

$6054 

Unbedingter Sprung 

****************************** 

Absolutkoordinaten setzen 

6049 

8C 

37 

11 

STY 

$1137 

Y-Koordinate setzen 

6D4C 

80 

38 

11 

STA 

$1138 


6D4F 

A2 

04 


LDX 

#$04 


6D51 

20 

4A 

9D 

JSR 

$9D4A 

Koordinaten skalieren 

6054 

A5 

77 


LDA 

$77 

Spritenummer 

6056 

AA 



TAX 


als Offset auf Tabelle 

60 5 7 

OA 



ASL 


und 

6058 

A8 



TAY 


als Offset auf VIC-Tabelle laden 

6D59 

AD 

37 

11 

LDA 

$1137 

Y-Koordinate laden 

6D5C 

OE 

6E 

11 

ASL 

$116E 

Y = Relativkoordinaten ? 
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6D5F 

90 

09 


BCC 

$6D6A 

nein, Skip 

6061 

18 



CLC 



6062 

10 

03 


BPL 

$6067 

Wenn positiv, Skip 

6D64 

49 

FF 


EOR 

#$FF 

Uert invertieren 

6066 

38 



SEC 



6D67 

79 

D7 

11 

ADC 

$1107,Y 

zu alter Y-Koordinate addieren 

6D6A 

78 



SEI 


IRQ sperren 

6D6B 

99 

D7 

11 

STA 

$1107,Y 

und Y-Koordinate speichern 

6D6E 

AD 

35 

11 

LDA 

$1135 

X-Koordinate Low laden 

6D71 

OE 

6E 

11 

ASL 

$116E 

X = Relativkoordinate ? 

6074 

10 

12 


BPL 

$6088 

Nein, Skip 

6076 

18 



CLC 



6077 

79 

D6 

11 

ADC 

$1106,Y 

Koordinatenwert aufaddieren 

6D7A 

99 

06 

11 

STA 

$11D6,Y 

und speichern 

6070 

BO 

03 


BCS 

$6082 

Bei Übertrag 

607F 

EE 

36 

11 

INC 

$1136 

X-High erhöhen 

6082 

AD 

E6 

11 

LDA 

$11E6 

VIC X-Übertrag laden 

6D85 

4C 

91 

6D 

JMP 

$6091 


6D88 

99 

D6 

11 

STA 

$11D6,Y 

Koordinate speichern 

6D8B 

AD 

E6 

11 

LDA $11E6 

und VIC X-Übertrag 

608E 

ID 

B3 

6C 

ORA 

$6CB3,X 


6D91 

4E 

36 

11 

LSR 

$1136 

nach X-High 

6094 

BO 

03 


BCS 

$6099 


6096 

5D 

B3 

6C 

EOR 

$6CB3,X 


6099 

80 

E6 

11 

STA 

$11E6 

setzen 

6D9C 

58 



CLI 



6090 

60 



RTS 



****************************** 

Angabe für MOVSPR auswerten 

609E 

20 

C6 

60 

JSR 

$60 C6 

Test auf Komma und andere Zeichen 

6DA1 

6E 

6E 

11 

ROR 

$116E 

Kommastatus setzen 

60A4 

10 

OB 


BPL 

$60 Bl 

Wenn Komma, Skip 

6DA6 

C9 

3B 


CMP 

#$3B 

7 

6DA8 

FO 

13 


BEQ 

$60 BD 

Ja, Skip 

60 AA 

C9 

23 


CMP 

#$23 

'#' ? 

6DAC 

FO 

OE 


BEO 

$60 BC 

Ja, Skip 

60AE 

4C 

6C 

79 

JMP 

$796C 

•SYNTAX' 

6DB1 

20 

86 

03 

JSR 

$0386 

CHRGOT 

60 B4 

C9 

AA 


CMP 

#$AA 

Token für + ? 

6DB6 

FO 

05 


BEO 

$60 BD 

Ja, Skip 

6DB8 

C9 

AB 


CMP 

#$AB 

Token für - ? 

6DBA 

FO 

01 


BEQ 

$60 BO 

Ja, Skip 

6DBC 

18 



CLC 


Flag für anderes Zeichen 

6DBD 

6E 

6E 

11 

ROR 

$116E 

Status bei +,-,; setzen (BEQ = SEC) 

60 CO 

20 

D7 

77 

JSR 

$7707 

Wert holen 
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6DC3 4C 19 88 JMP $8819 und in Adressformat 
****************************** j es t auf Komma oder andere Zeichen 


60 C6 

20 

86 

03 

JSR $0386 

CHRGOT 

6DC9 

FO 

OD 


BEQ $6DD8 

Wenn Trennzeichen, Skip 

60CB 

C9 

2C 


CMP #$2C 

■ i t 

1 * 

6DCD 

18 



CLC 

Flag für Komma 

6DCE 

F0 

01 


BEQ $6001 

Ja, Skip 

6DD0 

38 



SEC 

Flag für anderes 

6DD1 

08 



PHP 

Flags retten 

6DD2 

48 



PHA 

Zeichen retten 

6DD3 

20 

80 

03 

JSR $0380 

und Zeichen über lesen 

6DD6 

68 



PLA 


6DD7 

28 



PLP 


6008 

60 



RTS 


************* 

***************** 

11er Tabellenoffsets für Spritedaten 

6DD9 

00 

OB 

16 

21 2C 37 42 40 

0,11,22,33,44,55,66,77 

****************************** 

BASIC-Befehl PLAY 

6DE1 

20 

7B 

87 

JSR $877B 

FRMEVL + FRESTR String auswerten 

6DE4 

80 

03 

FF 

STA $FF03 

Write in Bank 0 setzen 

6DE7 

85 

77 


STA $77 

Länge speichern 

60E9 

20 

CE 

6F 

JSR $6FCE 

Werte zurücksetzen 

6DEC 

85 

78 


STA $78 

Stringoffset auf 0 

6DEE 

A4 

78 


LDY $78 

Offset laden 

6DF0 

C4 

77 


CPY $77 

Stringlänge erreicht ? 

60F2 

F0 

00 


BEQ $6E01 

Ja, Ende 

60F4 

20 

B7 

03 

JSR $03B7 

Zeichen aus String holen 

6DF7 

80 

03 

Ff 

STA $FF03 

Write in Bank 0 setzen 

60 FA 

20 

02 

6E 

JSR $6E02 

Zeichen analysieren 

60 FO 

E6 

78 


INC $78 

Offset erhöhen 

60 FF 

DO 

ED 


BNE $60EE 

Unbedingter Sprung zum Schleifenanfang 

6E01 

60 



RTS 


****************************** 

Zeichenanalyse für PLAY 

6E02 

C9 

20 


CMP #$20 

Space ? 

6E04 

DO 

01 


BNE $6E07 

Nein, Skip 

6E06 

60 



RTS 


6E07 

C9 

41 


CMP #$41 

< 

V 

6E0S 

90 

07 


BCC $6E12 

Ja, Skip 

6E0E 

C9 

48 


CMP #$48 

> 'G' ? 

6E0D 

BO 

03 


BCS $6E12 

Ja, Skip 

6E0F 

4C 

IE 

6F 

JMP $6F1E 

Note auswerten 
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6E12 

A2 

04 


LDX 

#$04 


6E14 

DD 

E7 

6F 

CMP 

$6FE7,X 

Notendauerangabe 'W'.'H'.'Q', 1 !' 

6E17 

DO 

03 


BNE 

$6ElC 

Nein, Skip 

6E19 

4C 

07 

6F 

JMP 

S6F07 

Notendauer setzen 

6E1C 

CA 



DEX 



6E1D 

10 

F5 


8PL 

$6E14 


6E1F 

C9 

52 


CMP 

#$52 

•R • ? 

6E21 

DO 

03 


BNE 

$6E26 

Nein, Skip 

6E23 

4C 

78 

6F 

JMP 

$6F78 

Filterresonanz fest legen 

6E26 

C9 

2E 


CMP 

#$2E 

1 . 1 ? 

6E28 

DO 

03 


BNE 

$6E2D 


6E2A 

4C 

03 

6F 

JMP 

$6F03 

Punktierte Note setzen 

6E2D 

A2 

05 


LDX 

#$05 


6E2F 

DD 

EC 

6F 

CMP 

$6FEC,X 

Steuerung 'V','0','T','X','U','M 

6E32 

DO 

03 


BNE 

S6E37 

Nein, Skip 

6E34 

4C 

52 

6F 

JMP 

$6F52 

Musiksteuerung durchführen 

6E37 

CA 



DEX 



6E38 

10 

F5 


BPL 

$6E2F 


6E3A 

C9 

23 


CMP 

#$23 

•#' ? 

6E3C 

DO 

03 


BNE 

$6E41 

Nein, Skip 

6E3E 

4C 

69 

6F 

JMP 

$6F69 

Halbton erhöhen 

6E41 

C9 

24 


CMP 

#$24 

•$' 7 

6E43 

DO 

03 


BNE 

$6E48 

Nein, Skip 

6E45 

4C 

6C 

6F 

JMP 

$6F6C 

Halbton erniedrigen (b) 

6E48 

38 



SEC 



6E49 

E9 

30 


SBC 

#$30 


6E4B 

C9 

OA 


CMP 

#$0A 

Zahl ? 

6E4D 

90 

03 


BCC 

$6E52 

Ja, Skip 

6E4F 

4C 

FD 

6E 

JMP 

$6EFD 

Fehler ausgeben 

6E52 

OE 

26 

01 

ASL 

$0126 

Stimme setzen ? 

6E55 

BO 

46 


BCS 

$6E9D 

Ja, Skip 

6E57 

OE 

26 

01 

ASL 

$0126 

Oktave setzen 7 

6E5A 

BO 

4C 


BCS 

$6EA8 

Ja, Skip 

6E5C 

OE 

26 

01 

ASL 

$0126 

Klang setzen 7 

6E5F 

BO 

50 


BCS 

$6EB1 

Ja, Skip 

6E61 

OE 

26 

01 

ASL 

$0126 

Filter setzen 7 

6E64 

90 

77 


BCC 

$6EDD 

Nein, Lautstärke setzen, Skip 

6E66 

C9 

02 


CMP 

#$02 

Wert = 1 oder 2 7 

6E68 

90 

03 


BCC 

$6E6D 

Ja, Skip 

6E6A 

4C 

FD 

6E 

JMP 

$6EFD 

Fehler 

****************************** 

FiIter setzen 

6E60 

4A 



LSR 


FiIterbit in Carry 

6E6E 

AC 

2F 

12 

LDY 

$122F 

Stimmennummer 

6E71 

BE 

E4 

6F 

LDX 

$6FE4,Y 

Offset auf Stimmentabelle laden 

6E74 

BD 

24 

12 

LDA 

$1224,X 

Stimme fertig 7 

6E77 

10 

FB 


BPL 

$6E74 

Nein, warten 
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6E79 

B9 

B3 

6C 

LDA 

$6CB3,Y 

6E7C 

OD 

73 

12 

ORA 

*1273 

6E7F 

BO 

03 


BCS 

*6E84 

6E81 

59 

B3 

6C 

E0R 

$6CB3,Y 

6E84 

8D 

73 

12 

STA 

*1273 

6E87 

AD 

74 

12 

LDA 

*1274 

6E8A 

80 

75 

12 

STA 

*1275 

6E8D 

A2 

03 


LDX 

#*03 

6E8F 

BD 

71 

12 

LDA 

*1271,X 

6E92 

20 

45 

A8 

JSR 

*A845 

6E95 

9D 

15 

D4 

STA 

*D415,X 

6E98 

CA 



DEX 


6E99 

10 

F4 


BPL 

*6E8F 

6E9B 

30 

5A 


BMI 

*6EF7 


****************************** 


6E9D 

AA 



TAX 


6E9E 

CA 



DEX 


6E9F 

E0 

03 


CPX 

#$03 

6EA1 

BO 

5A 


BCS 

$6EFD 

6EA3 

8E 

2F 

12 

STX 

S122F 

6EA6 

90 

4F 


BCC 

$6EF7 

****************************** 

6EA8 

C9 

07 


CMP 

#$07 

6EAA 

BO 

51 


BCS 

$6EFD 

6EAC 

8D 

2B 

12 

STA 

$1228 

6EAF 

90 

46 


BCC 

$6EF7 

****************************** 

6EB1 

AA 



TAX 


6EB2 

20 

45 

A8 

JSR 

$A845 

6EB5 

AC 

2F 

12 

LDY 

$122F 

6EB8 

BD 

53 

12 

LDA 

$1253,X 

6EBB 

99 

30 

12 

STA 

$1230,Y 

6EBE 

B9 

39 

70 

LDA 

$7039,Y 

6EC1 

A8 



TAY 


6EC2 

BD 

3F 

12 

LDA 

$123F,X 

6EC5 

99 

05 

D4 

STA 

$D405,Y 

6EC8 

BD 

49 

12 

LDA 

$1249,X 

6ECB 

99 

06 

D4 

STA 

$D406,Y 

6ECE 

BD 

50 

12 

LDA 

$1250,X 

6ED1 

99 

02 

D4 

STA 

$D402,Y 

6ED4 

BD 

67 

12 

LDA 

$1267,X 

6ED7 

99 

03 

D4 

STA 

$0403,Y 


FiIterbits 
setzen 

Uenn Filter an, Skip 
Filterbits wieder löschen 
und Filterwert löschen 
Filterwert kopieren 

Filter programmieren 

ROMs einschalten 
Werte in SID 


Stimme setzen 


Stimmennummer gültig ? 

Nein, Fehler 
Stimme setzen 
Unbedingter Sprung 

Oktave setzen 

Oktave gültig ? 

Nein, Fehler 
Oktave setzen 
Unbedingter Sprung 

Klang setzen 

Klangnummer als Offset 
ROMs einschalten 
Stimmennummer 
Wellenform setzen 

Offset auf SID-Register laden 

Attack/Decay setzen 

Sustain/Release setzen 

Pulsbreite-low setzen 

Pulsbreite-High setzen 
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6EDA 4C F7 6E JMP $6EF7 

****************************** Lautstärke setzen 


6ED0 

AA 



TAX 

Lautstärke als Offset verwenden 

6EDE 

AD 

74 

12 

IDA $1274 

Filterwert nehmen 

6EE1 

29 

FO 


AND #$F0 


6EE3 

ID 

3C 

70 

ORA $703C,X 

mit Lautstärketabelle verknüpfen 

6EE6 

8D 

74 

12 

STA $1274 

und wieder setzen 

6EE9 

AD 

75 

12 

LDA $1275 

Filterwert nehmen 

6EEC 

29 

FO 


AND #$F0 


6EEE 

ID 

3C 

70 

ORA $703C,X 

mit Lautstärketabelle verknüpfen 

6EF1 

20 

45 

A8 

JSR $A845 

ROMs einschalten 

6EF4 

8D 

18 

D4 

STA $D418 

und Wert in SID setzen 

****************************** 

Steuerungsbits löschen 

6EF7 

A9 

00 


LDA #$00 


6EF9 

8D 

26 

01 

STA $0126 


6EFC 

60 



RTS 


****************************** 

•ILLEGAL QUANTITY• 

6EFD 

20 

F7 

6E 

JSR $6EF7 

Steuerung rücksetzen 

6F00 

4C 

28 

7D 

JMP $7D28 

•ILLEGAL QUANTITY• 

****************************** 

Punktierung einer Note setzen 

6F03 

8D 

33 

12 

STA $1233 


6F06 

60 



RTS 


****************************** 

Notenlänge setzen 

6F07 

A0 

80 


LDY #$80 

($1229) = $0480 

6F09 

8C 

29 

12 

STY $1229 


6F0C 

AO 

04 


LDY #$04 


6F0E 

8C 

2A 

12 

STY S122A 


6F11 

CA 



DEX 

Notenlänge erreicht ? 

6F12 

30 

09 


BMI $6F1D 

Ja, Ende 

6F14 

4E 

2A 

12 

LSR $122A 

Uert durch 2 teilen 

6F17 

6E 

29 

12 

ROR $1229 


6F1A 

4C 

11 

6F 

JMP $6F11 

und weitermachen 

6F10 

60 



RTS 



****************************** Notenwert spielen 


6F1E 38 
6F1F E9 41 


SEC 

SBC #$41 


Von ASCII zu Offset 
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6F21 

AA 



TAX 


Als Offset laden 

6F22 

BO 

F2 

6F 

LDA 

$6FF2,X 

Halbtonwert für Note laden 

6F25 

AA 



TAX 


und retten 

6F26 

A9 

06 


LDA 

#$06 

6 Oktaven 

6F28 

38 



SEC 


minus 

6F29 

ED 

2B 

12 

SBC 

$122B 

Oktavennummer 

6F2C 

A8 



TAY 


ergibt Oktavenwert 

6F2D 

8A 



TXA 


Halbtonwert wieder holen 

6F2E 

18 



CLC 



6F2F 

60 

2C 

12 

ADC 

$122C 

und Halbtonflag addieren (# oder b) 

6F32 

10 

03 


BPL 

$6F37 

Uenn > 0, Skip 

6F34 

A9 

08 


LDA 

#$0B 

12. Halbton 

6F36 

C8 



I NY 


in niedrigerer Oktave 

6F37 

C9 

OC 


CMP 

#$0C 

Halbtonwert > 11 ? 

6F39 

90 

03 


BCC 

$6F3E 

nein, Skip 

6F3B 

A9 

00 


LOA 

#$00 

1. Halbton 

6F3D 

88 



DEY 


in höherer Oktave 

6F3E 

AA 



TAX 


Halbtonwert als Offset verwenden 

6F3F 

BO 

F9 

6F 

LDA 

$6FF9,X 

Pitchwert-Low 

6F42 

80 

20 

12 

STA 

$1220 

setzen 

6F45 

BD 

05 

70 

LDA 

$7005,X 

Pitch-High laden 

6F48 

88 



DEY 


Oktave erreicht ? 

6F49 

30 

27 


BMI 

$6F72 

Ja, Skip 

6F4B 

4A 



LSR 


Pitchwert durch 2 teilen 

6F4C 

6E 

20 

12 

ROR 

$1220 


6F4F 

4C 

48 

6F 

JMP 

$6F48 

und weiterschleifen 

****************************** 

Steuerungsbefehle auswerten 

6F52 

C9 

4D 


CMP 

#$4D 

•M* 7 

6F54 

F0 

07 


BEO 

$6F5D 

Ja, Skip 

6F56 

BD 

IC 

90 

LDA 

$9D1C,X 

Steuerungsbit holen 

6F59 

80 

26 

01 

STA 

$0126 

und setzen 

6F5C 

60 



RTS 



*****1 

lr***4 

t**4 

k***i 



Auf Musikende aller Stimmen warten 

6F5D 

A0 

05 


LDY 

#$05 


6F5F 

B9 

23 

12 

LDA 

$1223,Y 

Stimme fertig ? 

6F62 

10 

FB 


BPL 

$6F5F 

Nein, warten 

6F64 

88 



DEY 



6F65 

88 



DEY 


Alle Stimmen fertig ? 

6F66 

10 

F7 


BPL 

$6F5F 

Nein, weiterwarten 

6F68 

60 



RTS 




****************************** Halbton setzen (# oder b) 
6F69 A9 01 LDA #$01 Halbton erhöhen # 
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6F6B 

2C 

•BYTE $2C 


6F6C 

A9 FF 

LDA #$FF 

Halbton erniedrigen b 

6F6E 

8D 2C 12 

STA S122C 


6F71 

60 

RTS 



****************************** Notenwert spielen 


6F72 

80 

2E 

12 

STA 

$122E 

Pitchwert-High setzen 

6F75 

A9 

00 


LDA 

#$00 

Flag für Note 

6F77 

2C 



•BYTE $2C 


6F78 

A9 

FF 


LDA 

#$FF 

Flag für Pause 

6F7A 

48 



PHA 


Flag retten 

6F7B 

AE 

2F 

12 

LDX 

S122F 

Stimmennummer 

6F7E 

BC 

E4 

6F 

LDY 

$6FE4,X 

Offset auf Stimmentabelle laden 

6F81 

B9 

24 

12 

LDA 

$1224,Y 

Stimme fertig ? 

6F84 

10 

FB 


BPL 

$6F81 

Nein, warten 

6F86 

AD 

29 

12 

LDA 

$1229 

Notendauer setzen 

6F89 

99 

23 

12 

STA 

$1223,Y 


6F8C 

AD 

2A 

12 

LDA 

$122A 


6F8F 

99 

24 

12 

STA 

$1224,Y 


6F92 

AD 

33 

12 

LDA 

$1233 

Punktierung ? 

6F95 

F0 

17 


BEQ 

$6FAE 

Nein, Skip 

6F97 

AD 

2A 

12 

LDA 

$122A 

Notendauer halbieren 

6F9A 

4A 



LSR 



6F9B 

48 



PHA 



6F9C 

AD 

29 

12 

LDA 

$1229 


6F9F 

6A 



ROR 



6FA0 

18 



CLC 


und dazuaddieren 

6FA1 

79 

23 

12 

ADC 

$1223,Y 


6FA4 

99 

23 

12 

STA 

$1223,Y 


6FA7 

68 



PLA 



6FA8 

79 

24 

12 

ADC 

$1224,Y 


6FAB 

99 

24 

12 

STA 

$1224,Y 


6FAE 

68 



PLA 


Note spielen ? 

6FAF 

30 

ID 


BMI 

$6FCE 

Nein, Pause, Skip 

6FB1 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

6FB4 

BC 

39 

70 

LDY 

$7039,X 

Stimnenoffset laden 

6FB7 

AD 

2D 

12 

LDA 

S122D 

Pitchwert eintragen 

6FBA 

99 

00 

D4 

STA 

$D400,Y 


6FBD 

AD 

2E 

12 

LDA 

$122E 


6FC0 

99 

01 

D4 

STA 

$0401,Y 


6FC3 

A9 

08 


LDA 

#$08 

SID entriegeln (TEST-Bit setzen!) 

6FC5 

99 

04 

D4 

STA 

$D404,Y 


6FC8 

BD 

30 

12 

LDA 

$1230,X 

Wellenform programmieren 

6FCB 

99 

04 

D4 

STA 

$D404,Y 
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****************************** Flags löschen 


6FCE 

A9 

00 


LDA #$00 



6FD0 

80 

2C 

12 

STA $122C 

Halbtonflag 

löschen 

6FD3 

80 

33 

12 

STA $1233 

Punktierung 

löschen 

6FD6 

60 



RTS 




****************************** BASIC-Befehl TEMPO 


6FD7 

20 

F4 

87 

JSR 

$87F4 


Byte-Wert holen 

6FDA 

8A 



TXA 



= 0 ? 

6FDB 

F0 

04 


BEQ 

$6FE1 


Ja, Fehler 

6FDD 

8E 

22 

12 

STX 

$1222 


Tempo setzen 

6FE0 

60 



RTS 




6FE1 

4C 

28 

70 

JMP 

$7028 


•ILLEGAL QUANTITY• 

****************************** 

Offsets für Stimmentabelle 

6FE4 

00 

02 

04 





****************************** 

Kommandotabellen für PLAY 

6FE7 

57 

48 

51 

49 53 



•U'.'H'.'Q'.'l'.'S' 

6FEC 

56 

4F 

54 

58 55 

4D 


'V'.'O'.'T'.'X'.'U'.'M* 

****** 

r***< 

r**4 

>*** 

r*****< 

******* 

** 

Halbtonzahlen für Notenwerte 

6FF2 

09 

OB 

00 

02 04 

05 07 



****************************** 

Pitchtabelle Low 

6FF9 

2F 

B6 

83 

99 FC 

Bl BD 

25 


7001 

EF 

20 

BE 

Dl 




****************************** 

Pitchtabelle High 

7005 

4C 

50 

55 

5A 5F 

65 6B 

72 


7000 

78 

80 

87 

8F 




****************************** 

Vorbesetzungswerte für die Hüllkurven 

7011 

09 

CO 

00 

05 94 

09 09 

09 Attack/Decay-Uerte 

7019 

89 

09 






7018 

00 

CO 

FO 

50 40 

21 00 

90 

Sustain/Release-Werte 

7023 

41 

00 






7025 

41 

21 

11 

81 11 

21 41 

41 

Wellenformwerte für den SIO-Baustein 
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702D 41 11 

****************************** Vorbesetzung für die Pulswellen 

702F 06 00 00 00 00 00 02 08 High-Bytes der Pulswerte 

7037 02 00 

****************************** SID-Stimmenoffsets 

7039 00 07 OE 0,7,14 

★***★*****★*★*★****★*★★*★****★ Lautstärkentabeile 

703C 00 01 03 05 07 08 0A 0C 

7044 0E OF 

****************************** BASIC-ßefehl FILTER 


7046 

48 



PHA 


7047 

A0 

03 


LDY 

#$03 

7049 

B9 

71 

12 

LDA 

$1271,Y 

704C 

99 

34 

12 

STA 

$1234,Y 

704 F 

88 



DEY 


7050 

10 

F7 


BPL 

$7049 

7052 

68 



PLA 


7053 

C9 

2C 


CMP 

#$2C 

7055 

F0 

19 


BEQ 

$7070 

7057 

20 

12 

88 

JSR 

$8812 

705A 

C9 

08 


CMP 

#$08 

705C 

B0 

60 


BCS 

$70BE 

705E 

8C 

34 

12 

STY 

$1234 

7061 

8C 

35 

12 

STY 

$1235 

7064 

4A 



LSR 


7065 

6E 

35 

12 

ROR 

$1235 

7068 

4A 



LSR 


7069 

6E 

35 

12 

ROR 

$1235 

706C 

4A 



LSR 


7060 

6E 

35 

12 

ROR 

$1235 

7070 

A9 

10 


LDA 

#$10 

7072 

80 

38 

12 

STA 

$1238 

7075 

20 

IE 

9E 

JSR 

$9E1E 

7078 

90 

17 


BCC 

$7091 

707A 

E0 

01 


CPX 

#$01 

707C 

90 

05 


BCC 

$7083 

707E 

F0 

03 


8EQ 

$7083 

7080 

4C 

28 

7D 

JMP 

$7028 

7083 

AD 

37 

12 

LDA 

$1237 

7086 

00 

38 

12 

ORA 

$1238 


Aktuelles Zeichen retten 

Filterwerte 

mit alten Werten 

vorbesetzen 


Zeichen wieder holen 
? 

Ja, Skip 

Ausdruck nach Komma holen 
Wert > 2047 ? 

Ja, Fehler 

Filterfrequenz setzen 


Hilfsregister vorbesetzen 

Byte-Wert holen 

Wenn keine Angabe, Skip 

Wert korrekt ? 

Ja, Skip 
Ja, Skip 

'ILLEGAL QUANTITY• 

Wert laden 

und Filterbit setzen 
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7089 

BO 

03 


BCS 

$708E 

Uenn gesetzt werden soll, Skip 

7088 

4D 

38 

12 

EOR 

$1238 

Filterbit löschen 

708E 

80 

37 

12 

STA 

$1237 

Filterwert speichern 

7091 

OE 

38 

12 

ASL 

$1238 

Hilfsregister linksverschieben 

7094 

10 

DF 


BPL 

$7075 Schleife, bis alle Filterbits 

abgearbeitet 





7096 

20 

IE 

9E 

JSR 

$9E1E 

Resonanz auswerten 

7099 

90 

17 


BCC 

$7082 

Wenn keine Angabe, Skip 

709B 

EO 

10 


CPX 

#$10 

> 15 7 

7090 

BO 

1 F 


BCS 

$70BE 

Ja, Fehler 

709F 

8A 



TXA 



70A0 

OA 



ASL 


Resonanz anpassen 

70 AI 

OA 



ASL 



70A2 

OA 



ASL 



70A3 

OA 



ASL 



70A4 

80 

39 

12 

STA 

$1239 


70A7 

AD 

36 

12 

LDA 

$1236 


70AA 

29 

OF 


AND 

#$0F 


70AC 

00 

39 

12 

ORA 

$1239 

und mit Filterdaten verknüpfen 

70 AF 

8D 

36 

12 

STA 

$1236 


70B2 

AO 

03 


LDY 

#$03 

Filterwerte wieder programmieren 

70B4 

B9 

34 

12 

LDA 

$1234,Y 


70B7 

99 

71 

12 

STA 

$1271,Y 


70BA 

88 



DEY 



70BB 

10 

F7 


8PL 

V* 

O 

DB 

£•* 


70BD 

60 



RTS 



70BE 

4C 

28 

7D 

JMP 

$7028 

•ILLEGAL QUANTITY■ 

****************************** BASIC-Befehl ENVELOPE 

70C1 

20 

F4 

87 

JSR 

$87F4 

Klangnummer auswerten 

70C4 

EO 

OA 


CPX 

#$0A 

Zu groß ? 

70C6 

90 

03 


BCC 

$70CB 

Nein, Skip 

70C8 

4C 

28 

7D 

JMP 

$70 28 

•ILLEGAL QUANTITY• 

70CB 

8E 

3A 

12 

STX 

$123A 

Klangnummer setzen 

70CE 

SD 

3F 

12 

LDA 

$123F,X 

Klangwerte mit alten Werten vorbesetzen 

7001 

80 

3B 

12 

STA 

$1238 


7004 

BD 

49 

12 

LDA 

$1249,X 


7007 

80 

3C 

12 

STA 

$123C 


70DA 

BD 

53 

12 

LDA 

$1253,X 


7000 

80 

30 

12 

STA 

$1230 


70E0 

A2 

00 


LDX 

#$00 


70E2 

8E 

3E 

12 

STX 

S123E 

Offset auf 0 

70E5 

20 

IE 

9E 

JSR 

$9E1E 

Byte-Wert holen 

70E8 

90 

16 


BCC 

$7100 

Wenn keine Angabe, Skip 

70EA 

8A 



TXA 


Wert in (A) 

70EB 

OA 



ASL 


und oberes Nibble isolieren 

70EC 

OA 



ASL 
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70ED 

0A 



ASL 



70EE 

OA 



ASL 



70EF 

8D 

39 

12 

STA 

$1239 

Uert setzen 

70F2 

AE 

3E 

12 

LDX 

$123E 


70F5 

BD 

3B 

12 

LDA 

$123B,X 


70F8 

29 

OF 


AND 

#$0F 

Altes unteres Nibble holen 

70 FA 

OD 

39 

12 

ORA 

$1239 

und mit neuem verknüpfen 

70FD 

9D 

3B 

12 

STA 

$1238,X 

Uert wieder setzen 

7100 

20 

IE 

9E 

JSR 

$9E1E 

Byte-Uert holen 

7103 

90 

14 


BCC 

$7119 

Wenn keine Angabe, Skip 

7105 

8A 



TXA 



7106 

29 

OF 


AND 

#$0F 

Unteres Nibble isolieren 

7108 

8D 

3V 

12 

STA 

$1239 

Uert setzen 

710B 

AE 

3E 

12 

LDX 

$123E 


710E 

BD 

3B 

12 

LDA 

$123B,X 


7111 

29 

FO 


AND 

#$F0 

Oberes Nibble isolieren 

7113 

OD 

39 

12 

ORA 

$1239 

und mit neuem Wert verknüpfen 

7116 

9D 

3B 

12 

STA 

$123B,X 

Wert wieder setzen 

7119 

AE 

3E 

12 

LDX 

$123E 

Attack/Decay 

71 IC 

E8 



INX 


und Sustain/Release 

71 ID 

EO 

01 


CPX 

#$01 

verarbeitet ? 

711F 

FO 

CI 


BEQ 

** 

O 

m 

r\j 

Nein, nochmal Werte holen 

7121 

20 

IE 

9E 

JSR 

$9E1E 

Uellenform holen 

7124 

90 

10 


BCC 

$7136 

Wenn keine Angabe, Skip 

7126 

A9 

15 


LDA 

#$15 

Wert mit Ringmodulation vorbesetzen 

7128 

EO 

04 


CPX 

#$04 

Ringmodulation ? 

712A 

FO 

07 


BEQ 

$7133 

Ja, Skip 

712C 

BO 

9A 


BCS 

$70C8 

Wenn falsche Angabe, Fehler 

712E 

BD 

B7 

6C 

LDA 

$6CB7,X 

Bit für entsprechende Wellenform holen 

7131 

09 

01 


ORA 

#$01 

KEY-Bit setzen 

7133 

80 

3D 

12 

STA 

$1230 

und Wert speichern 

7136 

20 

06 

9E 

JSR 

$9E06 

Impulsbreite in CA)/<Y) holen 

7139 

90 

13 


BCC 

$714E 

Wenn keine Angabe, Skip 

713B 

AA 



TAX 



713C 

AD 

3D 

12 

LDA 

$1230 


713F 

29 

40 


AND 

#$40 

Rechteck ausgewählt ? 

7141 

FO 

OB 


BEQ 

$714E 

Nein, Skip 

7143 

8A 



TXA 



7144 

AE 

3A 

12 

LDX 

$123A 


7147 

9D 

67 

12 

STA 

$1267,X 

Impulsbreite setzen 

714A 

98 



TYA 



714B 

90 

5D 

12 

STA 

$1250,X 


714E 

AE 

3A 

12 

LDX 

$123A 


7151 

AD 

3B 

12 

LDA 

$123B 

Klangwerte wieder programmieren 

7154 

9D 

3F 

12 

STA 

$123F,X 


7157 

AD 

3C 

12 

LDA 

$123C 


715A 

9D 

49 

12 

STA 

$1249,X 


715D 

AD 

3D 

12 

LDA 

$1230 




Dnc RAS IC-ROM 


531 


7160 

90 

53 

12 

STA 

$1253,X 


7163 

60 



RTS 



****** 

**** 

*** 

**** 

***** 


BASIC-Befehl COLLISION 

7164 

20 

F4 

87 

JSR 

$87F4 

Typ ausuerten 

7167 

CA 



DEX 



7168 

E0 

03 


CPX 

#$03 

Wert korrekt ? 

716A 

BO 

21 


BCS 

$7180 

Nein, Fehler 

716C 

8E 

80 

12 

STX 

$1280 

Kollisionstyp setzen 

716F 

20 

06 

9E 

JSR 

$9E06 

Zeilennummer auswerten 

7172 

08 



PHP 


Status retten 

7173 

AE 

80 

12 

LDX 

$1280 


7176 

90 

7C 

12 

STA 

$127C,X 

Zeilennummer setzen 

7179 

98 



TYA 



717A 

90 

79 

12 

STA 

$1279,X 


717D 

AD 

7F 

12 

LDA 

$127F 

IRQ-Flag laden 

7180 

ID 

B3 

6C 

ORA 

$6CB3,X 

Kollisionsbit setzen 

7183 

28 



PLP 


Soll gesetzt werden 7 

7184 

BO 

03 


BCS 

$7189 

Ja, Skip 

7186 

5D 

B3 

6C 

EOR 

$6CB3,X 

Bit löschen 

7189 

8D 

7F 

12 

STA 

$127F 

und IRQ-Flaf speichern 

718C 

60 



RTS 



7180 

4C 

28 

7D 

JMP 

$70 28 

•ILLEGAL QUANTITY 1 

*****4 

***** 

**** 

***** 

****** 


' BASIC-Befehl SPRCOLOR 

7190 

C9 

2C 


CMP 

#$2C 

V ? 

7192 

FO 

OE 


BEO 

$71A2 

Ja, Skip 

7194 

20 

F4 

87 

JSR 

$87F4 

Zusatzfarbe 1 holen 

7197 

CA 



DEX 



7198 

EO 

10 


CPX 

#$10 

Wert zu groß 7 

719A 

BO 

17 


BCS 

$7183 

Ja, Fehler 

719C 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

719F 

8E 

25 

DO 

STX 

$0025 

und Zusatzfarbe setzen 

71A2 

20 

IE 

9E 

JSR 

$9E1E 

Zusatzfarbe 2 holen 

71A5 

90 

OB 


BCC 

$71B2 

Wenn keine Angabe, Skip 

71A7 

CA 



DEX 



71A8 

EO 

10 


CPX 

#$10 

Wert zu groß 7 

71AA 

BO 

07 


BCS 

$7183 

Ja, Fehler 

71AC 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

71AF 

8E 

26 

DO 

STX 

$0026 

Zusatzfarbe 2 setzen 

71B2 

60 



RTS 



71B3 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY 1 

***** 

**** 

***i 

**** 


********* 

• BASIC-Befehl WIDTH 

71B6 

20 

F4 

87 

JSR 

$87F4 

Byte-Wert holen 
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71B9 

CA 



DEX 



71BA 

EO 

02 


CPX 

#$02 

Zu groß ? 

71BC 

BO 

04 


BCS 

$71C2 

Ja, Fehler 

71BE 

8E 

6B 

11 

STX 

$116B 

Uidthwert setzen 

71C1 

60 



RTS 



71C2 

AC 

28 

7D 

JMP 

$7028 

■ILLEGAL QUANTITY 1 

****************************** 

BASIC-Befehl VOL 

71C5 

20 

FA 

87 

SR 

$87FA 

Byte-Wert holen 

71C8 

EO 

10 


PX 

#$10 

Zu groß ? 

71CA 

BO 

ID 


CS 

$71E9 

Ja, Fehler 

71CC 

86 

77 


TX 

$77 

Wert setzen 

71 CE 

AD 

74 

12 

DA 

$127A 

SID-Uerte setzen 

71D1 

29 

FO 


^ ID 

#$fo 

Filterwerte retten 

71D3 

05 

77 


Oi \ 

$77 

Lautstärke setzen 

71D5 

80 

74 

12 

ST» 

$127A 


71D8 

AO 

75 

12 

LDA 

$1275 


71DB 

29 

FO 


AND 

V$FO 

Filterwerte retten 

71DD 

05 

77 


ORA 

$77 

Lautstärke setzen 

71DF 

80 

75 

12 

STA 

$1275 


71E2 

20 

45 

A8 

JSR 

$A8A5 

ROMs einschalten 

71E5 

8D 

18 

DA 

STA 

$DA18 

und SID programmieren 

71E8 

60 



RTS 



71E9 

AC 

28 

70 

JMP 

$7028 

■ILLEGAL QUANTITY' 

********<1********************* 

BASIC-Befehl SOUND 

71EC 

20 

FA 

87 

JSR 

$87FA 

Stimmennummer holen 

71EF 

CA 



DEX 



71FO 

EO 

03 


CPX 

#$03 

Wert falsch ? 

71F2 

90 

03 


BCC 

$71F7 

Nein, Skip 

71 FA 

AC 

28 

70 

JMP 

$7028 

•ILLEAGL QUANTITY' 

71F7 

8E 

81 

12 

STX 

$1281 

Stimme für Sound setzen 

71 FA 

20 

OF 

88 

JSR 

$880F 

Frequenz auswerten 

71 FO 

8C 

A5 

12 

STY 

$12A5 

Maximalwert setzen 

7200 

80 

A6 

12 

STA 

$12A6 


7203 

8C 

AC 

12 

STY 

$12AC 

Frequenz setzen 

7206 

80 

AD 

12 

STA 

$12AD 


7209 

20 

OF 

88 

JSR 

$880F 

Dauer auswerten 

720C 

C9 

80 


CMP 

#$80 

Wert > 32767 ? 

720E 

BO 

EA 


BCS 

$71 FA 

Ja, Fehler 

7210 

8C 

A3 

12 

STY 

$12A3 

Dauer setzen 

7213 

80 

AA 

12 

STA 

$12AA 


7216 

20 

IC 

9E 

JSR 

$9E1C 

Richtung holen 

7219 

EO 

03 


CPX 

#$03 

Wert zu groß ? 

721B 

BO 

07 


BCS 

$71 FA 

Ja, Fehler 

7210 

8A 



TXA 
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721E 

80 

A9 

12 

STA 

S12A9 

7221 

29 

01 


AND 

#$01 

7223 

08 



PHP 


7224 

20 

06 

9E 

JSR 

$9E06 

7227 

8C 

A7 

12 

STY 

$12A7 

722A 

80 

A8 

12 

STA 

$12A8 

722D 

20 

06 

9E 

JSR 

V* 

o 

m 

o 

O 

7230 

28 



PLP 


7231 

FO 

00 


BEQ 

$7240 

7233 

48 



PHA 


7234 

98 



TYA 


7235 

49 

FF 


EOR 

#$FF 

7237 

18 



CLC 


7238 

69 

01 


ADC 

#$01 

723A 

A8 



TAY 


723B 

68 



PLA 


723C 

49 

FF 


EOR 

#$FF 

723E 

69 

00 


ADC 

#$00 

7240 

80 

AB 

12 

STA 

$12AB 

7243 

98 



TYA 


7244 

80 

AA 

12 

STA 

$12AA 

7247 

A2 

02 


LDX 

#$02 

7249 

20 

IE 

9E 

JSR 

$9E1E 

724C 

E0 

04 


CPX 

#$04 

724E 

B0 

CB 


BCS 

$721B 

7250 

BO 

B7 

6C 

LOA 

$6CB7,X 

7253 

09 

01 


ORA 

#$01 

7255 

80 

BO 

12 

STA 

$12B0 

7258 

20 

06 

9E 

JSR 

$9E06 

7258 

B0 

04 


BCS 

$7261 

7250 

A9 

08 


LOA 

#$08 

725 F 

A0 

00 


LDY 

#$00 

7261 

C9 

10 


CMP 

#$10 

7263 

80 

8F 


BCS 

$71F4 

7265 

8C 

AE 

12 

STY 

$12AE 

7268 

80 

AF 

12 

STA 

$12AF 

7268 

AD 

A3 

12 

IDA 

$12A3 

726E 

0D 

A4 

12 

ORA 

$12A4 

7271 

FO 

46 


BEQ 

$72B9 

7273 

AE 

81 

12 

LDX 

$1281 

7276 

8A 



TXA 


7277 

OA 



ASL 


7278 

A8 



TAY 


7279 

B9 

24 

12 

LDA 

$1224,Y 

727C 

10 

FB 


BPL 

$7279 

727E 

BO 

85 

12 

LDA 

$1285,X 

7281 

10 

FB 


BPL 

$727E 

7283 

AO 

00 


LDY 

#$00 


Richtung setzen 
Bit 0 isolieren 
und Status retten 
Maximalfrequenz holen 
und setzen 

Stufe holen 
Richtung abnehmend ? 
Nein, Skip 
Wert negieren 


und Stufe setzen 


Welle mit Rechteck vorbesetzen 
Uellenform holen 
Wert zu groß ? 

Ja, Fehler 

Bitmuster für Wellenform holen 
KEY-Bit setzen 
und Wellenform speichern 
Impulsbreite holen 
Wenn angegeben, Skip 
Impulsbreite = $0800 = 2048 

Wert > 4095 ? 

Ja, Fehler 
Impulsbreite setzen 

Dauer = 0 ? 

Ja, Skip 

Stimmennummer 

in Offset umrechnen 


Stimme fertig ? 
Nein, warten 
Sound fertig ? 
Nein, warten 
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7285 

B9 

A5 

12 

LDA 

$12A5,Y 

Sounddaten programmieren 

7288 

90 

88 

12 

STA 

$1288,X 


728B 

E8 



I NX 



728C 

E8 



1 NX 



728D 

E8 



INX 



728E 

C8 



INY 



728F 

CO 

09 


CPY 

#$09 


7291 

DO 

F2 


BNE 

$7285 


7293 

AE 

81 

12 

LDX 

$1281 

Stimmennummer 

7296 

BC 

39 

70 

LDY 

$7039,X 

Stimmenoffset für SID laden 

7299 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

729C 

A9 

08 


LDA 

#$08 

Stimme deblockieren (TEST-Bit setzen) 

729E 

99 

04 

D4 

STA 

$0404,Y 


72A1 

A9 

00 


LDA 

#$00 

Attack/Decay auf 0 

72A3 

99 

05 

D4 

STA 

$D405,Y 


72A6 

A9 

FO 


LDA 

#$F0 

Sustain auf Maximalstärke, Release auf 0 

72A8 

99 

06 

D4 

STA 

$D406,Y 


72AB 

A2 

00 


LDX 

#$00 


72AD 

BD 

AC 

12 

LDA 

$12AC,X 

SID mit Sounddaten programmieren 

72B0 

99 

00 

D4 

STA 

$D400,Y 


72B3 

C8 



INY 



72B4 

E8 



INX 



72B5 

EO 

05 


CPX 

#$05 


72B7 

DO 

F4 


BNE 

$72AD 


72B9 

AE 

81 

12 

LDX 

$1281 

Stimmennummer laden 

72BC 

AC 

A3 

12 

LDY 

$12A3 

Dauer laden 

72BF 

AD 

A4 

12 

LDA 

$12A4 


72C2 

78 



SEI 



72 C3 

90 

85 

12 

STA 

$1285,X 

und Dauer programmieren 

72C6 

98 



TYA 



72C7 

9D 

82 

12 

STA 

$1282,X 


72CA 

58 



CLI 



72CB 

60 



RTS 



****************************** 

BASIC-Befehl UINDOU 

72CC 

20 

F4 

87 

JSR 

$87F4 

Spalte links oben holen 

72CF 

EO 

28 


CPX 

#$28 

Wert > 39 ? 

72D1 

24 

D7 


BIT 

$D7 

80-Zeichen-Modus ? 

72D3 

10 

02 


BPL 

$72D7 

Nein, Skip 

72D5 

EO 

50 


CPX 

#$50 

Uert > 79 7 

72D 7 

BO 

59 


BCS 

$7332 

Ja, Fehler 

7209 

8E 

B3 

12 

STX 

$12B3 

Spalte links oben setzen 

72DC 

20 

09 

88 

JSR 

$8809 

Zeile links oben holen 

72DF 

EO 

19 


CPX 

#$19 

Wert zu groß ? 

72E1 

BO 

4F 


BCS 

$7332 

Ja, Fehler 

72E3 

8E 

B4 

12 

STX 

$12B4 

Zeile links oben setzen 

72E6 

20 

09 

88 

JSR 

$8809 

Spalte rechts unten holen 
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72E9 

E0 

28 


CPX #$28 

Wert > 39 ? 

72EB 

24 

D7 


BIT $D7 

80-Zeichen-Modus ? 

72E0 

10 

02 


BPL $72F1 

Nein, Skip 

72EF 

E0 

50 


CPX #$50 

Wert > 79 7 

72F1 

BO 

3F 


BCS $7332 

Ja, Fehler 

72F3 

8E 

B5 

12 

STX $1285 

Spalte rechts unten setzen 

72 F6 

EC 

B3 

12 

CPX $12B3 

< Spalte links oben ? 

72F9 

90 

37 


BCC $7332 

Ja, Fehler 

72FB 

20 

09 

88 

JSR $8809 

Zeile rechts unten holen 

72FE 

EO 

19 


CPX #$19 

Wert zu groß ? 

7300 

BO 

30 


BCS $7332 

Ja, Fehler 

7302 

8E 

B6 

12 

STX S12B6 

Zeile rechts unten setzen 

7305 

EC 

B4 

12 

CPX $12B4 

< Zeile links oben ? 

7308 

90 

28 


BCC $7332 

Ja, Fehler 

730A 

20 

IC 

9E 

JSR $9E1C 

Löschwert holen 

7300 

EO 

02 


CPX #$02 

Wert zu groß ? 

730F 

BO 

21 


BCS $7332 

Ja, Fehler 

7311 

8A 



TXA 

Wert speichern 

7312 

48 



PHA 


7313 

AE 

B3 

12 

LDX $12B3 

Daten links oben laden 

7316 

AD 

B4 

12 

LDA $12B4 


7319 

18 



CLC 

Flag für links oben 

731A 

20 

2D 

CO 

JSR $C02D 

Windowecke setzen 

731D 

AE 

B5 

12 

LDX $12B5 

Daten für rechts unten laden 

7320 

AD 

B6 

12 

LDA $12B6 


7323 

38 



SEC 

Flag für rechts unten 

7324 

20 

2D 

CO 

JSR SC02D 

Windowecke setzen 

7327 

A2 

1i 


LDX #$13 

Code für (HOME) 

7329 

68 



PLA 

Window löschen ? 

732A 

FO 

02 


BEO $732E 

Nein, Skip 

732C 

A2 

93 


LDX #$93 

Code für (CLR) 

732E 

8A 



TXA 

Code in (A) 

732F 

4C 

69 

92 

JMP $9269 

und ausgeben 

7332 

4C 

28 

7D 

JMP $7D28 

•ILLEGAL QUANTITY 1 

****************************** 

BASIC-Befehl BOOT 

7335 

A9 

E6 


LDA #$E6 

Angaben für verbotene Parameter setzen 

7337 

A2 

FC 


LDX #$FC 


7339 

20 

C3 

A3 

JSR $A3C3 

und Diskparameter auswerten 

733C 

A5 

80 


LDA $80 


733E 

4A 



LSR 

Dateiname 7 

733F 

90 

ID 


BCC $735E 

Nein, BOOT ohne Name 

7341 

20 

1F 

A2 

JSR $A21F 

BLOAD-Befehl aufrufen 

7344 

BO 

29 


BCS $736F 

Wenn Fehler, Skip 

7346 

AE 

D5 

03 

LDX $0305 

BASIC-Bankwert laden 

7349 

A5 

81 


LDA $81 

Bank angegeben ? 

734B 

4A 



LSR 
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734C 

90 

03 


BCC 

$7351 

Nein, Skip 

73 AE 

AE 

1F 

01 

LDX 

$011F 

Bank laden 

7351 

86 

02 


STX 

$02 

Bank setzen 

7353 

A5 

AC 


LDA 

$AC 

Startadresse setzen 

7355 

85 

04 


STA 

$04 


7357 

A5 

AD 


LDA 

$AD 


7359 

85 

03 


STA 

$03 


735B 

4C 

6E 

FF 

JMP 

$FF6E 

JSRFAR Routine aufrufen 

735E 

AD 

12 

01 

LDA 

$0112 

Laufwerknummer laden 

7361 

09 

30 


ORA 

#$30 

und in ASCII wandeln 

7363 

AE 

IC 

01 

LDX 

$01 IC 

Geräteadresse laden 

7366 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

7369 

20 

53 

FF 

JSR 

$FF53 

BOOT-CALL 

736C 

BO 

01 


BCS 

$736F 

Wenn Fehler, Skip 

736E 

60 



RTS 



736F 

4C 

DO 

90 

JHP 

$90D0 

Fehlerauswertung 

****************************** 

BASIC-Befehl SPRDEF 

7372 

20 

4F 

9F 

JSR 

$9F4F 

HIRES-Bereich reservieren 

7375 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

7378 

A9 

00 


LDA 

#$D0 

Zeiger auf Graphikzeichensatz 

737A 

80 

68 

11 

STA 

$1168 

ab $DOOO setzen 

737D 

A9 

20 


LDA 

#$20 

Graphik einschalten 

737F 

85 

D8 


STA 

$D8 


7381 

20 

30 

6B 

JSR 

$6B30 

HIRES-Schirm löschen 

7384 

AO 

80 


LDY 

#$80 


7386 

8C 

3D 

11 

STY 

$113D 


7389 

AO 

18 


LDY 

#$18 

Y-Position = 24 

738B 

A9 

20 


LDA 

#$20 

1 1 

7380 

A2 

00 


LDX 

#$00 

X-Position = 0 

738F 

20 

DB 

68 

JSR 

$680B 

(A) an (X)/(Y) in HIRES-Schirm 

7392 

E8 



I NX 



7393 

EO 

15 


CPX 

#$15 

21 Spalten gelöscht ? 

7395 

90 

Ffi 


BCC 

$738F 

Nein, Weiter 

7397 

20 

DB 

68 

JSR 

$68DB 

Zeichen in HIRES-Schirm 

739A 

88 



DEY 


24 Zeilen gelöscht ? 

739B 

10 

FA 


BPL 

$7397 

Nein, weiter 

7390 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

73A0 

A5 

Fl 


LDA 

$F1 

Farbcode unter Cursor retten 

73A2 

48 



PHA 



73A3 

AD 

21 

DO 

LDA 

$D021 

Farbcode = Hintergrundfarbe 

73A6 

85 

Fl 


STA 

$F 1 


73A8 

A9 

2B 


LDA 

#$2B 


73 AA 

A2 

00 


LDX 

#$00 

X-Position = 0 

73AC 

8E 

3D 

11 

STX 

$113D 


73AF 

AO 

00 


LDY 

#$00 

Y-Position = 0 

73B1 

20 

DB 

68 

JSR 

$680B 

Zeichen an (X)/(Y) in HIRES-Schirm 
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73B4 

C8 



INY 


73B5 

CO 

18 


CPY 

#$18 

73B7 

90 

F8 


BCC 

$73B1 

73B9 

E8 



INX 


73BA 

E0 

15 


CPX 

#$15 

73BC 

90 

Fl 


BCC 

$73AF 

73BE 

68 



PLA 


73BF 

85 

Fl 


STA 

$F1 

73C1 

20 

D4 

76 

JSR 

$7604 

73C4 

A0 

02 


LDY 

#$02 

73C6 

A2 

17 


LDX 

#$17 

73C8 

B9 

6C 

76 

LDA 

$766C,Y 

T :CB 

F0 

Oo 


BEO 

$73D3 

73CD 

20 

OB 

68 

JSR 

$680 B 

73D0 

C8 



INY 


7301 

DO 

F5 


BNE 

$73C8 

73D3 

20 

45 

A8 

JSR 

$A845 

73D6 

20 

E4 

FF 

JSR 

$FFE4 

73D9 

F0 

FB 


BEO 

$7306 

7308 

C9 

00 


CMP 

#$0D 

73DD 

DO 

08 


BNE 

$73E7 

73DF 

20 

30 

6B 

JSR 

$6B30 

73E2 

A9 

00 


LOA 

#$00 

73E4 

85 

08 


UTA 

$D8 

73E6 

60 



RTS 


73E7 

38 



SEC 


73E8 

E9 

31 


SBC 

#$31 

73EA 

80 

FC 

12 

STA 

$12FC 

73ED 

C9 

08 


CMP 

#$08 

73EF 

B0 

E5 


BCS 

$73D6 

73F1 

AA 



TAX 


73F2 

UA 



ASL 


73F3 

A8 



TAY 


73F4 

BD 

B3 

6C 

LDA 

$6CB3,X 

73F7 

80 

6D 

11 

STA 

$1160 

73FA 

2D 

IC 

00 

AND 

$00 IC 

73FD 

F0 

02 


BEO 

$7401 

73FF 

A9 

80 


LDA 

#$80 

7401 

8D 

FA 

12 

STA 

$12FA 

7404 

A9 

08 


LDA 

#$08 

7406 

99 

06 

11 

STA 

$11D6,Y 

7409 

A9 

4A 


LDA 

#$4A 

740B 

99 

D7 

11 

STA 

$1107,Y 

740E 

AD 

60 

11 

LDA 

$1160 

7411 

00 

E6 

11 

ORA 

$11E6 

7414 

80 

E6 

11 

STA 

$11E6 

7417 

AD 

60 

11 

LDA 

$1160 

741A 

8D 

15 

00 

STA 

$D015 


24 Spalten gesetzt ? 

Nein, weiter 

21 Zeilen gefüllt ? 

Nein, weiter füllen 

Farbcode wieder setzen 

Zeile und Spalte anwählen 

■SPRITE NUMMER? ' 

Zeichen an (X)/(Y) in Schirm 
Y-Position erhöhen 
Unbedingter Sprung 
ROMs einschalten 
GETIN 

Wenn keine Eingabe, warten 
(CR) ? 

Nein, Skip 

HIRES-Bereich löschen 
Graphik ausschalten 


Spritenummer setzen 
Wert falsch ? 

Ja, dann weiter warten 


Bitmuster für Sprite laden 
und setzen 
Multicolormodus ? 

Nein, Skip 

Multicolorflag laden 
und setzen 

X- und Y-Koordinate setzen 


MSB der X-Xoordinate setzen 
Sprite einschalten 
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741D 

AE 

FC 12 

LDX 

$12FC 

Spritenummer laden 

7420 

BC 

D9 6D 

LDY 

$6DD9,X 

Offset auf Spritedaten laden 

7423 

A9 

00 

LDA 

#$00 


7425 

99 

7E 11 

STA 

$117E,Y 

Spritegeschwindigkeit auf 0 

7428 

8A 


TXA 


Nummer in (A) 

7429 

A0 

11 

LDY 

#$11 

Schirmposition 17/23 

742B 

A2 

17 

LDX 

#$17 


7420 

18 


CLC 


Nummer in ASCII wandeln 

74 2E 

69 

31 

ADC 

#$31 


7430 

20 

DB 68 

JSR 

$68DB 

Spritenummer ausgeben 

7433 

20 

45 A8 

JSR 

$A845 

ROMs einschalten 

7436 

AD 

FC 12 

LDA 

$12FC 


7439 

4A 


LSR 



743A 

6A 


ROR 



743B 

6A 


ROR 



743C 

85 

4B 

STA 

$4B 

Aktuelle Spriteadresse setzen 

743E 

AO 

OE 

LDY 

#$0E 


7440 

90 

01 

BCC 

$7443 


7442 

C8 


I NY 



7443 

84 

4C 

STY 

$4C 


7445 

20 

Dl 75 

JSR 

$75D1 

Sprite anzeigen 

7448 

AO 

3F 

LDY 

#$3F 


744A 

Bl 

4B 

LDA 

<$4B),Y 

Aktuelles Sprite in Arbeitsspeicher 

744C 

99 

B7 12 

STA 

$12B7,Y 


744 F 

88 


DEY 



7450 

10 

F8 

BPL 

$744A 


7452 

A2 

00 

LDX 

#$00 

SPRDEF-Cursor auf Homep. sition 

7454 

8E 

5F 11 

STX 

$115F 


7457 

8E 

5E 11 

STX 

$115E 


745A 

20 

4A 76 

JSR 

$7j4A 

Curs^. setzen 

745D 

20 

E4 FF 

JSR 

$FFE4 

GETIN Zeicneu .—...-n 

7460 

FO 

FB 

BEO 

$745D 

Wenn keine Eingabe, warten 

7462 

48 


PHA 


Eingabe retten 

7463 

20 

4A 76 

JSR 

$764A 

Cursor wieder '““chen 

7466 

68 


PLA 



7467 

A2 

10 

LDX 

#$10 


7469 

DD 

B4 76 

CMP 

$76B4,X 

Eingabe einer Farbe ? 

746C 

DO 

OD 

BNE 

$747B 

Nein, weiter testen 

746E 

CA 


DEX 



746F 

8A 


TXA 


Farbe in (A, 

7470 

AE 

FC 12 

LDX 

$12FC 

Spritenummer U'den 

7473 

90 

27 DO 

STA 

$0027,X 

und Spritefarbe jfe'ren 

7476 

20 

Dl 75 

JSR 

$7501 

Sprite anzeigen 

7479 

BO 

DF 

BCS 

$745A 

Unbedingter Sprung 

74 7B 

CA 


DEX 



747C 

DO 

EB 

BNE 

$7469 


747E 

A2 

11 

LDX 

#$11 
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7480 

DD 

7F 

76 

CMP 

$767F,X 

7483 

F0 

05 


BEQ 

$748A 

7485 

CA 



DEX 


7486 

10 

F8 


BPL 

$7480 

7488 

30 

DO 


BMI 

S745A 

748A 

8A 



TXA 


7488 

A8 



TAY 


748C 

0A 



ASL 


748D 

AA 



TAX 


748E 

BD 

91 

76 

LDA 

$7691,X 

7491 

48 



PHA 


7492 

BD 

92 

76 

LDA 

$7692,X 

7495 

48 



PHA 


7496 

60 



RTS 



Eingabe eines Kommandos ? 

Ja, Kommando aufrufen 

Unbedingter Sprung 
Offset errechnen 

RTS-Adresse auf Stapel legen 

und Kommando aufrufen 


****************************** Punkt setzen (Befehle 1 bis 4) 


7497 

98 



TYA 


7498 

85 

8F 


STA 

$8F 

749A 

20 

10 

76 

JSR 

$7610 

749D 

48 



PHA 


749E 

AC 

5E 

11 

LDY 

$115E 

74 AI 

AE 

5F 

11 

LDX 

$115F 

74A4 

20 

C5 

76 

JSR 

$76C5 

74A7 

68 



PLA 


74A8 

20 

3F 

76 

JSR 

$763 F 

74AB 

AC 

5E 

11 

LDY 

$115E 

74AE 

98 



TYA 


74AF 

29 

07 


AND 

#$07 

74B1 

AA 



TAX 


74B2 

98 



TYA 


74 B3 

4A 



LSR 


74B4 

4A 



LSR 


74B5 

4A 



LSR 


74 B6 

18 



CLC 


74B7 

6D 

5F 

11 

ADC 

$115F 

74BA 

6D 

5F 

11 

ADC 

$115F 

74BD 

6D 

5F 

11 

ADC 

$115F 

74C0 

A8 



TAY 


74C1 

Bl 

4B 


LDA 

($4B),Y 

74C3 

2C 

FA 

12 

BIT 

$12FA 

74C6 

10 

18 


BPL 

$74E0 

74C8 

85 

8E 


STA 

$8E 

74CA 

BD 

IC 

90 

LDA 

$9D1C,X 

74 CD 

ID 

10 

9D 

ORA 

$9D1D,X 

74D0 

48 



PHA 


74D1 

05 

8E 


ORA 

$8E 


Befehlsnummer setzen 

Spritefarbe holen 
und retten 
Position taden 

Schirmadresse setzen 
Farbe holen 
und setzen 


Byte aus Sprite holen 
Multicolormodus ? 

Nein, Skip 

Byte-Wert retten 

Beide Multicolorbits setzen 


und in Byte-Wert setzen 
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74D3 

85 

8E 


STA 

UJ 

00 


74D5 

68 



PLA 



74D6 

A6 

8F 


LDX 

$8F 


74D8 

3D 

25 

9F 

AND 

$9F25,X 


74DB 

45 

8E 


EOR 

$8E 

Byte-Wert je nach Kommando ändern 

74DD 

4C 

EA 

74 

JHP 

S74EA 

und wieder in Sprite setzen 

74E0 

ID 

IC 

90 

ORA 

$901C, X 

Bit setzen 

74E3 

06 

8F 


ASL 

$8F 

Kommando 1 1 1 ? 

74E5 

DO 

03 


BNE 

$74EA 

Nein, Skip 

74E7 

5D 

IC 

9D 

EOR 

$9D1C,X 

Bit wieder löschen 

74EA 

91 

4B 


STA 

($48),Y 

Byte-Wert wieder in Sprite 

74EC 

2C 

FA 

12 

BIT 

$12FA 

Autorepeat ? 

74EF 

50 

4E 


BVC 

$753F 

Ja, Skip 

74 Fl 

4C 

5A 

74 

JMP 

$745A 

Zum Schleifenanfang 

****************************** 

Sprite speichern <SH I FT + CR) 

74 F4 

AO 

3F 


LDY 

#$3F 


74 F6 

B9 

B7 

12 

LDA 

$1287,Y 

Sprite vom Arbeitsspeicher 

74 F9 

91 

4B 


STA 

($4B),Y 

in Spritebereich übertragen 

74FB 

88 



DEY 



74 FC 

10 

F8 


BPL 

$74 F6 


74FE 

A9 

00 


LDA 

#$00 


7500 

80 

15 

DO 

STA 

$D015 

Sprite ausschalten 

7503 

4C??*a3 

JMP ! 

S73C4 

Zur Spritenummerneingabe 


****************************** Spriteattributkommandos 


7506 

AD 

FA 

12 

LDA $12FA 

Multicolorbit andern 

7509 

49 

80 


EOR #$80 


750B 

80 

FA 

12 

STA $12FA 


750E 

20 

Dl 

75 

JSR $75D1 


7511 

AD 

5E 

11 

LDA $115E 

und Position korrigieren 

7514 

29 

FE 


AND #$FE 


7516 

8D 

5E 

11 

STA $115E 


7519 

AO 

IC 


LDY #$1C 

Offset auf Multicolorregister 

751B 

2C 



•BYTE $2C 


75 IC 

AO 

17 


LDY #$17 

Offset auf Expand X 

75 IE 

2C 



.BYTE $2C 


751F 

AO 

ID 


LDY #$1D 

Offset auf Expand Y 

7521 

B9 

00 

DO 

LDA $D000,Y 

Aktuellen Wert holen 

7524 

AE 

FC 

12 

LDX $12FC 

Spritenummer als Offset 

7527 

5D 

B3 

6C 

EOR $6CB3,X 

Wert mit Spritebitmuster verknüpfen 

75 2A 

99 

00 

DO 

STA $DOOO,Y 

und wieder setzen 

752D 

4C 

5A 

74 

JMP $745A 

Zum Schleifenstart 




****************************** Aktuelles Sprite löschen (CLR-Kommando) 


7530 

A0 

3F 


LDY 

#$3F 

7532 

A9 

00 


LOA 

#$00 

7534 

91 

4B 


STA 

($4B),Y 

7536 

88 



DEY 


7537 

10 

FB 


BPL 

$7534 

7539 

20 

D4 

76 

JSR 

$7604 

753C 

4C 

52 

74 

JMP 

$7452 

****************************** 

753 F 

A9 

01 


LDA 

#$01 

7541 

2C 



.BYTE $2C 

7542 

A9 

FF 


LDA 

#$FF 

7544 

2C 

FA 

12 

BIT 

$12FA 

7547 

10 

01 


BPL 

$754A 

7549 

OA 



ASL 


754A 

18 



CLC 


754 B 

6D 

5E 

11 

ADC 

$115E 

754E 

30 

09 


BMI 

$7559 

7550 

C9 

18 


CMP 

#$18 

7552 

B0 

2D 


BCS 

$7581 

7554 

80 

5E 

11 

STA 

$115E 

7557 

90 

25 


BCC 

$757E 

7559 

A2 

17 


LDX 

#$17 

755B 

2C 

FA 

12 

BIT 

$12FA 

755E 

10 

01 


BPL 

$7561 

7560 

CA 



DEX 


7561 

8E 

5E 

11 

STX 

$115E 

7564 

A9 

FF 


LOA 

#$FF 

7566 

2C 



.BYTE $2C 

7567 

A9 

01 


LDA 

#$01 

7569 

18 



CLC 


756A 

6D 

5F 

11 

ADC 

$115F 

756D 

C9 

15 


CMP 

#$15 

756F 

B0 

OD 


BCS 

$75 7E 

7571 

80 

5F 

11 

STA 

$115F 

7574 

90 

08 


BCC 

$75 7E 

****************************** 

7576 

AD 

FA 

12 

LDA 

$12FA 

7579 

49 

40 


EOR 

#$40 

75 7B 

80 

FA 

12 

STA 

$12FA 


Spriteschirm löschen 
Zum Schleifenstart 

Cursorbewegungen für SPRDEF 

Cursor Right 


Cursor Left 
Multicolormodus ? 

Nein, Skip 
Uert * 2 

Wert auf Position aufaddieren 
Uenn kleiner 0, Skip 
Position > 23 ? 

Ja, Skip 

Neue Position setzen 
Unbedingter Sprung 
Position auf 23 
Multicolormodus ? 

Nein, Skip 

Position korrigieren 
neue Position setzen 

Cursor Up 


Cursor Down 

Wert auf Position aufaddieren 
Wert > 20 ? 

Ja, Skip 

neue Position setzen 


Autorepeat (A-Kommando) 
Autorepeatbi t ändern 
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757E 4C 5A 74 JMP S745A Zum Schleifenstart 


7581 

A9 

00 

LDA 

8 

o 

o 

7583 

80 

5E 11 

STA 

$115E 

7586 

FO 

DF 

BEQ 

$7567 

****** 

r**** 

r******* 

r****4 


7588 

AO 

02 

LDY 

#$02 

758A 

A2 

18 

LDX 

#$18 

758C 

B9 

61 76 

LDA 

$7661,Y 

758F 

FO 

06 

BEO 

$7597 

7591 

20 

DB 68 

JSR 

$680B 

7594 

C8 


INY 


7595 

DO 

F5 

BNE 

$758C 

7597 

20 

45 A8 

JSR 

$A845 

759A 

20 

E4 FF 

JSR 

$FFE4 

7590 

FO 

FB 

BEO 

$759A 

759F 

C9 

00 

CMP 

#$0D 

75A1 

FO 

1F 

BEQ 

$75C2 

75 A3 

38 


SEC 


75 A4 

E9 

31 

SBC 

#$31 

75 A6 

C9 

08 

CMP 

#$08 

75A8 

BO 

FO 

BCS 

$759A 

75 AA 

4A 


LSR 


75AB 

6A 


ROR 


75AC 

6A 


ROR 


75 AD 

85 

8E 

STA 

$8E 

75AF 

AO 

OE 

LDY 

#$0E 

75B1 

90 

01 

8CC 

$75B4 

75B3 

C8 


INY 


7584 

84 

8F 

STY 

$8F 

75B6 

AO 

3F 

LDY 

#$3F 

75 B8 

Bl 

8E 

LDA 

($8E),Y 

75BA 

91 

4B 

STA 

($4B),Y 

75BC 

88 


DEY 


75 BO 

10 

F9 

BPL 

$75 B8 

75BF 

20 

Dl 75 

JSR 

$75D1 

75C2 

A9 

00 

LDA 

#$00 

75C4 

A8 


TAY 


75C5 

99 

00 3E 

STA 

w 

m 

o 

o 

-< 

75C8 

88 


DEY 


75C9 

DO 

FA 

BNE 

$75C5 

75CB 

4C 

5A 74 

JMP 

$745A 


Position auf 0 
Unbedingter Sprung 
Sprite kopieren 
Zeile und Spalte setzen 
■COPY FROH? 1 
in HIRES-Schirm 

ROMs einschalten 
GEHN Zeichen abwarten 
Wenn keine Eingabe, warten 
(CR) ? 
ja, Skip 

Gültige Spritenuimer ? 

Nein, weiter warten 

Spriteadresse setzen 

Sprite kopieren 

COPY-Meldung vom Anfang wieder 


löschen 
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****************************** F(ji Ibytes 


75CE FF FF FF 

****************************** Sprite anzeigen 


75D1 

A2 

00 


LDX 

#$00 

75D3 

8E 

60 

11 

STX 

$1160 

7506 

8E 

FB 

12 

STX 

$ 12 F B 

75D9 

20 

C5 

76 

JSR 

$76C5 

75DC 

A0 

00 


LDY 

#$00 

75DE 

A2 

08 


LDX 

#$08 

75E0 

8C 

6E 

11 

STY 

$116E 

75E3 

AC 

60 

11 

LDY 

$1160 

75E6 

Bl 

4B 


LDA 

($4B),Y 

75E8 

EE 

60 

11 

INC 

$1160 

75EB 

AC 

6E 

11 

LDY 

$116E 

75EE 

0A 



ASL 


75EF 

2C 

FA 

12 

BIT 

$ 12F A 

75F2 

10 

02 


BPL 

$75 F6 

75 F4 

2A 



ROL 


75F5 

CA 



DEX 


75 F6 

48 



PHA 


75 F 7 

2A 



ROL 


75 F8 

20 

10 

76 

JSR 

$7610 

75 FB 

20 

3F 

76 

JSR 

$763F 

75FE 

C8 



INY 


75 FF 

68 



PLA 


7600 

CA 



DEX 


7601 

DO 

EB 


BNE 

S75EE 

7603 

C0 

18 


CPY 

#$18 

7605 

90 

D7 


BCC 

$75DE 

7607 

AE 

FB 

12 

LDX 

$12FB 

760A 

E8 



INX 


760B 

EO 

15 


CPX 

#$15 

760D 

90 

C7 


BCC 

$75D6 

760 F 

60 



RTS 


7610 

29 

03 


AND 

#$03 

7612 

4A 



LSR 


7613 

6A 



ROR 


76K 

F0 

0F 


BEO 

$7625 

7616 

2C 

FA 

12 

BIT 

$12FA 

7619 

10 

0F 


BPL 

$762A 

761B 

AD 

25 

DO 

LDA 

$0025 

761E 

90 

14 


BCC 

$7634 


Spaltenzähler löschen 
Zeilenzähler löschen 
Schirmadresse setzen 
Offset auf 0 
Bitzähler setzen 
(Y) retten 
Spaltenoffset laden 
Byte aus Sprite laden 
Spaltenzähler erhöhen 
(Y) wieder holen 

Multicolormodus ? 

Nein, Skip 

Zweites Bit ebenfalls setzen 
Bitzähler anpassen 

Spritefarbe holen 
und Farbwerte in Schirm 


Alle Bits angezeigt ? 
Nein, weitermachen 
Alle Spalten angezeigt ? 
Nein, weitermachen 
Alle Zeilen angezeigt ? 


Nein weitermachen 


Spritefarbe (A) holen 
Farbnummer isolieren 


Wenn Hintergrundfarbe, Skip 
Multicolormodus ? 
nein, Skip 

Multicolorfarbe 1 laden 
Wenn gewünscht, Skip 
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7620 

AD 

26 DO 

LDA 

$D026 

Multicolorfarbe 2 laden 

7623 

BO 

OF 

BCS 

$7634 

Unbedingter Sprung 

7625 

AD 

21 DO 

LDA 

$D021 

Hintergrundfarbe laden 

7628 

90 

OA 

BCC 

$7634 

Unbedingter Sprung 

762A 

86 

8E 

STX 

$8E 

(X) retten 

762C 

AE 

FC 12 

LDX 

$12FC 

Spritenummer laden 

762 F 

BD 

27 DO 

LDA 

$D027,X 

und Spritefarbe laden 

7632 

A6 

8E 

LDX 

$8E 

(X) wieder holen 

7634 

29 

OF 

AND 

#$0F 


7636 

85 

8E 

STA 

$8E 

Farbwert berechnen 

7638 

OA 


ASL 



7639 

OA 


ASL 



763A 

OA 


ASL 



763B 

OA 


ASL 



763C 

05 

8E 

ORA 

$8E 


763E 

60 


RTS 



****************************** 

Farbwert an SPRDEF-Cursorposition 

763 F 

91 

8C 

STA 

($8C),Y 

Farbwert setzen 

7641 

2C 

FA 12 

BIT 

$12FA 

Multicolormodus ? 

7644 

10 

03 

BPL 

$7649 

Nein, Ende 

7646 

C8 


INY 



7647 

91 

8C 

STA 

($8C),Y 

Farbwert für zweites Zeichen setzen 

7649 

60 


RTS 



****************************** 

SPRDEF-Cursor an/aus 

764A 

AE 

5F 11 

LDX 

$115F 

Zeile laden 

764D 

20 

C5 76 

JSR 

$76C5 

Schirmadresse setzen 

7650 

AC 

5E 11 

LDY 

$115E 

Spalte laden 

7653 

2C 

FA 12 

BIT 

$12FA 

Multicolormodus ? 

7656 

10 

03 

BPL 

$7658 

Nein, Skip 

7658 

20 

5B 76 

JSR 

$765B 

Aufruf für 2 Zeichen invertieren 

765 B 

Bl 

8C 

LDA 

($80.Y 

Farbwert invertieren 

7650 

49 

80 

EOR 

#$80 


765 F 

91 

8C 

STA 

($80,Y 


7661 

C8 


INY 



7662 

60 


RTS 



****************************** 

Texte für SPRDEF 

7663 

43 

4F 50 

59 20 

46 52 4F 

•COPY FROM?' 

766B 

4D 

3F 00 




766E 

53 

50 52 

49 54 

45 20 4E 

'SPRITE NUMBER? 1 

7676 

55 

4D 42 

45 52 

3F 20 20 
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767E 

00 







****************************** 

Kommandotabelle für SPRDEF 

767F 

31 

32 

33 

34 03 

80 58 

59 

•1234' (STOP) (SHIFT-CR) ■XY 1 

7687 

4D 

9D 

ID 

91 11 

93 13 

41 

■M 1 (LEFT) (RIGHT) (CLR) (HOME) 'A' 

768F 

0D 

43 





(CR) 'C' 

****************************** 

RTS-Adressen für Kommandos 

7691 

74 

96 

74 

96 74 

96 74 

96 


7699 

74 

F3 

74 

FD 75 

IE 75 

18 


76 AI 

75 

05 

75 

41 75 

3E 75 

63 


76A9 

75 

66 

75 

2F 74 

51 75 

75 


76B1 

75 

80 

75 

87 




****************************** 

Tabelle für Farbkommandos 

76B5 

90 

05 

IC 

9F 9C 

IE 1F 

9E 


76BD 

81 

95 

96 

97 98 

99 9A 

9B 


****************************** 

Textschirmadresse für Zeile (X) setzen 

76C5 

BD 

33 

CO 

LDA 

n 

o 

w 

w 

,x 

Normale Textschirmadresse setzen 

76C8 

85 

8C 


STA 

$8C 



76CA 

BD 

4C 

CO 

LDA 

V» 

r> 

o 

n 

,x 


76C0 

29 

03 


AND 

#$03 



76CF 

09 

IC 


ORA 

#$1C 


High-Byte auf $1C00-$1FFF setzen 

7601 

85 

80 


STA 

$80 



7603 

60 



RTS 




****************************** 

Spriteschirm mit Hintergrundfarbe füllen 

7604 

AD 

21 

DO 

LDA 

$0021 


Hintergrundfarbe 

76D7 

20 

34 

76 

JSR 

$7634 


in Farbwert umrechnen 

76DA 

A2 

14 


LDX 

#$14 


21 Zeilen löschen 

76DC 

48 



PHA 



Farbwert retten 

76DD 

20 

C5 

76 

JSR 

$76C5 


Textschirmadresse setzen 

76E0 

68 



PLA 



Farbwert holen 

76E1 

AO 

17 


LDY 

#$17 


23 Spalten löschen 

76E3 

91 

8C 


STA 

($80 

, Y 

Farbwert setzen 

76E5 

88 



DEY 



Alle Spalten gelöscht ? 

76E6 

10 

FB 


BPL 

$76E3 


Nein, weiter 

76E8 

CA 



DEX 



Alle Zeilen gelöscht 7 

76E9 

10 

Fl 


BPL 

$76DC 


Nein, nächste Zeile 

76EB 

60 



RTS 
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BASIC-Befehl SPRSAV 


76EC 

20 

7C 77 

JSR 

$777C 

76EF 

B0 

2F 

BCS 

$7720 

76F1 

85 

4B 

STA 

$4B 

76F3 

84 

4C 

STY 

$4C 

76F5 

A0 

3E 

LDY 

#$3E 

76F7 

Bl 

4B 

LDA 

($4B),Y 

76F9 

99 

B7 12 

STA 

$1287, Y 

76FC 

88 


DEY 


76FD 

10 

F8 

BPL 

$76F7 

76FF 

C8 


INY 


7700 

8C 

F7 12 

STY 

$12F7 

7703 

8C 

F9 12 

STY 

$12F9 

7706 

A9 

17 

LDA 

#$17 

7708 

8D 

F6 12 

STA 

$12F6 

770B 

A9 

14 

LDA 

#$14 

770D 

8D 

F8 12 

STA 

$ 12 F8 

7710 

A2 

B7 

LDX 

#$B7 

7712 

A0 

12 

LDY 

#$12 

7714 

86 

70 

STX 

$70 

7716 

84 

71 

STY 

$71 

7718 

A9 43 

LDA 

#$43 

771A 

20 

CC 86 

JSR 

$86CC 

7710 

20 

99 77 

JSR 

$7799 

7720 

8E 

DB 03 

STX 

$03DB 

7723 

80 

DC 03 

STA 

$03DC 

7726 

8C 

DD 03 

STY 

$03DD 

7729 

20 

5C 79 

JSR 

$795C 

772C 

A5 

3D 

LDA 

$30 

772E 

80 

EO 03 

STA 

$03EO 

7731 

A5 

3E 

LDA 

$3E 

7733 

80 

El 03 

STA 

$03E1 

7736 

20 

7C 77 

JSR 

$777C 

7739 

BO 

25 

BCS 

$7760 

773B 

85 

8C 

STA 

$8C 

7730 

84 

80 

STY 

$80 

773F 

AD 

DC 03 

LDA 

$03DC 

7742 

85 

4B 

STA 

$4B 

7744 

AO 

DD 03 

LDA 

$03DD 

7747 

85 

4C 

STA 

$4C 

7749 

AO 

00 

LDY 

#$00 

774 B 

CC 

DB 03 

CPY 

$03DB 

774E 

FO 

OF 

BEO 

$775 F 

7750 

A9 

4B 

LDA 

#$4B 

7752 

20 

AB 03 

JSR 

$03AB 

7755 

80 

03 FF 

STA 

$FF03 


Ersten Parameter holen 
Wenn String, Skip 
Spriteadresse setzen 

Spritedaten in Arbeitsspeicher 


Shapegröße High-Bytes auf 0 setzen 
Low Byte X auf 23 
Low-Byte Y auf 20 
Spritedatenadresse setzen 


Stringlänge laden 

Platz für String reservieren 

Stringparameter holen 

Länge setzen 
und Adresse setzen 

Test auf 1 , 1 
PC retten 


Zweiten Parameter holen 
Wenn String, Skip 
Spriteadresse setzen 

Stringadresse setzen 


Länge erreicht ? 
Ja, Ende 
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7758 

91 

8C 


STA 

C$8C),Y 

775A 

C8 



INY 


775 B 

CO 

3F 


CPY 

#$3F 

775D 

DO 

EC 


BNE 

$7748 

775 F 

60 



RTS 


7760 

AD 

EO 

03 

LDA 

$03E0 

7763 

85 

3D 


STA 

S3D 

7765 

AD 

El 

03 

LDA 

$03E1 

7768 

85 

3E 


STA 

$3E 

776A 

20 

AF 

7A 

JSR 

$7AAF 

776D 

85 

4B 


STA 

$4B 

776F 

84 

4C 


STY 

$4C 

7771 

A9 

DB 


LDA 

#$DB 

7773 

85 

66 


STA 

$66 

7775 

A9 

03 


LDA 

#$03 

7777 

85 

67 


STA 

$67 

7779 

4C 

05 

54 

JMP 

$5405 

****************************** 

777C 

20 

EF 

77 

JSR 

$77EF 

777F 

24 

OF 


BIT 

$0F 

7781 

30 

16 


BMI 

$7799 

7783 

20 

F7 

87 

JSR 

$87F7 

7786 

CA 



DEX 


7787 

E0 

08 


CPX 

#$08 

7789 

B0 

OB 


BCS 

$7796 

778B 

8A 



TXA 


778C 

4A 



LSR 


778D 

6A 



ROR 


778E 

6A 



ROR 


778F 

A0 

OE 


LDY 

#$0E 

7791 

90 

01 


BCC 

$7794 

7793 

C8 



INY 


7794 

18 



CLC 


7795 

60 



RTS 


7796 

4C 

28 

7D 

JMP 

$7D28 

****************************** 

7799 

A5 

66 


LDA 

$66 

779B 

A4 

67 


LDY 

$67 

779D 

20 

EO 

87 

JSR 

$87E0 

77A0 

A0 

00 


LDY 

#$00 

77A2 

20 

E7 

42 

JSR 

$42E7 

77A5 

AA 



TAX 


77 A6 

C8 



INY 



String übertragen 

PC wieder holen 

Variable suchen/anlegen 
Adresse setzen 

Deskriptoradresse setzen 

String Uertzuweisung 

Parameter für SPRSAV auswerten 

FRMEVL Ausdruck auswerten 
Stringausdruck ? 

Ja, Skip 

Spritenummer holen 

Wert zu groß ? 

Ja, Fehler 

Spriteadresse in (A)/(Y) 

Flag für Spritenummer geholt 
•ILLEGAL QUANTITY• 

Aktuelle Stringparameter holen 

Stringzeiger holen 

Länge holen 
und in (X) 
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77A7 

20 E7 42 

JSR $42E7 

Adresse in (A)/(Y) holen 

77AA 

48 

PHA 


77AB 

C8 

I NY 


77AC 

20 E7 42 

JSR S42E7 


77AF 

A8 

TAY 


77B0 

68 

PLA 


77B1 

38 

SEC 

Flag für String geholt 

77B2 

60 

RTS 



****************************** BASIC-Befehl FAST 


77B3 

20 

45 

A8 

JSR SA845 

ROMs einschalten 

77B6 

AD 

11 

DO 

LDA SD011 

VIC-Schirm ausschalten 

77B9 

29 

6F 


AND #$6F 


77BB 

8D 

11 

DO 

STA $0011 


77BE 

A9 

01 


IDA #$01 

2 Megahertz einschalten 

77C0 

80 

30 

DO 

STA $D030 


77C3 

60 



RTS 



****************************** BASIC-Befehl SLOW 


77C4 

20 

45 

A8 

JSR $A845 

ROMs einschalten 

77C7 

A9 

00 


LDA #$00 

1 Megahertz einschalten 

77C9 

80 

30 

DO 

STA $0030 


77CC 

AD 

11 

DO 

LDA $0011 

VIC-Schirm wieder anschalten 

77CF 

29 

7F 


AND #$7F 


77D1 

09 

10 


ORA #$10 


77D3 

8D 

11 

DO 

STA $D011 


77D6 

60 



RTS 



****************************** FRMNUM Numerischen Ausdruck auswerten 
77D7 20 EF 77 JSR S77EF FRMEVL Ausdruck auswerten 

****************************** ^ u f numerisch testen 


77DA 18 CIC Flag für numerisch 

77DB 90 01 BCC S77DE Unbedingter Sprung 

********<»<»******************** Auf String prüfen 


77DD 

38 

SEC 

Flag für String 


77DE 

24 OF 

BIT $0F 

Typ = String ? 


77E0 

30 03 

BMI $77E5 

Ja, Skip 


77E2 

BO 03 

BCS S77E7 

Wenn Stringtest, 

Fehler 

77E4 

60 

RTS 



77E5 

BO FD 

BCS $77E4 

Wenn Stringtest, 

Ende 

77E7 

A2 16 

LDX #$16 

•TYPE MISMATCH 1 
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77E9 

2C 


.BYTE $2C 


77EA 

A2 

19 

LDX #$19 

■FORMULA TOO COMPLEX' 

77EC 

4C 

3C 4D 

JMP $4D3C 


****************************** 

FRMEVL Ausdruck auswerten 

77EF 

A6 

3D 

LDX $3D 

PC erniedrigen 

77F1 

00 

02 

BNE $77F5 


77F3 

C6 

3E 

DEC $3E 


77F5 

C6 

3D 

DEC $3D 


77F7 

A2 

00 

LDX #$00 


77F9 

24 


•BYTE $24 


77FA 

48 


PHA 

Vergleichsflag auf Stapel legen 

77FB 

8A 


TXA 


77FC 

48 


PHA 

Hierarchiewert setzen 

77FD 

BA 


TSX 

Stack voll ? 

77FE 

E0 

63 

CPX #$63 


7800 

90 

E8 

BCC $77EA 

Ja, Fehler 

7802 

20 

D7 78 

JSR $78D7 

Nächstes Element auswerten 

7805 

A9 

00 

LDA #$00 

Vergleichsmaske löschen 

7807 

85 

4F 

STA $4F 


7809 

20 

86 03 

JSR $0386 

CHRGOT 

780C 

38 


SEC 


780D 

E9 

Bl 

SBC #$B1 

< Token für l > 1 ? 

780 F 

90 

17 

BCC $7828 

Ja, Skip 

7811 

C9 

03 

CMP #$03 

> Token für •<* 7 

7813 

BO 

13 

BCS $7828 

Ja, kein Vergleich, Skip 

7815 

C9 

01 

CMP #$01 

Wenn •<•,•=•, SEC 

7817 

2A 


ROL 

Carry als Bit 0 setzen 

7818 

49 

01 

EOR #$01 

und Bit 0 invertieren 

781A 

45 

4F 

EOR $4F 

Entsprechendes Bit in Maske 

781C 

C5 

4F 

CMP $4F 

schon gesetzt ? 

781E 

90 

61 

BCC $7881 

Ja, Fehler 

7820 

85 

4F 

STA $4F 

Vergleichsmaske setzen 

7822 

20 

80 03 

JSR $0380 

CHRGET 

7825 

4C 

OC 78 

JMP $780C 

und weiterverarbeiten 

7828 

A6 

4F 

LDX $4F 

Vergleich ? 

782A 

DO 

2C 

BNE $7858 

Ja, Skip 

782C 

BO 

7E 

BCS $78AC 

Uenn unpassendes Zeichen, Endeflag setzen 

782E 

69 

07 

ADC #$07 

Rechenzeichen ? 

7830 

90 

7A 

BCC $78AC 

Nein, Endeflag setzen 

7832 

65 

OF 

ADC $0F 

Numerische Werte 7 

7834 

DO 

03 

BNE $7839 

Ja, Skip 

7836 

4C 

OD 87 

JMP $8700 

Stringverknüpfung 

7839 

69 

FF 

ADC #$FF 

Uert in Offset umrechnen 

783B 

85 

24 

STA $24 


7830 

OA 


ASL 
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783E 

65 

24 


ADC 

$24 

7840 

A8 



TAY 


7841 

68 



PLA 


7842 

D9 

28 

48 

CMP 

$4828,Y 

7845 

BO 

6A 


BCS 

$78B1 

7847 

20 

DA 

77 

JSR 

$77DA 

784A 

48 



PHA 


784 B 

20 

71 

78 

JSR 

$7871 

784 E 

68 



PLA 


784 F 

A4 

4D 


LDY 

$4D 

7851 

10 

17 


BPL 

$786A 

7853 

AA 



TAX 


7854 

FO 

59 


BEQ 

$78AF 

7856 

DO 

62 


BNE 

$78BA 

7858 

46 

OF 


LSR 

$0F 

785A 

8A 



TXA 


785B 

2A 



ROL 


785 C 

A6 

3D 


LDX 

$3D 

785 E 

DO 

02 


BNE 

$7862 

7860 

C6 

3E 


DEC 

$3E 

7862 

C6 

3D 


DEC 

$3D 

7864 

AO 

1B 


LDY 

#$1 B 

7866 

85 

4F 


STA 

$4F 

7868 

DO D7 


BNE 

$7841 

786A 

D9 

28 48 

CMP 

$4828,Y 

7860 

BO 

4B 


BCS 

$78BA 

786F 

90 

D9 


BCC 

$784A 

7871 

B9 

2A 

48 

LDA 

$482A,Y 

7874 

48 



PHA 


7875 

B9 

29 

48 

LDA 

$4829,Y 

7878 

48 



PHA 


7879 

20 

84 

78 

JSR 

$7884 

787C 

A5 

4F 


LDA 

$4F 

787E 

4C 

FA 

77 

JMP 

$77FA 

7881 

4C 

6C 

79 

JMP 

$796C 

7884 

A5 

68 


LDA 

$68 

7886 

BE 

28 

48 

LDX 

$4828,Y 

7889 

A8 



TAY 


788A 

18 



CLC 


788B 

68 



PLA 


788C 

69 

01 


ADC 

#$01 

788E 

85 

24 


STA 

$24 


Offset = Wert * 3 
Letzten Hierarchiewert holen 
< Hierarchieflag aus Tabelle ? 
Nein, Werte vom Stack holen 
Test auf numerisch 
Hierarchiewert retten 
Rekursiver Aufruf nach Setzen der 
Operandenadresse 
Hierarchiewert wieder holen 
Endeflag gesetzt ? 

Nein, Skip 

Hierarchiewert testen 

Wenn ■+', Skip 

Sonst Werte vom Stack holen 

Stringflag löschen 
Vergleichsmaske 
verdoppeln 
PC erniedrigen 


Offset auf Hierarchietabelle 
Flag setzen 
Unbedingter Sprung 

> Hierarchiewert aus Tabelle ? 

Ja, Werte vom Stack holen 

Operandenadresse auf Stapel legen 


Operanden auf Stapel legen 
Vergleichsflag laden 
und zum Schleifenstart 

•SYNTAX' 

Vorzeichen von FAC#1 laden 
Hierarchieflag laden 


Aufrufadresse merken 
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7890 

68 


PLA 


7891 

69 

00 

ADC #$00 


7893 

85 

25 

STA $25 


7895 

98 


TYA 


7896 

48 


PHA 


7897 

20 

47 8C 

JSR $8C47 

FAC#1 runden 

789A 

A5 

67 

IDA $67 

und auf Stapel legen 

789C 

48 


PHA 


789D 

A5 

66 

LDA $66 


789 F 

48 


PHA 


78A0 

A5 

65 

LDA $65 


78A2 

48 


PHA 


78A3 

A5 

64 

LDA $64 


78A5 

48 


PHA 


78A6 

A5 

63 

LDA $63 


78A8 

48 


PHA 


78A9 

6C 

24 00 

JMP ($0024) 

Zum Aufruf zurück (simuliertes RTS) 

78AC 

A0 

FF 

LDY #$FF 

Endewert 

78AE 

68 


PLA 

Hierarchieflag = 0 ? 

78 AF 

F0 

23 

BEQ $78D4 

Ja, entspricht leerem Stapel, Skip 

78B1 

C9 

64 

CMP #$64 

Aufruf durch '+' ? 

78B3 

F0 

03 

BEQ $78B8 

Ja, Skip 

78B5 

20 

DA 77 

JSR $77DA 

Test auf numerisch 

78B8 

84 

4D 

STY $4D 

Flag setzen 

78BA 

68 


PLA 

Vergleichsflag holen 

78BB 

4A 


LSR 

wieder korrigieren 

78BC 

85 

14 

STA $14 

und setzen 

78BE 

68 


PLA 

FAC#2 vom Stapel holen 

78BF 

85 

6A 

STA $6A 


78C1 

68 


PLA 


78C2 

85 

6B 

STA $6B 


78C4 

68 


PLA 


78C5 

85 

6C 

STA $6C 


78C7 

68 


PLA 


78C8 

85 

60 

STA $60 


78CA 

68 


PLA 


78CB 

85 

6E 

STA $6E 


78CD 

68 


PLA 


78CE 

85 

6F 

STA $6F 


78D0 

45 

68 

EOR $68 

Vorzeichen vergleichen 

78D2 

85 

70 

STA $70 


78D4 

A5 

63 

LDA $63 

Exponent FAC#1 laden 

78D6 

60 


RTS 



****************************** Nächstes Element eines Ausdrucks holen 
78D7 6C OA 03 JMP ($030A) $78DA Vektor Ausdruck auswerten 
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78DA 

A9 

00 

LDA 

o 

o 

$ 

Typflag auf numerisch setzen 

78DC 

85 

OF 

STA 

$0F 


78DE 

20 

80 03 

JSR 

$0380 

CHRGET 

78E1 

BO 

05 

BCS 

$78E8 

Wenn keine Zahl, Skip 

78E3 

A2 

00 

LDX 

#$00 

Flag für Bank 0 

78E5 

4C 

22 8 D 

JMP 

$ 8 D 22 

ASCII-Zahl in FAC#1 laden 

78E8 

20 

3C 78 

JSR 

$7B3C 

Buchstabe ? 

78EB 

90 

03 

BCC 

$78F0 

Nein, Skip 

78ED 

4C 

78 79 

JMP 

$7978 

Variable holen 

78F0 

C9 

FF 

CMP 

#$FF 

Token für Pi ? 

78F2 

DO 

OF 

BNE 

$7903 

Nein, Skip 

78F4 

A9 

FE 

LDA 

#$FE 

Zeiger auf Konstante Pi 

78F6 

AO 

78 

LDY 

#$78 


78F8 

20 

D4 8 B 

JSR 

$8BD4 

FAC#1 = Konstante (A)/(Y) 

78FB 

4C 

80 03 

JMP 

$0380 

Token für Pi überlesen 

****************************** 

Konstante Pi 

78FE 

82 

49 OF 

DA AI 


3.14159265 

****************************** 

Zeichen weiter testen 

7903 

C9 

2E 

CMP 

#$2E 

? 

7905 

FO 

DC 

BEQ 

$78E3 

Ja, Zahl auswerten 

7907 

C9 

AB 

CMP 

#$AB 

? 

7909 

FO 

66 

BEO 

$7971 

Ja, Vorzeichenwechsel 

790B 

C9 

AA 

CMP 

#$AA 

? 

790D 

FO 

CF 

BEQ 

$78DE 

Ja, über lesen 

790 F 

C9 

22 

CMP 

#$22 

l II l 9 

7911 

DO 

15 

BNE 

$7928 

Nein, Skip 

7913 

A5 

3D 

LDA 

$3D 

PC auf erstes Zeichen des Strings setzen 

7915 

A4 

3E 

LDY 

$3E 


7917 

69 

00 

ADC 

#$00 


7919 

90 

01 

BCC 

$791C 


791B 

C 8 


I NY 



791C 

20 

9A 86 

JSR 

$869A 

String übernehmen 

791F 

A 6 

72 

LDX 

$72 

PC auf Stringende + 1 setzen 

7921 

A4 

73 

LDY 

$73 


7923 

86 

3D 

STX 

$3D 


7925 

84 

3E 

STY 

$3E 


7927 

60 


RTS 



7928 

C9 

A 8 

CMP 

#$A 8 

Token für NOT ? 

792A 

DO 

16 

BNE 

$7942 

Nein, Skip 

792C 

AO 

18 

LDY 

#$18 

Offset auf Hierarchietabelle laden 

792E 

DO 

43 

BNE 

$7973 

Unbedingter Sprung 



Das BAS IC-ROM 


553 


****************************** BASIC-Befehl NOT 


7930 

20 

B4 

84 

JSR $84B4 

FAC#1 in Integer wandeln 

7933 

A5 

67 


LDA $67 

Wert invertieren 

7935 

49 

FF 


EOR #$FF 


7937 

A8 



TAY 


7938 

A5 

66 


LDA $66 


793A 

49 

FF 


EOR #$FF 


793C 

20 

E5 

84 

JSR $84E5 

Flags für Umwandlung in FAC#1 setzen 

793 F 

4C 

70 

8 C 

JMP $8C70 

FAC#1 = Integer 

****************************** 


7942 

C9 

A5 


CMP #$A5 

Token für FN ? 

7944 

DO 

03 


BNE $7949 

Nein, Skip 

7946 

4C 

3B 

85 

JMP $853B 

Funktion übernehmen 

7949 

C9 

B4 


CMP #$B4 

Funktion ? 

794B 

90 

03 


BCC $7950 

Nein, Skip 

7940 

4C 

F 7 

4B 

JMP $48F7 

Funktionen auswerten 

****************************** 

Ausdruck in Klammern auswerten 

7950 

20 

59 

79 

JSR $7959 

Test auf '(' 

7953 

20 

EF 

77 

JSR S77EF 

FRMEVL Ausdruck auswerten 

****************************** 

Zeichen im Programmtext prüfen 

7956 

A9 

29 


LDA #$29 


7958 

2C 



.BYTE $2C 


7959 

A9 

28 


LDA #$28 


795 B 

2C 



.BYTE $2C 


795C 

A9 

2C 


LDA #$2C 

1 1 
$ 

795 E 

A0 

00 


LDY #$00 

Offset auf 0 setzen 

7960 

85 

79 


STA $79 

Code setzen 

7962 

20 

C9 

03 

JSR $03C9 

Zeichen aus Programm holen 

7965 

C5 

79 


CMP $79 

= Code ? 

7967 

DO 

03 


BNE $796C 

Nein, Fehler 

7969 

4C 

o 

OO 

03 

JMP $0380 

Zeichen über lesen 

796C 

A2 

OB 


LDX #$0B 

•SYNTAX' 

796E 

4C 

3C 

4D 

JMP $4D3C 


7971 

AO 

15 


LDY #$15 

Offset für Vorzeichenwechsel 

7973 

68 



PLA 

Rücksprungadresse löschen 

7974 

68 



PLA 


7975 

4C 

4B 

78 

JMP $784B 

und in FRMEVL-Schleife 
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****************************** Variable holen 


7978 

20 

AF 7A 

JSR 

S7AAF 

797B 

85 

66 

STA 

S66 

797D 

84 

67 

STY 

$67 

797F 

A6 

47 

LDX 

$47 

7981 

A4 

48 

LDY 

$48 

7983 

A5 

OF 

LDA 

SOF 

7985 

FO 

63 

BEO 

S79EA 

7987 

A9 

00 

LDA 

#$00 

7989 

85 

71 

STA 

$71 

798B 

EO 

54 

CPX 

#$54 

798D 

DO 

25 

BNE 

$79B4 

798F 

CO 

C9 

CPY 

#$C9 

7991 

DO 

20 

BNE 

$7983 

7993 

A5 

66 

LDA 

$66 

7995 

C9 

D2 

CMP 

#$D2 

7997 

DO 

1 A 

BNE 

$79B3 

7999 

A5 

67 

LDA 

$67 

799B 

C9 

03 

CMP 

#$03 

799D 

DO 

14 

BNE 

$7983 

799F 

20 

1A 7A 

JSR 

$7A1A 

79A2 

84 

60 

STY 

$60 

79A4 

88 


DEY 


79 A 5 

84 

72 

STY 

$72 

79A7 

AO 

06 

LDY 

#$06 

79A9 

84 

5F 

STY 

$5F 

79A8 

AO 

24 

LDY 

#$24 

79 AD 

20 

CD 8E 

JSR 

$8ECD 

79B0 

4C 

B8 85 

JMP 

$85B8 

79B3 

60 


RTS 


79B4 

EO 

44 

CPX 

#$44 

79B6 

DO 

FB 

BNE 

$79B3 

79B8 

CO 

D3 

CPY 

#$D3 

79BA 

DO 

F7 

BNE 

$79B3 

79BC 

20 

E3 79 

JSR 

S79E3 

79BF 

AO 

FF 

LDY 

#$FF 

79C1 

C8 


INY 


79C2 

A9 

7B 

LDA 

#$7B 

79C4 

20 

AB 03 

JSR 

$03A8 

79C7 

C9 

00 

CMP 

#$00 

79C9 

DO 

F6 

BNE 

$79C1 

79CB 

98 


TYA 


79CC 

20 88 86 

JSR 

$8688 

79CF 

A8 


TAY 


79D0 

FO 

OE 

BEO 

$79E0 

7902 

88 


DEY 



Variable suchen/anlegen 
Deskriptoradresse setzen 

Variablennamen laden 

Variable numerisch ? 

Ja, Skip 

FAC#1 Rundungsstelle auf 0 
TIS ? 

Nein, Skip 
Nein, Skip 

Zeiger auf Interpreterwert 
ab $0302 ? 

Nein, Skip 

Nein, Skip 

Zeit auswerten 
und setzen 


TIS ist 6 Zeichen lang 

Offset auf Tabelle 
FAC#1 in ASCII wandeln 
und als String übernehmen 


DSS ? 

Nein, Skip 
Nein, Skip 

DSS lesen falIs nötig 
Offset auf Start 


LDA (S7B),Y 

Ende von DSS erreicht ? 

Nein, weiter suchen 
Länge in (A) 

Stringzeiger berechnen 
Länge = 0 ? 

Ja, Skip 

DSS in Stringbereich übertragen 
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79D3 

A9 

7B 

LDA #$7B 


79D5 

20 

AB 03 

JSR $03AB 


79D8 

91 

37 

STA ($37),Y 


79DA 

98 


TYA 


790 B 

DO 

F5 

BNE $79D2 


790D 

20 

71 87 

JSR $8771 

Zeiger ($37) erhöhen 

79E0 

4C 

E3 86 

JMP $86E3 

und Zeiger in Deskriptorstack legen 

****************************** 

DS$ lesen falls nötig 

79E3 

A5 

7A 

LOA $7A 

DS$ schon gesetzt ? 

79E5 

00 

40 

BNE $7A27 

Ja, Ende 

79E7 

4C 

78 A7 

JMP $A778 

DS$ einiesen 

****************************** 

Numerische Variable holen 

79EA 

24 

10 

BIT $10 

Integervariable ? 

79EC 

10 

OF 

BPL $79FD 

Nein, Skip 

79EE 

A0 

00 

LDY #$00 


79F0 

20 

E7 42 

JSR $42E7 

Wert in (A)/(Y) holen 

79F3 

AA 


TAX 


79F4 

C8 


INY 


79F5 

20 

E7 42 

JSR $42E7 


79F8 

A8 


TAY 


79F9 

BA 


TXA 


79FA 

4C 

3C 79 

JMP $793C 

und in FAC#1 

79FD 

A5 

67 

LDA $67 

Zeiger auf Interpreterwert 

79FF 

C9 

03 

CMP #$03 

ab $0302 7 

7A01 

00 

7E 

BNE $7A81 

Nein, Skip 

7A03 

A5 

66 

LDA $66 


7A05 

C9 

02 

CMP #$02 


7A07 

00 

78 

BNE $7A81 

Nein, Skip 

7A09 

EO 

54 

CPX #$54 

TI 7 

7A0B 

00 

1B 

BNE $7A28 

Nein, Skip 

7A0D 

CO 

49 

CPY #$49 


7A0F 

DO 

70 

BNE $7A81 

Nein, Skip 

7A11 

20 

1A 7A 

JSR $7A1A 

Zeit in FAC#1 holen 

7A14 

98 


TYA 

und in REAL wandeln 

7A15 

A2 

AO 

LOX #$A0 


7A17 

4C 

7B 8C 

JMP $8C7B 



****************************** z e jt in FAC#1 holen 


7A1A 

20 

DE FF 

JSR 

$FFDE 

7A1D 

86 

66 

STX 

$66 

7A1F 

84 

65 

STY 

$65 


RDT1M Zeit holen 
und in FAC#1 setzen 
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7A21 

85 

67 


STA 

$67 


7A23 

AO 

00 


LDY 

#$00 


7A25 

84 

64 


STY 

$64 


7A27 

60 



RTS 



****************************** 


7A28 

EO 

53 


CPX 

#$53 

ST ? 

7A2A 

DO 

OA 


BNE 

$7A36 

Nein, Skip 

7A2C 

CO 

54 


CPY 

#$54 


7A2E 

DO 

51 


BNE 

$7A81 

Nein, Skip 

7A30 

20 

B7 

FF 

JSR 

$FFB7 

READST Status lesen 

7A33 

4C 

68 

8 C 

JMP 

$8C68 

und in FAC#1 

7A36 

EO 

44 


CPX 

#$44 

DS ? 

7A38 

DO 

26 


BNE 

$7A60 

Nein, Skip 

7A3A 

CO 

53 


CPY 

#$53 


7A3C 

DO 

43 


BNE 

$7A81 

Nein, Skip 

7A3E 

20 

E3 

79 

JSR 

$79E3 

DS$ lesen falls nötig 

7A41 

AO 

00 


LDY 

#$00 

Offset auf Fehlernumner (1. Ziffer) 

7A43 

A9 

78 


LDA 

#$7B 


7A45 

20 

AB 

03 

JSR 

$03AB 

LDA ($7B),Y 

7A48 

29 

OF 


AND 

#$0F 

Numerischen Uert 0-9 isolieren 

7A4A 

OA 



ASL 


* 2 

7A4B 

85 

11 


STA 

$11 


7A4D 

OA 



ASL 


* 8 

7A4E 

OA 



ASL 



7A4F 

65 

11 


ADC 

$11 

* 10 

7A51 

85 

11 


STA 

$11 

und Wert * 10 speichern 

7A53 

C8 



INY 



7A54 

A9 

7B 


LDA 

#$7B 


7A56 

20 

AB 

03 

JSR 

$03AB 

2. Ziffer laden 

7A59 

29 

OF 


AND 

#$0F 

Numerischen Uert isolieren 

7A5B 

65 

11 


ADC 

$11 

Werte der Ziffern verknüpfen 

7A5D 

4C 

68 

8 C 

JMP 

$8C68 

und in FAC#1 holen 

7A60 

EO 

45 


CPX 

#$45 

ER oder EL ? 

7A62 

DO 

ID 


BNE 

$7A81 

nein, Skip 

7A64 

CO 

52 


CPY 

#$52 

ER ? 

7A66 

FO 

10 


BEQ 

$7A78 

Ja, Skip 

7A68 

CO 

4C 


CPY 

#$4C 

EL 7 

7A6A 

DO 

15 


BNE 

$7A81 

Nein, Skip 

****************************** 

EL in FAC#1 holen 

7A6C 

80 

03 

FF 

STA 

$FF03 

Urite in Bank 0 setzen 

7A6F 

AD 

OA 

12 

LDA 

$120A 

Uert EL holen 

7A72 

AC 

09 

12 

LDY 

$1209 
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7A75 4C C9 84 JHP $84C9 und in FAC#1 
*********#**********##i>***<i*** £p jp FAC#1 holen 


7A78 

8 D 

03 

FF 

STA 

$FF03 

Urite in Bank 0 setzen 

7A7B 

AD 

08 

12 

LDA 

$1208 

Uert von ER holen 

7A7E 

4C 

68 

8 C 

JMP 

$8C68 

und in FAC#1 


****************************** REAL-Variablenwert in FAC#1 holen 

7A81 A5 66 IDA $66 Deskriptoradresse laden 

7A83 A4 67 LDY $67 

****************************** Konstante (A)/(Y) aus Bank 1 in FAC#1 


7A85 

85 

24 


STA $24 

Adresse setzen 

7A87 

84 

25 


STY $25 


7A89 

A0 

00 


LDY #$00 


7A8B 

20 

B7 

03 

JSR $03B7 

Exponent übertragen 

7A8E 

85 

63 


STA $63 


7A90 

84 

71 


STY $71 

Rundungsbyte löschen 

7A92 

C8 



INY 


7A93 

20 

B7 

03 

JSR $03B7 

Vorzeichen übertragen 

7A96 

85 

68 


STA $68 


7A98 

09 

80 


ORA #$80 


7A9A 

85 

64 


STA $64 


7A9C 

C8 



INY 


7A9D 

20 

B 7 

03 

JSR $0387 

Mantisse übertragen 

7AA0 

85 

65 


STA $65 


7AA2 

C8 



INY 


7AA3 

20 

B7 

03 

JSR S03B7 


7AA6 

85 

66 


STA $66 


7AA8 

C8 



INY 


7AA9 

20 

B7 

03 

JSR $03B7 


7AAC 

85 

67 


STA $67 


7AAE 

60 



RTS 



****************************** Variable suchen/anlegen 


7AAF 

A2 

00 

LDX #$00 

Flag für nicht DIM-Befehl 

7A81 

20 

86 03 

JSR $0386 

CHRGOT 

7AB4 

86 

OE 

STX $0E 

DIM-Flag setzen 

7AB6 

85 

47 

STA $47 

Erstes Zeichen des Namens setzen 

7AB8 

20 

86 03 

JSR $0386 

CHRGOT 

7ABB 

20 

3C 7B 

JSR S7B3C 

Buchstabe ? 

7ABE 

BO 

03 

BCS $7AC3 

Ja, Skip 

7AC0 

4C 

6 C 79 

JMP $796C 

•SYNTAX' 

7AC3 

A2 

00 

LDX #$00 

Typflag 
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86 

0F 


STX 

V» 

o 

-n 

86 

10 


STX 

$10 

20 

80 

03 

JSR 

$0380 

90 

05 


BCC 

$7AD3 

20 

3C 

7B 

JSR 

$7B3C 

90 

OB 


BCC 

$7ADE 

AA 



TAX 


20 

80 

03 

JSR 

$0380 

90 

FB 


BCC 

$7AD4 

20 

3C 

7B 

JSR 

$7B3C 

BO 

F6 


BCS 

$7AD4 

C9 

24 


CMP 

#$24 

DO 

06 


BNE 

$7AE8 

A9 

FF 


LDA 

#$FF 

in 

CO 

0F 


STA 

$0F 

DO 

10 


BNE 

$7AF8 

C9 

25 


CMP 

#$25 

DO 

13 


BNE 

$7AFF 

A5 

12 


LDA 

$12 

DO 

DO 


BNE 

$7AC0 

A9 

80 


LDA 

#$80 

88 

10 


STA 

$10 

05 

47 


ORA 

$47 

85 

47 


STA 

$47 

8 A 



TXA 


09 

80 


ORA 

#$80 

AA 



TAX 


20 

80 

03 

JSR 

$0380 

86 

48 


STX 

$48 

38 



SEC 


05 

12 


ORA 

$12 

E9 

28 


SBC 

#$28 

DO 

03 


BNE 

$7B0B 

4C 

AB 

7C 

JMP 

$7CAB 

A0 

00 


LDY 

#$00 

84 

12 


STY 

$12 

A5 

2F 


LDA 

$2F 

A6 

30 


LDX 

$30 

86 

62 


STX 

$62 

85 

61 


STA 

$61 

E4 

32 


CPX 

$32 

00 

04 


BNE 

$7B1 F 

C5 

31 


CMP 

$31 

F0 

27 


BEO 

$7B46 

20 

00 

43 

JSR 

$4300 

C5 

47 


CMP 

$47 

DO 

OC 


BNE 

$7B32 


auf numerisch 
und REAL 

Nächstes Zeichen holen 
Wenn Zahl, Skip 
Buchstabe ? 

Nein, Skip 
Zeichen retten 
CHRGET 

Wenn Ziffer, über lesen 
Buchstabe ? 

Ja, überlesen 
'$' ? 

Nein, Skip 

Typflag auf String setzen 

Unbedingter Sprung 
'%' ? 

Nein, Skip 

Integervariablen erlaubt ? 

Nein, Fehler 
Integerflag setzen 

und Bit 7 im ersten Zeichen setzen 

Zweites Zeichen holen 
und Bit 7 für String setzen 
Zeichen retten 
CHRGOT 

und zweites Zeichen setzen 


Eingelesenes Zeichen = '(' ? 
Nein, Skip 
Array lesen 


Integer erlauben 
Zeiger auf Variablenstart 

in Suchzeiger setzen 

Ende Variablen erreicht ? 
Nein, Skip 

Ja, Variable neu anlegen 
Erstes Zeichen laden 
Variable gefunden ? 

Nein, Skip 
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7B27 

20 

00 43 

JSR $4300 

Zweites Zeichen laden 

7B2A 

C5 

48 

CMP $48 


7B2C 

DO 

03 

BNE $7B31 

Nein, Skip 

7B2E 

4C 

57 7C 

JMP $7C57 


7B31 

88 


DEY 


7B32 

18 


CLC 

Zeiger auf nächste Variable setzen 

7B33 

A5 

61 

LDA $61 


7B35 

69 

07 

ADC #$07 


7B37 

90 

DC 

BCC $7B15 


7B39 

E8 


INX 


7B3A 

DO 

D7 

BNE $7B13 

und weitersuchen 

****************************** 

Test auf ßuchstabe ? 

7B3C 

C9 

41 

CMP #$41 

< • A • ? 

7B3E 

90 

05 

BCC $7B45 

Ja, CLC Ende 

7B40 

E9 

5B 

SBC #$5B 

Falls > *Z•, CLC Ende 

7B42 

38 


SEC 

sonst SEC 

7B43 

E9 

A5 

SBC #$A5 


7B45 

60 


RTS 


****************************** 

Variable neu anlegen 

7B46 

BA 


TSX 


7B47 

BD 

02 01 

LDA $0102,X 

Aufrufadresse 

7B4A 

C9 

83 

CMP #$83 

von FRMEVL 

7B4C 

FO 

04 

BEQ $7852 


7B4E 

C9 

79 

CMP #$79 


7B50 

DO 

2A 

BNE $7B7C 

Nein, Skip 

7B52 

A9 

D2 

LDA #$D2 

Zeiger auf Interpreterwert $03D2 

7B54 

AO 

03 

LDY #$03 


7B56 

60 


RTS 


7B57 

CO 

C9 

CPY #$C9 

TIS 7 

7B59 

FO 

F7 

BEQ $7B52 

Ja, Zeiger auf Interpreterwert setzen 

7B5B 

CO 

49 

CPY #$49 

TI 7 

7B5D 

DO 

31 

BNE $7B90 

Nein, Skip 

7B5F 

FO 

18 

BEQ $7B79 

Ja, Fehler 

7B61 

CO 

D3 

CPY #$D3 

DSS 7 

7B63 

FO 

14 

BEQ $7B79 

Ja, Fehler 

7B65 

CO 

53 

CPY #$53 

DS 7 

7B67 

DO 

27 

BNE $7B90 

Nein, Skip 

7B69 

FO 

OE 

BEQ $7879 

Ja, Fehler 

7B6B 

CO 

54 

CPY #$54 

ST 7 

7B6D 

DO 

21 

BNE $7890 

Nein, Skip 
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7B6F 

F0 08 

BEQ $7B79 

Ja, Fehler 

7B71 

CO 52 

CPY #$52 

ER ? 

7B73 

FO 04 

BEQ S7B79 

Ja, Fehler 

7B75 

CO 4C 

CPY #$4C 

EL ? 

7B77 

DO 17 

BNE $7B90 

Nein, Skip 

7B79 

4C 6C 79 

JMP $796C 

'SYNTAX' 

7B7C 

A5 47 

LDA $47 

Variablenname laden 

7B7E 

A4 48 

LDY $48 


7B80 

C9 54 

CMP #$54 

TI oder TIS ? 

7882 

FO D3 

BEQ $7657 

Ja, testen 

7B84 

C9 53 

CMP #$53 

ST ? 

7B86 

FO E3 

BEQ $7B6B 

Ja, testen 

7B88 

C9 45 

CMP #$45 

ER oder EL ? 

7B8A 

FO E5 

BEQ $7B71 

Ja, testen 

7B8C 

C9 44 

CMP #$44 

DS oder DS$ ? 

7B8E 

FO Dl 

BEQ $7B61 

Ja, testen 

7B90 

A5 31 

LDA $31 

Zeiger auf Arraystart 

7B92 

A4 32 

LDY $32 


7B94 

85 61 

STA $61 

retten 

7B96 

84 62 

STY $62 


7B98 

A5 33 

LDA $33 

Zeiger auf Arrayende 

7B9A 

A4 34 

LDY $34 


7B9C 

85 5C 

STA $5C 

retten 

7B9E 

84 5D 

STY $5D 


7BA0 

18 

CLC 


7BA1 

69 07 

ADC #$07 


7BA3 

90 01 

BCC $7BA6 

Zeiger für neue Variable um 7 erhöhen 

7BA5 

C8 

I NY 


7BA6 

85 5A 

STA $5A 


7BA8 

84 58 

STY $5B 


7BAA 

20 66 7C 

JSR $7C66 

Block verschieben 

7BAD 

A5 5A 

LDA $5A 


7BAF 

A4 5B 

LDY $5B 


7BB1 

C8 

INY 


7BB2 

85 31 

STA $31 

Zeiger auf Arraystart neu setzen 

7BB4 

84 32 

STY $32 


7BB6 

85 5A 

STA $5A 


7BB8 

84 5B 

STY $5B 


7BBA 

A5 5A 

LDA $5A 

Stringtrailer müssen korrigiert werden 

7BBC 

A6 5B 

LDX $5B 


7BBE 

E4 34 

CPX $34 

Ende erreicht ? 

7BC0 

DO 06 

BNE $7BC8 


7BC2 

C5 33 

CMP $33 


7BC4 

DO 02 

BNE $7BC8 


7BC6 

FO 78 

BEQ $7C40 

Ja, Variable eintragen 

7BC8 

85 24 

STA $24 

Zeiger setzen 
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BCA 

BCC 

BCE 

BDI 

BD2 

8D3 

BD6 

BD7 

BD8 

BDB 

BDD 

BDF 

BEO 

BE3 

BE5 

BE7 

BE8 

BEA 

BEB 

BED 

BEE 

BF1 

BF3 

BF4 

BF6 

BF8 

BFA 

BFC 

BFE 

COO 

C02 

C04 

C06 

C08 

COA 

COD 

COF 

C11 

C12 

C15 

C16 

C18 

CIA 

C1B 

CIE 

C20 

C22 

C24 


86 

25 


STX 

$25 

A0 

00 


LDY 

#$00 

20 

B7 

03 

JSR 

$03B7 

AA 



TAX 


C8 



INY 


20 

B7 

03 

JSR 

$03B7 

08 



PHP 


C8 



INY 


20 

B7 

03 

JSR 

$03B7 

65 

5A 


ADC 

$5A 

85 

5A 


STA 

$5A 

C8 



INY 


20 

87 

03 

JSR 

$03B7 

65 

5B 


ADC 

$5B 

85 

5B 


STA 

$5B 

28 



PLP 


10 

DO 


BPL 

$7BBA 

8 A 



TXA 


30 

CD 


BMI 

$7BBA 

C8 



INY 


20 

B7 

03 

JSR 

$03B7 

AO 

00 


LDY 

#$00 

OA 



ASL 


69 

05 


ADC 

#$05 

65 

24 


ADC 

$24 

85 

24 


STA 

$24 

90 

02 


BCC 

$7BFE 

E6 

25 


INC 

$25 

A6 

25 


LDX 

$25 

E4 

5B 


CPX 

$5B 

DO 

U4 


BNE 

$7C08 

C5 

5A 


CMP 

$5A 

FO 

B6 


BEQ 

$7BBE 

AO 

00 


LDY 

#$00 

20 

B7 

03 

JSR 

$0387 

FO 

24 


BEQ 

$7C33 

85 

79 


STA 

$79 

C8 



INY 


20 

B7 

03 

JSR 

$03B7 

18 



CLC 


65 

79 


ADC 

$79 

85 

5C 


STA 

$5C 

C8 



INY 


20 

B7 

03 

JSR 

$03B7 

69 

00 


ADC 

#$00 

85 

5D 


STA 

$5D 

AO 

00 


LDY 

#$00 

20 

E2 

42 

JSR 

$42E2 


Erstes Zeichen des Namens 
in (X) 

Zweites Zeichen des Namens laden 
und Status auf Stapel (BPL oder BMI !) 

Feldlänge auf Zeiger aufaddieren 


Stringvariable ? 

Nein, zum Schleifenstart 

Nein, zum Schleifenstart 

Dimensionen laden 

* 2 
+ 5 

ergibt Zeiger auf Feldanfang 


Feldende erreicht ? 


Ja, zum Schleifenstart 

Länge des Strings holen 
Wenn 0, Skip 
Länge setzen 

Stringadresse 

+ Länge 


ergibt Zeiger auf Trailer 


Trailer um 7 erhöhen 
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7C27 

69 

07 

ADC 

#$07 


7C29 

91 

5C 

STA 

($50,Y 


7C2B 

C8 


INY 



7C2C 

20 

E2 42 

JSR 

$42E2 


7C2F 

69 

00 

ADC 

#$00 


7C31 

91 

5C 

STA 

($50,Y 


7C33 

A9 

03 

LDA 

#$03 

Zeiger auf nächstes Arrayelement setzen 

7C35 

18 


CLC 



7C36 

65 

24 

ADC 

$24 


7C38 

85 

24 

STA 

$24 


7C3A 

90 

C2 

BCC 

$7BFE 


7C3C 

E6 

25 

INC 

$25 


7C3E 

DO 

BE 

BNE 

$7BFE 

und Array weiter testen 

7C40 

A0 

00 

LDY 

#$00 

Offset auf 

7C42 

A5 

47 

LDA 

$47 

Namen eintragen 

7C44 

8 D 

04 FF 

STA 

$FF04 

Write in Bank 1 setzen 

7C47 

91 

61 

STA 

($61),Y 


7C49 

C8 


INY 



7C4A 

A5 

48 

LDA 

$48 


7C4C 

91 

61 

STA 

($61),Y 


7C4E 

A9 

00 

LDA 

#$00 


7C50 

C8 


INY 



7C51 

91 

61 

STA 

($61),Y 

Variablenwert auf 0 setzen 

7C53 

CO 

06 

CPY 

#$06 


7C55 

DO 

F9 

BNE 

$7C50 


7C57 

A5 

61 

LDA 

$61 

Variablenstart 

7C59 

18 


CLC 



7C5A 

69 

02 

ADC 

#$02 

+ 2 

7C5C 

A4 

62 

LDY 

$62 


7C5E 

90 

01 

BCC 

$7C61 


7C60 

C8 


INY 



7C61 

85 

49 

STA 

$49 

= Zeiger auf Variablenwert 

7C63 

84 

4A 

STY 

$4A 


7C65 

60 


RTS 




****************************** Blockverschieberout ine für Variablen 


($61) = Alter Blockanfang 

($5C) = Altes Blockende + 1 

($5A) = Neues Blockende + 1 


7C66 

20 17 50 

JSR 

$5017 

7C69 

85 33 

STA 

$33 

7C6B 

84 34 

STY 

$34 

7C6D 

38 

SEC 


7C6E 

A5 5C 

LDA 

$5C 

7C70 

E5 61 

SBC 

$61 


Im Speicher Platz schaffen 
(A) und (Y) speichern 


Altes Blockende 
- Alter Blockanfang + 1 
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7C72 

85 

24 

STA 

$24 


7C74 

A8 


TAY 


ergibt Restabschnitt 

7C75 

A5 

5D 

LDA 

$5D 


7C77 

E5 

62 

SBC 

$62 


7C79 

AA 


TAX 


und Anzahl der Speicherseiten 

7C7A 

E8 


I NX 


die verschoben werden müssen 

7C7B 

98 


TYA 


Restabschnitt vorhanden ? 

7C7C 

FO 

25 

BEQ 

$7CA3 

Nein, Skip 

7C7E 

A5 

5C 

LDA 

$5C 

Zeiger auf Restabschnitt anpassen 

7C80 

38 


SEC 



7C81 

E5 

24 

SBC 

$24 


7C83 

85 

5C 

STA 

$5C 


7C85 

BO 

03 

BCS 

$7C8A 


7C87 

C6 

5D 

DEC 

$5D 


7C89 

38 


SEC 



7C8A 

A5 

5A 

LDA 

$5A 


7C8C 

E5 

24 

SBC 

$24 


7C8E 

85 

5A 

STA 

$5A 


7C90 

BO 

09 

BCS 

$7C9B 


7C92 

C6 

5B 

DEC 

$5B 


7C94 

90 

05 

BCC 

$7C9B 

und Restabschnitt zuerst kopieren 

7C96 

20 

E2 42 

JSR 

$42E2 

LDA ($50,Y 

7C99 

91 

5A 

STA 

($5A),Y 

Block zeichenweise übertragen 

7C9B 

88 


DEY 



7C9C 

DO 

F8 

BNE 

$7C96 


7C9E 

20 

E2 42 

JSR 

$42E2 

Letztes Zeichen in der Seite übertragen 

7CA1 

91 

5A 

STA 

($5A),Y 


7CA3 

C6 

50 

DEC 

$5D 

Seitenzeiger erniedrigen 

7CA5 

C6 

5B 

DEC 

$5B 


7CA7 

CA 


DEX 


Alle Seiten übertragen ? 

7CA8 

DO 

Fl 

BNE 

$7C9B 

Nein, weitersuchen 

7CAA 

60 


RTS 



****************************** 

Dimensionierte Variable holen 

7CAB 

A5 

OE 

LDA 

$OE 

DIM-Flag und 

7CAD 

05 

10 

ORA 

$10 

Integerflag verknüpfen 

7CAF 

48 


PHA 


und retten 

7CB0 

A5 

OF 

LDA 

$OF 

Typflag retten 

7CB2 

48 


PHA 



7CB3 

AO 

00 

LDY 

#$00 

Anzahl der Indizes auf 0 

7CB5 

98 


TYA 



7CB6 

48 


PHA 


und retten 

7CB7 

A5 

48 

LDA 

$48 

Variablenname retten 

7CB9 

48 


PHA 



7CBA 

A5 

47 

LDA 

$47 


7CBC 

48 


PHA 
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7CBD 

20 

A 7 84 

JSR 

< 

vT 

CO 

7CC0 

68 


PLA 


7CC1 

85 

47 

STA 

$47 

7CC3 

68 


PLA 


7CC4 

85 

48 

STA 

$48 

7CC6 

68 


PLA 


7CC7 

A8 


TAY 


7CC8 

BA 


TSX 


7CC9 

BD 

02 01 

LDA 

$0102,X 

7CCC 

48 


PHA 


7CC0 

BD 

01 01 

LDA 

$0101,X 

7CD0 

48 


PHA 


7CD1 

A5 

66 

LDA 

$66 

7CD3 

9D 

02 01 

STA 

$0102,X 

7CD6 

A5 

67 

LDA 

$67 

7CD8 

9D 

01 01 

STA 

$0101,X 

7CDB 

C8 


INY 


7CDC 

84 

0D 

STY 

$0D 

7CDE 

20 

86 03 

JSR 

$0386 

7CE1 

A4 

0D 

LDY 

$0D 

7CE3 

C9 

2C 

CMP 

#$2C 

7CE5 

F0 

CE 

BEQ 

$7CB5 

7CE7 

20 

56 79 

JSR 

$7956 

7CEA 

68 


PLA 


7CEB 

85 

0F 

STA 

$0F 

7CED 

68 


PLA 


7CEE 

85 

10 

STA 

$10 

7CF0 

29 

7F 

AND 

#$7F 

7CF2 

85 

0E 

STA 

$0E 

7CF4 

A6 

31 

LDX 

$31 

7CF6 

A5 

32 

LDA 

$32 

7CF8 

86 

61 

STX 

$61 

7CFA 

85 

62 

STA 

$62 

7CFC 

C5 

34 

CMP 

$34 

7CFE 

DO 

04 

BNE 

$7D04 

7D00 

E4 

33 

CPX 

$33 

7D02 

F0 

42 

BEO 

$7D46 

7D04 

A0 

00 

LDY 

#$00 

7D06 

20 

00 43 

JSR 

$4300 

7D09 

C8 


INY 


7D0A 

C5 

47 

CMP 

$47 

7D0C 

DO 

07 

BNE 

$7D15 

7D0E 

20 

00 43 

JSR 

$4300 

7D11 

C5 

48 

CMP 

$48 

7D13 

F0 

18 

BEQ 

$7D2D 

7D15 

C8 


INY 


7D16 

20 

00 43 

JSR 

•C" 

W 

o 

o 

7D19 

18 


CLC 



Index laden und in Integer 
Variablennamen wieder setzen 

Anzahl der Indizes holen 
Ersten Wert auf Stapel verdoppeln 

und Index auf Stapel 

Anzahl der Indizes erhöhen 

und setzen 

CHRGOT 

Anzahl wieder laden 
Zeichen = 1 , 1 ? 

Ja, nächsten Index verarbeiten 
Test auf ')' 

Typflag wieder setzen 

Integerflag wieder setzen 

und DIM-Wert setzen 
Zeiger auf Arraystart 

in Hilfszeiger setzen 

Ende erreicht ? 

Ja, Skip 

Variablenname gefunden ? 

Ja, Skip 

Arraylänge auf Zeiger aufaddieren 
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7D1A 

65 

61 


ADC 

$61 


7D1C 

AA 



TAX 



7D1D 

C8 



INY 



7D1E 

20 

00 

43 

JSR 

$4300 


7D21 

65 

62 


ADC 

$62 


7D23 

90 

D3 


BCC 

$7CF8 

und weitersuchen 

7D25 

A2 

12 


LDX 

#$12 

'BAD SUBSCRIPT 1 

71327 

2C 



•BYTE S2C 


7D28 

A2 

OE 


LDX 

#$0E 

•ILLEGAL QUANTITY* 

702A 

4C 

3C 

4D 

JMP 

$4D3C 


7D2D 

A2 

13 


LDX 

#$13 

Wert für 'REDIM'D ARRAY' 

7D2F 

A5 

OE 


LDA 

$0E 

DIM-Flag gesetzt ? 

7D31 

DO 

F7 


BNE 

$7D2A 

Ja, Fehler 

7D33 

20 

71 

7E 

JSR 

$7E71 

Zeiger auf erstes Element berechnen 

7D36 

A0 

04 


LDY 

#$04 


7D38 

20 

00 

43 

JSR 

$4300 

Dimensionen aus Array laden 

7D3B 

85 

79 


STA 

$79 


7D3D 

A5 

00 


LDA 

$0D 

Gesuchte Dimensionen 

7D3F 

C5 

79 


CMP 

$79 

= gefundene Dimensionen ? 

7D41 

DO 

E2 


BNE 

$7D25 

Nein, Fehler 

7D43 

4C 

D2 

7D 

JMP 

$7DD2 

Gesuchtes Arrayelement anwählen 

****************************** 

Dimensionierte Variable neu anlegen 

7D46 

20 

71 

7E 

JSR 

$7E71 

Zeiger auf erstes Element berechnen 

7D49 

20 

17 

50 

JSR 

$5017 

Platz im Speicher schaffen 

7D4C 

AO 

00 


LDY 

#$00 

Offset auf 0 

7D4E 

84 

73 


STY 

$73 


7D50 

A2 

05 


LDX 

#$05 

Element länge auf 5 für Real 

7D52 

A5 

47 


LDA 

$47 

Erstes Zeichen des Namens 

7D54 

8 D 

04 

FF 

STA 

$FF04 

Write in Bank 1 setzen 

7D57 

91 

61 


STA 

($61),Y 

Zeichen in Array setzen 

7D59 

10 

01 


BPL 

$7D5C 

Wenn kein Integer, Skip 

7D5B 

CA 



DEX 


(X) auf 4 

7D5C 

C8 



INY 



7D5D 

A5 

48 


LDA 

$48 

Zweites Zeichen des Namens setzen 

7D5F 

91 

61 


STA 

($61),Y 


7D61 

10 

02 


BPL 

$7D65 

Uenn Real-Variable, Skip 

7D63 

CA 



DEX 


(X) auf 2 für Integer 

7D64 

CA 



DEX 


und auf 3 für String 

7D65 

86 

72 


STX 

$72 

Element länge setzen 

7D67 

A5 

OD 


LDA 

$0D 

Dimensionsanzahl 

7D69 

C8 



INY 



7D6A 

C8 



INY 



7D6B 

C8 



INY 



7D6C 

91 

61 


STA 

($61),Y 

in Array setzen 
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7D6E 

A2 

08 


LDX 

#$0B 


7D70 

A9 

00 


LOA 

#$00 


7D72 

24 

OE 


BIT 

$0E 

DIM-Befehl ? 

7D74 

50 

08 


BVC 

$7D7E 

Nein, Skip 

7D76 

68 



PLA 


Dimension vom Stack holen 

7D77 

18 



CLC 



7D78 

69 

01 


ADC 

#$01 

um 1 erhöhen 

7D7A 

AA 



TAX 



7D7B 

68 



PLA 



7D7C 

69 

00 


ADC 

#$00 

High-Byte korrigieren 

7D7E 

C8 



INY 



7D7F 

91 

61 


STA 

($61),Y 

und Dimension in Array speichern 

7D81 

C8 



INY 



7D82 

8 A 



TXA 



7D83 

91 

61 


STA 

($61),Y 


7085 

20 

3E 

7E 

JSR 

$7E3E 

Platz für restliche Dimensionen berechnen 

7088 

86 

72 


STX 

$72 

und Endezeiger setzen 

708A 

85 

73 


STA 

$73 


7D8C 

A4 

24 


LDY 

$24 

Offset wieder laden (gesetzt JSR $7E3E) 

7D8E 

C6 

00 


DEC 

$0D 

Alle Dimensionen verarbeitet ? 

7D90 

00 

DC 


BNE 

$7D6E 

Nein, weiter eintragen 

7D92 

65 

SB 


ADC 

$5B 

Feldlänge auf Start aufaddieren 

7D94 

BO 

67 


BCS 

$7DFD 


7D96 

85 

SB 


STA 

$5B 


7D98 

A8 



TAY 



7D99 

8 A 



TXA 



7D9A 

65 

SA 


ADC 

$5A 


7D9C 

90 

03 


BCC 

$7DA1 


7D9E 

C8 



INY 



7D9F 

FO 

5C 


BEO 

$7DFD 

Bei Übertrag, Fehler 

7DA1 

20 

17 

50 

JSR 

$5017 

und Speicherplatz prüfen 

7DA4 

85 

33 


STA 

$33 

Feldendezeiger neu setzen 

7DA6 

84 

34 


STY 

$34 


7DA8 

A9 

00 


LDA 

#$00 

Array mit Nullbytes füllen 

7DAA 

E6 

73 


INC 

$73 


7DAC 

A4 

72 


LDY 

$72 


7DAE 

FO 

05 


8 EQ 

$7DB5 


7DB0 

88 



DEY 



7DB1 

91 

5A 


STA 

($5A),Y 


7DB3 

DO 

FB 


BNE 

$7DB0 


7DB5 

C6 

SB 


DEC 

$5B 


7DB7 

C6 

73 


DEC 

$73 

Alles gefüllt ? 

7DB9 

DO 

F5 


BNE 

$7DB0 

Nein, weitermachen 

7DBB 

E6 

5B 


INC 

$5B 


7DBD 

38 



SEC 



7DBE 

A5 

33 


LDA 

$33 



Das BAS1C-ROM 


567 


7DC0 

E5 

61 

SBC 

$61 


7DC2 

AO 

02 

LDY 

#$02 


7DC4 

91 

61 

STA 

($61),Y 

Feldlänge in Array setzen 

7DC6 

A5 

34 

LDA 

$34 


70 C8 

C8 


INY 



7DC9 

E5 

62 

SBC 

$62 


7DCB 

91 

61 

STA 

($61),Y 


7DCD 

A5 

OE 

LDA 

** 

CD 

m 

DIM-Befehl 7 

7DCF 

DO 

6 C 

BNE 

$7E3D 

Ja, Ende 


****************************** Arrayelement suchen 


7DD1 

C8 



INY 


7DD2 

20 

00 

43 

JSR $4300 

Anzahl der Dimensionen 

7DD5 

85 

OD 


STA $0D 

setzen 

7DD7 

A9 

00 


LDA #$00 


7DD9 

85 

72 


STA $72 


7DDB 

85 

73 


STA $73 


7DDD 

C8 



INY 


7DDE 

68 



PLA 

Index vom Stapel holen 

7DDF 

AA 



TAX 


7DE0 

85 

66 


STA $66 


7DE2 

20 

00 

43 

JSR $4300 

Entsprechenden Wert aus Array holen 

7DE5 

85 

79 


STA $79 


7DE7 

68 



PLA 


7DE8 

85 

67 


STA $67 


7DEA 

C5 

79 


CMP $79 

Index zu groß ? 

7DEC 

90 

12 


BCC $7E00 

Nein, Skip 

7DEE 

DO 

OA 


BNE $7DFA 

Ja, Fehler 

7DF0 

C8 



INY 


7DF1 

20 

00 

43 

JSR $4300 

Index zu groß ? 

7DF4 

85 

79 


STA $79 


7DF6 

E4 

79 


CPX $79 


7DF8 

90 

07 


BCC $7E01 

Nein, Skip 

7DFA 

4C 

25 

7D 

JMP $7D25 

•BAD SUBSCRIPT 1 

7DFD 

4C 

3A 

4D 

JMP $4D3A 

'OUT OF MEMORY' 


****************************** e iementadresse berechnen 


7E00 

C8 


INY 


7E01 

A5 

73 

LDA 

$73 

7E03 

05 

72 

ORA 

$72 

7E05 

18 


CLC 


7E06 

F0 

0A 

BEO 

$7E12 

7E08 

20 

3E 7E 

JSR 

$7E3E 

7E0B 

8 A 


TXA 


7E0C 

65 

66 

ADC 

$66 

7E0E 

AA 


TAX 



(X)/(A) = ($72) * (($66 ),Y) 


Multipl i kationsroutine 
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7 EOF 

98 


TYA 


7E10 

A4 

24 

LDY $24 

Offset wieder laden 

7E12 

65 

67 

ADC $67 


7E14 

86 

72 

STX $72 


7E16 

C6 

OD 

DEC $0D 

Noch eine Dimension ? 

7E18 

DO 

CI 

BNE $7DD8 

Ja, die auch verarbeiten 

7E1A 

85 

73 

STA $73 


7E1C 

A2 

05 

LDX #$05 

Uert für Real-Berechnung 

7E1E 

A5 

47 

LDA $47 

Integervariable ? 

7E20 

10 

01 

BPL $7E23 

Nein, Skip 

7E22 

CA 


DEX 

II 

X 

v»' 

7E23 

A5 

48 

LDA $48 

Realvariable ? 

7E25 

10 

02 

BPL $7E29 

Ja, Skip 

7E27 

CA 


DEX 

(X) = 2 für Integer 

7E28 

CA 


DEX 

(X) = 3 für String 

7E29 

86 

2A 

STX $2A 

Low-Byte für Multiplikation setzen 

7E2B 

A9 

00 

LDA #$00 

High-Byte auf 0 

7E2D 

20 

49 7E 

JSR $7E49 

Multiplikationsroutine 

7E30 

8 A 


TXA 

Ergebnis 

7E31 

65 

5A 

ADC $5A 

+ Feldstart 

7E33 

85 

49 

STA $49 

ergibt Variablenzeiger 

7E35 

98 


TYA 


7E36 

65 

5B 

ADC $5B 


7E38 

85 

4A 

STA $4A 


7E3A 

A8 


TAY 


7E3B 

A5 

49 

LDA $49 

Wert auch in (A)/(Y) 

7E3D 

60 


RTS 


****************************** 

Multiplikationsroutine 

7E3E 

84 

24 

STY $24 

Offset retten 

7E40 

20 

00 43 

JSR $4300 

Dimension aus Array holen und setzen 

7E43 

85 

2A 

STA $2A 


7E45 

88 


DEY 


7E46 

20 

00 43 

JSR $4300 


7E49 

85 

2B 

STA $2B 


****************************** 

(X)/(Y) = ($72) * ($2A) 

7E4B 

A9 

10 

LDA #$10 

16 Bit multiplizieren 

7E4D 

85 

5F 

STA $5F 


7E4F 

A2 

00 

LDX #$00 

Ergebnis auf 0 setzen 

7E51 

AO 

00 

LDY #$00 


7E53 

8 A 


TXA 

Ergebnis * 2 

7E54 

OA 


ASL 


7E55 

AA 


TAX 


7E56 

98 


TYA 




Das BAS IC-ROM 


569 


7E57 

2A 


ROL 



7E58 

A8 


TAY 



7E59 

BO 

A2 

BCS 

$7DFD 

Wenn Übertrag, Fehler 

7E5B 

06 

72 

ASL 

$72 

Multiplikand * 2 

7E5D 

26 

73 

ROL 

$73 


7E5F 

90 

OB 

BCC 

$7E6C 

Wenn kein Übertrag, Skip 

7E61 

18 


CLC 


Multiplikator zu Ergebnis addieren 

7E62 

8 A 


TXA 



7E63 

65 

2A 

ADC 

$2A 


7E65 

AA 


TAX 



7E66 

98 


TYA 



7E67 

65 

2B 

ADC 

$28 


7E69 

A8 


TAY 



7E6A 

BO 

91 

BCS 

$7DFD 

Wenn Übertrag, Fehler 

7E6C 

C6 

5F 

DEC 

$5F 

Alle Bits verarbeitet ? 

7E6E 

DO 

E3 

BNE 

$7E53 

Nein, ueitermachen 

7E70 

60 


RTS 



****************************** 

Zeiger auf erstes Arrayelement berechnen 

7E71 

A5 

OD 

LDA 

$0D 

Anzahl der Dimensionen 

7E73 

OA 


ASL 


* 2 

7E74 

69 

05 

ADC 

#$05 

+ Länge des Feldkopfes 

7E76 

65 

61 

ADC 

$61 

+ Feldadresse 

7E78 

A4 

62 

LDY 

$62 


7E7A 

90 

01 

BCC 

$7E7D 


7E7C 

C8 


I NY 



7E7D 

85 

5A 

STA 

$5A 

ergibt Elementadresse 

7E7F 

84 

5B 

STY 

$5B 


7E81 

60 


RTS 



************** **************** 

Füllbytes ohne Bedeutung 

7E82 

FF 

FF 

FF FF . 



7FFE 


. # 

FF FF 
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****************************** BASIC■Funktion FRE 


8000 

20 

F7 

87 

JSR 

$87F7 

Byte-Uert holen 

8003 

EO 

01 


CPX 

#$01 

Bank 1 ? 

8005 

90 

05 


BCC 

$800C 

Nein, Bank 0 Skip 

8007 

FO 

31 


BEQ 

$803A 

Wenn Bank 1, Skip 

8009 

4C 

28 

7D 

JMP 

$7D28 

■ILLEGAL QUANTITY 1 

800C 

38 



SEC 


(A)/(Y) = Bank 0 Maximal - Programmende 

8000 

AO 

12 

12 

LDA 

$1212 

Low-Byte Bank 0 Maximal 

8010 

ED 

10 

12 

SBC 

$1210 

- Low-Byte Programmende 

8013 

A8 



TAY 


in (Y) retten 

8014 

AD 

13 

12 

LDA 

$1213 

High-Byte Bank 0 Maximal 

8017 

ED 

11 

12 

SBC 

$1211 

- High-Byte Programmende 

801A 

BO 

2B 


BCS 

$8047 

Wenn gültig, Wert in FAC#1 

801C 

A6 

35 


LDX 

$35 

Probieren Sie SYS32800,123,45,6 aus ! 

801E 

E8 



I NX 


Das Ergebnis wird Sie überaschen ! 

801F 

C8 



I NY 



8020 

85 

70 


STA 

$70 


8022 

98 



TYA 



8023 

38 



SEC 



8024 

E9 

05 


SBC 

#$05 


8026 

85 

71 


STA 

$71 


8028 

A5 

71 


LDA 

$71 


802A 

5D 

37 

AE 

EOR 

$AE37,X 


8020 

45 

70 


EOR 

$70 


802 F 

FO 

44 


BEO 

$8075 

Wenn Ende, Skip 

8031 

20 

D2 

FF 

JSR 

$FFD2 

Zeichen ausgeben 

8034 

E6 

71 


INC 

$71 


8036 

E8 



I NX 



8037 

DO 

EF 


BNE 

$8028 

Unbedingter Sprung 

8039 

60 



RTS 



803A 

20 

EA 

92 

JSR 

$92EA 

Garbage-Collection 

803D 

38 



SEC 


(A)/(Y) = Stringanfang - Variablenende 

803E 

A5 

35 


LDA 

$35 

Low-Byte Stringanfang 

8040 

E5 

33 


SBC 

$33 

- Low-Byte Variablenende 

8042 

A8 



TAY 


in (Y) retten 

8043 

A5 

36 


LDA 

$36 

High-Byte Stringanfang 

8045 

E5 

34 


SBC 

$34 

- High-Byte Variablenende 

8047 

4C 

C9 

84 

JMP 

$84 C9 

<A)/(Y) in FAC#1 

****************************** 

BASIC-Funktion VAL 

804A 

20 

6 E 

86 

JSR 

$866E 

Stringparameter holen 

804D 

DO 

03 


BNE 

$8052 

Wenn Länge > 0, Skip 

804 F 

4C 

D6 

88 

JMP 

$88D6 

FAC#1 = 0 

8052 

18 



CLC 





Das BAS IC-ROM 


571 


8053 

65 

24 

ADC $24 

Adresse Low-Byte zu Länge addieren 

8055 

85 

72 

STA $72 

Zeiger auf Ende (Trailer) setzen 

8057 

A5 

25 

LDA $25 

Adresse High-Byte laden 

8059 

69 

00 

ADC #$00 

Übertrag berücksichtigen 

805B 

85 

73 

STA $73 

und Traileradresse High-Byte setzen 

805D 

AO 

00 

LDY #$00 

Offset auf 0 

805 F 

A9 

72 

LDA #$72 

Ergit LDA ($72) aus Bank 1 

8061 

20 

AB 03 

JSR $03AB 

Erstes Trailerbyte holen 

8064 

48 


PHA 

und retten 

8065 

98 


TYA 

(A) = 0 

8066 

91 

72 

STA ($72),Y 

Byte durch 0 als Ende ersetzen 

8068 

20 

03 8E 

JSR $8E03 

CHRGOT aus ($24) 

806B 

A2 

01 

LDX #$01 

Flag für Bank 1 

806D 

20 

22 8D 

JSR $8D22 

ASCII-Zahl aus Bank 1 in FAC#1 

8070 

68 


PLA 

Trailerbyte wieder holen 

8071 

AO 

00 

LDY #$00 

Offset auf 0 

8073 

91 

72 

STA ($72),Y 

Trailerbyte wieder setzen 

8075 

60 


RTS 


****************************** 

BASIC-Funktion DEC 

8076 

20 

6 E 86 

JSR $866E 

Stringparameter holen 

8079 

85 

26 

STA $26 

Länge setzen 

807B 

AO 

00 

LDY #$00 

Offset auf 0 

8070 

84 

27 

STY $27 

Stellenzähler löschen 

807F 

84 

72 

STY $72 

Uert Low-Byte löschen 

8081 

84 

73 

STY $73 

Uert High-Byte löschen 

8083 

C4 

26 

CPY $26 

Stringende erreicht ? 

8085 

FO 

34 

BEQ $80BB 

Ja, Skip 

8087 

20 

B7 03 

JSR $03B7 

Zeichen aus String holen 

808A 

C8 


I NY 

Offset erhöhen 

808B 

C9 

20 

CMP #$20 

Space ? 

808D 

FO 

F4 

BEQ $8083 

Ja, überlesen 

808F 

E6 

27 

INC $27 

1 Stelle mehr 

8091 

A6 

27 

LDX $27 

Stellenzähler laden 

8093 

EO 

05 

CPX #$05 

5 Stellen erreicht ? 

8095 

FO 

2B 

BEQ $80C2 

Ja, Fehler 

8097 

C9 

30 

CMP #$30 

< '0' ? 

8099 

90 

27 

BCC $80C2 

Ja, Fehler 

809B 

C9 

3A 

CMP #$3A 

<= '9' ? 

809D 

90 

OA 

BCC $80A9 

Ja, Skip 

809F 

C9 

41 

CMP #$41 

< ’A* ? 

80 AI 

90 

1 F 

BCC $80C2 

Ja, Fehler 

80A3 

C9 

47 

CMP #$47 

> • F • ? 

80A5 

BO 

1B 

BCS $80C2 

Ja, Fehler 

80A7 

E9 

07 

SBC #$07 

Buchstaben zu Zahlen 

80A9 

E9 

2F 

SBC #$2F 

ASCII zu Zahl umwände ln 

80AB 

OA 


ASL 

Uert = Wert * 16 
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80AC 

0A 



ASL 


80AD 

0A 



ASL 


80AE 

0A 



ASL 


80 AF 

A2 

04 


LDX 

#$04 

80B1 

0A 



ASL 


80B2 

26 

72 


ROL 

$72 

80B4 

26 

73 


R0L 

$73 

80B6 

CA 



DEX 


80B7 

DO 

F8 


BNE 

$80B1 

80B9 

F0 

C8 


BEQ 

$8083 

80BB 

A4 

72 


LDY 

$72 

80BD 

A5 

73 


LDA 

$73 

80BF 

4C 

C9 

84 

JHP 

$84C9 

80C2 

4C 

28 

7D 

JMP 

$7D28 


80C5 

A5 

17 


LDA 

$17 

80C7 

48 



PHA 


80C8 

A5 

16 


LDA 

$16 

80CA 

48 



PHA 


80CB 

20 

DA 

77 

JSR 

$77DA 

80CE 

20 

15 

88 

JSR 

$8815 

80D1 

AE 

D5 

03 

LDX 

$0305 

80D4 

A0 

00 


LDY 

#$00 

80D6 

A9 

16 


LDA 

#$16 

80D8 

20 

74 

FF 

JSR 

$FF74 

80DB 

A8 



TAY 


80DC 

68 



PLA 


80DD 

85 

16 


STA 

$16 

80DF 

68 



PLA 


80E0 

85 

17 


STA 

$17 

80E2 

4C 

D4 

84 

JMP 

$8404 


80E5 

20 

03 

88 

JSR 

$8803 

80E8 

8 A 



TXA 


80E9 

A0 

00 


LDY 

O 

o 

M 

% 

80EB 

A2 

16 


LDX 

#$16 

80ED 

8 E 

B9 

02 

STX 

$02B9 

80F0 

AE 

D5 

03 

LDX 

$0305 

80F3 

4C 

77 

FF 

JMP 

$FF77 


Wert in Ergebnis setzen 
Bit aus Wert ins C-Flag schieben 
C-Flag ins Ergebnis 
übernehmen 

Alle 4 Bits in Ergebnis gesetzt ? 
Nein, ueitermachen 
Nächstes Zeichen holen 

Wert Low-Byte laden 
Wert High-Byte laden 
Adresse in FAC#1 
•ILLEGAL QUANTITY 1 

BASIC-Funktion PEEK 

Adresse High-Byte 
retten 

Adresse Low-Byte 
retten 

PEEK-Adresse holen 

in Adreßformat 

Bank laden 

Offset laden 

Ergibt LDA ($16),Y 

LDA ($16),Y aus Bank (X) 

Wert retten 
Adresse wieder holen 
und Low-Byte setzen 
High-Byte holen 
und setzen 
Byte-Wert in FAC#1 

BASIC-Befehl POKE 

POKE-Adresse und Wert holen 
Wert in (A) 

Offset setzen 
Ergibt STA ($16),Y 
Adresse ($16) wählen 
Bank setzen 

STA ($16),Y in Bank (X) 


****************************** BASIC-Funktion ERR$ 


80F6 20 F7 87 JSR $87F7 


Byte-Wert holen 



Das BAS IC-ROM 


573 


80 F9 

CA 



DEX 


Uert anpassen (1-41) 

80FA 

8A 



TXA 



80FB 

C9 

29 


CMP 

#$29 

> 41 ? 

80FD 

BO 

37 


BCS 

$8136 

Ja, Fehler 

80 FF 

20 

82 

4A 

JSR 

$4A82 

Fehlermeldungsadresse setzen 

8102 

AO 

FF 


LDY 

#$FF 

Offset auf Start 

8104 

A2 

00 


LDX 

#$00 

Länge auf 0 

8106 

E8 



I NX 


Länge erhöhen 

8107 

C8 



INY 


Offset erhöhen 

8108 

Bl 

26 


LOA 

($26),Y 

Ende erreicht ? 

810A 

30 

06 


BMI 

$8112 

Ja, Skip 

810C 

C9 

20 


CMP 

#$20 

Code < Space ? (Sondercode) 

810E 

90 

F7 


BCC 

$8107 

Ja, über lesen 

8110 

BO 

F4 


BCS 

$8106 

Weiterschleifen 

8112 

8A 



TXA 


Länge in (A) 

8113 

20 

90 

86 

JSR 

$8690 

Platz für (A) Bytes reservieren 

8116 

A2 

00 


LDX 

#$00 

Fehlertext in Variablenbank übertragen 

8118 

AO 

FF 


LDY 

#$FF 

Offset auf Start 

811A 

80 

04 

FF 

STA 

$FF04 

Read aus Bank 1 setzen 

81 ID 

C8 



INY 


Offset erhöhen 

81 IE 

Bl 

26 


LDA 

($26),Y 

Fehlertextbyte holen 

8120 

C9 

20 


CMP 

#$20 

Code < Space ? (Sondercode) 

8122 

90 

F9 


BCC 

$81 ID 

Ja, überlesen 

8124 

20 

39 

81 

JSR 

$8139 

(X) und (Y) vertauschen 

8127 

48 



PHA 


Zeichen retten 

8128 

29 

7F 


AND 

#$7F 

RVS-Bit löschen 

812A 

91 

64 


STA 

($64),Y 

und in String kopieren 

812C 

20 

39 

81 

JSR 

$8139 

(X) und (Y) vertauschen 

812F 

E8 



I NX 


Länge erhöhen 

8130 

68 



PLA 


Ende erreicht ? 

8131 

10 

EA 


BPL 

$81 ID 

Nein, weitermachen 

8133 

4C 

Dl 

85 

JMP 

$85D1 

Stringparameter setzen 

8136 

4C 

28 

70 

JMP 

$7D28 

•ILLEGAL QUANTITY* 

****************************** 

(X) <=> (Y) 

8139 

48 



PHA 


(A) retten 

813A 

8A 



TXA 


(X) auf Stapel 

813B 

48 



PHA 


retten 

813C 

98 



TYA 


(Y) in (A) 

8130 

AA 



TAX 


und dann in (X) 

813E 

68 



PLA 


altes (X) 

813F 

A8 



TAY 


ergibt neues (Y) 

8140 

68 



PLA 


(A) wieder holen 

8141 

60 



RTS 
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****************************** BASIC-Funktion HEX$ 


8142 

20 

DA 

77 

JSR 

S77DA 

Auf numerisch prüfen 

8145 

A5 

16 


LDA 

$16 

Adresse Low-Byte laden 

8147 

48 



PHA 


und retten 

8148 

A5 

17 


LDA 

$17 

Adresse High-Byte laden 

814A 

48 



PHA 


und retten 

814B 

20 

15 

88 

JSR 

$8815 

FAC#1 in Adreßformat 

814E 

A9 

04 


LDA 

#$04 

Die Hexzahl hat 4 Stellen 

8150 

20 

90 

86 

JSR 

$8690 

4 Bytes im Stringbereich reservieren 

8153 

A0 

00 


LDY 

#$00 

Offset auf 0 

8155 

A5 

17 


LDA 

$17 

Adresse High-Byte laden 

8157 

8D 

04 

FF 

STA 

$FF04 

Urite in Bank 1 setzen 

815A 

20 

6B 

81 

JSR 

$816B 

High-Byte in String 

8150 

A5 

16 


LDA 

$16 

Adresse Low-Byte laden 

815F 

20 

6B 

81 

JSR 

$816B 

Low-Byte in String 

8162 

68 



PLA 


Adresse High-Byte wieder holen 

8163 

85 

17 


STA 

$17 

und setzen 

8165 

68 



PLA 


Adresse Low-Byte wieder holen 

8166 

85 

16 


STA 

$16 

und setzen 

8168 

4C 

01 

85 

JMP 

$85D1 

Stringparameter setzen 

****************************** 

Byte in HEX-ASCII ab ($64),Y 

816B 

48 



PHA 


Bytewert retten 

816C 

4A 



LSR 


Oberes Nibble in 

816D 

4A 



LSR 


Unteres Nibble schieben 

816E 

4A 



LSR 



816F 

4A 



LSR 



8170 

20 

74 

81 

JSR 

$8174 

Nibble umwandeln 

8173 

68 



PLA 


Bytewert wieder holen 

****************************** 

Nibble in HEX-ASCII in ($64),Y 

8174 

29 

0F 


AND 

#$0F 

Nibble-Wert isolieren 

8176 

C9 

OA 


CMP 

#$0A 

Ziffer ? 

8178 

90 

02 


BCC 

$817C 

Ja, Skip 

817A 

69 

06 


ADC 

#$06 

Wert in Buchstabencode wandeln 

817C 

69 

30 


ADC 

#$30 

Ziffer in ASCII urnrechnen 

817E 

91 

64 


STA 

($64),Y 

ASCII-Zeichen in String 

8180 

C8 



INY 


Offset erhöhen 

8181 

60 



RTS 



****************************** 

BASIC-Funktion RGR 

8182 

20 

DA 

77 

JSR 

$77DA 

Auf numerisch prüfen 

8185 

20 

8C 

81 

JSR 

$818C 

Graphikmodus laden 

8188 

A8 



TAY 


Byte-Wert in FAC#1 



Das BASIC-ROM 


575 


8189 4C D4 84 JMP $84D4 setzen 

****************************** Aktiven Graphikmodus in (A) laden 


818C 

A5 

D8 


LDA 

$D8 

Modusflag laden 

818E 

18 



CLC 


Bit 6 in Bit 0 

818F 

2A 



ROL 


und 

8190 

2A 



ROL 


Bit 7 in Bit 1 bringen 

8191 

2A 



ROL 



8192 

69 

00 


ADC 

#$00 

und Bit 5 dazuaddieren 

8194 

24 

D7 


BIT 

$D7 

80-Zeichen-Modus ? 

8196 

10 

02 


BPL 

$819A 

Nein, Skip 

8198 

69 

05 


ADC 

#$05 

5 für aktiven 80-Zeichen-Schirm addieren 

819A 

60 



RTS 



★*★***★**★★***★********★★*★*★* 

BASIC-Funktion RCLR 

819B 

20 

F7 

87 

JSR 

$87F7 

FAC#1 in Byte-Wert in (X) 

819E 

20 

45 

A8 

JSR 

SA845 

ROMs einschalten 

81A1 

CA 



DEX 


40-Zeichen-Hintergrund ? 

81A2 

30 

15 


BMI 

$81B9 

Ja, Skip 

81 A4 

CA 



DEX 


Vordergrund ? 

81A5 

30 

1A 


BMI 

$81C1 

Ja, Skip 

81A7 

CA 



DEX 


Mehrfarbe 1 ? 

81A8 

30 

IC 


BMI 

$81C6 

Ja, Skip 

81AA 

CA 



DEX 


Mehrfarbe 2 ? 

81 AB 

30 

IE 


BMI 

$81 CB 

Ja, Skip 

81AD 

CA 



DEX 


40-Zeichen-Rand ? 

81AE 

30 

20 


BMI 

$8100 

Ja, Skip 

81B0 

CA 



DEX 


80-Zeichen-Text ? 

81B1 

30 

23 


BMI 

$81D6 

Ja, Skip 

81B3 

CA 



DEX 


80-Zeichen-Hintergrund ? 

81B4 

30 

28 


BMI 

$81DE 

Ja, Skip 

81B6 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY* 

81B9 

AD 

21 

DO 

LDA 

$0021 

40-Zeichen-Hintergrund 

81BC 

29 

7F 


AND 

#$7F 

Farbwert 

81BE 

4C 

EC 

81 

JMP 

$81EC 

Wert setzen 

81C1 

A5 

86 


LDA 

$86 

Vordergrund Farbwert 

81C3 

4C 

EC 

81 

JMP 

$81EC 

Wert setzen 

81C6 

A5 

84 


LDA 

$84 

Mehrfarbwert 1 

81C8 

4C 

EC 

81 

JMP 

$81EC 

Wert setzen 

81CB 

A5 

85 


LDA 

$85 

Mehrfarbwert 2 

8 ICD 

4C 

EC 

81 

JMP 

$81EC 

Wert setzen 

81D0 

AD 

20 

DO 

LDA 

$0020 

40-Zeichen-Rand Farbwert 

81D3 

4C 

EC 

81 

JMP 

$81 EC 

Wert setzen 

81D6 

A5 

Fl 


LDA 

$F1 

80-Zeichen-Text Farbwert 

81D8 

24 

D7 


BIT 

$D7 

80-Zeichen ? 

81DA 

10 

10 


BPL 

$81EC 

Nein, Skip 
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81DC 

30 

08 


BMI 

$81E6 

Ja, Farbwert umwandeln 

81DE 

A9 

1A 


LDA 

#$1 A 

80-Zeichen-Hintergrund 

81E0 

80 

00 

D6 

STA 

$D600 

Registernummer programmieren 

81E3 

AD 

01 

D6 

LDA 

$D601 

Farbwert einiesen 

81E6 

29 

OF 


AND 

#$0F 

Farbnibble isolieren 

81E8 

AA 



TAX 


und als Offset laden 

81E9 

BO 

F3 

81 

LDA 

$81F3,X 

Farbwerttabelle 80-Zeichen 

81EC 

29 

OF 


AND 

#$0F 

Farbwert isolieren 

81EE 

A8 



TAY 



81EF 

C8 



INY 


und in Bereich von 1 bis 16 bringen 

81FO 

4C 

D4 

84 

JMP 

$84 D 4 

Byte-Wert in FAC#1 

fr***************************** 

Farbwerttabelle für 80-Zeichen 

81F3 

00 

OC 

06 

OE 05 

OD OB 03 


81FB 

02 

OA 

08 

04 09 

07 OF 01 


**★★*****★**★**★★*★★★★*★★★*★** 

BASIC-Funktion JOY 

8203 

20 

F7 

87 

JSR 

$87F7 

Byte-Wert holen 

8206 

CA 



DEX 


Wert anpassen (1 oder 2) 

8207 

EO 

02 


CPX 

#$02 

> 2 ? 

8209 

BO 

34 


BCS 

$823 F 

Ja, Fehler 

820B 

8A 



TXA 


Wert invertieren 

820C 

49 

01 


EOR 

#$01 


820E 

AA 



TAX 



820 F 

08 



PHP 


Status retten 

8210 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

8213 

78 



SEI 


Tastaturabfrage verbieten 

8214 

AD 

00 

DC 

LDA 

$DC00 

Port A des CIA 1 laden 

8217 

48 



PHA 


und retten 

8218 

AO 

FF 


LDY 

#$FF 

Joystickeingabe setzen 

821A 

8C 

00 

DC 

STY 

$DCOO 


821D 

BD 

00 

DC 

LDA 

$DCOO,X 

Joystickwert holen 

8220 

DD 

00 

DC 

CMP 

$DCOO,X 

Entprellen 

8223 

DO 

F8 


BNE 

$8210 


8225 

AA 



TAX 


Wert in (X) retten 

8226 

68 



PLA 


Port A des CIA 1 wieder holen 

8227 

8D 

00 

DC 

STA 

$DCOO 

und setzen 

822A 

8A 



TXA 


Joystickwert in (A) 

822B 

28 



PLP 


Tastaturabfrage wieder erlauben 

822C 

29 

OF 


AND 

#$0F 

Wert korrigieren 

822E 

A8 



TAY 



822F 

B9 

3D 

82 

LDA 

$8230,Y 

Ergebnis aus Tabelle holen 

8232 

A8 



TAY 



8233 

8A 



TXA 



8234 

29 

10 


AND 

#$10 

F i re ? 

8236 

DO 

04 


BNE 

$823C 

Nein, Skip 




Das BASIC-ROM 


577 


8238 

98 



TYA 



8239 

09 

80 


ORA 

#$80 

Fire-Bit setzen 

823B 

A8 



TAY 



823C 

4C 

D4 

84 

JMP 

$84D4 

Byte-Wert in FAC#1 

823 F 

4C 

28 

7D 

JMP 

$7D28 

'ILLEGAL QUANTITY■ 

****************************** 

Tabelle mit Joystickwerten 

8242 

04 

02 

03 

00 06 

08 07 00 


824A 

05 

01 

00 




************************ ****** 

BASIC-Funktion POT 

824D 

20 

56 

79 

JSR 

$7956 

Test auf ')' 

8250 

20 

F7 

87 

JSR 

$87F7 

Byte-Wert holen 

8253 

CA 



DEX 


Wert anpassen 

8254 

E0 

04 


CPX 

#$04 

> 4 ? 

8256 

BO 

53 


BCS 

$82AB 

Ja, Fehler 

8258 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

825B 

A0 

00 


LDY 

#$00 

Paddlenummer auf 0 

825D 

8A 



TXA 


Paddlenummer in (A) 

825E 

A2 

40 


LDX 

#$40 

Paddlesatz-Auswahl 1 

8260 

4A 



LSR 


Paddle 1 oder 3 ? 

8261 

90 

01 


BCC 

$8264 

Nein, Skip 

8263 

C8 



I NY 


Paddlenummer auf 1 

8264 

4A 



LSR 


Paddle 0 oder 1 ? 

8265 

90 

02 


BCC 

$8269 

Ja, Skip 

8267 

A2 

80 


LDX 

#$80 

Paddlesatz-Auswahl 2 

8269 

8E 

Bl 

12 

STX 

$1281 

Auswahlwert setzen 

826C 

08 



PHP 


Status retten 

826D 

78 



SEI 


Tastaturabfrage verbieten 

826E 

AD 

00 

DC 

LDA 

$OCOO 

Port A retten 

8271 

48 



PHA 



8272 

8E 

00 

DC 

STX 

$DCOO 

Paddlesatz setzen 

8275 

A2 

00 


LDX 

#$00 

Auf A/D-Wandlung warten 

8277 

E8 



I NX 



8278 

DO 

FD 


BNE 

$8277 


827A 

B9 

19 

D4 

LDA 

$D419,Y 

Paddlewert lesen 

827D 

D9 

19 

D4 

CMP 

$D419,Y 

Entprellen 

8280 

DO 

F8 


BNE 

$82 7A 


8282 

80 

B2 

12 

STA 

$12B2 

Paddlewert retten 

8285 

A2 

00 


LDX 

#$00 

Paddlesatznummer auf 0 

8287 

2C 

Bl 

12 

BIT 

$1281 

Zweiter Paddlesatz ? 

828A 

30 

01 


BMI 

$8280 

Ja, Skip 

828C 

E8 



I NX 


oder falls nötig auf 1 

8280 

A9 

04 


LDA 

#$04 

Fire-Testwert laden 

828F 

88 



DEY 


Anderes Paddle ? 

8290 

30 

01 


BMI 

$8293 

Nein, Skip 
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8292 

0A 



ASL 


Falls nötig * 2 

8293 

AO 

FF 


LDY 

#$FF 

Port A programmieren 

8295 

8C 

00 

DC 

STY 

$DC00 


8298 

C8 



INY 


(Y) auf 0 

8299 

3D 

00 

DC 

AND 

o 

n 

o 

o 

X 

F i re ? 

829C 

DO 

01 


BNE 

J829F 

Nein, Skip 

829E 

C8 



INY 


(Y) auf 1 ($01xx) 

829F 

68 



PLA 


Port A holen 

82A0 

80 

00 

DC 

STA 

SDCOO 

und wieder setzen 

82A3 

98 



TYA 


Fire-Wert in (A) 

82A4 

AC 

B2 

12 

LDY 

S12B2 

Paddlewert holen 

82A7 

28 



PLP 


Tastaturabfrage wieder erlauben 

82A8 

4C 

C9 

84 

JHP 

S84C9 

(Y)/(A) in FAC#1 

82AB 

4C 

28 

7D 

JHP 

S7D28 

•ILLEGAL QUANTITY 1 


BASIC-Funktion PEN 

82AE 

20 

56 

79 

JSR 

$7956 

Test auf •>' 

82B1 

20 

F7 

87 

JSR 

S87F7 

Byte-Wert holen 

82B4 

EO 

05 


CPX 

#$05 

> 4 ? 

82B6 

BO 

F3 


BCS 

$82AB 

Ja, Fehler 

82B8 

EO 

02 


CPX 

#$02 

> 1 ? 

82BA 

BO 

1A 


BCS 

$8206 

Ja, Skip 

82BC 

BC 

E9 

11 

LDY 

$11E9,X 

Lightpenwert aus Tabelle holen 

82BF 

8C 

Bl 

12 

STY 

$ 12B1 

Uert setzen 

82C2 

A9 

00 


LDA 

#$00 

und Tabellenwert 

82C4 

90 

E9 

11 

STA 

$11E9,X 

löschen 

82C7 

EO 

00 


CPX 

#$00 

X-Koordinate ? 

82 C9 

DO 

05 


BNE 

$82D0 

Nein, Skip 

82CB 

OE 

Bl 

12 

ASL 

$1281 

Uert = Wert * 2 

82CE 

69 

00 


ADC 

#$00 

High-Byte setzen 

82D0 

AC 

Bl 

12 

LDY 

$12B1 

Lightpenwrt laden 

82D3 

4C 

C9 

84 

JHP 

$84 C9 

(Y)/(A) in FAC#1 

8206 

20 

45 

A8 

JSR 

$A845 

ROHs einschalten 

82D9 

EO 

04 


CPX 

#$04 

Aktivierungsabfrage ? 

82DB 

FO 

10 


BEO 

S82ED 

Ja, Skip 

82DD 

AO 

11 


LDY 

#$11 

80-Zeichen Lightpenregister 

82DF 

EO 

02 


CPX 

#$02 

aus lesen 

82E1 

FO 

01 


BEQ 

S82E4 


82E3 

88 



DEY 



82E4 

8C 

00 

D6 

STY 

$D600 


82E7 

AC 

01 

D6 

LDY 

$D601 


82EA 

4C 

D4 

84 

JHP 

$84D4 

Byte-Wert in FAC#1 

82ED 

AD 

00 

D6 

LDA 

$D600 

Aktivierungstest 

82F0 

AO 

00 


LDY 

#$00 

Lightpenflag auf 0 

82F2 

29 

40 


AND 

#$40 

Lightpen aktiviert ? 

82F4 

FO 

01 


BEQ 

$82 F 7 

Nein, Skip 

82F6 

C8 



INY 


Lightpenflag auf 1 



Das BASIC-ROM 


579 


82F7 4C D4 84 JHP $8404 Byte-Wert in FAC#1 

****************************** BASIC-Funktion POINTER 


82 FA 

20 

80 

03 

JSR 

$0380 

CHRGOT 

82FD 

20 

59 

79 

JSR 

$7959 

Test auf '(' 

8300 

20 

3C 

7B 

JSR 

$7B3C 

Buchstabe ? 

8303 

90 

16 


BCC 

$831B 

Nein, Fehler 

8305 

20 

AF 

7A 

JSR 

$7AAF 

Variable suchen/anlegen 

8308 

AA 



TAX 


Adresse retten 

8309 

98 



TYA 



830A 

48 



PHA 



830B 

20 

56 

79 

JSR 

$7956 

Test auf ')' 

830E 

8A 



TXA 


Adresse wieder holen 

830F 

A8 



TAY 



8310 

68 



PLA 



8311 

C9 

03 


CMP 

#$03 

High-Byte = 3 ($03D2 Interpretervariable) 

8313 

DO 

03 


BNE 

$8318 

Nein, Skip 

8315 

A9 

00 


LDA 

#$00 

$0000 als Adresse setzen 

8317 

A8 



TAY 


High-Byte auch auf 0 

8318 

4C 

C9 

84 

JMP 

$84 C9 

Integerwert in FAC#1 

831B 

4C 

6C 

79 

JMP 

$796C 

•SYNTAX 1 


BASIC-Funktion RSPRITE 

831E 

20 

F7 

87 

JSR 

$87F7 

Spritenummer auswerten 

8321 

CA 



OEX 


Wert anpassen 

8322 

E0 

10 


CPX 

#$10 

Fehler ! CPX #$08 (Nur 8 Sprites !) 

8324 

BO 

32 


BCS 

$8358 

Uenn zu groß, Fehler 

8326 

8A 



TXA 


Spritenummer retten 

8327 

48 



PHA 



8328 

20 

5C 

79 

JSR 

$795C 

Test auf 1 ,' 

832B 

20 

F4 

87 

JSR 

$87F4 

Abfragewert auswerten 

832E 

20 

56 

79 

JSR 

$7956 

Test auf 1 )• 

8331 

E0 

06 


CPX 

#$06 

Abfragewert zu groß ? 

8333 

BO 

23 


BCS 

$8358 

Ja, Fehler 

8335 

68 



PLA 


Spri tenummer laden 

8336 

A8 



TAY 


Spritenummer als Offset laden 

8337 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

833A 

B9 

27 

DO 

LDA 

$D027,Y 

Spritefarbe laden 

8330 

29 

OF 


AND 

#$0F 

normalisieren 

833F 

18 



CLC 


und in Bereich von 1 bis 16 bringen 

8340 

69 

01 


ADC 

#$01 

durch Addition von 1 

8342 

EO 

01 


CPX 

#$01 

War Spritefarbe gefragt ? 

8344 

FO 

OE 


BEQ 

$8354 

Ja, Skip 

8346 

BO 

5B 

83 

LDA 

$835B,X 

Offset auf VIC-Register laden 

8349 

AA 



TAX 


und setzen 

834A 

B9 

B3 

6C 

LDA 

$6CB3,Y 

Bitmuster für Sprite laden 
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834D 

3D 

00 

DO 

AND $0000,X 

und Bit testen 

8350 

FO 

02 


BEQ $8354 

Wenn 0, Skip 

8352 

A9 

01 


LDA #$01 

Wert 1 übergeben 

8354 

A8 



TAY 


8355 

4C 

D4 

84 

JHP $84D4 

Byte-Wert in FAC#1 

8358 

4C 

28 

7D 

JMP $7D28 

•ILLEGAL OUANTITY' 


****************************** offsets auf VIC-Register für RSPRITE 
835B 15 27 1B ID 17 IC 

****************************** ßASIC-Funktion RSPCOLOR 


8361 

20 

56 

79 

JSR 

$7956 

Test auf '(' 

8364 

20 

F7 

87 

JSR 

$87F7 

Zusatzfarbnummer auswerten 

8367 

CA 



DEX 


Wert anpassen 

8368 

EO 

02 


CPX 

#$02 

Wert zu groß ? 

836A 

BO 

00 


BCS 

$8379 

Ja, Fehler 

836C 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

836F 

BD 

25 

DO 

LDA 

$0025,X 

Zusatzfarbe laden 

8372 

29 

OF 


AND 

#$0F 

normalisieren 

8374 

A8 



TAY 



8375 

C8 



INY 


und in Bereich von 1 bis 16 bringen 

8376 

4C 

D4 

84 

JMP 

$84D4 

Byte-Wert in FAC#1 

8379 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL OUANTITY' 

****************************** 

BASIC-Funktion BUMP 

837C 

20 

56 

79 

JSR 

$7956 

Test auf '(' 

837F 

20 

F7 

87 

JSR 

$87F7 

Kollisionswert holen 

8382 

CA 



DEX 


Wet anpassen 

8383 

EO 

02 


CPX 

#$02 

Wert zu groß ? 

8385 

BO 

OD 


BCS 

$8394 

Ja, Fehler 

8387 

78 



SEI 


Interrupt sperren 

8388 

BC 

E7 

11 

LDY 

$11E7,X 

Spritenummer der letzten Kollision laden 

838B 

A9 

00 


LDA 

#$00 

und Kollisionsflag in 

838D 

9D 

E7 

11 

STA 

$11E7,X 

VIC-tabelle löschen 

8390 

58 



CLI 


Interrupt wieder freigeben 

8391 

4C 

D4 

84 

JMP 

$84 D 4 

Byte-Wert in FAC#1 

8394 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL OUANTITY' 

****************************** 

BASIC-Funktion RSPPOS 

8397 

20 

F7 

87 

JSR 

$87F7 

Spritenumner auswerten 

839A 

CA 



DEX 


Wet anpassen 

839B 

EO 

10 


CPX 

#$10 

Fehler CPX #$08 (Nur 8 Sprites !) 

839D 

BO 

3F 


BCS 

$83DE 

Wenn Wert zu groß, Fehler 

839 F 

8A 



TXA 


Spritenummer retten 



Das BASIC-ROM 


581 


83A0 

48 



PHA 


83A1 

20 

5C 

79 

JSR 

$795C 

83A4 

20 

F4 

87 

JSR 

$87F4 

83A7 

20 

56 

79 

JSR 

*7956 

83AA 

E0 

03 


CPX 

#$03 

83AC 

B0 

30 


BCS 

*83DE 

83AE 

68 



PLA 


83AF 

A8 



TAY 


83B0 

E0 

02 


CPX 

#$02 

83B2 

00 

09 


BNE 

$83BD 

83B4 

BE 

D9 

6D 

LDX 

$6009,Y 

83B7 

BC 

7E 

11 

LDY 

$117E,X 

83BA 

4C 

D4 

84 

JMP 

$8404 

83 BO 

78 



SEI 


83BE 

B9 

B3 

6C 

LOA 

$6CB3,Y 

83C1 

2D 

E6 

11 

AND 

$11E6 

83C4 

F0 

02 


BEO 

$83C8 

83C6 

A9 

01 


LOA 

#$01 

83C8 

48 



PHA 


83C9 

98 



TYA 


83CA 

0A 



ASL 


83CB 

A8 



TAY 


83CC 

8A 



TXA 


83CD 

4A 



LSR 


83CE 

90 

05 


BCC 

*8305 

83D0 

C8 



INY 


83D1 

68 



PLA 


83D2 

A9 

00 


LDA 

#$00 

8304 

48 



PHA 


83D5 

B9 

D6 

11 

LDA 

$11D6,Y 

83D8 

58 



CLI 


8309 

A8 



TAY 


83DA 

68 



PLA 


83DB 

4C 

C9 

84 

JMP 

$84 C9 

83DE 

4C 

28 

70 

JMP 

$7028 

***************************** 

83E1 

A5 

16 


LDA 

$16 

83E3 

48 



PHA 


83E4 

A5 

17 


LDA 

*17 

83E6 

48 



PHA 


83E7 

20 

DA 

77 

JSR 

$77DA 

83EA 

20 

15 

88 

JSR 

*8815 

83E0 

48 



PHA 


83EE 

98 



TYA 


83EF 

48 



PHA 


83 F0 

20 

0F 

88 

JSR 

*880 F 


Test auf 

Abfragewert laden 
Test auf ')' 

Abfragewert zu groß ? 

Ja, Fehler 

Spritenummer wieder holen 
und als Offset laden 
Geschwindigkeit gefragt ? 

Nein, Skip 

Offset für Spritedaten laden 
und Geschwindigkeit laden 
Byte-Wert in FAC#1 
Interrupt sperren 
Bitmuster für Sprite laden 
und MSB der X-Position testen 
Uenn 0, Skip 
MSB = 1 

High-Byte der X-Position retten 
Offset verdoppeln 

* 2 

Offset wieder setzen 

Y-Position holen ? 

Nein, Skip 
Offset erhöhen 
X-Wert vom Stapel 
0 als High-Byte für Y-Wert 
auf Stapel legen 
Position Low-Byte loden 
Interrupt wieder freigeben 
Low-Byte setzen 
High-Byte holen 
Integerwert in FAC#1 
•ILLEGAL QUANTITY' 

BASIC-Funktion XOR 

Adresse Low-Byte laden 
und retten 

Adresse High-Byte laden 
und retten 
Auf numerisch prüfen 
FAC#1 in Adreßformat 
Wert retten 


Adreßwert nach Komma holen 
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83 F3 

20 

56 

79 

JSR 

$7956 

Test auf 

83F6 

68 



PLA 


Low-Byte holen 

83F7 

45 

16 


EOR 

$16 

Werte verknüpfen 

83F9 

A8 



TAY 


und Low-Byte in (Y) 

83 FA 

68 



PLA 


High-Byte holen 

83 FB 

45 

17 


EOR 

$17 

und Werte verknüpfen 

83FD 

20 

C9 

84 

JSR 

$84 C 9 

Integerwert in FAC#1 

8400 

68 



PLA 


Adresse High-Byte weider holen 

8401 

85 

17 


STA 

$17 

und setzen 

8403 

68 



PLA 


Adresse Low-Byte wieder holen 

8404 

85 

16 


STA 

$16 

und setzen 

8406 

60 



RTS 




BASIC-Funktion RWINDOW 

8407 

20 

56 

79 

JSR 

$7956 

Test auf '(' 

840A 

20 

F7 

87 

JSR 

$87F 7 

Abfragewert holen 

840D 

EO 

02 


CPX 

#$02 

Bildschirmbreite gefragt ? 

840F 

FO 

14 


BEQ 

$8425 

Ja, Skip 

8411 

BO 

IE 


BCS 

$8431 

Wenn falscher Wert, Fehler 

8413 

EO 

00 


CPX 

#$00 

Zeilenbreite gefragt ? 

8415 

DO 

07 


BNE 

$84 IE 

Nein, Skip 

8417 

A5 

E4 


LDA 

$E4 

Zeilenbreite des Fensters ausrechnen 

8419 

38 



SEC 



841A 

E5 

E5 


SBC 

$E5 


841C 

BO 

OF 


BCS 

$8420 

Unbedingter Sprung 

841E 

A5 

E7 


LDA 

$E7 

Spaltenbreite des Fensters ausrechnen 

8420 

38 



SEC 



8421 

E5 

E6 


SBC 

$E6 


8423 

BO 

08 


BCS 

$84 2D 

Unbedingter Sprung 

8425 

A9 

28 


LDA 

#$28 

Schirmbreite 40 Zeichen 

8427 

24 

D7 


BIT 

$D7 

80-Zeichen-Modus ? 

8429 

10 

02 


BPL 

$84 2D 

Nein, Skip 

842B 

A9 

50 


LDA 

#$50 

Schirmbreite 80-Zeichen 

84 2D 

A8 



TAY 



842E 

4C 

D4 

84 

JMP 

$8404 

Byte-Wert in FAC#1 

8431 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY• 


BASIC-Funktion RND 

8434 

20 

57 

8C 

JSR 

$8C57 

Vorzeichen holen 

8437 

30 

31 


BHI 

$846A 

Wenn negativ, Skip 

8439 

DO 

1A 


BNE 

$8455 

Wenn positiv, Skip 

843B 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

843E 

AD 

06 

DC 

LDA 

$DC06 

Timer B in FAC#1 

8441 

85 

64 


STA 

$64 


8443 

AD 

07 

DC 

LDA 

$DC07 


8446 

85 

66 


STA 

$66 
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8448 

AD 

04 

DC 

LDA 

$DC04 

844B 

85 

65 


STA 

$65 

844D 

AD 

05 

DC 

LDA 

$DC05 

8450 

85 

67 


STA 

$67 

8452 

4C 

7A 

84 

JHP 

$847A 

8455 

A9 

1B 


LDA 

#$1B 

8457 

A0 

12 


LDY 

#$12 

8459 

20 

D4 

8B 

JSR 

$8BD4 

845C 

A9 

90 


LDA 

#$90 

845E 

A0 

84 


LDY 

#$84 

8460 

20 

08 

8A 

JSR 

CO 

o 

< 

CO 

8463 

A9 

95 


LDA 

#$95 

8465 

A0 

84 


LDY 

#$84 

8467 

20 

12 

8A 

JSR 

$8A12 

846A 

A6 

67 


LDX 

$67 

846C 

A5 

64 


LDA 

$64 

846E 

85 

67 


STA 

$67 

8470 

86 

64 


STX 

$64 

8472 

A6 

65 


LDX 

$65 

8474 

A5 

66 


LDA 

$66 

8476 

85 

65 


STA 

$65 

8478 

86 

66 


STX 

$66 

847A 

A9 

00 


LDA 

#$00 

847C 

85 

68 


STA 

$68 

847E 

A5 

63 


LDA 

$63 

8480 

85 

71 


STA 

$71 

8482 

A9 

80 


LDA 

#$80 

8484 

85 

63 


STA 

$63 

8486 

20 

B6 

88 

JSR 

$88B6 

8489 

A2 

1B 


LDX 

#$1 B 

848B 

A0 

12 


LDY 

#$12 

8480 

4C 

00 

8C 

JMP 

o 

o 

c_> 

cc 

****************************** 

8490 

98 

35 

44 

7A 00 


8495 

68 

28 

Bl 

46 00 


****************************** 

849A 

90 

80 

00 

00 00 


****************************** 

849F 

20 

84 

84 

JSR 

$84 B 4 

84A2 

A5 

66 


LDA 

$66 

84A4 

A4 

67 


LDY 

$67 


Timer A in FAC#1 


Zeiger auf letzten RND-Wert 

ab S121B laden 

Wert in FAC#1 

Zeiger auf Konstante 1 

ab $8490 laden 

FAC#1 = FAC#1 * Konstante 

Zeiger auf Konstante 2 

ab $8495 laden 

FAC#1 = FAC#1 + Konstante 

SteMen des FAC#1 vertauschen 


Vorzeichen löschen 

Exponent in 
Rundungsbyte setzen 
Exponent uf Bereich 0-1 
setzen 

FAC#1 linksbündig machen 
Zeiger auf letzten RND-Wert 
ab $121B setzen 
FAC#1 speichern 

Konstanten für RND 

11879546 

3.92767774E-4 

Konstante • 32768 

-32768 

Umwandlung FAC#1 zu Integer 

FAC#1 in Integerformat 
Wert in (A)/(Y) laden 
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84A6 60 RTS 

****************************** Ausdruck holen und in Integer 


84A7 

20 

80 

03 

JSR 

$0380 

CHRGET 

84 AA 

20 

EF 

77 

JSR 

S77EF 

FRMEVL Ausdruck auswerten 

84 AD 

20 

DA 

77 

JSR 

$77DA 

Auf numerisch prüfen 

84B0 

A5 

68 


LDA 

$68 

Wert negativ ? 

84B2 

30 

0D 


BMI 

$84 Ci 

Ja, Fehler 

84B4 

A5 

63 


LDA 

$63 

Exponent laden 

84B6 

C9 

90 


CMP 

#$90 

Wert ungültig ? 

84B8 

90 

OC 


8CC 

$84 C6 

Nein, Skip 

84 BA 

A9 

9A 


LDA 

#$9A 

Zeiger auf Konstante -32768 

84BC 

A0 

84 


LDY 

#$84 

ab $849A laden 

84BE 

20 

87 

8C 

JSR 

V» 

CO 

n 

00 

FAC#1 = Konstante ? 

84C1 

F0 

03 


BEQ 

$84C6 

Ja, Skip 

84C3 

4C 

28 

7D 

JMP 

$7D28 

■ILLEGAL QUANTITY 1 

84C6 

4C 

C 7 

8C 

JMP 

$8CC7 

FAC#1 in Integerformat 


*★*★**★★***★★★★★★★★★★**★**★★★* Integerwert in FAC#1 


84 C9 

20 

E5 

84 

JSR $84E5 

Vorbereitung 

für Integer (Y)/(A) in FAC#1 

84CC 

38 



SEC 

Flag für Adreßwert setzen 

84 CD 

4C 

75 

8C 

JMP $8C75 

Adreßwert in 

FAC#1 


****************************** BASIC*Funktion POS 


84D0 

38 



SEC 

Flag für Position lesen 

84D1 

20 

8D 

92 

JSR $9280 

CURSOR-Position holen 

84D4 

A9 

00 


LDA #$00 

(A)/(X) in FAC#1 

84D6 

4C 

3C 

79 

JMP $793C 

Wert in FAC#1 

****************************** 

Test auf Direktmodus 

84D9 

24 

7F 


BIT $7F 

Direktmodus ? 

84DB 

30 

12 


BMI $84EF 

Nein, Skip 

84DD 

A2 

15 


LDX #$15 

•ILLEGAL DIRECT 1 

84DE 

2C 



.BYTE $2C 

Nächsten Befehl überlesen 

84DF 

A2 

1B 


LDX #$1B 

■UNDEFINED FUNCTION 1 

84E2 

4C 

3C 

4D 

JMP $4D3C 

Fehler ausgeben 


****************************** Vorbereitung für Umwandlung 

in Fließkommaformat 


84E5 

A2 00 

LDX #$00 

Flag auf numerisch 

84E7 

86 OF 

STX $0F 

setzen 

84E9 

85 64 

STA $64 

Wert High-Byte (!) setzen 

84EB 

84 65 

STY $65 

Wert Low-Byte (!) setzen 
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84ED A2 90 LDX #$90 Exponent laden 

84EF 60 RTS 

****************************** fest auf Programm-Modus 


84 F0 

24 

7F 


BIT 

$7F 

84 F2 

30 

01 


BMI 

$84 F 5 

84 F4 

60 



RTS 


84 F5 

A2 

22 


LDX 

#$22 

84 F7 

4C 

3C 

4D 

JMP 

$4D3C 


84 FA 

20 

28 

85 

JSR 

$8528 

84 FD 

20 

D9 

84 

JSR 

$8409 

8500 

20 

59 

79 

JSR 

$7959 

8503 

A9 

80 


LDA 

#$80 

8505 

85 

12 


STA 

$12 

8507 

20 

AF 

7A 

JSR 

$7AAF 

850A 

20 

DA 

77 

JSR 

$77DA 

850D 

20 

56 

79 

JSR 

$7956 

8510 

A9 

B2 


LDA 

#$B2 

8512 

20 

5E 

79 

JSR 

$795E 

8515 

48 



PHA 


8516 

A5 

4A 


LDA 

$4A 

8518 

48 



PHA 


8519 

A5 

49 


LDA 

$49 

851B 

48 



PHA 


851C 

A5 

3E 


LDA 

$3E 

85 IE 

48 



PHA 


851F 

A5 

3D 


LDA 

$3D 

8521 

48 



PHA 


8522 

20 

8F 

52 

JSR 

$528F 

8525 

4C 

A0 

85 

JMP 

$85A0 

***************************** 

8528 

A9 

A5 


LDA 

#$A5 

852A 

20 

5E 

79 

JSR 

$795E 

852D 

09 

80 


ORA 

#$80 

852F 

85 

12 


STA 

$12 

8531 

20 

B6 

7A 

JSR 

$7AB6 

8534 

85 

50 


STA 

$50 

8536 

84 

51 


STY 

$51 

8538 

4C 

DA 

77 

JMP 

$77DA 


Direktmodus ? 

Nein, Fehler 

•DIRECT MODE ONLY 1 
Fehler ausgeben 

BASIC-Befehl DEF FN 

FN-Syntax prüfen 
Direktmodus ? 

Test auf '(' 

Integerwerte sperren 

Variable suchen 
Auf numerisch prüfen 
Auf prüfen 
Token für '=• 

Prüft auf Code 
Aktuelles Zeichen retten 
FN-Variablenadresse High-Byte 
auf Stapel 

FN-Variablenadresse Low-Byte 
auf Stapel 

PC High-Byte auf Stapel 
retten 

PC Low-Byte auf Stapel 

retten 

DATA-Befehl 

FN-Variable vom Stack holen 

Auf FN-Syntax prüfen 

Token für FN 
Prüft auf Code 
Integerwerte sperren 

Variable suchen 
Adresse Low-Byte speichern 
Adresse High-Byte speichern 
Auf numerisch prüfen 
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★★★★***★*★*★★★★★★★★★★★★★★★*★★★ BAS IC* Funktion FN 


853B 

20 

28 

85 

JSR $8528 

FN-Syntax prüfen 

853E 

A5 

51 


LOA $51 

FN-Variablenzeiger High-Byte 

8540 

48 



PHA 

auf Stapel retten 

8541 

A5 

50 


LDA $50 

FN-Variablenzeiger Low-Byte 

8543 

48 



PHA 

auf Stapel retten 

8544 

20 

50 

79 

JSR $7950 

Ausdruck in Klammern auswerten 

8547 

20 

DA 

77 

JSR $77DA 

Auf numerisch prüfen 

854A 

68 



PLA 

Adresse wieder holen 

854B 

85 

50 


STA $50 

Adresse Low-Byte setzen 

854D 

68 



PLA 

Adresse High-Byte wieder holen 

854E 

85 

51 


STA $51 

und setzen 

8550 

AO 

02 


LDY #$02 

Offset laden 

8552 

20 

CE 

42 

JSR $42CE 

Adresse Low-Byte aus Variable holen 

8555 

85 

49 


STA $49 

und setzen 

8557 

AA 



TAX 

Wert auch in (X) retten 

8558 

C8 



INY 

Offset erhöhen 

8559 

20 

CE 

42 

JSR $42CE 

Adresse High-Byte aus Variable holen 

855C 

FO 

82 


BEQ $84EO 

Wenn 0, ‘UNDEF'D FUNCTION 1 

855E 

85 

4A 


STA $4A 

Adresse High-Byte setzen 

8560 

C8 



INY 

Offset erhöhen 

8561 

A9 

49 


LDA #$49 

ergibt LDA ($49),Y 

8563 

20 

AB 

03 

JSR $03AB 

Byte aus FN-variable holen 

8566 

48 



PHA 

und retten 

8567 

88 



DEY 

Alle Bytes der Variablen gerettet ? 

8568 

10 

F7 


BPL $8561 

Nein, weitermachen 

856A 

A4 

4A 


LDY $4A 

Adresse High-Byte laden 

85 6C 

8D 

04 

FF 

STA $FF04 

Write in Bank 2 setzen 

856F 

20 

00 

8C 

JSR $8C00 

FAC#1 in FN-Variable 

8572 

A5 

3E 


LDA $3E 

PC High-Byte laden 

8574 

48 



PHA 

und retten 

8575 

A5 

30 


LDA $3D 

PC Low-Byte laden 

8577 

48 



PHA 

und retten 

8578 

20 

CE 

42 

JSR $42CE 

FN-PC setzen 

85 7B 

85 

3D 


STA $3D 

PC Low-Byte setzen 

8570 

C8 



INY 

Offset erhöhen 

85 7E 

20 

CE 

42 

JSR $42CE 

PC High-Byte laden 

8581 

85 

3E 


STA $3E 

und setzen 

8583 

A5 

4A 


LDA $4A 

Variablenadresse High-Byte laden 

8585 

48 



PHA 

und retten 

8586 

A5 

49 


LDA $49 

Variablenadresse Low-Byte laden 

8588 

48 



PHA 

und retten 

8589 

20 

D7 

77 

JSR $77D7 

FRMNUM Numerischen Ausdruck auswerten 

858C 

68 



PLA 

Variablenadresse Low-Byte holen 

8580 

85 

50 


STA $50 

Adresse neu setzen 

858F 

68 



PLA 

Variablenadresse High-Byte holen 

8590 

85 

51 


STA $51 

Adresse neu setzen 
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8592 

20 

86 

03 

JSR 

$0386 

CHRGOT 

8595 

F0 

03 


BEQ 

$859A 

Wenn Trennzeichen, Skip 

8597 

4C 

6C 

79 

JMP 

S796C 

'SYNTAX' 

859A 

68 



PLA 


PC Low-Byte wieder holen 

859B 

85 

3D 


STA 

$3D 

und setzen 

859D 

68 



PLA 


PC High-Byte wieder holen 

859E 

85 

3E 


STA 

$3E 

und setzen 

85A0 

A0 

00 


LDY 

#$00 

Offset auf 0 

85A2 

8D 

04 

FF 

STA 

$FF04 

Write in Bank 1 setzen 

85A5 

68 



PLA 


Variablenwert wieder holen 

85A6 

91 

50 


STA 

($50),Y 

Variablenbytes eintragen 

85A8 

C8 



I NY 


Offset erhöhen 

85A9 

CO 

05 


CPY 

#$05 

FN-Variable wieder gesetzt ? 

85AB 

DO 

F8 


BNE 

$85A5 

Nein, weitermachen 

85 AD 

60 



RTS 




****************************** BASIC-Funktion STR$ 


85AE 

20 

DA 

77 

JSR 

$77DA 

Auf numerisch prüfen 

85B1 

A0 

00 


LDY 

o 

o 

£ 

Offset auf 0 

85B3 

20 

44 

8E 

JSR 

$8E44 

FAC#1 in ASCII-String umwandeln 

85 B6 

68 



PLA 


Rücksprungadresse vom 

85B7 

68 



PLA 


Stapel löschen 

85B8 

A9 

FF 


LDA 

#$FF 

Stringstartadresse = $00FF 

85 BA 

A0 

00 


LDY 

#$00 


85BC 

4C 

9A 

86 

JMP 

$869A 

String in Stringbereich kopieren 

****************************** 

BASIC-Funktion CHR$ 

85BF 

20 

F7 

87 

JSR 

$87F7 

Holt Byte-Wert 

85C2 

8A 



TXA 


Wert retten 

85C3 

48 



PHA 



85C4 

A9 

01 


LDA 

#$01 

Platz für 1 Zeichen im Stringspeicher 

85C6 

20 

90 

86 

JSR 

$8690 

reservieren 

85C9 

68 



PLA 


Wert holen 

85 CA 

A0 

00 


LDY 

O 

o 

£ 

Offset auf 0 setzen 

85CC 

80 

04 

FF 

STA 

$FF04 

Write in Bank 1 setzen 

85CF 

91 

64 


STA 

($64),Y 

Zeichen in Stringspeicher 

85D1 

68 



PLA 


Rücksprungadresse vom 

85D2 

68 



PLA 


Stapel löschen 

8503 

4C 

E3 

86 

JMP 

$86E3 

String in Stringstack 

****************************** 

BASIC-Funktion LEFT$ 

85D6 

20 

4D 

86 

JSR 

$864D 

Stringparameter holen 

85D9 

48 



PHA 


Länge retten 

85DA 

20 

D8 

42 

JSR 

$42D8 

LEFT$-Parameter holen 

85DD 

85 

79 


STA 

$79 

Parameter setzen 
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85DF 

68 


PLA 

Länge wieder holen 

85E0 

C5 

79 

CMP $79 

LEFT$-Parameter < Stringlänge ? 

85E2 

98 


TYA 

(A) = 0 

85E3 

90 

05 

BCC $85EA 

Ja, Skip 

85E5 

20 

D8 42 

JSR $4208 


85E8 

AA 


TAX 


85E9 

98 


TYA 


85EA 

48 


PHA 


85EB 

8A 


TXA 


85EC 

48 


PHA 


85ED 

20 

90 86 

JSR $8690 

Platz für String reservieren 

85F0 

A5 

52 

LOA $52 

Zeiger auf Deskriptor 

85F2 

A4 

53 

LOY $53 


85 FA 

20 

85 87 

JSR $8785 

FRESTR 

85F7 

68 


PLA 


85 F8 

A8 


TAY 


85F9 

68 


PLA 

Länge des neuen Strings 

85 FA 

18 


CLC 


85 FB 

65 

24 

ADC $24 

+ Adresse des alten Strings 

85FD 

85 

24 

STA $24 


85 FF 

90 

02 

BCC $8603 

Kein Übertrag, Skip 

8601 

E6 

25 

INC $25 

Übertrag setzen 

8603 

98 


TYA 


860A 

20 

63 87 

JSR $8763 

Neuen String in Stringbereich schreiben 

8607 

4C 

E3 86 

JMP $86E3 

Deskriptor in Stringstack setzen 


BASIC-Befehl RIGHT$ 

860A 

20 

40 86 

JSR $864D 

Stringparanieter holen 

860D 

48 


PHA 

Länge retten 

860E 

20 

D8 42 

JSR $4208 

RIGHT$-Parameter setzen 

8611 

85 

79 

STA $79 


8613 

68 


PLA 

Länge holen 

8614 

18 


CLC 


8615 

E5 

79 

SBC $79 

- Länge des Parameters 

8617 

49 

FF 

EOR #$FF 

= 1. Position im atten String 

8619 

4C 

E3 85 

JMP $85E3 

Zu LEFT$ 


BASIC-Funktion MID$ 

861C 

A9 

FF 

LOA #$FF 

Länge des Ausschnitts auf 

861E 

85 

67 

STA $67 

Maximalwert 

8620 

20 

86 03 

JSR $0386 

CHRGET 

8623 

C9 

29 

CMP #$29 

')' ? 

8625 

F0 

06 

BEQ $8620 

Ja, Skip 

8627 

20 

5C 79 

JSR $795C 

Test auf 1 , 1 

862A 

20 

F4 87 

JSR $87F4 

Byte-Wert holen 

862D 

20 

4D 86 

JSR $864D 

Stringparameter holen 
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8630 

F0 53 

BEQ $8685 

Wenn Länge = 0, Fehler 

8632 

CA 

DEX 


8633 

8A 

TXA 


8634 

48 

PHA 


8635 

A2 00 

LDX #$00 


8637 

48 

PHA 


8638 

20 D8 42 

JSR $42D8 

Länge des alten Strings setzen 

863B 

85 79 

STA $79 


863D 

68 

PLA 


863E 

18 

CLC 


863 F 

E5 79 

SBC $79 

1. Position < Stringlänge 

8641 

BO A8 

BCS $85EB 

Ja, zu LEFT$ 

8643 

49 FF 

EOR #$FF 

Wert anpassen 

8645 

C5 67 

CMP $67 

< Ausschnittlänge ? 

8647 

90 A3 

BCC $85EC 

Ja, zu LEFT$ 

8649 

A5 67 

LOA $67 

mit Ausschnitt länge zu LEFT$ 

864B 

BO 9F 

BCS $85EC 

Unbedingter Sprung 


****************************** Stringparameter vom Stack holen 


864D 

20 

56 

79 

JSR $7956 

Test auf 

8650 

68 



PLA 

Rücksprungadresse retten 

8651 

A8 



TAY 


8652 

68 



PLA 


8653 

85 

57 


STA $57 


8655 

68 



PLA 

Stringadresse vom 

8656 

68 



PLA 

Stapel löschen 

8657 

68 



PLA 

1. Parameter vom Stack holen 

8658 

AA 



TAX 

Länge merken 

8659 

68 



PLA 

Adresse vom Stack holen 

865A 

85 

52 


STA $52 


865C 

68 



PLA 


865D 

85 

53 


STA $53 


865 F 

A5 

5 7 


LDA $57 

Rücksprungadresse wieder auf den Stack 

8661 

48 



PHA 


8662 

98 



TYA 


8663 

48 



PHA 


8664 

A0 

00 


LDY #$00 

Offset (Y) auf 0 

8666 

8A 



TXA 

Länge in (A) 

8667 

60 



RTS 


****************************** 

BASIC-Funktion LEN 

8668 

20 

6E 

86 

JSR $866E 

FRESTR und Länge holen 

866B 

4C 

D4 

84 

JMP $84D4 

Byte-Wert in FAC#1 
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834D 

3D 

00 

DO 

AND 

$DOOO,X 

und Bit testen 

8350 

F0 

02 


BEQ 

$8354 

Wenn 0, Skip 

8352 

A9 

01 


LDA 

#$01 

Wert 1 übergeben 

8354 

A8 



TAY 



8355 

4C 

D4 

84 

JHP 

$8404 

Byte-Wert in FAC#1 

8358 

4C 

28 

7D 

JMP 

$7D28 

■ILLEGAL QUANTITY 1 

****************************** 

Offsets auf VIC-Register für RSPRITE 

835B 

15 

27 

1B 

ID 17 

IC 


****************************** 

BASIC-Funktion RSPCOLOR 

8361 

20 

56 

79 

JSR 

$7956 

Test auf '(' 

8364 

20 

F7 

87 

JSR 

$87F7 

Zusatzfarbnummer auswerten 

8367 

CA 



DEX 


Wert anpassen 

8368 

EO 

02 


CPX 

#$02 

Wert zu groß ? 

836A 

BO 

OD 


BCS 

$8379 

Ja, Fehler 

836C 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

836F 

BD 

25 

DO 

LDA 

$D025,X 

Zusatzfarbe laden 

8372 

29 

OF 


AND 

#$0F 

normalisieren 

8374 

A8 



TAY 



8375 

C8 



INY 


und in Bereich von 1 bis 16 bringen 

8376 

4C 

D4 

84 

JMP 

$84D4 

Byte-Wert in FAC#1 

8379 

4C 

28 

7D 

JMP 

$7D28 

■ILLEGAL QUANTITY' 

****************************** 

BASIC-Funktion BUMP 

837C 

20 

56 

79 

JSR 

$7956 

Test auf '(' 

837F 

20 

F7 

87 

JSR 

$87F7 

Kollisionswert holen 

8382 

CA 



DEX 


Wet anpassen 

8383 

EO 

02 


CPX 

#$02 

Wert zu groß ? 

8385 

BO 

OD 


BCS 

$8394 

Ja, Fehler 

8387 

78 



SEI 


Interrupt sperren 

8388 

BC 

E7 

11 

LDY 

$11E7,X 

Spritenummer der letzten Kollision laden 

8388 

A9 

00 


LDA 

#$00 

und Kollisionsflag in 

838D 

9D 

E7 

11 

STA 

$11E7,X 

VIC-tabelle löschen 

8390 

58 



CLI 


Interrupt wieder freigeben 

8391 

4C 

D4 

84 

JMP 

$84D4 

Byte-Wert in FAC#1 

8394 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY' 

****************************** 

BASIC-Funktion RSPPOS 

8397 

20 

F7 

87 

JSR 

$87F7 

Spritenummer auswerten 

839A 

CA 



DEX 


Wet anpassen 

8398 

EO 

10 


CPX 

#$10 

Fehler CPX #$08 (Nur 8 Sprites !) 

839D 

BO 

3F 


BCS 

$83DE 

Wenn Wert zu groß, Fehler 

839F 

8A 



TXA 


Spritenummer retten 
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86B2 

F0 

04 


BEQ 

$86B8 

86B4 

C5 

0A 


CMP 

$0A 

86B6 

DO 

F2 


BNE 

$86AA 

86B8 

C9 

22 


CMP 

#$22 

86BA 

F0 

01 


BEQ 

S86BD 

86BC 

18 



CLC 


86BD 

84 

63 


STY 

$63 

86BF 

98 



TYA 


86C0 

65 

70 


ADC 

$70 

86C2 

85 

72 


STA 

$72 

86C4 

A6 

71 


LDX 

$71 

86C6 

90 

01 


BCC 

$86C9 

86C8 

E8 



I NX 


86C9 

86 

73 


STX 

$73 

86CB 

98 



TYA 


86CC 

20 

88 

86 

JSR 

$8688 

86CF 

A8 



TAY 


86D0 

F0 

11 


BEQ 

$86E3 

86D2 

48 



PHA 


86D3 

88 



DEY 


86D4 

20 

Fl 

42 

JSR 

$42F1 

86D7 

8D 

04 

FF 

STA 

$FF04 

86DA 

91 

37 


STA 

($37),Y 

86DC 

98 



TYA 


86DD 

00 

F4 


BNE 

$86D3 

86DF 

68 



PLA 


86E0 

20 

71 

87 

JSR 

$8771 

*****************************1 

86E3 

A6 

18 


LDX 

$18 

86E5 

E0 

24 


CPX 

#$24 

86E7 

DO 

05 


BNE 

$86EE 

86E9 

A2 

19 


LDX 

#$19 

86EB 

4C 

3C 

4D 

JMP 

$4D3C 

86EE 

A5 

63 


LDA 

$63 

86F0 

95 

00 


STA 

$00,X 

86F2 

A5 

64 


LDA 

$64 

86F4 

95 

01 


STA 

$01,X 

86F6 

A5 

65 


LDA 

$65 

86F8 

95 

02 


STA 

$02, X 

86FA 

A0 

00 


LDY 

#$00 

86FC 

86 

66 


STX 

$66 

86FE 

84 

67 


STY 

$67 

8700 

84 

71 


STY 

$71 

8702 

88 



DEY 


8703 

84 

0F 


STY 

$0F 


Ja, Skip 
Endezeichen 2 ? 

Nein, weitersuchen 

I II I ^ 

Ja, Skip 

Länge des Strings setzen 
Offset als Länge laden 
Länge + Startadresse 
= Endadresse +1 

Kein Übertrag, Skip 
Übertrag berücksichtigen 
und High-Byte setzen 

Stringzeiger berechnen 
Länge = 0 ? 

Ja, Skip 
Länge retten 

Länge als Zähler erniedrigen 
Zeichen des Strings holen 
Urite in Bank 1 setzen 
und umkopieren 
wei terinachen 

bis alle Zeichen umkopiert 
Länge holen 
Hilfszeiger erhöhen 

Stringzeiger in Deskriptorstack 

Stringstackpointer 
Stringstack voll ? 

Nein, Skip 

•FORMULA TOO COHPLEX' 

Fehler ausgeben 
Stringlänge laden 
und in Stringstack setzen 
Adresse Low-Byte laden 
und in Stringstack setzen 
Adresse High-Byte laden 
und in Stringstack setzen 
0 als High-Byte laden 
Zeiger auf Deskriptor setzen 
High-Byte auf 0 setzen 
Rundungsbyte FAC#1 löschen 
(Y) = $FF 
Stringflag setzen 
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8705 

86 

19 


STX 

$19 

Index des letzten Stringdeskriptors 

8707 

E8 



INX 


Zeiger auf Stringstack 

8708 

E8 



I NX 


um 3 erhöhen 

8709 

E8 



INX 



870A 

86 

18 


STX 

$18 

= Neuer Deskriptorstackpointer 

870C 

60 



RTS 



****************************** 

Stringverknüpfung ' + • 

870D 

A5 

67 


LDA 

$67 

Adresse des ersten Srings retten 

870 F 

48 



PHA 



8710 

A5 

66 


LDA 

$66 


8712 

48 



PHA 



8713 

20 

07 

78 

JSR 

$78D7 

Zweiten String auswerten 

8716 

20 

DD 

77 

JSR 

$77DD 

Test auf String 

8719 

68 



PLA 


Adresse Low-Byte wieder holen 

871A 

85 

70 


STA 

$70 

und setzen 

871C 

68 



PLA 


Adresse High-Byte wieder holen 

871D 

85 

71 


STA 

$71 

und setzen 

871F 

A0 

00 


LDY 

#$00 

Offset auf 0 

8721 

20 

F6 

42 

JSR 

$42F6 

Länge des ersten Strings holen 

8724 

85 

79 


STA 

$79 

und speichern 

8726 

20 

er 

42 

JSR 

$42E7 

Länge des zweiten Strings laden 

8729 

18 



CLC 



872A 

65 

79 


ADC 

$79 

+ Länge des ersten Strings 

872C 

90 

03 


BCC 

$8731 

Wenn < 256, Skip 

872E 

4C 

ED 

A5 

JMP 

$A5ED 

•STRING TOO LONG' 

8731 

20 

88 

86 

JSR 

$8688 

Platz für String reservieren 

8734 

20 

4E 

87 

JSR 

$874E 

ersten String übertragen 

8737 

A5 

52 


LDA 

$52 

Zeiger auf zweiten String 

8739 

A4 

53 


LDY 

$53 

laden 

8738 

20 

85 

87 

JSR 

$8785 

FRESTR 

873E 

20 

63 

87 

JSR 

$8763 

zweiten String danach einsetzen 

8741 

A5 

70 


LDA 

$70 

Zeiger auf ersten String 

8743 

A4 

71 


LDY 

$71 

laden 

8745 

20 

85 

87 

JSR 

$8785 

FRESTR 

8748 

20 

E3 

86 

JSR 

$86E3 

Deskriptor in Stringstack 

874 B 

4C 

09 

78 

JMP 

$7809 

Zurück zu FRMEVL 

****************************** 

String in reservierten Bereich übertragen 

874E 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

8750 

20 

F6 

42 

JSR 

$42 F6 

Länge laden 

8753 

48 



PHA 


und retten 

8754 

C8 



I NY 


Offset erhöhen 

8755 

20 

F6 

42 

JSR 

$42F6 

Adresse Low-Byte laden 

8758 

AA 



TAX 


und in (X) merken 

8759 

C8 



INY 


Offset erhöhen 
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875A 

20 

F6 42 

JSR 

$42F6 

875D 

A8 


TAY 


875E 

68 


PLA 


875 F 

86 

24 

STX 

$24 

8761 

84 

25 

STY 

$25 

****************************** 

8763 

A8 


TAY 


8764 

F0 

OB 

BEQ 

$8771 

8766 

48 


PHA 


8767 

88 


DEY 


8768 

20 

B7 03 

JSR 

$03B7 

876B 

91 

37 

STA 

($37),Y 

8760 

98 


TYA 


876E 

DO 

F7 

BNE 

$8767 

8770 

68 


PLA 


****************************** 

8771 

18 


CLC 


8772 

65 

37 

ADC 

$37 

8774 

85 

37 

STA 

$37 

8776 

90 

02 

BCC 

$877A 

8778 

E6 

38 

INC 

$38 

877A 

60 


RTS 



****************************** 


877B 

20 

EF 

77 

JSR 

$77EF 

877E 

20 

DD 

77 

JSR 

$77DD 

8781 

A5 

66 


LDA 

$66 

8783 

A4 

67 


LDY 

$67 

****************************** 

8785 

85 

24 


STA 

$24 

8787 

84 

25 


STY 

$25 

8789 

20 

E0 

87 

JSR 

$87E0 

878C 

DO 

3C 


BNE 

$87CA 

878E 

20 

F6 

54 

JSR 

$54 F 6 

8791 

90 

37 


BCC 

$87CA 

8793 

88 



DEY 


8794 

A9 

FF 


LDA 

#$FF 

8796 

8D 

04 

FF 

STA 

$FF04 

8799 

91 

24 


STA 

($24),Y 

879B 

88 



DEY 


879C 

8A 



TXA 



Adresse High-Byte laden 
und in (Y) retten 
Länge holen 

und Adresse Low-Byte setzen 
und Adresse High-Byte setzen 


Länge = 0 ? 

Ja, Skip 
Länge retten 

Länge als Zähler erniedrigen 
Zeichen holen 

und in Stringbereich übertragen 
Alle Zeichen übertragen ? 

Nein, weitermachen 
Länge wieder laden 


(A) auf Hilfszeiger aufaddieren 
und Low-Byte neu setzen 
Kein Übertrag, Skip 
Übertrag berücksichtigen 


FRMEVL Ausdruck auswerten 
und auf String prüfen 
Deskriptoradresse Low-Byte laden 
Deskriptoradresse High-Byte laden 


Deskriptoradresse Low-Byte setzen 
Deskriptoradresse High-Byte setzen 
Deskriptor vom Stringstack holen 
Wenn nicht auf Stringstack, Skip 
Deskriptor im Stringbereich ? 

Nein, Adresse setzen 
Länge setzen 

Flag für Trailer ungültig laden 
Urite in Bank 1 setzen 
Trailer für ungültig erklären 
Offset erniedrigen 
Länge des Strings 


String übertragen 


Hilfszeiger erhöhen 


FRMEVL String + FRESTR 


FRESTR 
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879D 

91 

24 

STA 

($24),Y 

als erstes Trailerbyte setzen 

879 F 

48 


PHA 


und Länge retten 

87A0 

49 

FF 

EOR 

#$FF 

Länge für Zweierkomplement invertieren 

87A2 

38 


SEC 


+ 1 für Zweierkomplement (!) 

87A3 

65 

24 

ADC 

$24 

Negative Länge auf Trailerpointer 

87A5 

A4 

25 

LDY 

$25 

aufaddieren 

87A7 

BO 

01 

BCS 

$87AA 

Kein Übertrag, Skip 

87A9 

88 


DEY 


High-Byte anpassen 

87AA 

85 

24 

STA 

$24 

und neuen Zeiger auf Stringanfang 

87AC 

84 

25 

STY 

$25 

speichern 

87AE 

AA 


TAY 


Low-Byte in (Y) 

87AF 

68 


PLA 


Stringlänge wieder holen 

87B0 

C4 

36 

CPY 

$36 

Adresse = Anfang Stringspeicher ? 

87B2 

DO 

3C 

BNE 

$87F0 

Nein, Ende 

87B4 

E4 

35 

CPX 

$35 

Adresse = Anfang Stringspeicher ? 

87B6 

DO 

38 

BNE 

CD 

o 

Nein, Ende 

87B8 

48 


PHA 


Stringlänge wieder retten 

87B9 

38 


SEC 


Stringanfangszeiger korrigieren 

87BA 

65 

35 

ADC 

$35 

indem Stringlänge + 1 (SEC!) 

87BC 

85 

35 

STA 

$35 

aufaddiert wird 

87BE 

90 

02 

BCC 

$87C2 

Kein Übertrag, Skip 

87C0 

E6 

36 

INC 

$36 

Übertrag berücksichtigen 

87C2 

E6 

35 

INC 

$35 

Anfangszeiger noch einmal erhöhen 

87C4 

DO 

02 

BNE 

$87C8 

Kein Übertrag, Skip 

87C6 

E6 

36 

INC 

$36 

Übertrag berücksichtigen 

87C8 

68 


PLA 


Stringlänge wieder holen 

87C9 

60 


RTS 



****************************** 

Deskriptorwerte in ($24) setzen 

87CA 

AO 

00 

LDY 

o 

o 

M 

% 

Offset auf 0 setzen 

87CC 

20 

B7 03 

JSR 

$03B7 

Länge holen 

87CF 

48 


PHA 


und retten 

87D0 

C8 


INY 


Offset erhöhen 

87D1 

20 

B7 03 

JSR 

$03B7 

Adresse Low-Byte holen 

87D4 

AA 


TAX 


und in (X) retten 

87D5 

C8 


INY 


Offset erhöhen 

87D6 

20 

B7 03 

JSR 

S03B7 

Adresse High-Byte holen 

87D9 

A8 


TAY 


und in (Y) bringen 

87DA 

86 

24 

STX 

$24 

Adresse Low-Byte setzen 

87DC 

84 

25 

STY 

$25 

Adresse High-Byte setzen 

87DE 

68 


PLA 


Länge wieder holen 

87DF 

60 


RTS 



****************************** 

Stringzeiger vom Stringstack holen 

87E0 

C4 

1A 

CPY 

$1A 

Zeigt (A)/(Y) auf Stringstack ? 

87E2 

DO 

OC 

BNE 

$87F0 

Nein, Ende 
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87E4 

C5 

19 

CMP $19 

Zeigt (A)/(Y) auf Stringstack ? 

87E6 

DO 

08 

BNE $87F0 

Nein, Ende 

87E8 

85 

18 

STA $18 

Low-Byte als Zeiger setzen 

87EA 

E9 

03 

SBC #$03 

um 3 erniedrigen (Eintrag löschen) 

87EC 

in 

co 

19 

STA $19 

und neuen Stringstackpointer setzen 

87EE 

AO 

00 

LDY #$00 

Offset auf 0 

87F0 

60 


RTS 



****************************** Byte-Wert holen 


87F1 

20 

80 

03 

JSR $0380 

CHRGET 


87F4 

20 

D7 

77 

JSR $77D7 

FRMEVL Numerischen 

Ausdruck holen 

87F7 

20 

AD 

84 

JSR $84AD 

Bereich prüfen und 

in Integer wandeln 

87FA 

A6 

66 


LDX $66 

High-Byte <> 0 ? 


87FC 

DO 

2D 


BNE $882B 

Ja, Fehler 


87FE 

A6 

67 


LDX $67 

Low-Byte laden 


8800 

4C 

86 

03 

JMP $0386 

CHRGOT 



****************************** GETADR/GETBYT Adresse und Byte-Wert holen 


8803 

20 D7 77 

JSR $77D7 

FRMEVL Numerischen Ausdruck holen 

8806 

20 15 88 

JSR $8815 

FAC#1 in Adreßformat wandeln 

8809 

20 5C 79 

JSR S795C 

Test auf 1 , 1 

880C 

4C F4 87 

JMP $87F4 

Byte-Wert holen 

****************************** 

Ausdruck nach Komma holen 

880 F 

20 5C 79 

JSR $795C 

Test auf 1 ,' 

8812 

20 D7 77 

JSR $77D7 

FRMEVL Numerischen Ausdruck holen 

****************************** 

FAC#1 in Adreßformat wandeln ($16) 

8815 

A5 68 

LDA $68 

Negativ ? 

8817 

30 12 

BMI $882B 

Ja, Fehler 

8819 

A5 63 

LDA $63 

Exponent FAC#1 laden 

881B 

C9 91 

CMP #$91 

Zahl > 65535 ? 

881D 

B0 0C 

BCS $8828 

Ja, Fehler 

881F 

20 C7 8C 

JSR $8CC7 

FAC#1 in Adreßformat wandeln 

8822 

A5 66 

LDA $66 

Adresse High-Byte (!) laden 

8824 

A4 67 

LDY $67 

Adresse Low-Byte (!) laden 

8826 

84 16 

STY $16 

Ergebnis Low-Byte setzen 

8828 

85 17 

STA $17 

Ergebnis High-Byte setzen 

882A 

60 

RTS 


882B 

4C 28 7D 

JMP $7D28 

•ILLEGAL QUANTITY• 

****************************** 

FAC#1 = Konstante (A)/(Y) - FAC#1 
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****************************** BASIC-Funktion FN 


853B 

20 

28 85 

JSR $8528 

FN-Syntax prüfen 

853E 

A5 

51 

LOA $51 

FN-Variablenzeiger High-Byte 

8540 

48 


PHA 

auf Stapel retten 

8541 

A5 

50 

LOA $50 

FN-Variablenzeiger Low-Byte 

8543 

48 


PHA 

auf Stapel retten 

8544 

20 

50 79 

JSR $7950 

Ausdruck in Klammern auswerten 

8547 

20 

DA 77 

JSR $770A 

Auf numerisch prüfen 

854A 

68 


PLA 

Adresse wieder holen 

854B 

85 

50 

STA $50 

Adresse Low-Byte setzen 

854D 

68 


PLA 

Adresse High-Byte wieder holen 

854E 

85 

51 

STA $51 

und setzen 

8550 

AO 

02 

LDY #$02 

Offset laden 

8552 

20 

CE 42 

JSR $42CE 

Adresse Low-Byte aus Variable holen 

8555 

85 

49 

STA $49 

und setzen 

8557 

AA 


TAX 

Wert auch in (X) retten 

8558 

C8 


INY 

Offset erhöhen 

8559 

20 

CE 42 

JSR $42CE 

Adresse High-Byte aus Variabte holen 

855C 

FO 

82 

BEQ $84EO 

Uenn 0, 'UNDEF'D FUNCTION 1 

855E 

85 

4A 

STA $4A 

Adresse High-Byte setzen 

8560 

C8 


INY 

Offset erhöhen 

8561 

A9 

49 

LOA #$49 

ergibt LDA ($49),Y 

8563 

20 

AB 03 

JSR $03AB 

Byte aus FN-variable holen 

8566 

48 


PHA 

und retten 

8567 

88 


DEY 

Alle Bytes der Variablen gerettet ? 

8568 

10 

F7 

BPL $8561 

Nein, weitermachen 

856A 

A4 

4A 

LDY $4A 

Adresse High-Byte laden 

856C 

80 

04 FF 

STA $FF04 

Write in Bank 2 setzen 

856F 

20 

00 8C 

JSR $8C00 

FAC#1 in FN-Variable 

8572 

A5 

3E 

LDA $3E 

PC High-Byte laden 

8574 

48 


PHA 

und retten 

8575 

A5 

3D 

LDA $30 

PC Low-Byte laden 

8577 

48 


PHA 

und retten 

8578 

20 

CE 42 

JSR $42CE 

FN-PC setzen 

85 7B 

85 

3D 

STA $30 

PC Low-Byte setzen 

85 7D 

C8 


INY 

Offset erhöhen 

85 7E 

20 

CE 42 

JSR $42CE 

PC High-Byte laden 

8581 

85 

3E 

STA $3E 

und setzen 

8583 

A5 

4A 

LDA $4A 

Variablenadresse High-Byte laden 

8585 

48 


PHA 

und retten 

8586 

A5 

49 

LDA $49 

Variablenadresse Low-Byte laden 

8588 

48 


PHA 

und retten 

8589 

20 

D7 77 

JSR $77D7 

FRMNUM Numerischen Ausdruck auswerten 

858C 

68 


PLA 

Variablenadresse Low-Byte holen 

8580 

85 

50 

STA $50 

Adresse neu setzen 

858F 

68 


PLA 

Variablenadresse High-Byte holen 

8590 

85 

51 

STA $51 

Adresse neu setzen 
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8872 

AO 

00 

LDY 

o 

o 

£ 

Rundungsbyte löschen 

8874 

84 

71 

STY 

$71 


8876 

C9 

F9 

CMP 

#$F9 

Exponent zu groß ? 

8878 

30 

C6 

BMI 

$8840 

Ja, Exponenten angleichen 

887A 

A8 


TAY 


Wert als Zähler laden 

887B 

A5 

71 

LDA 

$71 

Rundungsbyte laden 

887D 

56 

01 

LSR 

$01,X 

und Mantissenbits verschieben 

887F 

20 

90 89 

JSR 

$8990 


8882 

24 

70 

BIT 

$70 

Haben FAC#1 und FAC#2 gleiche Vorzeichen 

? 

8884 

10 

57 

BPL 

$88DD 

Ja, Skip 

8886 

AO 

63 

LDY 

#$63 

Offset auf FAC#1 setzen 

8888 

E0 

6A 

CPX 

#$6A 

Ist zweiter Offset auf FAC#2 gerichtet ? 

888A 

F0 

02 

BEQ 

$888E 

Ja, Skip 

888C 

AO 

6A 

LDY 

#$6A 

Offset auf FAC#2 setzen 

888E 

38 


SEC 


Wert des Exponenten in (A) 

888 F 

49 

FF 

EOR 

#$FF 

negieren 

8891 

65 

58 

ADC 

$58 

Vorzeichenvergleich aufaddieren 

8893 

85 

71 

STA 

$71 

und Wert in Rundungsbyte setzen 

8895 

B9 

04 00 

LDA 

$0004,Y 

Mantissen der beiden FACs 

8898 

F5 

04 

SBC 

$04, X 

voneinander subtrahieren 

889A 

85 

67 

STA 

$67 


889C 

B9 

03 00 

LDA 

$0003,Y 


889F 

F5 

03 

SBC 

$03, X 


88A1 

85 

66 

STA 

$66 


88A3 

B9 

02 00 

LDA 

$0002,Y 


88A6 

F5 

02 

SBC 

$02, X 


88A8 

85 

65 

STA 

$65 


88AA 

B9 

01 00 

LDA 

$0001,Y 


88AD 

F5 

01 

SBC 

$01,X 


88 AF 

85 

64 

STA 

$64 


88B1 

BO 

03 

BCS 

$88B6 

Wenn kein Übertrag, Skip 

88B3 

20 

26 89 

JSR 

$8926 

Mantisse von FAC#1 invertieren 

88B6 

AO 

00 

LDY 

#$00 


88B8 

98 


TYA 


Zähler auf 0 

88B9 

18 


CLC 



88BA 

o 

A6 

64 

LDX $64 

Höchstwertiges Byte der Mantisse gesetzt 

f 

88BC 

DO 

4A 

BNE 

$8908 

Ja, Skip 

88BE 

A6 

65 

LDX 

$65 

Mantissenbytes auf rücken 

88C0 

86 

64 

STX 

$64 


88C2 

A6 

66 

LDX 

$66 


88C4 

86 

65 

STX 

$65 


88C6 

A6 

67 

LDX 

$67 


88C8 

86 

66 

STX 

$66 


88CA 

A6 

71 

LDX 

$71 


88CC 

86 

67 

STX 

$67 


88CE 

84 

71 

STY 

$71 
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88D0 

88D2 

88D4 

88D6 
8808 
880A 
880C 

88DD 

88DF 

88E1 

88E3 

88E5 

88E7 

88E9 

88EB 

88ED 

88EF 

88F1 

88F3 

88F5 

88F7 

88F9 

88FC 
88FE 
8900 
8902 
8904 
8906 
8908 
890A 
8908 
890D 
890 F 
8911 
8913 

8915 
8917 
8919 
891B 
891D 
891F 
8921 
8923 


69 08 

ADC #$08 

Exponentzähler erhöhen 

C9 20 

CMP #$20 

Schon alle 4 Bytes verschoben ? 

DO E4 

BNE $88BA 

Nein, weitertesten 

A9 00 

LDA #$00 

Alle Bytes der Mantisse = 0 

85 63 

STA $63 

Also FAC#1 auf 0 setzen 

85 68 

STA $68 

und Vorzeichen löschen 

60 

RTS 


65 58 

ADC $58 

Vorzeichen auf Exponenten aufaddieren 

85 71 

STA $71 


A5 67 

LDA $67 

Mantisse von FAC#1 und FAC#2 addieren 

65 6E 

ADC $6E 


85 67 

STA $67 


A5 66 

LDA $66 


65 6D 

ADC $6D 


85 66 

STA $66 


A5 65 

LDA $65 


65 6C 

ADC $6C 


85 65 

STA $65 


A5 64 

LDA $64 


65 6B 

ADC $6B 


85 64 

STA $64 


4C 15 89 

JMP $8915 

Exponent korrigieren 

69 01 

ADC #$01 

Exponent erhöhen 

06 71 

ASL $71 

Bit aus Rundungsbyte ins C-Flag 

26 67 

ROL $67 

Mantissenbytes alle 

26 66 

ROL $66 

um ein Bit verschieben 

26 65 

ROL $65 


26 64 

ROL $64 


10 F2 

BPL $88FC 

Weiter bis MSB gesetzt 

38 

SEC 


E5 63 

SBC $63 

Exponent von FAC#1 abziehen 

BO C7 

BCS $8806 

Uenn Ergebnis ohne Übertrag, FAC#1 = 0 

49 FF 

EOR #$F F 

Zweierkomplement bilden 

69 01 

ADC #$01 


85 63 

STA $63 

und neuen Exponenten speichern 

90 OE 

BCC $8925 

Wenn kein Übertrag, Ende 

E6 63 

INC $63 

Exponent erhöhen 

FO 42 

BEQ $895D 

Wenn zu groß, Fehler 

66 64 

ROR $64 

Mantissenbits alle 

66 65 

ROR $65 

um ein Bit verschieben 

66 66 

ROR $66 


66 67 

ROR $67 


66 71 

ROR $71 

Rundungsbyte korrigieren 
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****************************** Mantisse von FAC#1 invertieren 


8926 

A5 68 

LDA $68 


8928 

49 FF 

EOR #$FF 


892A 

85 68 

STA $68 


892C 

A5 64 

LDA $64 


892E 

49 FF 

EOR #$FF 


8930 

85 64 

STA $64 


8932 

A5 65 

LDA $65 


8934 

49 FF 

EOR #$FF 


8936 

85 65 

STA $65 


8938 

A5 66 

LDA $66 


893A 

49 FF 

EOR #$FF 


893C 

85 66 

STA $66 


893E 

A5 67 

LDA $67 


8940 

49 FF 

EOR #$FF 


8942 

85 67 

STA $67 


8944 

A5 71 

LDA $71 

Rundungsbyte invertieren 

8946 

49 FF 

EOR #$FF 


8948 

85 71 

STA $71 

und wieder setzen 

894A 

E6 71 

INC $71 

1 zu Mantisse addieren 

894 C 

DO OE 

BNE $895C 

zur korrekten Zweierkomplementbildüng 

894E 

E6 67 

INC $67 

Mantissenbyte erhöhen 

8950 

DO OA 

BNE $895C 

Kein Übertrag, Ende 

8952 

E6 66 

INC $66 

Mantissenbyte erhöhen 

8954 

DO 06 

BNE $895C 

Kein Übertrag, Ende 

8956 

E6 65 

INC $65 

Mantissenbyte erhöhen 

8958 

DO 02 

BNE $895C 

Kein Übertrag, Ende 

895A 

E6 64 

INC $64 

Mantisssenbyte erhöhen 

895C 

60 

RTS 


****************************** 

■OVERFLOW 

8950 

A2 OF 

LDX #$0F 

■OVERFLOW 

895 F 

4C 3C 4D 

JMP $4D3C 

Fehler ausgeben 

****************************** 

Rechtsverschieben eines Registers 

8962 

A2 27 

LDX #$27 

Offset auf Hilfsregister setzen 

8964 

B4 04 

LDY $04,X 

Rundungsbyte laden 

8966 

84 71 

STY $71 

und setzen 

8968 

B4 03 

LDY $03,X 

Mantisse um ein Byte verschieben 

896A 

94 04 

STY $04,X 


896C 

B4 02 

LDY $02,X 


896E 

94 03 

STY $03,X 


8970 

B4 01 

LDY $01,X 
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8972 

94 

02 

STY 

$02, X 

8974 

AC 

DF 03 

LDY 

$03DF 

8977 

94 

01 

STY 

$01,X 

8979 

69 

08 

ADC 

#$08 

897B 

30 

E7 

BMI 

$8964 

897D 

F0 

E5 

BEQ 

$8964 

897F 

E9 

08 

SBC 

#$08 

8981 

A8 


TAY 


8982 

A5 

71 

LDA 

$71 

8984 

B0 

14 

BCS 

$899A 

8986 

16 

01 

ASL 

$01,X 

8988 

90 

02 

BCC 

$898C 

898A 

F6 

01 

INC 

$01,X 

898C 

76 

01 

ROR 

$01,X 

898E 

76 

01 

ROR 

$01,X 

8990 

76 

02 

ROR 

$02, X 

8992 

76 

03 

ROR 

$03, X 

8994 

76 

04 

ROR 

$04, X 

8996 

6A 


ROR 


8997 

C8 


INY 


8998 

00 

EC 

BNE 

$8986 

899A 

18 


CLC 


899B 

60 


RTS 





899C 

81 

00 

00 

00 

00 


89 AI 

03 






89 A 2 

7F 

5E 

56 

CB 

79 


89A7 

80 

13 

9B 

OB 

64 


89AC 

80 

76 

38 

93 

16 


89B1 

82 

38 

AA 

SB 

20 


89B6 

80 

35 

04 

F3 

34 


89BB 

81 

35 

04 

1 5 

34 


89C0 

80 

80 

00 

00 

00 


89C5 

80 

31 

72 

17 

F8 



89CA 

20 

57 

8C 


JSR 

$8C57 

89CD 

F0 

02 



BEQ 

$8901 

89CF 

10 

03 



BPL 

$8904 

89D1 

4C 

28 

7D 


JMP 

$7D28 

8904 

A5 

63 



LDA 

$63 

89D6 

E9 

7F 



SBC 

#$7F 

89D8 

48 




PHA 


89D9 

A9 

80 



LDA 

#$80 

89DB 

85 

63 



STA 

$63 


Überl aufbyte laden 

und in Mantisse setzen 

Exponent korrigieren 

Wenn negativ, weiterschieben 

Wenn Null, weiterschieben 

Ergebnis umrechnen 

und als Zähler laden 

Rundungsbyte laden 

Wenn kein Übertrag, Ende 

Mantisse korrigieren 

Kein Übertrag, Skip 

Mantissenbyte erhöhen 

Alle Mantissenbytes 

um ein Bit verschieben 


Rundungsbyte auch anpassen 
Zähler schon Null ? 

Nein, weiterschieben 


Konstanten für LOG 

1 

3 = Polynomgrad, 4 Koeffizienten 

.434255942 

.576584541 

.961800759 

2.88539007 

.707106781 = 1/SQR(2) 

1.41421356 = SOR(2) 

-.5 

.693147181 = LOG(2) 

BASIC-Funktion LOG 

Vorzeichen holen 
Wenn 0, Ende 
Wenn positiv, Skip 
■ILLEGAL QUANTITY 1 
Exponent 
normalisieren 
und retten 

Zahl in Bereich .5 bis 1 bringen 
Exponent setzen 
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89DD 

A9 

B6 


LDA 

#$B6 

89DF 

A0 

89 


LDY 

#$89 

89E1 

20 

12 

8A 

JSR 

$8A12 

89E4 

A9 

BB 


LDA 

#$BB 

89E6 

A0 

89 


LDY 

#$89 

89E8 

20 

IE 

8A 

JSR 

$8A1E 

89EB 

A9 

9C 


LDA 

#$9C 

89ED 

A0 

89 


LDY 

#$89 

89EF 

20 

18 

8A 

JSR 

$8A18 

89F2 

A9 

AI 


LDA 

#$A1 

89F4 

A0 

89 


LDY 

#$89 

89F6 

20 

86 

90 

JSR 

$9086 

89F9 

A9 

CO 


LDA 

#$C0 

89FB 

A0 

89 


LDY 

#$89 

89FD 

20 

12 

8A 

JSR 

$8A12 

8A00 

68 



PLA 


8A01 

20 

B0 

8D 

JSR 

$8DB0 

8A04 

A9 

C5 


LDA 

#$C5 

8A06 

A0 

89 


LDY 

#$89 

8A08 

20 

89 

8A 

JSR 

$8A89 

8A0B 

4C 

27 

8A 

JMP 

$8A27 


r***************** 

8A0E 

A9 

76 


LDA 

#$76 

8A10 

A0 

8F 


LDY 

#$8F 

8A12 

20 

89 

8A 

JSR 

$8A89 

8A15 

4C 

48 

88 

JMP 

$8848 

8A18 

20 

89 

8A 

JSR 

$8A89 

8A1B 

4C 

31 

88 

JMP 

$8831 

****************************** 

8A1E 

20 

89 

8A 

JSR 

$8A89 

8A21 

4C 

4C 

8B 

JMP 

$8B4C 

****************************** 

8A24 

20 

B4 

8A 

JSR 

$8AB4 

****************************** 

8A27 

DO 

03 


BNE 

$8A2C 

8A29 

4C 

88 

8A 

JMP 

$8A88 

8A2C 

20 

EC 

8A 

JSR 

$8AEC 


Zeiger auf 1/SQRC2) 

ab $89B6 setzen 

Konstante zu FAC#1 addieren 

Zeiger auf SQR(2) 

ab $89BB setzen 

SQR(2) durch FAC#1 dividieren 

Zeiger auf 1 

ab $899C setzen 

1 - FAC#1 

Zeiger auf Polynomkoeffizienten 

ab $89A1 setzen 

Polynomberechnung 

Zeiger auf -.5 

ab $89C0 setzen 

Zu FAC#1 addieren 

Exponent wieder holen 

FAC#1 = 2*FAC#1 

Zeiger auf LOG(2) 

ab $89C5 setzen 

FAC#2 mit Konstante laden 

FAC#1 = FAC#2 * FAC#1 

FAC#1 = FAC#1 + 0.5 

Zeiger auf Konstante 0.5 
ab $8F76 setzen 
Konstante (A)/(Y) in FAC#2 
FAC#1 = FAC#2 + FAC#1 

FAC#1 = Konstante (A)/(Y) - FAC#1 

Konstante (A)/(Y) in FAC#2 
FAC#1 = FAC#2 • FAC#1 

FAC#1 = Konstante (A)/(Y) / FAC#1 

Konstante (A)/(Y) in FAC#2 
FAC#1 = FAC#2 / FAC#1 

FAC#1 = Konstante (A)/(Y) * FAC#1 

FAC#2 = Konstante (A)/(Y) Bank 1 

FACKM = FACÄ2 * FAC#1 

Uenn <> 0, Skip 
RTS 

Exponent berechnen 
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8A2F 

A9 

00 

LDA 

o 

o 

£ 

Mantisse des 

8A31 

85 

28 

STA 

$28 

Ergebnisses löschen 

8A33 

85 

29 

STA 

$29 


8A35 

85 

2A 

STA 

$2A 


8A37 

85 

2B 

STA 

$2B 


8A39 

A5 

71 

LDA 

$71 

Rundungsbyte laden 

8A3B 

20 

55 8A 

JSR 

$8A55 

BIT-Multiplikation 

8A3E 

A5 

67 

LDA 

$67 

Mantissenbyte laden 

8A40 

20 

55 8A 

JSR 

$8A55 

BIT-Multiplikation 

8A43 

A5 

66 

LDA 

$66 

Mantissenbyte laden 

8A45 

20 

55 8A 

JSR 

$8A55 

BIT-Multiplikation 

8A48 

A5 

65 

LDA 

$65 

Mantissenbyte laden 

8A4A 

20 

55 8A 

JSR 

$8A55 

BIT-Multiplikation 

8A4D 

A5 

64 

LDA 

$64 

Mantissenbyte laden 

8A4F 

20 

5B 8A 

JSR 

CO 

in 

< 

co 

BIT-Multiplikation 

8A52 

4C 

CI 8B 

JMP 

$8BC1 

Ergebnis in FAC#1 


BIT-Multiplikation 

8A55 

DO 

04 

BNE 

$8A5B 

Wenn Byte <> 0, Skip 

8A57 

38 


SEC 


Addition mit Übertrag 

8A58 

4C 

62 89 

JMP 

$8962 

Ergebnis rechtsverschieben 

8A5B 

4A 


LSR 


Ein Bit in Carry 

8A5C 

09 

80 

ORA 

#$80 

und MSB als Endeflag setzen 

8A5E 

A8 


TAY 


Byte retten 

8A5F 

90 

19 

BCC 

$8A7A 

Wenn Bit nicht gesetzt, Skip 

8A61 

18 


CLC 


Mantisse von FAC#2 auf 

8A62 

A5 

2B 

LDA 

$2B 

Ergebnisspeicher aufaddieren 

8A64 

65 

6E 

ADC 

$6E 


8A66 

85 

2B 

STA 

$2B 


8A68 

A5 

2A 

LDA 

$2A 


8A6A 

65 

6D 

ADC 

$6D 


8A6C 

85 

2A 

STA 

$2A 


8A6E 

A5 

29 

LDA 

$29 


8A70 

65 

6C 

ADC 

$6C 


8A72 

85 

29 

STA 

$29 


8A74 

A5 

28 

LDA 

$28 


8A76 

65 

6B 

ADC 

$6B 


8A78 

85 

28 

STA 

$28 


8A7A 

66 

28 

ROR 

$28 

Mantisse des Ergebnisses 

8A7C 

66 

29 

ROR 

$29 

um ein Bit verschieben 

8A7E 

66 

2A 

ROR 

$2A 


8A80 

66 

2B 

ROR 

$2B 


8A82 

66 

71 

ROR 

$71 

Rundungsbyte anpassen 

8A84 

98 


TYA 


Multiplikationsbyte wieder holen 

8A85 

4A 


LSR 


Nächstes Bit in C-Flag 

8A86 

DO 

D6 

BNE 

$8A5E 

Uenn Byte noch nicht Null, nochmal 
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8A88 60 RTS 

****************************** pac# 2 = Konstante (A)/(Y) 


8A89 

85 

24 


STA 

$24 

8A8B 

84 

25 


STY 

$25 

8A8D 

A0 

04 


LDY 

#$04 

8A8F 

Bl 

24 


LDA 

($24),Y 

8A91 

85 

6E 


STA 

$6E 

8A93 

88 



DEY 


8A94 

Bl 

24 


LDA 

($24),Y 

8A96 

85 

6D 


STA 

$6D 

8A98 

88 



DEY 


8A99 

Bl 

24 


LDA 

($24),Y 

8A9B 

85 

6C 


STA 

$6C 

8A9D 

88 



DEY 


8A9E 

Bl 

24 


LDA 

($24),Y 

8AA0 

85 

6F 


STA 

$6F 

8AA2 

45 

68 


EOR 

$68 

8AA4 

85 

70 


STA 

$70 

8AA6 

A5 

6F 


LDA 

$6F 

8AA8 

09 

80 


ORA 

#$80 

8AAA 

85 

6B 


STA 

$6B 

8AAC 

88 



DEY 


8AAD 

Bl 

24 


LDA 

($24),Y 

8AAF 

85 

6A 


STA 

$6A 

8AB1 

A5 

63 


LDA 

$63 

8AB3 

60 



RTS 



SABA 

85 

24 


STA 

$24 

8AB6 

84 

25 


STY 

$25 

8AB8 

AD 

00 

FF 

LDA 

$FF00 

8ABB 

48 



PHA 


8ABC 

A0 

04 


LDY 

#$04 

8ABE 

20 

B7 

03 

JSR 

$03B7 

8AC1 

85 

6E 


STA 

$6E 

8AC3 

88 



DEY 


8AC4 

20 

B7 

03 

JSR 

$03B7 

8AC7 

85 

6D 


STA 

$6D 

8AC9 

88 



DEY 


8ACA 

20 

B7 

03 

JSR 

$03B7 

8ACD 

85 

6C 


STA 

$6C 

8ACF 

88 



DEY 


8 ADO 

20 

B7 

03 

JSR 

$03B7 

8 AD 3 

85 

6F 


STA 

$6F 

8 AD 5 

45 

68 


EOR 

$68 


Adresse Low-Byte setzen 
Adresse High-Byte setzen 
Ein Real-Wert hat 5 Bytes 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Vorzeichenbyte laden 
und setzen 

Vorzeichenvergleich durchführen 

Vorzeichenvergleich setzen 

Vorzeichenbyte laden 

Bit 7 auf 1 setzen 

und Mantissenbyte setzen 

Offset erniedrigen 

Exponent laden 

und setzen 

Exponent von FAC#1 laden 

FAC#2 = Konstante <A)/(Y> Bank 1 

Adresse Low-Byte setzen 
Adresse High-Byte setzen 
BankVorwahl laden 
und retten 

Ein Real-Wert hat 5 Bytes 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Vorzeichenbyte laden 
und setzen 

Vorzeichenvergleich durchführen 
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8AD7 

85 

70 

STA $70 

Vorzeichenvergleich setzen 

8 AD 9 

A5 

6F 

LDA $6F 

Vorzeichen laden 

8ADB 

09 

80 

ORA #$80 

Bit 7 setzen 

8 ADD 

85 

6B 

STA $6B 

und mantissenbyte setzen 

8ADF 

88 


DEY 

Offset erniedrigen 

8AE0 

20 

B7 03 

JSR $03B7 

Exponent laden 

8AE3 

85 

6A 

STA $6A 

und setzen 

8AE5 

68 


PLA 

Bankvorgabe holen 

8AE6 

80 

00 FF 

STA $FF00 

Bank wieder setzen 

8AE9 

A5 

63 

LDA $63 

Exponent von FAC#1 laden 

8AEB 

60 


RTS 


****************************** 

Exponenten berechnen 

8AEC 

A5 

6A 

LDA $6A 

Exponent FAC#2 laden 

8AEE 

F0 

1F 

BEQ $8B0F 

Uenn FAC#2 = 0, Ende 

8AF0 

18 


CLC 

Exponent von FAC#2 

8AF1 

65 

63 

ADC $63 

zu Exponent von FAC#1 addieren 

8AF3 

90 

04 

BCC $8AF9 

Kein Überlauf, Skip 

8AF5 

30 

ID 

BMI $8B14 

Uenn Überlauf, Fehler 

8AF7 

18 


CLC 


8AF8 

2C 


.BYTE $2C 

Nächsten Befehl überlesen 

8AF9 

10 

14 

BPL $8B0F 

Uenn Ergebnis < $80, Rücksprung 

8AFB 

69 

80 

ADC #$80 

Neuen Exponenten anpassen 

8AFD 

85 

63 

STA $63 

und Exponent FAC#1 setzen 

8AFF 

DO 

03 

BNE $8B04 

Uenn Uert <> 0, Skip 

8B01 

4C 

DA 88 

JMP $88DA 

FAC#1 = 0 (Exponent auf 0) 

8B04 

A5 

70 

LDA $70 

Vorzeichenvergleich laden 

8B06 

85 

68 

STA $68 

und Vorzeichen FAC#1 setzen 

8B08 

60 


RTS 


****************************** 

Test auf Überlauf 

8B09 

A5 

68 

LDA $68 

Vorzeichenbyte FAC#1 laden 

8B0B 

49 

FF 

EOR #$FF 

Uert vertretbar ? 

8B0D 

30 

05 

BMI $8B14 

Nein, Fehler 

8B0F 

68 


PLA 

Rücksprungadresse vom 

SB 10 

68 


PLA 

Stapel löschen 

8B11 

4C 

D6 88 

JMP $88D6 

FAC#1 = 0 

8B14 

4C 

5D 89 

JMP $8950 

■OVERFLOU 1 

****************************** 

FAC#1 = FAC#1 * 10 

8B17 

20 

38 8C 

JSR $8C38 

FAC#1 runden und in FAC#2 

8B1A 

AA 


TAX 

FAC#1 = 0 ? 

8B1B 

FO 

10 

BEO $8B2D 

Ja, Ende 

8B1D 

18 


CLC 

Exponent + 2 (= Uert * 4) 

8B1E 

69 

02 

ADC #$02 
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8B20 

BO 

F2 


BCS $8B14 

Wenn zu groß, Fehler 

8B22 

A2 

00 


LDX #$00 

Flag für Vorzeichenvergleich 

8B24 

86 

70 


STX $70 

löschen 

8B26 

20 

55 

88 

JSR $8855 

FAC#1 = FAC#2 + FAC#1 (= Wert * 5) 

8B29 

E6 

63 


INC $63 

Exponent + 1 (= Wert * 10) 

8B2B 

FO 

E7 


BEO $8B14 

Wenn zu groß, Fehler 

8B2D 

60 



RTS 


****************************** 

Konstante 10 

8B2E 

84 

20 

00 

00 00 

10 

****************************** 

'DIVISION BY ZERO' 

8B33 

A2 

14 


LDX #$14 

■DIVISION BY ZERO' 

8B35 

4C 

3C 

4D 

JMP $4D3C 

Fehler ausgeben 

****************************** 

FAC#1 = FAC#1 / 10 

8B38 

20 

38 

8C 

JSR $8C38 

FAC#1 runden und nach FAC#2 

8B3B 

A9 

2E 


LDA #$2E 

Zeiger auf Konstante 10 

8B3D 

AO 

8B 


LDY #$8B 

ab $8B2E setzen 

8B3F 

A2 

00 


LDX #$00 

Vorzeichenvergleich löschen 

8B41 

86 

70 


STX $70 


8B43 

20 

D4 

8B 

JSR $8BD4 

Konstante in FAC#1 

8B46 

4C 

4C 

8B 

JMP $8B4C 

FAC#1 = FAC#2 / FAC#1 

****************************** 

FAC#1 = Konstante (A)/(Y) / FAC#1 

8B49 

20 

B4 

8A 

JSR $8AB4 

Konstante (A)/(Y) in FAC#2 

****************************** 

FAC#1 = FAC#2 / FAC#1 

8B4C 

FO 

E5 


BEO $8B33 

Wenn FAC#1 = 0, Fehler 

8B4E 

20 

47 

8C 

JSR $8C47 

FAC#1 runden 

8B51 

A9 

00 


LDA #$00 


8B53 

38 



SEC 


8B54 

E5 

63 


SBC $63 

Exponent FAC#1 negieren 

8B56 

85 

63 


STA $63 

und setzen 

8B58 

20 

EC 

8A 

JSR $8AEC 

Exponent berechnen 

8B5B 

E6 

63 


INC $63 

Exponentenüberlauf ? 

8B5D 

FO 

B5 


BEQ $8B14 

Ja, Fehler 

8B5F 

A2 

FC 


LDX #$FC 

Bytezähler setzen 

8B61 

A9 

01 


LDA #$01 

Bitzähler setzen 

8B63 

A4 

6B 


LDY $6B 

FAC#2 mit FAC#1 byteweise vergleichen 

8B65 

C4 

64 


CPY $64 


8B67 

DO 

10 


BNE $8B79 

Wenn ungleich, Skip 

8B69 

A4 

6C 


LDY $6C 
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8B6B 

C4 

65 

CPY 

$65 

8B6D 

DO 

OA 

BNE 

$8B79 

8B6F 

A4 

6D 

LDY 

$6D 

8B71 

C4 

66 

CPY 

$66 

8B73 

DO 

04 

BNE 

$8B79 

8B75 

A4 

6E 

LDY 

$6E 

8B77 

C4 

67 

CPY 

$67 

8B79 

08 


PHP 


8B7A 

2A 


ROL 


8B7B 

90 

09 

BCC 

S 

CO 

CO 

8B7D 

E8 


1 NX 


8B7E 

95 

2B 

STA 

$2B,X 

8B80 

FO 

32 

BEQ 

$8BB4 

8B82 

10 

34 

BPL 

CO 

CO 

CO 

CO 

8B84 

A9 

01 

LDA 

#$01 

8B86 

28 


PLP 


8B87 

BO 

OE 

BCS 

$8B97 

8B89 

06 

6E 

ASL 

$6E 

8B8B 

26 

6D 

ROL 

$6D 

8B8D 

26 

6C 

ROL 

$6C 

8B8F 

26 

6B 

ROL 

$6B 

8B91 

BO 

E6 

BCS 

$8B79 

8B93 

30 

CE 

BMI 

$8B63 

8B95 

10 

E2 

BPL 

$8879 

8B97 

A8 


TAY 


8B98 

A5 

6E 

LDA 

$6E 

8B9A 

E5 

67 

SBC 

$67 

8B9C 

85 

6E 

STA 

$6E 

8B9E 

A5 

60 

LDA 

$6D 

8BA0 

E5 

66 

SBC 

$66 

8BA2 

85 

60 

STA 

$6D 

8BA4 

A5 

6C 

LDA 

$6C 

8BA6 

E5 

65 

SBC 

$65 

8BA8 

85 

6C 

STA 

$6C 

8BAA 

A5 

6B 

LDA 

$6B 

8BAC 

E5 

64 

SBC 

$64 

8BAE 

85 

6B 

STA 

$6B 

8BB0 

98 


TYA 


8BB1 

4C 

89 8B 

JMP 

o 

CO 

C2 

CO 

8BB4 

A9 

40 

LDA 

#$40 

8BB6 

DO 

CE 

BNE 

$8B86 

8BB8 

OA 


ASL 


8BB9 

OA 


ASL 


8BBA 

OA 


ASL 


8BBB 

OA 


ASL 



Uenn ungleich, Skip 

Wenn ungleich, Skip 


Status retten 
Bitzähler verschieben 
Wenn Bit nicht gesetzt, Skip 
Letztes Byte verarbeitet ? 
Ergebnisbyte setzen 
Bei letztem Byte, Skip 
Wenn Ende, Skip 
Bitzähler neu setzen 
FAC#2 >= FAC#1 ? 

Ja, Skip 

Mantisse FAC#2 verschieben 


Wenn MSB gesetzt war, weitertesten 
Wenn MSB nun gesetzt, neu vergleichen 
Unbedingter Sprung 

Bitzähler retten 

Mantissen von FAC#1 von FAC#2 

subtrahieren 


Bitzähler wieder laden 
Mantisse FAC#2 verschieben 

Bitzähler passend für letztes Byte setzen 
Unbedingter Sprung 


(A) = <A) * 64 
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8BBC 

0A 


ASL 


8BBD 

0A 


ASL 


8BBE 

85 

71 

STA 

$71 

8BC0 

28 


PLP 



8BC1 

A5 

28 

LDA 

$28 

8BC3 

85 

64 

STA 

$64 

8BC5 

A5 

29 

LOA 

$29 

8BC7 

85 

65 

STA 

$65 

8BC9 

A5 

2A 

LDA 

$2A 

8BCB 

85 

66 

STA 

$66 

8BCD 

A5 

2B 

LDA 

$2B 

8BCF 

85 

67 

STA 

$67 

8BD1 

4C 

B6 88 

JMP 

vO 

C3 

CO 

CO 


8BD4 

85 

24 

STA 

$24 

8BD6 

84 

25 

STY 

$25 

8BD8 

A0 

04 

LDY 

#$04 

8BDA 

Bl 

24 

LDA 

($24),Y 

8BDC 

85 

67 

STA 

$67 

8BDE 

88 


DEY 


8B0F 

Bl 

24 

LDA 

($24).Y 

8BE1 

85 

66 

STA 

$66 

8BE3 

88 


DEY 


8BE4 

Bl 

24 

LDA 

($24),Y 

8BE6 

85 

65 

STA 

$65 

8BE8 

88 


DEY 


8BE9 

Bl 

24 

LDA 

($24),Y 

8BEB 

85 

68 

STA 

$68 

8BED 

09 

80 

ORA 

#$80 

8BEF 

85 

64 

STA 

$64 

8BF1 

88 


DEY 


8BF2 

Bl 

24 

LDA 

($24),Y 

8BF4 

85 

63 

STA 

$63 

8BF6 

84 

71 

STY 

$71 

8BF8 

60 


RTS 


****************************** 

8BF9 

A2 

5E 

LDX 

#$5E 

8BFB 

2C 


.BYTE $2C 


Rundungsbyte setzen 
Status wieder holen 

Hilfsregister in FAC#1 

Mantissenbytes aus Hilfsregister 
in FAC#1 kopieren 


FAC#1 linksbündig machen 

Konstante (A)/(Y) in FAC#1 

Adresse Low-Byte setzen 
Adresse High-Byte setzen 
Ein Real-Wert hat 5 Bytes 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Mantissenbyte laden 
und setzen 
Offset erniedrigen 
Vorzeichenbyte laden 
und setzen 
Bit 7 setzen 

und Mantissenbyte setzen 
Offset erniedrigen 
Exponent laden 
und setzen 

Rundungsbyte löschen ((Y)=0) 


FAC#1 in Akku 4 

Offset auf Akku 4 
Nächsten Befehl überlesen 


****************************** fac# 1 in Akku 3 
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8BFC 

A2 

59 

LDX 

#$59 

8BFE 

A0 

00 

LDY 

#$00 

****************************** 

8COO 

20 

47 8C 

JSR 

$8C47 

****************************** 

8C03 

86 

24 

STX 

$24 

8C05 

84 

25 

STY 

$25 

8C07 

A0 

04 

LDY 

#$04 

8C09 

A5 

67 

LDA 

$67 

8C0B 

91 

24 

STA 

($24),Y 

8C0D 

88 


DEY 


8C0E 

A5 

66 

LDA 

$66 

8C10 

91 

24 

STA 

($24),Y 

8C12 

88 


DEY 


8C13 

A5 

65 

LDA 

$65 

8C15 

91 

24 

STA 

($24),Y 

8C17 

88 


DEY 


8C18 

A5 

68 

LDA 

$68 

8C1A 

09 

7F 

ORA 

#$7F 

8C1C 

25 

64 

AND 

$64 

8C1E 

91 

24 

STA 

($24),Y 

8C20 

88 


DEY 


8C21 

A5 

63 

LDA 

$63 

8C23 

91 

24 

STA 

($24),Y 

8C25 

84 

71 

STY 

$71 

8C27 

60 


RTS 


****************************** 

8C28 

A5 

6F 

LDA 

$6F 

8C2A 

85 

68 

STA 

$68 

8C2C 

A2 

05 

LDX 

#$05 

8C2E 

B5 

69 

LDA 

$69, X 

8C30 

95 

62 

STA 

$62, X 

8C32 

CA 


DEX 


8C33 

DO 

F9 

BNE 

$8C2E 

8C35 

86 

71 

STX 

$71 

8C37 

60 


RTS 


****************************** 

8C38 

20 

47 8C 

JSR 

$8C47 


Offset auf Akku 3 
High-ßyte löschen 

FAC#1 nach (X)/(Y) mit Rundung 

FAC#1 runden 

FAC#1 nach (X)/(Y) 

Adresse Low-Byte setzen 
Adresse High-Byte setzen 
Ein Real-Wert hat 5 Bytes 
Mantissenbyte laden 
und speichern 
Offset erniedrigen 
Mantissenbyte laden 
und speichern 
Offset erniedrigen 
Mantissenbyte laden 
und speichern 
Offset erniedrigen 
Vorzeichen laden 
Aus Vorzeichen das 
Speicherformat erzeugen 
und Vorzeichen speichern 
Offset erniedrigen 
Exponent laden 
und speichern 

Rundungsbyte löschen ((Y)=0) 


FAC#2 in FAC#1 

Vorzeichen FAC#2 laden 
und Vorzeichen FAC#1 setzen 
Ein Real-Wert hat 5 Bytes 
Byte aus FAC#2 laden 
und in FAC#1 kopieren 
Alle Bytes kopiert ? 

Nein, nochmal 

Rundungsbyte löschen ((X)=0) 


FAC#1 in FAC#2 mit Rundung 
FAC#1 runden 


****************************** pac#i in FAC#2 
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8C3B 

A2 06 

LDX #$06 

Ein Real-Uert hat 5 Bytes + Vorzeichen 

8C3D 

B5 62 

LDA $62,X 

Byte aus FAC#1 laden 

8C3F 

95 69 

STA $69,X 

und in FAC#2 kopieren 

8C41 

CA 

DEX 

Alle Bytes kopiert ? 

8C42 

DO F9 

BNE $8C3D 

Nein, nochmal 

8C44 

86 71 

STX $71 

Rundungsbyte löschen 

8C46 

60 

RTS 



****************************** faC# 1 runden 


8C47 

A5 

63 


LDA 

$63 

FAC#1 = 0 ? 

8C49 

F0 

FB 


BEO 

$8C46 

Ja, Ende 

8C4B 

06 

71 


ASL 

$71 

Rundungsstelle > $7F ? 

8C4D 

90 

F7 


BCC 

$8C46 

Nein, Ende 

8C4F 

20 

4E 

89 

JSR 

$894E 

Wert um 1 erhöhen 

8C52 

DO 

F2 


BNE 

$8C46 

Uenn nun fertig, Ende 

8C54 

4C 

17 

89 

JMP 

$8917 

Rechtsverschieben und Exponent erhöhen 

★★★★★★★★★★★★★fr**************** 

Vorzeichen von FAC#1 holen 

8C57 

A5 

63 


LDA 

$63 

FAC#1 =07 

8C59 

F0 

09 


BEO 

$8C64 

Ja, Ende 

8C5B 

A5 

68 


LDA 

$68 

Vorzeichenbyte laden 

8C5D 

2A 



ROL 


Vorzeichenbit in C-Flag schieben 

8C5E 

A9 

FF 


LDA 

#$FF 

FAC#1 ist negativ 

8C60 

B0 

02 


BCS 

$8C64 

Wenn wirklich negativ, Ende 

8C62 

A9 

01 


LDA 

#$01 

FAC#1 ist positiv 

8C64 

60 



RTS 



****************************** 

BASIC-Funktion SGN 

8C65 

20 

57 

8C 

JSR 

$8C57 

Vorzeichen holen 

8C68 

85 

64 


STA 

$64 

in Low-Byte 

8C6A 

A9 

00 


LDA 

#$00 

High-Byte auf 0 

8C6C 

85 

65 


STA 

$65 

setzen 

8C6E 

A2 

88 


LDX 

#$88 

Exponent setzen 

****************************** 

Integerwert in FAC#1 

8C70 

A5 

64 


LDA 

$64 

Vorzeichenbyte laden 

8C72 

49 

FF 


EOR 

#$F F 

und invertieren 

8C74 

2A 



ROL 


und Vorzeichenbit in Carry 


****************************** Mit SEC,LDX #$90 Adreßwert in FAC#1 


8C75 A9 00 
8C77 85 67 


LDA #$00 
STA $67 


FAC#1-Stellen löschen 
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8C79 

85 66 

STA $66 



8C7B 

86 63 

STX $63 

Exponent setzen 

8C7D 

85 71 

STA $71 

Rundungsbyte 

löschen 

8C7F 

85 68 

STA $68 

FAC#1-Stelle 

löschen 

8C81 

4C Bl 88 

JMP $88B1 




****************************** BASIC-Funktion ABS 

8C84 46 68 LSR $68 Vorzeichen löschen 

8C86 60 RTS 


****************************** vergleich Konstante (A)/(Y) mit FAC#1 


8C87 

85 26 

STA 

$26 

Adresse Low-Byte setzen 

8C89 

84 27 

STY 

$27 

Adresse High-Byte setzen 

8C8B 

A0 00 

LDY 

#$00 

Offset auf 0 

8C8D 

Bl 26 

LDA 

($26),Y 

Exponenten der Konstante laden 

8C8F 

C8 

INY 


Offset erhöhen 

8C90 

AA 

TAX 


Konstante = 0 ? 

8C91 

F0 C4 

BEO 

$8C57 

Ja, Vorzeichen von FAC#1 ist Ergebnis 

8C93 

Bl 26 

LDA 

($26),Y 

Verschiedene Vorzeichen ? 

8C95 

45 68 

EOR 

$68 


8C97 

30 C2 

BMI 

$8C5B 

Ja, Vorzeichen verarbeiten 

8C99 

E4 63 

CPX 

$63 

Exponenten gleich ? 

8C9B 

DO 21 

BNE 

UJ 

CO 

CJ 

CO 

«A 

Nein, Skip 

8C9D 

Bl 26 

LDA 

($26),Y 

FAC#1 und Konstante byteweise vergleichen 

8C9F 

09 80 

ORA 

#$80 

FAC-Format erzeugen 

8CA1 

C5 64 

CMP 

$64 

Byte gleich ? 

8CA3 

DO 19 

BNE 

$8CBE 

Nein, Skip 

8CA5 

C8 

INY 


Offset erhöhen 

8CA6 

Bl 26 

LDA 

($26),Y 

Byte laden 

8CA8 

C5 65 

CMP 

$65 

Byte gleich ? 

8CAA 

DO 12 

BNE 

$8CBE 

Nein, Skip 

8CAC 

C8 

INY 


Offst erhöhen 

8CAD 

Bl 26 

LDA 

($26),Y 

Byte laden 

8CAF 

C5 66 

CMP 

$66 

Byte gleich ? 

8C81 

DO OB 

BNE 

$8CBE 

Nein, Skip 

8CB3 

C8 

INY 


Offset erhöhen 

8CB4 

A9 7F 

LDA 

#$7F 

Vorgabe für Rundungsbyte laden 

8CB6 

C5 71 

CMP 

$71 

Rundungsbyte gleich Vorgabe ? 

8CB8 

Bl 26 

LDA 

($26),Y 

Unterstes Mantissenbyte laden 

8CBA 

E5 67 

SBC 

$67 

gleich FAC#1 Mantissenbyte ? 

8CBC 

FO 2A 

BEO 

$8CE8 

Ja, Ende 

8CBE 

A5 68 

LDA 

$68 

Vorzeichen FAC#1 laden 

8CC0 

90 02 

BCC 

$8CC4 

Wenn positiv, Skip 

8CC2 

49 FF 

EOR 

#$F F 

Vorzeichenwert invertieren 

8CC4 

4C 5D 8C 

JMP 

$8C5D 

Ergebnisflags setzen 
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****************************** Umwandlung Fließkomma in Integer 


8CC 7 

A5 

63 


LDA 

$63 

FAC#1 = 0 ? 

8CC9 

FO 

40 


BEO 

$8D18 

Ja, Ergebnis auf 0 

8CCB 

38 



SEC 


Exponent - Grundwert $80 - 32 

8CCC 

E9 

AO 


SBC 

#$A0 

ergibt Exponentbasis 0, Zahl durch 65536 

8CCE 

24 

68 


BIT 

$68 

Vorzeichen testen 

8C00 

10 

OA 


BPL 

$8CDC 

Wenn positiv, Skip 

8CD2 

AA 



TAX 


Neuen Exponenten retten 

8CD3 

A9 

FF 


LDA 

#$FF 

Überl aufkennung passend 

8CD5 

80 

OF 

03 

STA 

$03DF 

setzen 

8C08 

20 

2C 

89 

JSR 

$892C 

Mantisse invertieren 

8CDB 

8A 



TXA 


Neuen Exponenten wieder laden 

8CDC 

A2 

63 


LDX 

#$63 


8CDE 

C9 

F9 


CMP 

#$F9 

Neuer Exponent erfordert Änderung ? 

8CE0 

10 

07 


BPL 

$8CE9 

Ja, Skip 

8CE2 

20 

79 

89 

JSR 

$8979 

FAC#1 rechtsverschieben 

8CE5 

8C 

DF 

03 

STY 

$03DF 

Überlaufkennung passend setzen 

8CE8 

60 



RTS 



8CE9 

A8 



TAY 


Neuen Exponenten retten 

8CEA 

A5 

68 


LDA 

$68 

Vorzeichenbyte laden 

8CEC 

29 

80 


AND 

#$80 

Voryeichen isolieren 

8CEE 

46 

64 


LSR 

$64 

Mantissenbyte rechtsverschieben 

8CF0 

05 

64 


ORA 

$64 

Vorzeichen in Mantisse setzen 

8CF2 

85 

64 


STA 

$64 

und mantissenbyte wieder setzen 

8CF4 

20 

90 

89 

JSR 

$8990 

FAC#1 bitweise rechtsverschieben 

8CF7 

8C 

DF 

03 

STY 

$03DF 

Überlaufkennung setzen 

8CFA 

60 



RTS 



****************************** 

BASIC-Funktion INT 

8CFB 

A5 

63 


LDA 

$63 

Exponent FAC#1 laden 

8CFD 

C9 

AO 


CMP 

#$A0 

FAC#1 ist ganze Zahl ? 

8CFF 

BO 

20 


BCS 

$8021 

Ja, Ende 

8D01 

20 

68 

AA 

JSR 

$AA68 

FAC#1 in Integer 

8D04 

84 

71 


STY 

$71 

Rundungsbyte setzen 

8D06 

A5 

68 


LDA 

$68 

Vorzeichenbyte laden 

8D08 

84 

68 


STY 

$68 

Byte anders setzen 

8D0A 

49 

80 


EOR 

#$80 

Vorzeichen invertieren 

8D0C 

2A 



ROL 


und in C-Flag schieben 

80 OD 

A9 

AO 


LDA 

#$A0 

Exponent für ganze Zahl 

8D0F 

85 

63 


STA 

$63 

setzen 

8011 

A5 

67 


LDA 

$67 

Mantissenbyte laden 

8013 

85 

09 


STA 

$09 

und umkopieren 

8015 

4C 

Bl 

88 

JMP 

$88B1 

FAC#1 linksbündig machen 

8D18 

85 

64 


STA 

$64 

Mantisse mit 0 füllen 
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8D1A 

85 

65 


STA 

$65 


8D1C 

85 

66 


STA 

$66 


8D1E 

85 

67 


STA 

$67 


8020 

A8 



TAY 


(Y)=0 

8D21 

60 



RTS 



****************************** 

Umwandlung ASCII in Fließkommaformat 

8D22 

8E 

DA 

03 

STX 

$03DA 

Bank-Flag setzen 

8025 

A0 

00 


LDY 

#$00 


8027 

A2 

OA 


LDX 

#$0A 

FAC#1 und Stellenzähler löschen 

8D29 

94 

5F 


STY 

$5F,X 


8D2B 

CA 



DEX 


Alle Bytes gelöscht 7 

80 2C 

10 

FB 


BPL 

$8029 

Nein, nochmal 

8D2E 

90 

OF 


BCC 

$8D3F 

Wenn letztes Zeichen Zahl, Skip 

8D30 

C9 

2D 


CMP 

#$2D 

? 

8D32 

DO 

04 


BNE 

$8D38 

Nein, Skip 

8D34 

86 

69 


STX 

$69 

Negativflag setzen 

8D36 

FO 

04 


BEO 

$80 3C 

Unbedingter Sprung 

8D38 

C9 

2B 


CMP 

#$2B 

i + i ? 

80 3A 

DO 

05 


BNE 

$8041 

Nein, Skip 

8D3C 

20 

F5 

8D 

JSR 

$8DF5 

Spezial CHRGET 

8D3F 

90 

5B 


BCC 

$8D9C 

Uenn Zeichen Zahl, Skip 

8D41 

C9 

2E 


CMP 

#$2E 

7 

8043 

FO 

2E 


BEQ 

$8D73 

Nein, Skip 

8D45 

C9 

45 


CMP 

#$45 

•E • ? 

8047 

DO 

30 


BNE 

$8079 

Nein, Skip 

8D49 

20 

F5 

8D 

JSR 

$80 F 5 

Spezial CHRGET 

804C 

90 

17 


BCC 

$8D65 

Wenn Zahl, Skip 

8D4E 

C9 

AB 


CMP 

#$AB 

Token für '- 1 ? 

8050 

FO 

OE 


BEQ 

$8060 

Ja, Flag setzen 

8D52 

C9 

20 


CMP 

#$2D 

7 

8054 

FO 

OA 


BEQ 

$8D60 

Ja, Flag setzen 

8D56 

C9 

AA 


CMP 

#$AA 

Token für '+' 

8058 

FO 

08 


BEQ 

$8062 

Ja, Skip 

8D5A 

C9 

2B 


CMP 

#$2B 

' + • ? 

805C 

FO 

04 


BEQ 

$8062 

Ja, Skip 

805E 

DO 

07 


BNE 

$8067 

Nein, Skip 

8D60 

66 

62 


ROR 

$62 

E-Negativflag setzen 

8D62 

20 

F5 

80 

JSR 

$8DF5 

Spezial CHRGET für E-Zahl 

8D65 

90 

5C 


BCC 

$8DC3 

Wenn Zahl, Skip 

8067 

24 

62 


BIT 

$62 

E-Negativflag gesetzt 7 

8069 

10 

OE 


BPL 

$8079 

Nein, Skip 

8D6B 

A9 

00 


LOA 

#$00 

E-Zahl negieren 

8060 

38 



SEC 



8D6E 

E5 

60 


SBC 

$60 


8D70 

4C 

7B 

8D 

JMP 

$8D7B 


8D73 

66 

61 


ROR 

$61 

Aufruf durch BIT 7 setzen 
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8D75 

24 

61 


BIT 

$61 

BIT 6 gesetzt ? (2. Punkt gelesen) 

8D77 

50 

C3 


BVC 

S8D3C 

Nein, weiterlesen 

8D79 

A5 

60 


LDA 

$60 

E-Zahl 

8D7B 

38 



SEC 



80 7C 

E5 

5F 


SBC 

$5F 

- Nachkommastellen 

807E 

85 

60 


STA 

$60 

= nötiger Verschub 

8080 

F0 

12 


BEQ 

$8094 

Wenn 0, Ende 

8082 

10 

09 


BPI 

$80 8D 

Uenn positiv, Skip 

8D84 

20 

38 

8B 

JSR 

$8B38 

FAC#1 = FAC#1 / 10 

8D87 

E6 

60 


INC 

$60 

Fertig ? 

8D89 

DO 

F9 


BNE 

$8084 

Nein, weiter 

80 8B 

FO 

07 


BEQ 

$8094 

Unbedingter Sprung 

8D80 

20 

17 8B 

JSR 

$8B17 

FAC#1 = FAC#1 * 10 

8D90 

C6 

60 


DEC 

$60 

Fertig ? 

8092 

DO 

F9 


BNE 

$8D80 

Nein, weiter 

8D94 

A5 

69 


LDA 

$69 

Negativflag gesetzt ? 

8D96 

30 

01 


BMI 

$8D99 

Ja, Skip 

8D98 

60 



RTS 



8D99 

4C 

FA 

8F 

JMP 

$8FFA 

FAC#1 = ■FAC#1 

8D9C 

48 



PHA 


Aufruf durch Ziffer 

8090 

24 

61 


BIT 

$61 

1 . 1 gelesen ? 

8D9F 

10 

02 


BPL 

$8DA3 

Nein, Skip 

80 AI 

E6 

5F 


INC 

$5F 

Eine Nachkommastelle mehr 

8DA3 

20 

17 

8B 

JSR 

$8B17 

FAC#1 = FAC#1 * 10 

8DA6 

68 



PLA 


Zeichen holen 

8DA7 

38 



SEC 



8DA8 

E9 

30 


SBC 

#$30 

Umwandlung von ASCII in Zahl 

8DAA 

20 

BO 

8D 

JSR 

$80 BO 

Diese Stelle zu FAC#1 addieren 

8DAD 

4C 

3C 

80 

JMP 

$80 3C 

Ueitermachen 

8DB0 

48 



PHA 


Stellenwert retten 

8DB1 

20 

38 

8C 

JSR 

co 

Kl 

U 

=0 

FAC#1 in FAC#2 mit Rundung 

8DB4 

68 



PLA 


Stellenwert holen 

8DB5 

20 

68 

8C 

JSR 

$8C68 

Stellenwert in FAC#1 

8DB8 

A5 

6F 


LDA 

$6F 

Vorzeichen vergleichen 

80BA 

45 

68 


EOR 

$68 


8DBC 

85 

70 


STA 

$70 

Vorzeichenvergleich setzen 

80BE 

A6 

63 


LDX 

$63 

Exponent FAC#1 

8DC0 

4C 

48 

88 

JMP 

$8848 

FAC#1 = FAC#2 + FAC#1 

8DC3 

A5 

60 


LDA 

$60 

Aufruf durch E-Zahl 

8DC5 

C9 

OA 


CMP 

#$0A 

E-Zahl < 10 ? 

8DC7 

90 

09 


BCC 

$8002 

Ja, Skip 

8DC9 

A9 

64 


LDA 

#$64 

Dezimal 100 

8DCB 

24 

62 


BIT 

$62 

Vorzeichen gesetzt ? 
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8 DCD 

30 

21 


BMI 

$ 8 DF 0 

Ja, 100 als E-Zahl 


8 DCF 

4C 

5D 

89 

JMP 

$895D 

'OVERFLOW ERROR' 


8DD2 

0A 



ASL 


= Wert * 4 


8DD3 

OA 



ASL 




8DD4 

18 



CLC 




8DD5 

65 

60 


ADC 

$60 

= Wert * 5 


8DD7 

OA 



ASL 


= Wert * 10 


8 DD 8 

18 



CLC 




8DD9 

AO 

00 


LDY 

#$00 

Offset auf 0 


8 DDB 

85 

79 


STA 

$79 

E-Zahl speichern 


800D 

AD 

DA 

03 

LDA 

$03DA 

Zeichen aus Bank 1 ? 


80E0 

DO 

06 


BNE 

$ 8 DE 8 

Ja, Skip 


8DE2 

20 

C9 

03 

JSR 

$03C9 

Aktuelles Zeichen aus Bank 

0 

80E5 

4C 

EB 

8 D 

JMP 

S 8 DEB 



8 DE 8 

20 

B7 

03 

JSR 

$03B7 

Aktuelles Zeichen aus Bank 

1 

8 DEB 

65 

79 


ADC 

$79 

+ E-Zahl 


8 DED 

38 



SEC 




8 DEE 

E9 

30 


SBC 

#$30 

Von ASCII in Zahl wandeln 


8 DF 0 

85 

60 


STA 

$60 

und als neue E-Zahl speichern 

80 F2 

4C 

62 

8 D 

JMP 

$8062 

E-Zahl weitereiniesen 


****************************** 

Spezial CHRGET 


80 F5 

AD 

DA 

03 

LDA 

$03DA 

Zeichen aus Bank 0 ? 


8 DF 8 

DO 

03 


BNE 

$ 8 DFD 

Nein, Skip 


80 FA 

4C 

80 

03 

JMP 

$0380 

CHRGET 


8 DFD 

E 6 

24 


INC 

$24 

($24)CHRGET 


8 DFF 

DO 

02 


BNE 

$8E03 

Kein Übertrag, Skip 


8E01 

E 6 

25 


INC 

$25 

Übertrag berücksichtigen 


8E03 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 


8E05 

20 

B7 

03 

JSR 

$03B7 

LDA ($24),Y Bank 1 


8E08 

C9 

3A 


CMP 

#$3A 

Trennzeichen ':' ? 


8E0A 

BO 

OA 


BCS 

$8E16 

Ja, Ende 


8E0C 

C9 

20 


CMP 

#$20 

Space ? 


8E0E 

FO 

ED 


BEQ 

$ 8 DFD 

Ja, überlesen 


8 E 10 

38 



SEC 


Zahlentest 


8 E 11 

E9 

30 


SBC 

#$30 



8E13 

38 



SEC 




8E14 

E9 

DO 


SBC 

#$D 0 



8E16 

60 



RTS 




****************************** 

Konstanten für Fließkomna 

nach ASCII 

8E17 

9B 

3E 

BC 

1F FD 


99999999 9 


8 E 1 C 

9E 

6 E 

6 B 

27 FD 


999999999 


8 E 21 

9E 

6 E 

6 B 

28 00 


1E9 
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****************************** zeilennummer bei Fehler ausgeben 


8E26 

20 

81 

92 

JSR $9281 

PRIMM Stringausgabe 


Konstante 'IN 1 

8E29 

20 

49 

4E 

20 00 

■ IN 1 

★★*★***★*★*******★★★★★***★*★★★ 

Aktuelle Zeilennummer ausgeben 

8E2E 

A5 

3C 


LDA $3C 

Zeilennummer High laden 

8E30 

A6 

38 


LDX $3B 

Zeilennummer Low laden 

*★**★*★★*★★**★*******★***★★*★* 

Adresse in (X)/(A) ausgeben 

8E32 

85 

64 


STA $64 

Adresse im High/Low-Format in FAC#1 

8E34 

86 

65 


STX $65 

setzen 

8E36 

A2 

90 


LDX #$90 

Exponent setzen 

8E38 

38 



SEC 

Vorzeichenwert setzen 

8E39 

20 

75 

8 C 

JSR $8C75 

Adreßwert in Fließkommaformat 

8E3C 

20 

44 

8 L 

JSR $8E44 

FAC#1 in ASCII wandeln 

8E3F 

4C 

E2 

55 

JMP $55E2 

String ausgeben bis O-Byte 

****************************** 

FAC#1 in ASCII ab $0100 

8E42 

A0 

01 


LDY #$01 

Offset vorbesetzen 

8E44 

A9 

20 


LDA #$20 

Space als erstes Zeichen 

8E46 

24 

68 


BIT $68 

FAC#1 negativ ? 

8E48 

10 

02 


BPL $8E4C 

Nein, Skip 

8E4A 

A9 

20 


LDA #$2D 

als erstes Zeichen 

8E4C 

99 

FF 

00 

STA $00FF,Y 

in Puffer speichern 

8E4F 

85 

68 


STA $68 

Vorzeichen positiv machen 

8E51 

84 

72 


STY $72 

Offset retten 

8E53 

C8 



I NY 

Offset erhöhen 

8E54 

A9 

30 


LDA #$30 

>0' 

8E56 

A6 

63 


LDX $63 

FAC#1 = 0 ? 

8E58 

DO 

03 


BNE $8E5D 

nein, Skip 

8E5A 

4C 

69 

8 F 

JMP $8F69 

Puffer mit '0' besetzen und Ende 

8E5D 

A9 

00 


LDA #$00 

Flag setzen 

8E5F 

EO 

80 


CPX #$80 

FAC#1 = zwischen .5 und 1 ? 

8E61 

FO 

02 


BEO $8E65 

Ja, Skip 

8E63 

BO 

09 


BCS $8E6E 

Nein, Skip 

8E65 

A9 

21 


LDA #$21 

Zeiger auf Konstante 1E9 

8E67 

AO 

8 E 


LDY #$8E 

ab $8E21 setzen 

8E69 

20 

08 

8 A 

JSR $8A08 

FAC#1 = Konstante * FAC#1 

8 E6C 

A9 

F7 


LDA #$F7 

Stellenverschub auf -9 setzen ($F7 = 

8 E6E 

85 

5F 


STA $5F 


8E70 

A9 

IC 


LDA #$1C 

Zeiger auf Konstante 999999999 
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8E72 

A0 

8 E 

LDY 

#$8E 

8E74 

20 

87 8C 

JSR 

S8C87 

8E77 

F0 

IE 

BEQ 

S8E97 

8E79 

10 

12 

BPL 

o 

CO 

LU 

CO 

4A 

8E7B 

A9 

17 

LDA 

#$17 

8E7D 

A0 

8 E 

LDY 

#$8E 

8E7F 

20 

87 8C 

JSR 

$8C87 

8E82 

F0 

02 

BEO 

$8E86 

8E84 

10 

0E 

BPL 

$8E94 

8 E86 

20 

17 8B 

JSR 

$8B17 

8E89 

C6 

5F 

DEC 

$5F 

8 E8B 

DO 

EE 

BNE 

m 

UJ 

CO 

8 E8D 

20 

38 8B 

JSR 

S8B38 

8E90 

E6 

5F 

INC 

$5F 

8E92 

DO 

DC 

BNE 

$8E70 

8E94 

20 

0E 8A 

JSR 

S8A0E 

8E97 

20 

C7 8C 

JSR 

$8CC7 

8E9A 

A2 

01 

LDX 

#$01 

8E9C 

A5 

5F 

LDA 

$5F 

8E9E 

18 


CLC 


8E9F 

69 

0A 

ADC 

#$0A 

8 EA1 

30 

09 

BMI 

$8EAC 

8EA3 

C9 

OB 

CMP 

#$0B 

8EA5 

B0 

06 

BCS 

$8EAD 

8EA7 

69 

FF 

ADC 

#$FF 

8EA9 

AA 


TAX 


8 EAA 

A9 

02 

LDA 

#$02 

8 EAC 

38 


SEC 


8 EAD 

E9 

02 

SBC 

#$02 

8 EAF 

85 

60 

STA 

$60 

8EB1 

86 

5F 

STX 

$5F 

8EB3 

8 A 


TXA 


8EB4 

F0 

02 

BEQ 

$8EB8 

8 EB6 

10 

13 

BPL 

$8ECB 

8 EB8 

A4 

72 

LDY 

$72 

8 EBA 

A9 

2E 

LDA 

#$2E 

8 EBC 

C8 


INY 


8 EBD 

99 

FF 00 

STA 

>- 

LA¬ 

LL. 

O 

o 

4* 

8EC0 

8 A 


TXA 


8EC1 

F0 

06 

BEQ 

$8EC9 

8EC3 

A9 

30 

LDA 

#$30 

8EC5 

C8 


INY 


8 EC6 

99 

FF 00 

STA 

$00FF,Y 

8EC9 

84 

72 

STY 

$72 

8 ECB 

A0 

00 

LDY 

#$00 

8 ECD 

A2 

80 

LDX 

#$80 


ab $8E1C setzen 

Vergleich Konstante mit FAC#1 

Wenn gleich, Skip 

Uenn größer, Teilung durch 10 

Zeiger auf Konstante 99999999.9 

ab $8E17 setzen 

Vergleich Konstante mit FAC#1 

Gleich, Skip 

Uenn größer, Skip zur Rundung 
FAC#1 = FAC#1 * 10 
Stellenverschub korrigieren 
Unbedingter Sprung 

FAC#1 = FAC#1 / 10 

Stellenverschub korrigieren 

Unbedingter Sprung 

FAC#1 = INT (FAC#1 + .5) 

FAC#1 in Integerformat 


FAC#1 < 0.1 ? 
Ja, Skip 
FAC#1 > 1E9 ? 
Ja, Skip 


Offset holen 

1 . 1 in Puffer 

Offset erhöhen 

Zeichen in Puffer schreiben 

Stelle nach Komma gleich 0 ? 

Nein, Skip 

'0' in Puffer 

Offset erhöhen 

Zeichen in Puffer schreiben 

Offset retten 

Offset auf 0 setzen 

Ziffernzähler setzen 
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8 ECF 

A5 

67 


LDA 

$67 

Durch Aufaddieren Berechnung der Ziffern 

8ED1 

18 



CLC 



8ED2 

79 

7E 

8 F 

ADC 

$8F7E,Y 


8ED5 

85 

67 


STA 

$67 


8ED7 

A5 

66 


LDA 

$66 


8ED9 

79 

7D 

8 F 

ADC 

$8F7D,Y 


8 EDC 

85 

66 


STA 

$66 


8 EDE 

A5 

65 


LDA 

$65 


8EE0 

79 

7C 

8 F 

ADC 

$8F7C,Y 


8EE3 

85 

65 


STA 

$65 


8EE5 

A5 

64 


LDA 

$64 


8EE7 

79 

7B 

8 F 

ADC 

$8F7B,Y 


8 EEA 

85 

64 


STA 

$64 


8 EEC 

E8 



I NX 


Ziffernzähler erhöhen 

8 EED 

BO 

04 


BCS 

$8EF3 

Additionsübertrag, Skip 

8 EEF 

10 

DE 


BPL 

$8ECF 

Zähler positiv, nochmal 

8 EF1 

30 

02 


BMI 

$8EF5 

Unbedingter Sprung 

8EF3 

30 

DA 


BMI 

$8ECF 

Zähler negativ, nochmal 

8EF5 

8 A 



TXA 


Zähler als Ziffer laden 

8 EF6 

90 

04 


BCC 

$8EFC 

Kein Additionsübertrag, Skip 

8 EF8 

49 

FF 


EOR 

#$FF 

Ziffer positiv machen 

8 EFA 

69 

DA 


ADC 

#$0A 

+ 10 

8 EFC 

69 

2F 


ADC 

#$2F 

Code für 1 0 1 • 1 

8 EFE 

C8 



I NY 


Offset um 4 erhöhen 

8 EFF 

C8 



I NY 



8 FOO 

C8 



I NY 



8F01 

C8 



INY 



8F02 

84 

49 


STY 

$49 

Offset retten 

8F04 

A4 

72 


LDY 

$72 

Offset holen 

8F06 

C8 



INY 


Offset erhöhen 

8F07 

AA 



TAX 


Ziffer in (X) retten 

8F08 

29 

7F 


AND 

#$7F 

in ASCII setzen 

8F0A 

99 

FF 

00 

STA 

** 

□ 

o 

-n 

TI 

-< 

Stelle in Puffer 

8F0D 

C6 

5F 


DEC 

$5F 

Dezimalpunkt nötig ? 

8F0F 

DO 

06 


BNE 

$8F17 

Nein, Skip 

8 F11 

A9 

2E 


LDA 

#$2E 

'. 1 in Puffer 

8F13 

C8 



INY 


Offset erhöhen 

8F14 

99 

FF 

00 

STA 

$00FF,Y 

Punkt in Puffer schreiben 

8F17 

84 

72 


STY 

$72 

Offset wieder retten 

8F19 

A4 

49 


LDY 

$49 

Offset laden 

8F1B 

8 A 



TXA 


Ziffer in (A) 

8F1C 

49 

FF 


EOR 

#$F F 

Wert invertieren 

8F1E 

29 

80 


AND 

#$80 

Bit 7 isolieren 

8F20 

AA 



TAX 


Bit 7 in (X) retten 

8F21 

CO 

24 


CPY #$24 

Tabellenende bei FAC#1-Wandlung erreicl 

? 

8F23 

F0 

04 


BEO 

$8F29 

Ja, Skip 

8F25 

CO 

3C 


CPY 

#$3C 

Tabellenende bei TI$-Uandlung erreicht ? 
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8F27 

DO 

A6 


BNE 

CO 

m 

n 

■n 

Nein, weitermachen 


8F29 

A4 

72 


LDY 

$72 

Offset holen 


8F2B 

B9 

FF 

00 

LDA 

$00FF,Y 

Zeichen aus Puffer holen 


8F2E 

88 



DEY 


Offset erniedrigen 


8F2F 

C9 

30 


CMP 

#$30 

Letztes Zeichen eine '0' ? 


8F31 

FO 

F8 


BEO 

$8F2B 

Ja, überlesen 


8F33 

C9 

2E 


CMP 

#$2E 

1 1 

1 


8F35 

FO 

01 


BEQ 

$8F38 

Ja, Skip 


8F37 

C8 



INY 


Offset korrigieren 


8F38 

A9 

2B 


LDA 

#$2B 

' + ■ 


8F3A 

A6 

60 


LDX 

$60 

Exponent nötig ? 


8F3C 

FO 

2E 


BEQ 

$8F6C 

Nein, Skip 


8F3E 

10 

08 


BPL 

$8F48 

Ja, Skip 


8F40 

A9 

00 


LDA 

#$00 

Exponent negieren 


8F42 

38 



SEC 




8F43 

E5 

60 


SBC 

$60 



8F45 

AA 



TAX 




8F46 

A9 

2D 


LDA 

#$2D 

1 . 1 


8F48 

99 

01 

01 

STA 

$0101,Y 

in Puffer 


8F4B 

A9 

45 


LDA 

#$45 

•E* in Puffer 


8F4D 

99 

00 

01 

STA 

$0100,Y 

schreiben 


8F50 

8 A 



TXA 


Expnent in (A) 


8F51 

A2 

2F 


LDX 

#$2F 

Code für '0* - 1 


8F53 

38 



SEC 




8F54 

E8 



I NX 


10er Stelle des Exponenten 

ausrechnen 

8F55 

E9 

OA 


SBC 

#$OA 



8F57 

BO 

FB 


BCS 

$8F54 

Kein Übertrag, nochmal 


8F59 

69 

3A 


ADC 

#$3A 

in ASCII umrechnen 


8F5B 

99 

03 

01 

STA 

$0103,Y 

1er Stelle in Puffer 


8F5E 

8 A 



TXA 


und 


8F5F 

99 

02 

01 

STA 

$0102,Y 

10er Stelle in Puffer 


8F62 

A9 

00 


LDA 

#$00 

Puffer mit 0 abschließen 


8F64 

99 

04 

01 

STA 

$0104,Y 



8F67 

FO 

08 


BEQ 

$8F71 

Unbedingter Sprung 


8F69 

99 

FF 

00 

STA 

$OOF F,Y 

Puffer mit eigenem Zeichen 

abschließen 


****************************** Puffer mit 0 abschließen 


8 F6C 

A9 00 

LDA #$00 


8 F6E 

99 00 01 

STA $0100,Y 

Puffer abschließen 

8F71 

A9 00 

LDA #$00 

Zeiger auf Puffer 

8F73 

A0 01 

LDY #$01 

ab $0100 laden 

8F75 

60 

RTS 
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****************************** Konstante 0.5 für SQR 


8F76 

80 

00 

00 

00 00 


.5 

****************************** 

Konstanten für Fließkomma nach ASCII 

8F7B 

FA 

OA 

1 F 

00 


-100 000 000 

8F7F 

00 

98 

96 80 


10 000 000 

8F83 

FF 

FO 

BD 

CO 


-1 000 000 

8F87 

00 

01 

86 

AO 


100 000 

8 F8B 

FF 

FF 

D8 

FO 


-10 000 

8 F8F 

00 

00 

03 

E8 


1 000 

8F93 

FF 

FF 

FF 

9C 


-100 

8F97 

00 

00 

00 

OA 


10 

8F9B 

FF 

FF 

FF 

FF 


-1 

****************************** 

Konstanten für Umwandlung TI nach T 

8F9F 

FF 

DF 

OA 

80 


-2 160 000 

8FA3 

00 

03 

4B 

CO 


216 000 

8FA7 

FF 

FF 

73 

60 


-36 000 

8 FAB 

00 

00 

OE 

10 


3 600 

8 FAF 

FF 

FF 

FD 

A8 


- 600 

8FB3 

00 

00 

00 

3C 


60 

****************************** 

BASIC-Funktion SQR 

8FB7 

20 

38 

8 C 

JSR 

CO 

ro 

u 

CO 

*4 

FAC#1 in FAC#2 mit Rundung 

8 FBA 

A9 

76 


LDA 

#$76 

Zeiger auf Konstante 0.5 

8 FBC 

AO 

8 F 


LDY 

U_ 

CO 

& 

ab $8F76 setzen 


****************************** FAC#1 = FAC#2 a Konstante (A)/(Y) 
8 F8E 20 D4 8B JSR $8BD4 Konstante in FAC#1 
****************************** fac#1 = FAC#2 A FAC#1 


8FC1 

FO 

70 


BEQ 

$9033 

Konstante = 0, Skip 

8FC3 

A5 

6 A 


LDA 

$6A 

FAC#2 = 0 ? 

8FC5 

DO 

03 


BNE 

$8FCA 

Nein, Skip 

8FC7 

4C 

DO 

88 

JMP 

$88D8 

FAC#1 auf 0 

8 FCA 

A2 

SO 


LDX 

#$50 

Zeiger auf Hilfsakku 

8 FCC 

AO 

00 


LDY 

#$00 

ab $0050 setzen 

8 FCE 

20 

00 

8 C 

JSR 

$8C00 

FAC#1 in Hilfsakku 

8FD1 

A5 

6 F 


LDA 

$6F 

Potenzexponent < 1 ? 

8FD3 

10 

OF 


BPL 

$8FE4 

Ja, Skip 

8FD5 

20 

FB 

8 C 

JSR 

$8CFB 

INT-Funktion 

8 FD8 

A9 

50 


LDA 

#$50 

Zeiger auf Hilfsakku 
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8 FDA 

A0 

00 


LDY 

#$00 

ab $0050 setzen 

8 FDC 

20 

87 

8 C 

JSR 

$8C87 

Vergleich Konstante mit FAC#1 

8 FDF 

DO 

03 


BNE 

$8FE4 

Wenn ungleich, Skip 

8FE1 

98 



TYA 



8FE2 

A4 

09 


LDY 

$09 


8FE4 

20 

2A 

8 C 

JSR 

$8C2A 

FAC#2 in FAC#1 

8FE7 

98 



TYA 



8 FE8 

48 



PHA 



8FE9 

20 

CA 

89 

JSR 

$89CA 

LOG-Funktion 

8 FEC 

A9 

50 


LDA 

#$50 

Zeiger auf Hilfsakku 

8 FEE 

AO 

00 


LDY 

#$00 


8FF0 

20 

24 

8 A 

JSR 

$8A24 

FAC#1 = Konstante * FAC#1 

8FF3 

20 

33 

90 

JSR 

$9033 

EXP-Funktion 

8 FF6 

68 



PLA 



8FF7 

4A 



LSR 



8 FF8 

90 

OA 


BCC 

$9004 


****************************** 

Vorzeichenwechsel FAC#1 

8 FFA 

A5 

63 


LDA 

$63 

FAC#1 = 0 ? 

8 FFC 

FO 

06 


BEQ 

$9004 

Ja, Skip 

8 FFE 

A5 

68 


LDA 

$68 

Vorzeichen invertieren 

9000 

49 

FF 


EOR 

#$FF 


9002 

85 

68 


STA 

$68 


9004 

60 



RTS 



**★******************★★★★★★★★★ 

Konstanten für EXP 

9005 

81 

38 

AA 

3B 29 


1.44269504 = 1/LOG(2) 

900A 

07 





7 = Polynomgrad ergibt 8 Koeffiz 

900B 

71 

34 

58 

3E 56 


2.14987637E-5 

9010 

74 

16 

7E 

B3 1B 


1.4352314E-4 

9015 

77 

2F 

EE 

E3 85 


1.34226348E-3 

901A 

7A 

ID 

84 

IC 2A 


9.614011701E-3 

901F 

7C 

63 

59 

58 OA 


.0555051269 

9024 

7E 

75 

FD 

E7 C6 


.240226385 

9029 

80 

31 

72 

18 10 


.693147186 

902E 

81 

00 

00 

00 00 


1 

****************************** 

BASIC-Funktion EXP 

9033 

A9 

05 


LDA 

#$05 

Zeiger auf Konstante 1/LOG(2) 

9035 

AO 

90 


LDY 

#$90 

ab $9005 setzen 

9037 

20 

08 

8 A 

JSR 

$8A08 

FAC#1 = Konstante * FAC#1 

903A 

A5 

71 


LDA 

$71 

Rundungsbyte laden 

903C 

69 

50 


ADC 

#$50 

Rundung erforderlich ? 

903E 

90 

03 


BCC 

$9043 

Nein, Skip 

9040 

20 

4F 

8 C 

JSR 

$8C4F 

Mantisse von FAC#1 um 1 erhöhen 
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****************************** Umwandlung Fließkomma in Integer 


8CC7 

A5 

63 

LDA $63 

FAC#1 = 0 ? 

8CC9 

F0 

4D 

BEQ $8D18 

Ja, Ergebnis auf 0 

8 CCB 

38 


SEC 

Exponent - Grundwert $80 • 32 

8 CCC 

E9 

AO 

SBC #$A0 

ergibt Exponentbasis 0, Zahl durch 65536 

8 CCE 

24 

68 

BIT $68 

Vorzeichen testen 

8C00 

10 

OA 

BPL $8CDC 

Uenn positiv, Skip 

8CD2 

AA 


TAX 

Neuen Exponenten retten 

8CD3 

A9 

FF 

LDA #$FF 

Überl aufkennung passend 

8C05 

80 

DF 03 

STA $03DF 

setzen 

8 CD8 

20 

2C 89 

JSR $892C 

Mantisse invertieren 

8 CDB 

8 A 


TXA 

Neuen Exponenten wieder laden 

8C0C 

A2 

63 

LDX #$63 


8 CDE 

C9 

F9 

CMP #$F9 

Neuer Exponent erfordert Änderung ? 

8CE0 

10 

07 

BPL $8CE9 

Ja, Skip 

8CE2 

20 

79 89 

JSR $8979 

FAC#1 rechtsverschieben 

8CE5 

8 C 

DF 03 

STY $03DF 

Überlaufkennung passend setzen 

8 CE8 

60 


RTS 


8CE9 

A8 


TAY 

Neuen Exponenten retten 

8 CEA 

A5 

68 

LDA $68 

Vorzeichenbyte laden 

8 CEC 

29 

80 

AND #$80 

Voryeichen isolieren 

8 CEE 

46 

64 

LSR $64 

Mantissenbyte rechtsverschieben 

8 CF0 

05 

64 

ORA $64 

Vorzeichen in Mantisse setzen 

8 CF2 

85 

64 

STA $64 

und mantissenbyte wieder setzen 

8CF4 

20 

90 89 

JSR $8990 

FAC#1 bitweise rechtsverschieben 

8CF7 

8 C 

DF 03 

STY $030F 

Überlaufkennung setzen 

8 CFA 

60 


RTS 


****************************** 

BASIC-Funktion INT 

8 CFB 

A5 

63 

LDA $63 

Exponent FAC#1 laden 

8 CFD 

C9 

AO 

Ufr #$A0 

FAC#1 ist ganze Zahl ? 

8 CFF 

BO 

20 

BCS $8021 

Ja, Ende 

8001 

20 

68 AA 

JSR $AA68 

FAC#1 in Integer 

8D04 

84 

71 

STY $71 

Rundungsbyte setzen 

8D06 

A5 

68 

LOA $68 

Vorzeichenbyte laden 

8D08 

84 

68 

STY $68 

Byte anders setzen 

800A 

49 

80 

EOR #$80 

Vorzeichen invertieren 

8D0C 

2A 


ROL 

und in C-Flag schieben 

80 0D 

A9 

AO 

LDA #$A0 

Exponent für ganze Zahl 

8D0F 

85 

63 

STA $63 

setzen 

8011 

A5 

67 

LDA $67 

Mantissenbyte laden 

8D13 

85 

09 

STA $09 

und umkopieren 

8015 

4C 

Bl 88 

JMP $88B1 

FAC#1 linksbündig machen 

8018 

85 

64 

STA $64 

Mantisse mit 0 füllen 
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****** ★*★**★★*★**★**★★******** Po lynomberGchnung 

y=aO+a1*x+a2*x A 2+a3*x~3+... 


909C 

85 

72 

STA $72 

Zeiger auf Polynomwerte 

909E 

84 

73 

STY $73 

setzen 

90A0 

20 

F9 8B 

JSR $8BF9 

FAC#1 in Akku 4 

90A3 

Bl 

72 

LDA ($72),Y 

Polynomgrad 

90A5 

85 

69 

STA $69 

setzen 

90A7 

A4 

72 

LDY $72 

Zeiger korrigieren 

90A9 

C8 


I NY 

Zeiger erhöhen 

90AA 

98 


TYA 

Übertrag ? 

90AB 

DO 

02 

BNE $90AF 

Nein, Skip 

90AD 

E6 

73 

INC $73 

Übertrag berücksichtigen 

90AF 

85 

72 

STA $72 

Low-Byte des Zeigers setzen 

90B1 

A4 

73 

LDY $73 

High-Byte in (Y) laden 

90B3 

20 

08 8A 

JSR $8A08 

FAC#1 = Konstante * FAC#1 

90B6 

A5 

72 

LDA $72 

Zeiger auf nächste Zahl setzen 

90B8 

A4 

73 

LDY $73 


90BA 

18 


CLC 


90BB 

69 

05 

ADC #$05 

durch Addition von 5 

90BD 

90 

01 

BCC $90C0 

Kein Übertrag, Skip 

90BF 

C8 


INY 

Übertrag berücksichtigen 

90C0 

85 

72 

STA $72 

Zeiger Low-Byte neu setzen 

90C2 

84 

73 

STY $73 

Zeiger High-Byte neu setzen 

90C4 

20 

12 8A 

JSR $8A12 

FAC#1=Konstante + FAC#1 Zeiger auf Akku4 

90C9 

AO 

00 

LDY #$00 

ab $005E setzen 

90CB 

C6 

69 

DEC $69 

Alle Koeffizienten abgearbeitet ? 

90CD 

DO 

E4 

BNE $90B3 

Nein, weitermachen 

90CF 

60 


RTS 



Fehlermeldung ausgeben 

90D0 

AA 


TAX 

Fehlernuimier = 0 ? 

90D1 

DO 

02 

BNE $9005 

Nein, Skip 

90D3 

A2 

IE 

LDX #$1E 

■BREAK 1 

90D5 

4C 

3C 4D 

JMP $4D3C 

Fehler ausgeben 

****************************** 

BASIC-OPEN 

9008 

20 

45 A8 

JSR $A845 

ROMs einschalten 

90DB 

20 

CO FF 

JSR $FFCO 

OPEN 

900 E 

60 


RTS 



****************************** BASIC-BSOUT 


90DF 20 69 92 JSR $9269 BSOUT 

90E2 BO EC BCS $90D0 Wenn Fehler, Fehlerroutine 
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BASIC-BASIN 


90E4 60 RTS 

★ ★★★★★★★★★★★★★★★★★Ar*********** 


90E5 

20 63 92 

JSR 

$9263 

90E8 

BO E6 

BCS 

$90D0 

90EA 

60 

RTS 



★★**★★**★****★★*★**★*★*★★★★★*★ 


90EB 

48 



PHA 


90EC 

20 

45 

A8 

JSR 

$A845 

90EF 

20 

C9 

FF 

JSR 

$FFC9 

90F2 

20 

43 

92 

JSR 

$9243 

90F5 

AA 



TAX 


90F6 

68 



PLA 


90F7 

90 

03 


BCC 

$90 FC 

90F9 

8A 



TXA 


90FA 

B0 

D4 


BCS 

$90D0 

90FC 

60 



RTS 



★ ★★★★★★★★★★★★★★•Ar************** 


90FD 

20 

45 

A8 

JSR 

$A845 

9100 

20 

C6 

FF 

JSR 

$FFC6 

9103 

20 

43 

92 

JSR 

$9243 

9106 

B0 

C8 


BCS 

$9000 

9108 

60 



RTS 



****************************** 


9109 

20 

45 

A8 

JSR 

$A845 

910C 

20 

14 

FF 

JSR 

$FFE4 

910 F 

BO 

C2 


BCS 

$9003 

9111 

60 



RTS 



****************************** 


9112 

20 

AE 

91 

JSR 

$91AE 

9115 

AE 

10 

12 

LDX 

$1210 

9118 

AC 

11 

12 

LDY 

$1211 

911B 

A9 

2D 


IDA 

#$2D 

91 ID 

20 

45 

A8 

JSR 

$A845 

9120 

20 

DO 

FF 

JSR 

$FFD8 

9123 

20 

43 

92 

JSR 

$9243 

9126 

BO 

A8 


BCS 

$90D0 

9128 

60 



RTS 



BAS IN 

Wenn Fehler, Fehlerroutine 


(A) retten 

ROMs einschalten 

CKOUT Ausgabegerät setzen 

DS$ für ungültig erklären 

Fehlercode in (X) 

(A) wieder holen 
Wenn kein Fehler, Skip 
Fehlercode wieder in (A) 
Wenn Fehler, Fehlerroutine 


ROMs einschalten 
CHKIN Eingabegerät setzen 
DS$ für ungültig erklären 
Wenn Fehler, Fehlerroutine 


ROMs einschalten 
GEHN 

Wenn Fehler, Fehlerroutine 


Parameter holen 

Zeiger auf Programmende 

laden 

Zeiger auf Programmstart in ($2D) 

ROMs einschalten 

SAVE 

DS$ für ungültig erklären 
Wenn Fehler, Fehlerroutine 


BAS IC-CKOUT 


BASIC-CHKIN 


BASIC-GETIN 


BASIC-Befehl SAVE 
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****************************** BASIC-Befehl VERIFY 


9129 A9 01 LDA #$01 Verify-Flag setzen 

912B 2C .BYTE $2C Nächsten Befehl überlesen 

****************************** BASIC*Befehl LOAD 


912C 

A9 

00 


LDA 

3 

o 

o 

912E 

85 

OC 


STA 

$oc 

9130 

20 

AE 

91 

JSR 

$91 AE 

9133 

20 

45 

A8 

JSR 

$A845 

9136 

A5 

OC 


LDA 

$0C 

9138 

A6 

2D 


LDX 

$2D 

913A 

A4 

2E 


LDY 

$2E 

913C 

20 

D5 

FF 

JSR 

$FFD5 

913F 

08 



PHP 


9140 

20 

43 

92 

JSR 

$9243 

9143 

28 



PLP 


9144 

B0 

65 


BCS 

$91 AB 

9146 

A5 

OC 


LDA 

$0C 

9148 

F0 

16 


BEQ 

$9160 

914A 

A2 

IC 


LDX 

#$1C 

914C 

20 

51 

92 

JSR 

$9251 

914F 

29 

10 


AND 

#$10 

9151 

DO 

16 


BNE 

$9169 

9153 

24 

7F 


BIT 

$7F 

9155 

30 

08 


BMI 

$915F 

9157 

20 

81 

92 

JSR 

$9281 


Load-Flag setzen 

und speichern 

Parameter holen 

ROMs einschalten 

Load/Verify-Flag 

Zeiger auf Programmstart 

laden 

LOAD 

Status retten 

DS$ für ungültig erklären 

Fehler ? 

Ja, zur Fehlerroutine 
LOAD ? 

Ja, Skip 

Nummer für ‘VERIFY ERROR' 
Status holen 
Fehlerbit gesetzt ? 

Ja, Fehlerausgabe 
Direktmodus ? 

Nein, Skip 
Text ausgeben 


****************************** Textkonstante (CR) 'OK' (CR) 


915A 0D 4F 4B 0D 00 (CR) 'OK' (CR) 

****************************** 


915F 

60 



RTS 


9160 

20 

51 

92 

JSR 

$9251 

9163 

29 

BF 


AND 

#$BF 

9165 

F0 

05 


BEQ 

$916C 

9167 

A2 

ID 


LDX 

#$1D 

9169 

4C 

3C 

4D 

JMP 

$4D3C 

916C 

8E 

10 

12 

STX 

$1210 

916F 

8C 

11 

12 

STY 

$1211 

9172 

24 

7F 


BIT 

$7F 

9174 

30 

OE 


BMI 

$9184 

9176 

70 

E7 


BVS 

$915F 

9178 

20 

2A 

4D 

JSR 

$4D2A 


Status holen 
Fehlerfrei ? 

Ja, Skip 
'LOAD 1 

Fehlerausgabe 

Neues Programmende setzen 

Direktmodus ? 

Nein, Skip 

Overlay berücksichtigen 
'READY.' ausgeben 
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917B 

20 

4 F 

4F 

JSR 

$4F4F 

917E 

20 

F3 

51 

JSR 

$51F3 

9181 

4C 

C3 

4D 

JMP 

$4DC3 

9184 

20 

54 

52 

JSR 

$5254 

9187 

20 

4F 

4F 

JSR 

$4F4F 

918A 

4C 

35 

52 

JMP 

$5235 

****************************** 

918D 

20 

F6 

91 

JSR 

$91 F6 

9190 

18 



CLC 


9191 

20 

08 

90 

JSR 

$90D8 

9194 

20 

43 

92 

JSR 

$9243 

9197 

B0 

12 


BCS 

$91 AB 

9199 

60 



RTS 


****************************** 

919A 

20 

F6 

91 

JSR 

$91F6 

9190 

20 

45 

A8 

JSR 

$A845 

91AO 

A5 

4B 


LDA 

$4B 

91A2 

18 



CLC 


91 A3 

20 

75 

92 

JSR 

$9275 

91A6 

20 

43 

92 

JSR 

$9243 

91A9 

90 

B4 


BCC 

$915F 

91AB 

4C 

DO 

90 

JMP 

$90D0 

****************************** 

91 AE 

A9 

00 


LDA 

#$00 

91B0 

20 

5D 

92 

JSR 

$925D 

91B3 

A2 

01 


LDX 

#$01 

91B5 

A0 

00 


LDY 

#$00 

9187 

20 

57 

92 

JSR 

$9257 

9 IBA 

20 

87 

92 

JSR 

$9287 

91BD 

v20 

E3 

91 

JSR 

$91E3 

91 CO 

20 

39 

92 

JSR 

$9239 

91C3 

20 

E3 

91 

JSR 

$91E3 

91C6 

20 

DD 

91 

JSR 

$91 DD 

91C9 

A0 

00 


LDY 

#$00 

91CB 

86 

4B 


STX 

$4B 

91CD 

20 

57 

92 

JSR 

$9257 

9100 

20 

E3 

91 

JSR 

$91E3 

91D3 

20 

DD 

91 

JSR 

$91 DD 

91D6 

8A 



TXA 


91D7 

A8 



TAY 


9108 

A6 

4B 


LDX 

$4B 


Verkettung korrigieren 
PC auf Programmstart, CLR 
Zurück zum BASIC 
PC auf Programmstart 
Verkettung korrigieren 
RESTORE, BASIC initialisieren 

BASIC-Befehl OPEN 

Parameter holen 

OPEN 

DS$ für ungültig erklären 
Uenn Fehler, Fehlerroutine 


BASIC-Befehl CLOSE 

Parameter holen 
ROMs einschalten 
Filenummer 

CLOSE 

DS$ für ungültig erklären 
Uenn kein Fehler, Ende 
Fehlerausuertung 

Parameter für LOAD/SAVE holen 

Länge des Filnamens = 0 
Filenamenparameter vorsetzen 
Gerätenummer = 1 
Sekundäradresse = 0 
Fileparameter vorbesetzen 
Bank setzen 

Auf weitere Zeichen testen 
Filenamen auswerten 
Auf weitere Zeichen testen 
Gerätenummer holen 
Sekundäradresse auf 0 
Geräteadresse setzen 
Fileparameter setzen 
Auf weiter Zeichen testen 
Sekundäradresse holen 
(X) in (Y) bringen 

Geräteadresse laden 
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91DA 

4C 57 92 

JMP $9257 

Filparameter setzen 

****************************** 

Byte-Uert nach Komma holen 

91DD 

20 EB 91 

JSR $91EB 

Auf Komma und weitere Zeichen prüfen 

91E0 

4C F4 87 

JMP $87F4 

Byte-Wert holen 

****************************** 

Auf weitere Zeichen testen 

91E3 

20 86 03 

JSR $0386 

CHRGOT 

91E6 

DO 02 

BNE $91EA 

Wenn gültiges Zeichen, Skip 

91E8 

68 

PLA 

Rückkehr zur übergeordneten 

91E9 

68 

PLA 

Routine 

91EA 

60 

RTS 


****************************** 

Test auf Komma und weitere Zeichen 

91EB 

20 5C 79 

JSR $795C 

Test auf Komma 

91EE 

20 86 03 

JSR $0386 

CHRGOT 

91 Fl 

DO F7 

BNE $91EA 

Wenn gültig, RTS 

91 F3 

4C 6C 79 

JMP $796C 

•SYNTAX* 

****************************** 

Parameter für OPEN/CLOSE holen 

91F6 

A9 00 

LDA #$00 

Länge des Filenamens = 0 

91 F8 

A2 01 

LDX #$01 

Bank 1 für Dateinamen 

91 FA 

20 87 92 

JSR $9287 

SETBNK Bank setzen 

91 FD 

20 5D 92 

JSR $925D 

Filenamenparameter setzen 

9200 

20 EE 91 

JSR $91EE 

Auf weitere Zeichen prüfen 

9203 

20 F4 87 

JSR $87F4 

Filenummer in (X) 

9206 

86 4B 

STX $4B 

Filenummer speichern 

9208 

8A 

TXA 

Filenummer in (A) 

9209 

A2 01 

LDX #$01 

Geräteadresse auf 1 

920B 

AO 00 

LDY #$00 

Sekundäradresse auf 0 

920D 

20 57 92 

JSR $9257 

Fileparameter setzen 

9210 

20 E3 91 

JSR $91E3 

Auf weitere Zeichen prüfen 

9213 

20 DD 91 

JSR $91DD 

Geräteadresse holen 

9216 

86 4C 

STX $4C 

und speichern 

9218 

AO 00 

LDY #$00 

Sekundäradresse auf 0 

921A 

A5 4B 

LDA $4B 

Filenummer 

921C 

EO 03 

CPX #$03 

< 3 ? 

92 IE 

90 01 

BCC $9221 

Nein, Skip 

9220 

88 

DEY 

Sekundäradresse auf 255 

9221 

20 57 92 

JSR $9257 

Fileparameter setzen 

9224 

20 E3 91 

JSR $91E3 

Auf weiter Zeichen prüfen 

9227 

20 DD 91 

JSR $91DD 

Sekundäradresse holen 

922A 

8A 

TXA 

(X) und (Y) 

922B 

A8 

TAY 

vertauschen 
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922C 

A6 4C 

LDX $4C 

Geräteadresse 

922E 

A5 4B 

LDA $4B 

Fi lenummer 

9230 

20 57 92 

JSR $9257 

Fileparameter setzen 

9233 

20 E3 91 

JSR $91E3 

Auf weitere Zeichen prüfen 

9236 

20 EB 91 

JSR $91EB 

Auf Komma und weitere Zeichen prüfen 

9239 

20 7B 87 

JSR $877B 

Stringausdruck auswerten und Parameter 

holen 




923C 

A6 24 

LDX $24 

Adresse des Filenamens 

923E 

A4 25 

LOY $25 

laden 

9240 

4C 5D 92 

JMP $9250 

Filenamenparameter setzen 

****************************** 

DS$ falls nötig für ungültig erklären 

9243 

08 

PHP 

Status retten 

9244 

48 

PHA 

(A) retten 

9245 

A5 BA 

LDA $BA 

Geräteadresse 

9247 

C9 04 

CMP #$04 

< 4 ? 

9249 

90 03 

BCC $924E 

Ja, Skip 

9248 

20 00 A8 

JSR $A80D 

DS$ für ungültig erklären 

924E 

68 

PLA 

(A) wieder laden 

924 F 

28 

PLP 

Status laden 

9250 

60 

RTS 


****************************** 

BASIC-Status holen 

9251 

20 45 A8 

JSR $A845 

ROMs einschalten 

9254 

4C B7 FF 

JHP $FFB7 

READST Status lesen 

****************************** 

BASIC-Fi leparameter setzen 

9257 

20 45 A8 

JSR $A845 

ROMs einschalten 

925A 

4C BA FF 

JMP $FFBA 

SETLFS Fileparameter setzen 

****************************** 

BASIC-Fi lenamenparameter setzen 

925D 

20 45 A8 

JSR $A845 

ROMs einschalten 

9260 

4C BD FF 

JMP $FFBD 

SETNAM Filenamenparameter setzen 

****************************** 

BASIC-BASIN (entspricht INPUT) 

9263 

20 45 A8 

JSR $A845 

ROMs einschalten 

9266 

4C CF FF 

JMP $FFCF 

BAS IN 

****************************** 

BASIC-BSOUT Zeichenausgabe 

9269 

20 45 A8 

JSR $A845 

ROMs einschalten 

926C 

4C D2 FF 

JMP $FFD2 

BSOUT Zeichenausgabe 
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****************************** BASIC-CLRCH I/O rücksetzen 

926F 20 45 A8 JSR $A845 ROMs einschalten 

9272 4C CC FF JMP $FFCC CLRCH 

****************************** BASIC-CLOSE 


9275 20 45 A8 JSR $A845 ROMs einschalten 

9278 4C C3 FF JMP $FFC3 CLOSE 

****************************** BASIC-CLALL 

927B 20 45 A8 JSR $A845 ROMs einschalten 

927E 4C E7 FF JMP $FFE7 CLALL 

****************************** BASIC-PRIMM Textausgabe 

9281 20 45 A8 JSR SA845 ROMs einschalten 

9284 4C 7D FF JMP $FF7D PRIMM 

****************************** BAS1C-SETBNK Bank für I/O-Operationen 
setzen 

9287 20 45 A8 JSR $A845 ROMs einschalten 

928A 4C 68 FF JMP $FF68 SETBNK 

****************************** BASIC-PLOT Cursor setzen 

928D 80 03 FF STA $FF03 Urite in Bank 0 setzen 

9290 4C FO FF JMP $FFF0 PLOT 

****************************** BASIC-STOP Test auf STOP-Taste 

9293 20 45 A8 JSR $A845 ROMs einschalten 

9296 4C El FF JMP $FFE1 STOP 


****************************** platz für String in Stringbereich 

reservieren, Länge in (A) 


9299 

46 11 

LSR $11 

Garbage-Collection-Flag löschen 

929B 

AA 

TAX 

Länge = 0 ? 

929C 

FO 3B 

BEQ $9209 

Ja, Ende 

929E 

48 

PHA 

Stringlänge retten 

929F 

A5 35 

LOA $35 

Stringspeicherstart 

92A1 

38 

SEC 


92A2 

E9 02 

SBC #$02 

- 2 Bytes für Deskriptorpointer 

92A4 

A4 36 

LDY $36 


92A6 

BO 01 

BCS $92A9 

Kein Übertrag, Skip 
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92A8 

88 


DEY 

Übertrag berücksichtigen 

92A9 

85 

24 

STA $24 

= Ende des neuen Strings 

92AB 

84 

25 

STY $25 


92AD 

8A 


TXA 

Stringlänge wieder laden 

92AE 

49 

FF 

EOR #$FF 

Wert negieren 

92B0 

38 


SEC 

durch Zweierkomplementbildung 

92B1 

65 

24 

ADC $24 

von String länge subtrahieren 

92B3 

BO 

01 

BCS $9286 

Kein Übertrag, Skip 

92B5 

88 


DEY 

High-Byte anpassen 

92B6 

C4 

34 

CPY $34 

Kleiner als Variablenspeicherende ? 

92B8 

90 

20 

BCC $92DA 

Ja, Garbage-Collection 

92BA 

DO 

04 

BNE $92C0 

Nein, Skip 

92BC 

C5 

33 

CMP $33 

Kleiner als variablenspeicherende ? 

92BE 

90 

1A 

BCC $92DA 

Ja, Garbage-Collection 

92C0 

85 

37 

STA $37 

Start des neuen Strings 

92C2 

84 

38 

STY $38 

setzen 

92C4 

AO 

01 

LOY #$01 

Offset auf zweites Trailerbyte 

92C6 

A9 

FF 

LDA #$FF 

Trailerwert für ungültigen String 

92C8 

80 

04 FF 

STA $FF04 

Urite in Bank 1 setzen 

92CB 

91 

24 

STA ($24),Y 

Trailer auf ungültig setzen 

92CD 

88 


DEY 

Offset auf erstes Trailerbyte setzen 

92CE 

68 


PLA 

Stringlänge wieder holen 

92CF 

91 

24 

STA ($24),Y 

und Trailer setzen 

92D1 

A6 

37 

LDX $37 

Adresse des neuen Strings 

92D3 

A4 

38 

LDY $38 

laden 

92D5 

86 

35 

STX $35 

Neuen Stringspeicherstart 

92D7 

84 

36 

STY $36 

setzen 

9209 

60 


RTS 


92DA 

A5 

11 

LDA $11 

Garbage-Collection schon durchgeführt ? 

92DC 

30 

09 

BMI $92E7 

Ja, Fehler 

920 E 

20 

EA 92 

JSR $92EA 

Garbage-Collection ausführen 

92E1 

38 


SEC 

Bit 7 im 

92E2 

66 

11 

ROR $11 

Flag setzen 

92E4 

68 


PLA 


92E5 

DO 

B4 

BNE $929B 

Und zurück zum Aufruf 

92E7 

4C 

3A 4D 

JMP $4D3A 

•OUT OF MEMORY' 

***** l 

kr * * * l 

****** * i 


' Garbage-Collection 

92EA 

A6 

18 

LDX $18 

Stringstackpointer laden 

92EC 

EO 

1B 

CPX #$1B 

Stringstack leer ? 

92EE 

FO 

13 

BEQ $9303 

Ja, Skip 

92F0 

20 

FO 93 

JSR $93FO 

Deskriptorwerte aus Stringstack holen 

92F3 

FO 

F7 

BEQ $92EC 

Uenn Länge = 0, weitertesten 

92 F 5 

8A 


TXA 

Stringstackpointer in (A) 

92F6 

AO 

00 

LDY #$00 

Offset auf 0 setzen 

92F8 

80 

04 FF 

STA $FF04 

Write in Bank 1 setzen 
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92FB 

91 

5E 


STA 

($5E),Y 

Trailer auf Stringstack setzen 

92 FD 

98 



TYA 


(A)=0 

92 FE 

C8 



INY 


Offset erhöhen 

92FF 

91 

5E 


STA 

($5E),Y 

High-Byte des Trailers auf 0 setzen 

9301 

DO 

E9 


BNE 

$92EC 

Weitertesten 

9303 

AO 

00 


LDY 

#$00 


9305 

84 

5A 


STY 

$5A 

Flag für ungültigen String löschen 

9307 

A6 39 


LDX 

$39 

Stringspeicherendezei ger 

9309 

A4 

3A 


LDY 

$3A 

laden und 

930B 

86 61 


STX 

$61 

als Zielzeiger ($61) 

930D 

86 

50 


STX 

$50 

als Quellzeiger ($50) 

930 F 

86 

37 


STX 

$37 

und Movezeiger ($37) 

9311 

84 

62 


STY 

$62 

setzen 

9313 

84 

51 


STY 

$51 


9315 

84 

38 


STY 

$38 


9317 

8A 



TXA 


High-Byte der Adresse in (A) 

9318 

20 

83 

93 

JSR 

$9383 

Nächsten String testen 

931B 

DO 

oc 


BNE 

$9329 

Uenn String gültig, Skip 

93 ID 

88 



DEY 


Offset erniedrigen 

931E 

20 

FB 

42 

JSR 

$42FB 

1. Trailerbyte (Stringlänge) laden 

9321 

20 

D2 

93 

JSR 

$93D2 

Länge von Quellzeiger abziehen 

9324 

38 



SEC 


Bit 7 im Flag 

9325 

66 

5A 


ROR 

$5A 

setzen 

9327 

DO 

EF 


BNE 

$9318 

Weiter testen 

9329 

24 

5A 


BIT 

$5A 

Ungültiger String gefunden ? 

932B 

10 

42 


BPL 

$936F 

Nein, Skip 

932D 

A2 

00 


LDX 

#$00 

Flag wieder löschen 

932F 

86 

5A 


STX 

$5A 


9331 

A9 

02 


LDA 

#$02 

??? 

9333 

AO 

01 


LDY 

#$01 

Trailer an Zielposition verschieben 

9335 

20 

FB 

42 

JSR 

$42FB 

LDA ($50),Y Bank 1 

9338 

91 

61 


STA 

($61),Y 

Trailerbyte setzen 

933A 

88 



DEY 


Offset erniedrigen 

933B 

20 

FB 

42 

JSR 

$42FB 

Trailerbyte laden 

933E 

91 

61 


STA 

($61),Y 

und setzen 

9340 

20 

B7 

03 

JSR 

$03B7 

Länge aus Deskriptor laden 

9343 

AA 



TAX 


und retten 

9344 

20 

El 

93 

JSR 

$93E1 

Länge von Zielzeiger abziehen 

9347 

85 

37 


STA 

$37 

und als Movepointer setzen 

9349 

84 

38 


STY 

$38 


934 B 

8A 



TXA 


Länge wieder holen 

934C 

20 

D2 

93 

JSR 

$93D2 

und von Quellzeiger abziehen 

934 F 

8A 



TXA 


Länge in (Y) bringen 

9350 

A8 



TAY 



9351 

88 



DEY 


String byteweise übertragen 

9352 

20 

FB 

42 

JSR 

$42 FB 

Stringbyte laden 
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9355 

91 

61 


STA 

($61) ,Y 

und kopieren 

9357 

CA 



DEX 


Alle Bytes kopiert ? 

9358 

00 

F7 


BNE 

$9351 

Nein, nochmal 

935A 

A0 

02 


LDY 

#$02 

Offset laden 

935C 

B9 

60 

00 

LDA 

$0060,Y 

Deskriptor laden 

935 F 

91 

24 


STA 

($24),Y 

und neuen Deskriptor setzen 

9361 

88 



DEY 


Deskriptor kopiert ? 

9362 

DO 

F8 


BNE 

$935C 

Nein, nochmal 

9364 

A5 

50 


LDA 

$50 

Quellzeiger laden 

9366 

A4 

51 


LDY 

$51 


9368 

20 

83 

93 

JSR 

$9383 

Ungültiger String erreicht ? 

936B 

FO 

BO 


BEQ 

$93 ID 

Ja, Zeiger korrigieren 

936D 

DO 

C4 


BNE 

$9333 

Nein, weiterkopieren 

936F 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

9371 

20 

B7 

03 

JSR 

$0387 

Stringlänge holen 

9374 

AA 



TAX 


und in (X) retten 

9375 

20 

El 

93 

JSR 

$93E1 

Von Zielzeiger abziehen 

9378 

85 

37 


STA 

$37 

und als neue Untergrenze 

93 7A 

84 

38 


STY 

$38 

setzen 

93 7C 

8A 



TXA 


Länge 

93 7D 

20 

D2 

93 

JSR 

$93D2 

von Quellzeiger abziehen 

9380 

4C 

18 

93 

JMP 

$9318 

und weiterschleifen 

****************************** 

String übernehmen falls moglii 

9383 

C4 

36 


CPY 

$36 

(A)/(Y) < Stringspeicherstart 

9385 

90 

2A 


BCC 

$93B1 

Ja, Stringstack testen 

9387 

DO 

06 


BNE 

$938F 

Nein, Skip 

9389 

C5 

35 


CMP 

$35 

(A)/(Y) < Stringspeicherstart 

938B 

FO 

24 


BEQ 

$9381 

Ja, Stringstack testen 

9380 

90 

22 


BCC 

$93B1 

Ja, Stringstack testen 

938F 

24 

5A 


BIT 

$5A 

Flag gesetzt ? 

9391 

30 

05 


BMI 

$9398 

Ja, Skip 

9393 

A9 

02 


LDA 

#$02 


9395 

20 

El 

93 

JSR 

$93E1 

Zielzeiger um 2 erniedrigen 

9398 

A9 

02 


LDA 

#$02 


939A 

20 

D2 

93 

JSR 

$9302 

Quellzeiger um 2 erniedrigen 

9390 

AO 

01 


LDY 

#$01 

Offset laden 

939F 

20 

FB 

42 

JSR 

$42 FB 

2. Trailerbyte laden 

93A2 

C9 

FF 


CMP 

#$FF 

String ungültig ? 

93A4 

DO 

01 


BNE 

$93A7 

Nein, Skip 

93A6 

60 



RTS 



93A7 

20 

FB 

42 

JSR 

$42FB 

Trailerbyte laden 

93AA 

99 

24 

00 

STA 

$0024,Y 

und in Hilfszeiger schreiben 

93AD 

88 



DEY 


Trailer kopiert ? 

93AE 

10 

F7 


BPL 

$93A7 

Nein, nochmal 
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93B0 

60 


RTS 


93B1 

A6 

18 

LDX $18 

Stringstackpointer laden 

93B3 

E0 

1B 

CPX #$1B 

Stringstack leer ? 

93B5 

FO 

10 

BEQ $93C7 

Ja, Ende 

93B7 

20 

FO 93 

JSR $93FO 

Deskriptordaten aus Stringstack holen 

93BA 

FO 

F7 

BEQ $93B3 

Uenn Länge = 0, weitertesten 

93BC 

AO 

00 

LDY #$00 

Offset auf 0 setzen 

93BE 

91 

5E 

STA ($5E),Y 

1. Trailerbyte auf 0 

93C0 

C8 


INY 

Offset erhöhen 

93C1 

A9 

FF 

LDA #$FF 

2. Trailerbyte auf $FF 

93C3 

91 

5E 

STA ($5E),Y 

= String ungültig 

93C5 

DO 

EC 

BNE $93B3 

Weiter testen 

93C7 

68 


PLA 

Rücksprungadresse vom Stapel 

93C8 

68 


PLA 

löschen 

93C9 

A5 

37 

LDA $37 

Hilfszeiger laden 

93CB 

A4 

38 

LDY $38 

und 

93 CD 

85 

35 

STA $35 

Stringspeicherstart neu 

93CF 

84 

36 

STY $36 

setzen 

93D1 

60 


RTS 



Quellzeiger um (A) erniedrigen 

93D2 

49 

FF 

EOR #$FF 

Zweierkomplement bilden 

93D4 

38 


SEC 


93D5 

65 

50 

ADC $50 

und damit (A) abziehen 

93D7 

A4 

51 

LDY $51 

High-Byte laden 

93D9 

BO 

01 

BCS $93DC 

Kein Übertrag, Skip 

93DB 

88 


DEY 

Übertrag berücksichtigen 

93DC 

85 

50 

STA $50 

Quellzeiger neu setzen 

93DE 

84 

51 

STY $51 


93E0 

60 


RTS 



Zielzeiger um (A) erniedrigen 

93E1 

49 

FF 

EOR #$FF 

Zweierkomplement 

93E3 

38 


SEC 


93E4 

65 

61 

ADC $61 

und damit (A) abziehen 

93E6 

A4 

62 

LDY $62 

High-Byte laden 

93E8 

BO 

01 

BCS $93EB 

Kein Übertrag, Skip 

93EA 

88 


DEY 

Übertrag berücksichtigen 

93EB 

85 

61 

STA $61 

Zielzeiger neu setzen 

93ED 

84 

62 

STY $62 


93EF 

60 


RTS 




Das BASIC-ROM 


633 


****************************** Deskriptorwerte aus Stringstack holen 


93F0 

CA 



DEX 


Offset erniedrigen 

93F1 

B5 

00 


LDA 

$00,X 

Adresse High setzen 

93F3 

85 

5F 


STA 

$5F 


93F5 

CA 



DEX 


Offset erniedrigen 

93F6 

B5 

00 


LDA 

$00, X 

Adresse Low setzen 

93 F8 

85 

5E 


STA 

$5E 


93 FA 

CA 



DEX 


Offset erniedrigen 

93 FB 

B5 

00 


LDA 

$00, X 

Länge holen 

93FD 

48 



PHA 


und retten 

93FE 

18 



CLC 



93FF 

65 

5E 


ADC 

$5E 

Länge auf Hilfszeiger 

9401 

85 

5E 


STA 

$5E 

aufaddieren 

9403 

90 

02 


BCC 

$9407 

Kein Übertrag, Skip 

9405 

E6 

5F 


INC 

$5F 

Übetrag berücksichtigen 

9407 

68 



PLA 


Länge holen 

9408 

60 



RTS 



****************************** 

BASIC-Funktion COS 

9409 

A9 

85 


LDA 

#$85 

Zeiger auf Konstante PI/2 

940B 

A0 

94 


LDY 

#$94 

ab $9485 setzen 

9400 

20 

12 

8A 

JSR 

$8A12 

FAC#1 = Konstante + FAC#1 

****************************** 

BASIC-Funktion SIN 

9410 

20 

38 

8C 

JSR 

$8C38 

FAC#2 = FAC#1 mit Rundung 

9413 

A9 

8A 


LDA 

#$8A 

Zeiger auf Konstante PI*2 

9415 

AO 

94 


LDY 

#$94 

ab $948A setzen 

9417 

A6 

6F 


LDX 

$6F 

FAC#2 Vorzeichen 

9419 

20 

41 

8B 

JSR 

$01341 

FAC#1 = FAC#1 / Konstante 

94 IC 

20 

38 

8C 

JSR 

$8C38 

FAC#2 = FAC#1 mit Rundung 

941F 

20 

FB 

8C 

JSR 

$8CFB 

INT-Funktion 

9422 

A9 

00 


LDA 

ü 

o 

o 


9424 

85 

70 


STA 

$70 


9426 

20 

31 

88 

JSR 

$8831 

FAC#1 = FAC#2 - FAC#1 

9429 

A9 

8F 


LDA 

#$8F 

Zeiger auf Konstante 0.25 

942B 

AO 

94 


LDY 

#$94 

ab $948F setzen 

942D 

20 

18 

8A 

JSR 

$8A18 

FAC#1 = Konstante - FAC#1 

9430 

A5 

68 


LDA 

$68 

FAC#1 Vorzeichen 

9432 

48 



PHA 


auf Stack 

9433 

10 

OD 


BPL 

$9442 

Wenn positiv, Skip 

9435 

20 

OE 

8A 

JSR 

$8A0E 

FAC#1 = FAC#1 + 0.5 

9438 

A5 

68 


LDA 

$68 

FAC#1 negativ ? 

943A 

30 

09 


BMI 

$9445 

Ja, Skip 

943C 

A5 

14 


LDA 

$14 


943E 

49 

FF 


EOR 

#$FF 

Flag invertieren 
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9440 

85 

14 


STA 

$14 


9442 

20 

FA 

8F 

JSR 

$8FFA 

FAC#1 Vorzeichenwechsel 

9445 

A9 

8F 


LDA 

#$8F 

Zeiger auf Konstante 0.25 

9447 

A0 

94 


LOY 

#$94 

ab $948F setzen 

9449 

20 

12 

8A 

JSR 

$8A12 

FAC#1 = FAC#1 + 0.25 

944C 

68 



PLA 


Altes Vorzeichen holen 

944D 

10 

03 


BPL 

$9452 

Wenn positiv, Skip 

944 F 

20 

FA 

8F 

JSR 

$8FFA 

FAC#1 Vorzeichenwechsel 

9452 

A9 

94 


LDA 

#$94 

Zeiger auf Polynomkoeffizienten 

9454 

AO 

94 


LOY 

#$94 

ab $9494 setzen 

9456 

4C 

86 

90 

JMP 

$9086 

Zur Polynomberechnung 

****************************** 

BASIC-Funktion TAN 

9459 

20 

FC 

8B 

JSR 

$8BFC 

FAC#1 in Akku 3 

945C 

A9 

00 


LDA 

#$00 

Flag löschen 

945E 

85 

14 


STA 

$14 


9460 

20 

10 

94 

JSR 

$9410 

SIN-Funktion 

9463 

A2 

50 


LDX 

#$50 

Zeiger auf Hilfsakku 

9465 

AO 

00 


LDY 

#$00 

ab $0050 setzen 

9467 

20 

00 

8C 

JSR 

$8C00 

FAC#1 in Hilfsakku mit Rundung 

946A 

A9 

59 


LDA 

#$59 

Zeiger auf Akku 3 

946C 

AO 

00 


LDY 

#$00 

ab $0059 setzen 

946E 

20 

D4 

8B 

JSR 

$8BD4 

FAC#1 = Konstante 

9471 

A9 

00 


LDA 

#$00 

FAC#1 Vorzeichen löschen 

9473 

85 

68 


STA 

$68 


9475 

A5 

14 


LDA 

$14 

Flag holen 

9477 

20 

81 

94 

JSR 

$9481 

COS berechnen 

94 7A 

A9 

50 


LDA 

#$50 

Zeiger auf Hilfsakku 

947C 

AO 

00 


LDY 

#$00 

ab $0050 setzen 

94 7E 

4C 

49 

8B 

JMP 

$8B49 

FAC#1 = Konstante / FAC#1 

9481 

48 



PHA 


Flag auf Stack 

9482 

4C 

42 

94 

JMP 

$9442 

Zur COS-Funktion 

****************************** 

Konstanten für SIN/COS/TAN 

9485 

81 

49 

OF 

DA A2 


1.57079633 PI/2 

948A 

83 

49 

OF 

DA A2 


6.28318531 PI*2 

948 F 

7F 

00 

00 

00 00 


0.25 

9494 

05 





5 = Polynomgrad, 6 Koeffizienten 

9495 

84 

E6 

1A 

2D 1B 


-14.3813907 

949A 

86 

28 

07 

FB F8 


42.0077971 

949F 

87 99 

68 

89 01 


-76.7041703 

94 A4 

87 

23 

35 

DF El 


81.6052237 

94A9 

86 

A5 

5D 

E7 28 


-41.3147021 

94AE 

83 

49 

OF 

DA A2 


6.28318531 PI*2 
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****************************** BASIC-Funktion ATN 


94 B3 

A5 

68 


LDA 

$68 

FAC#1 Vorzeichen retten 

94B5 

48 



PHA 



94 B6 

10 

03 


BPL 

$94 BB 

Wenn positiv, Skip 

94 B8 

20 

FA 

8F 

JSR 

$8FFA 

FAC#1 Vorzeichenwechsel 

94BB 

A5 

63 


LDA 

$63 

FAC#1 Exponent retten 

94 BD 

48 



PHA 



94BE 

C9 

81 


CHP 

#$81 

Vergleich mit 1 

94C0 

90 

07 


BCC 

$94C9 

Uenn kleiner, Skip 

94C2 

A9 

9C 


LDA 

#$9C 

Zeiger auf Konstante 1 

94C4 

A0 

89 


LDY 

#$89 

ab $899C setzen 

94C6 

20 

IE 

8A 

JSR 

$8A1E 

FAC#1 durch 1 dividieren = Kehrwert 

94 C9 

A9 

E3 


LDA 

#$E3 

Zeiger auf Polynomkoeffizienten 

94CB 

AO 

94 


LDY 

#$94 

ab $94E3 setzen 

94 CD 

20 

86 

90 

JSR 

$9086 

Zur Polynomberechnung 

94D0 

68 



PLA 


Exponent wieder holen 

94D1 

C9 

81 


CMP 

#$81 

Alte Zahl < 1 ? 

94D3 

90 

07 


BCC 

$94 DC 

Ja, Skip 

94D5 

A9 

85 


LDA 

#$85 

Zeiger auf Konstante PI/2 

94D7 

AO 

94 


LDY 

#$94 

ab $9485 setzen 

94D9 

20 

18 

8A 

JSR 

$8A18 

FAC#1 = Konstante - FAC#1 

94DC 

68 



PLA 


Altes Vorzeichen holen 

94DD 

10 

03 


BPL 

$94E2 

Uenn positiv, Ende 

94DF 

4C 

FA 

8F 

JHP 

$8FFA 

FAC#1 Vorzeichenwechsel 

94E2 

60 



RTS 



****************************** 

Konstanten für ATN 

94E3 

OB 





11 = Polynomgrad, 12 Koeffizienten 

94E4 

76 

B3 

83 

BD D3 


-6.84793912E•04 

94E9 

79 

IE 

F4 

A6 F5 


4.85094216E-03 

94EE 

7B 

83 

FC 

BO 10 


-.0161117015 

94 F3 

7C 

oc 

1F 

67 CA 


.034209638 

94 F8 

7C 

DE 

53 

CB CI 


-.054279133 

94 FD 

7D 

14 

64 

70 4C 


.0724571965 

9502 

7D 

B7 

EA 

51 7A 


-.0898019185 

9507 

7D 

63 

30 

88 7E 


.110932413 

950C 

7E 

92 

44 

99 3A 


-.142839808 

9511 

7E 

4C 

CC 

91 C7 


.19999912 

9516 

7F 

AA 

AA 

AA 13 


-.333333316 

951B 

81 

00 

00 

00 00 


1 

****************************** 

BASIC-Befehl PRINT USING 

9520 

A2 

FF 


LDX 

#$FF 

Zeiger auf Feldbeginn löschen 

9522 

8E 

36 

01 

STX 

$0136 


9525 

20 

80 

03 

JSR 

$0380 

CHRGET 



636 


128 Intern 


9528 

20 

EF 

77 

JSR $77EF 

FRMEVL Ausdruck auswerten 

952B 

20 

DO 

77 

JSR $7700 

Auf String testen 

952E 

A5 

66 


LDA $66 

Deskriptoradresse retten 

9530 

48 



PHA 


9531 

A5 

67 


LDA $67 


9533 

48 



PHA 


9534 

A0 

02 


LOY #$02 

Offset laden 

9536 

20 

E7 42 

JSR $42E7 

Deskriptor in Hilfszeiger übertragen 

9539 

88 



DEY 

Offset erniedrigen 

953A 

99 

3F 

00 

STA $003F,Y 

Hilfszeiger setzen 

9530 

DO 

F7 


BNE $9536 

Offset noch nicht 0, nochmal 

953F 

20 

E7 

42 

JSR $42E7 

Länge des Formatstrings holen 

9542 

80 

35 

01 

STA $0135 

und setzen 

9545 

A8 



TAY 

Länge = 0 ? 

9546 

FO 

OB 


BEQ $9553 

Ja, Fehler 

9548 

88 



DEY 

Länge als Offset erniedrigen 

9549 

20 

D3 

42 

JSR $42D3 

Zeichen aus String holen 

954C 

C9 

23 


CMP #$23 

Ein '#' vorhanden ? 

954E 

FO 

06 


BEQ $9556 

Ja, Skip 

9550 

98 



TYA 

Stringanfang erreicht ? 

9551 

DO 

F5 


BNE $9548 

Nein, weitersuchen 

9553 

4C 

6C 

79 

JMP $796C 

■SYNTAX' 

9556 

A9 

3B 


LDA #$3B 

1 > 1 
t 

9558 

20 

5E 

79 

JSR $795E 

Prüft auf Code 

955B 

84 

77 


STY $77 

Ausgabeflag löschen, (Y) = 0 ! 

9550 

8C 

23 

01 

STY $0123 

Anfangszeiger auf 0 

9560 

20 

EF 

77 

JSR $77EF 

FRMEVL Ausdruck auswerten 

9563 

24 

OF 


BIT $0F 

Numerisch ? 

9565 

10 

39 


BPL $95A0 

Ja, Skip 

9567 

20 

9F 

97 

JSR $979F 

Zeiger vorbesetzen 

956A 

20 

F 2 

98 

JSR $98F2 

Zeichenausgabe und Syntaxprüfung 

956D 

AE 

2B 

01 

LDX $012B 

Flag für Ausrichtung gesetzt ? 

9570 

FO 

15 


BEQ $9587 

Nein, Skip 

9572 

A2 

00 


LDX #$00 

Ausrichtung mit 0 vorbesetzen 

9574 

38 



SEC 


9575 

AD 

31 

01 

LDA $0131 

Feldlänge 

9578 

E5 

78 


SBC $78 

- Stringlänge 

957A 

90 

OB 


BCC $9587 

Wenn kein Platz zum Ausrichten, Skip 

957C 

A2 

30 


LDX #$3D 

'=■ ? (Zentrieren) 

95 7E 

EC 

2B 

01 

CPX $012B 


9581 

00 

03 


BNE $9586 

Nein, Skip 

9583 

4A 



LSR 

Ausrichtungwert halbieren 

9584 

69 

00 


ADC #$00 

Und ungeraden Wert berücksichtigen 

9586 

AA 



TAX 

Ausrichtungswert setzen 

9587 

AO 

00 


LDY #$00 

Offset auf Start 

9589 

8A 



TXA 

Ausrichtung ? 

958A 

FO 

05 


BEQ $9591 

Nein, Skip 

958C 

CA 



DEX 

Zähler dekrementieren 
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958D 

A9 

20 


LDA 

#$20 

und Space 

958F 

DO 

08 


BNE 

$9599 

ausgeben 

9591 

C4 

78 


CPY 

$78 

Stringende erreicht ? 

9593 

BO 

F8 


BCS 

$958D 

Ja, Space ausgeben 

9595 

20 

B7 

03 

JSR 

$0387 

Zeichen aus String holen 

9598 

C8 



INY 


Offset erhöhen 

9599 

20 

EB 

98 

JSR 

$98EB 

Zeichen auf Schirm ausgeben 

959C 

DO 

EB 


BNE 

$9589 

Solange kein Ende, weitermachen 

959E 

FO 

27 


BEO 

$95C7 

Unbedingter Sprung 

95A0 

20 

42 

8E 

JSR 

$8E42 

FAC#1 in ASCII wandeln 

95A3 

AO 

FF 


LDY 

#$FF 

Offset auf Start 

95A5 

C8 



INY 


Offset erhöhen 

95A6 

B9 

00 

01 

LDA 

$0100,Y 

Ende erreicht ? 

95A9 

DO 

FA 


BNE 

$95A5 

Nein, weitersuchen 

95AB 

98 



TYA 


Länge in (A) 

95AC 

20 

90 

86 

JSR 

$8690 

Platz reservieren und Zeiger setzen 

95AF 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

95B1 

80 

04 

FF 

STA 

$FF04 

Write in Bank 1 setzen 

95B4 

B9 

00 

01 

LDA 

$0100,Y 

String in reservierten Bereich übertragen 

95B7 

FO 

05 


BEQ 

$95BE 

Wenn Ende, Skip 

95B9 

91 

64 


STA 

($64), Y 

String übertragen 

95BB 

C8 



INY 


Offset erhöhen 

95BC 

DO 

F 6 


BNE 

$95B4 

Unbedingter Sprung 

95BE 

20 

E3 

86 

JSR 

$86E3 

Stringzeiger in Stringstack bringen 

95C1 

20 

9F 

97 

JSR 

$979F 

Zeiger vorbesetzen 

95C4 

20 

E7 

95 

JSR 

$95E7 

Zahl formatieren 

95C7 

20 

86 

03 

JSR 

$0386 

CHRGOT 

95CA 

C9 

2C 


CMP 

#$2C 

— 1 1 

1 

95CC 

FO 

8A 


BEQ 

$9558 

Ja, zum Schleifenstart 

95CE 

38 



SEC 


Ausgabeflag setzen 

95CF 

66 

77 


ROR 

$77 


95D1 

20 

F2 

98 

JSR 

$98 F 2 

String formatiert ausgeben 

95D4 

68 



PLA 


Deskriptoradresse wieder holen 

95D5 

A8 



TAY 


High-Byte in (Y) 

95D6 

68 



PLA 


Low-Byte holen 

95D7 

20 

85 

87 

JSR 

$8785 

FRESTR 

95DA 

20 

86 

03 

JSR 

$0386 

CHRGOT 

95DD 

C9 

3B 


CMP 

#$3B 

-1.17 

1 * 

950 F 

FO 

03 


BEQ 

$95E4 

Ja, Skip 

95E1 

4C 

98 

55 

JMP 

$5598 

CR out 

95E4 

4C 

80 

03 

JMP 

$0380 

CHRGET, Ende 


****************************** Zahl formatiert ausgeben 


95E7 80 03 FF STA SFF03 Read aus Bank 0 setzen 
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95 EA 

AD 

04 

12 

LDA $1204 

FüllZeichen 

95ED 

8D 

33 

01 

STA $0133 

vorbesetzen 

95F0 

A9 

FF 


LDA #$FF 

Vorzeichenflag löschen 

95F2 

8D 

32 

01 

STA $0132 


95 F5 

4C 

FA 

95 

JMP $95FA 


95F8 

86 80 


STX $80 

Dezimalpunktstelle setzen 

95 FA 

C4 

78 


CPY $78 

Ende erreicht ? 

95 FC 

F0 

33 


BEQ $9631 

Ja, Skip 

95FE 

B9 

00 

01 

LDA $0100,Y 

Zeichen aus Puffer holen 

9601 

C8 



INY 

Pufferzeiger erhöhen 

9602 

C9 

20 


CMP #$20 

• i f 

9604 

FO 

F4 


BEQ $95FA 

Ja, weiter suchen 

9606 

C9 

2D 


CMP #$2D 

i. i 7 

9608 

FO 

E8 


BEQ $95F2 

Ja, Vorzeichen setzen 

960A 

C9 

2E 


CMP #$2E 

• ? 

960C 

FO 

EA 


BEQ $95F8 

Ja, Dezimalpunktstelle setzen 

960E 

C9 

45 


CMP #$45 

1 E • ? 

9610 

FO 

11 


BEQ $9623 

Ja, Exponent setzen 

9612 

90 

00 

01 

STA $0100,X 

Zeichen wieder in Puffer 

9615 

8E 

24 

01 

STX $0124 

Endezeiger setzen 

9618 

E8 



I NX 

Offset erhöhen 

9619 

24 

80 


BIT $80 

Dezimalpunktstelle schon gesetzt ? 

961B 

10 

DD 


BPL $95FA 

Ja, weiter testen 

961D 

EE 

2A 

01 

INC $012A 

Zähler für Vorkommastellen erhöhen 

9620 

4C 

F A 

95 

JMP $95FA 

und weitertesten 

9623 

B9 

00 

01 

LDA $0100,Y 

Nächstes Zeichen 

9626 

C9 

2D 


CMP #$2D 

- i.i ? 

9628 

00 

03 


BNE $9620 

Nein, Skip 

962A 

6E 

28 

01 

ROR $0128 

E-Negativflag setzen 

962D 

C8 



INY 

Offset erhöhen 

962E 

8C 

29 

01 

STY $0129 

Zeiger auf Exponenten setzen 

9631 

A5 

80 


LDA $80 

Dezimalpunktstelle schon gesetzt ? 

9633 

10 

02 


BPL $9637 

Ja, Skip 

9635 

86 

80 


STX $80 

Dezimalpunktstelle setzen 

9637 

20 

F2 

98 

JSR $98F2 

Zeichenausgabe und Syntaxprüfung 

963A 

AD 

2C 

01 

LDA $012C 

Platz für '$' ? 

963D 

C9 

FF 


CMP #$FF 


963 F 

FO 

29 


BEQ $966A 

Nein, Überlauf 

9641 

AD 

2F 

01 

LDA $012F 

Exponent vorhanden ? 

9644 

FO 

3F 


BEQ $9685 

Nein, Skip 

9646 

AD 

29 

01 

LDA $0129 

Exponentzeiger gesetzt ? 

9649 

DO 

12 


BNE $965D 

Ja, Skip 

964 B 

AE 

24 

01 

LDX $0124 

Zeiger auf Nummerende laden 

964E 

20 

74 

97 

JSR $9774 

Exponent setzen 

9651 

DE 

02 

01 

DEC $0102,X 

Wert erniedrigen 
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9654 

E8 



INX 


Offset erhöhen 

9655 

8E 

29 

01 

STX 

$0129 

Zeiger auf Exponenten neu setzen 

9658 

20 

FB 

97 

JSR 

$97FB 

Zahl anpassen 

965 B 

FO 

25 


BEQ 

$9682 

Fertig, Skip 

965D 

AC 

2E 

01 

LDY 

$012E 

Vorzeichenflag gesetzt ? 

9660 

DO 

17 


BNE 

$9679 

Nein, Skip 

9662 

AC 

32 

01 

LDY 

$0132 

Vorzeichen gesetzt ? 

9665 

30 

12 


BMI 

$9679 

Nein, Skip 

9667 

AD 

2C 

01 

LDA 

$012C 

Vorkonmastel len vorhanden ? 

966A 

FO 

6A 


BEQ 

$96D6 

Nein, Überlauf 

966C 

CE 

2C 

01 

DEC 

$012C 

Wert anpassen 

966F 

DO 

05 


BNE 

$9676 

Uenn ausreichend, Skip 

9671 

AD 

20 

01 

LDA 

$012D 

Feldpositionen vorhanden ? 

9674 

FO 

60 


BEQ 

$96D6 

Nein, Überlauf 

9676 

EE 

27 

01 

INC 

$0127 

Zähler anpassen 

9679 

20 

EE 

96 

JSR 

$96EE 

Stellenzahl anpassen 

967C 

20 

B9 

97 

JSR 

$97B9 

Zahl runden 

967F 

20 

EE 

96 

JSR 

$96EE 

Stellenzahl anpassen 

9682 

4C 

IC 

98 

JMP 

$981C 

Zahl ausgeben 

9685 

AC 

29 

01 

LDY 

$0129 

Exponentzeiger gesetzt ? 

9688 

FO 

16 


BEQ 

$96A0 

Nein, Skip 

968A 

85 

78 


STA 

$78 

Zähler setzen 

968C 

38 



SEC 



9680 

6E 

30 

01 

ROR 

$0130 

Flag setzen 

9690 

A4 

80 


LDY 

$80 

Zeiger auf Komma laden 

9692 

AD 

28 

01 

LDA 

$0128 

Vorzeichenexponent positiv ? 

9695 

10 

06 


BPL 

$9690 

Ja, Skip 

9697 

20 

27 

97 

JSR 

$9727 

Stellenzahl anpassen 

969A 

4C 

A9 

96 

JMP 

$96A9 


9690 

20 

08 

97 

JSR 

$9708 

Stellenzahl anpassen 

96 A0 

A4 

80 


LDY 

$80 

Dezimalpunkt an erster Stelle ? 

96 A 2 

FO 

05 


BEQ 

$96A9 

Ja, Skip 

96A4 

20 

1 F 

97 

JSR 

$97FF 

Zahl anpassen 

96 A 7 

FO 

06 


BEQ 

$96AF 

Fertig, Skip 

96A9 

20 

B9 

97 

JSR 

$97B9 

Zahl runden 

96AC 

4C 

B2 

96 

JMP 

$96B2 


96AF 

CE 

2A 

01 

DEC 

$012A 

Vorkommastellenzähler korrigieren 

96B2 

38 



SEC 



96B3 

AD 

2C 

01 

LDA 

$012C 

Zuwenig Feldpositionen 

96B6 

ED 

2A 

01 

SBC 

$012A 

für Vorkommastellen ? 

96B9 

90 

IR 


BCC 

$9606 

Ja, Überlauf 

96BB 

80 

27 

01 

STA 

$0127 

Restlichen Platz merken 

96BE 

AC 

2E 

01 

LDY 

$012E 

Vorzeichenflag gesetzt ? 

96C1 

DO 

1B 


BNE 

$96DE 

Nein,Skip 

96C3 

AC 

32 

01 

LDY 

$0132 

Vorzeichen gesetzt ? 

96C6 

30 

16 


BMI 

$96DE 

Nein, Skip 

96C8 

A8 



TAY 


Platz für Vorzeichen vorhanden ? 
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96C9 

F0 

OB 


BEQ 

$96D6 

Nein, Überlauf 

96CB 

88 



DEY 


Restplatz vorhanden ? 

96CC 

DO 

13 


BNE 

$96E1 

Ja, Skip 

96CE 

AD 

2D 

01 

LDA 

I012D 

Möglichkeiten ausreichend ? 

96D1 

OD 

2A 

01 

ORA 

$012A 


96D4 

DO 

AC 


BNE 

$9682 

Ja, Zahl ausgeben 

96D6 

A9 

2A 


LDA 

#$2A 

1 * 1 

96D8 

20 

EB 

98 

JSR 

$98EB 

ausgeben 

96DB 

DO 

FB 


BNE 

$96D8 

Uenn Ende noch nicht erreicht, mehr '*' 

96DD 

60 



RTS 



96DE 

A8 



TAY 


Restplatz vorhanden ? 

960 F 

FO 

AI 


BEQ 

$9682 

Nein, Zahl ausgeben 

96E1 

AD 

2A 

01 

LDA 

$012A 

Vorkommastellen vorhanden ? 

96E4 

DO 

9C 


BNE 

$9682 

Ja, Zahl ausgeben 

96E6 

CE 

27 

01 

DEC 

$0127 

Restplatz korrigieren 

96E9 

E6 

77 


INC 

$77 

und Zähler erhöhen 

96EB 

4C 

82 

96 

JMP 

$9682 

Zahl ausgeben 

****************************** 

Stellenzahl anpassen 

96EE 

38 



SEC 



96EF 

AD 

2C 

01 

LDA 

$012C 

Feldpositionen für Vorkommastellen 

96F2 

CD 

2A 

01 

SBC 

$012A 

= Vorkommastellenzahl ? 

96F5 

FO 

39 


BEQ 

$9730 

Ja, Ende 

96F7 

AO 

80 


LDY 

$80 

Zeiger auf Dezimalpunkt laden 

96F9 

90 

16 


BCC 

$9711 

Wenn zuwenig Stellen, Skip 

96FB 

85 78 


STA $78 

Anzahl der überflüssigen Positionen 

setzen 







96FD 

CC 

24 

01 

CPY 

$0124 

Nummerende erreicht ? 

9700 

FO 

02 


BEQ 

$9704 

Ja, Skip 

9702 

BO 

01 


BCS 

$9705 

Uenn größer, Skip 

9704 

C8 



I NY 


Kommaposition korrigieren 

9705 

EE 

2A 

01 

INC 

$012A 

Vorkommastellen erhöhen 

9708 

20 

3D 

97 

JSR 

$973D 

Exponent berechnen 

970B 

C6 

78 


DEC 

$78 

Alle Stellen aufgearbeitet ? 

970D 

DO 

EE 


BNE 

$96 FD 

Nein, weitermachen 

970F 

FO 

ID 


BEQ 

$972E 

Unbedingter Sprung 

9711 

49 

FF 


EOR 

#$FF 

Stellenmangel positiv machen 

9713 

69 

01 


ADC 

#$01 


9715 

85 

78 


STA 

$78 

und setzen 

9717 

CC 

23 

01 

CPY 

$0123 

Anfang erreicht ? 

971A 

FO 

07 


BEQ 

$9723 

Ja, Skip 

971C 

88 



DEY 


Kommastelle korrigieren 

971D 

CE 

2A 

01 

DEC 

$012A 

Vorkommastellen erniedrigen 

9720 

4C 

25 

97 

JMP 

$9725 


9723 

E6 

77 


INC 

$77 

Zähler erhöhen 


Das BAS IC-ROM 


641 


9725 A9 80 LDA #$80 

9727 20 3F 97 JSR $973F Exponent berechnen 

972A C6 78 DEC $78 Alle fehlenden Stellen aufgearbeitet ? 

972C DO E9 BNE $9717 Nein, weitermachen 

972E 84 80 STY $80 Neue Kommapos i t i on setzen 

9730 60 RTS 


****************************** Exponentberechnung 


9731 

DO 

39 


BNE 

$976C 

Uenn nicht '0' oder '9', Skip 

9733 

49 

09 


EOR 

#$09 

Ziffern '0' und '9' vertauschen um 

9735 

9D 

00 

01 

STA 

$0100,X 

Übertrag auf nächsten Zehner zu setzen 

9738 

CA 



DEX 


Offset korrigieren 

9739 

EC 

29 

01 

CPX 

$0129 


973C 

60 



RTS 



973D 

A9 

00 


LDA 

#$00 

Flag vorbesetzen 

973F 

AE 

29 

01 

LDX 

$0129 

Zeiger auf Exponenten laden 

9742 

E8 



I NX 


und auf zweites Zeichen setzen 

9743 

2C 

SO 

01 

BIT 

$0130 

Exponent erniedrigen ? 

9746 

30 

10 


BMI 

$9758 

Ja, Skip 

9748 

4D 

28 

01 

EOR 

$0128 

Vorzeichen = Flag ? 

974 B 

F0 

OB 


BEO 

$9758 

Ja, erniedrigen 

974D 

20 

8? 

97 

JSR 

$9782 

Ziffer erhöhen 

9750 

20 

31 

97 

JSR 

$9731 

Überträge berücksichtigen. Endetest 

9753 

B0 

F8 


BCS 

$9740 

Falls nötig, weitermachen 

9755 

4C 

5D 

89 

JMP 

$8950 

•OVERFLOW 

9758 

BD 

00 

01 

LDA 

$0100,X 

Ziffer erniedrigen 

975B 

DE 

00 

01 

DEC 

$0100,X 


975E 

C9 

30 


CMP 

#$30 

•0 1 erreicht ? 

9760 

20 

31 

97 

JSR 

$9731 

Überträge berücksichtigen, Endetest 

9763 

B0 

F3 


BCS 

$9758 

Falls nötig, weitermachen 

9765 

2C 

SO 

01 

BIT 

$0130 

Schalter gesetzt ? 

9768 

10 

05 


BPL 

S976F 

Nein, Ende 

976A 

84 

80 


STY 

$80 

Kommaposition setzen 

976C 

68 



PLA 


Rückkehr zur übergeordneten Routine 

9760 

68 



PLA 


durch Löschen der Rücksprungadresse 

976E 

60 



RTS 



976 F 

AD 

28 

01 

LDA 

$0128 

Vorzeichen invertieren 

9772 

49 

80 


EOR 

#$80 


9774 

8D 

28 

01 

STA 

$0128 


9777 

A9 

30 


LDA 

#$30 

•0' Exponentstelle 1 

9779 

9D 

01 

01 

STA 

$0101,X 

Exponentstelle setzen 

977C 

A9 

31 


LDA 

#$31 

•1' Zweites Exponentzeichen 

977E 

90 

02 

01 

STA 

$0102,X 

Exponent auf '01' setzen 
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9781 

60 



RTS 


9782 

BD 

00 

01 

LDA $0100,X 

Ziffer laden 

9785 

FE 

00 

01 

INC $0100,X 

Ziffer erhöhen 

9788 

C9 

39 


CMP #$39 

■ 9* überschritten ? 

978A 

60 



RTS 



****************************** Zeichen aus Formatstring holen 


978B 

18 



CLC 



978C 

C8 



1NY 


Ende erreicht ? 

978D 

F0 

05 


BEQ 

$9794 

Ja, Skip 

978 F 

CC 

35 

01 

CPY 

$0135 

Ende erreicht ? 

9792 

90 

04 


BCC 

$9798 

Nein, Skip 

9794 

A4 

77 


LDY 

$77 

Rückkehr zur übergeordneten Routine ? 

9796 

DO 

D4 


BNE 

$976C 

Ja, Ende 

9798 

20 

D3 

42 

JSR 

$42D3 

Zeichen aus Formatstring holen 

979B 

EE 

31 

01 

INC 

$0131 

Zeichenzähler erhöhen 

979E 

60 



RTS 




Zeiger vorbesetzen 

979F 

20 

81 

87 

JSR 

$8781 

FRESTR aufrufen 

97A2 

85 

78 


STA 

$78 

Länge setzen 

97A4 

A2 

OA 


LDX 

#$0A 

Offset laden 

97A6 

A9 

00 


LDA 

#$00 


97A8 

90 

27 

01 

STA 

$0127,X 

Alle Zähler und Flags löschen 

97AB 

CA 



DEX 



97AC 

10 

FA 


BPL 

$97A8 


97AE 

8E 

26 

01 

STX 

$0126 

Kommaflag löschen 

97B1 

86 

80 


STX 

$80 


97B3 

8E 

25 

01 

STX 

$0125 

und Dollarflag auch löschen 

97B6 

AA 



TAX 


(X) und (Y) = 0 

97B7 

A8 



TAY 



97B8 

60 



RTS 




****************************** zah [ runden 


97B9 

18 



CLC 



97BA 

A5 

80 


LDA $80 

Kommaposition laden 


97BC 

6D 

2D 

01 

ADC $012D 



97BF 

B0 

39 


BCS $97FA 

Wenn Wert unpassend, 

Ende 

97C1 

38 



SEC 



97C2 

E5 

77 


SBC $77 



97C4 

90 

34 


BCC $97FA 

Wenn Wert unpassend, 

Ende 

97C6 

CD 

24 

01 

CMP $0124 

> Nummernende ? 


97C9 

F0 

02 


BEQ $97CD 

Nein, Skip 


97CB 

B0 

2D 


BCS $97FA 

Ja, Ende 
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97CD 

CD 

23 

01 

CMP 

$0123 

< Nummernstart ? 

9700 

90 

28 


BCC 

$97FA 

Ja, Ende 

97D2 

AA 



TAX 


Wert als Offset laden 

97D3 

BD 

00 

01 

LDA 

$0100,X 

Ziffer holen 

97D6 

C9 

35 


CMP 

#$35 

'5' ? (Aufrunden) 

97D8 

90 

20 


BCC 

$97FA 

Nein, Ende 

97DA 

EC 

23 

01 

CPX 

$0123 

Nummernanfang erreicht ? 

97DD 

F0 

OA 


BEQ 

$97E9 

Ja, Skip 

97DF 

CA 



DEX 


Voranstehende Ziffer anwählen 

97E0 

20 

82 

97 

JSR 

$9782 

Ziffer testen 

97E3 

8E 

24 

01 

STX 

$0124 

Zeiger auf Nummernende setzen 

97E6 

F0 

F2 


BEQ 

$97DA 

Wenn Korrektur nötig, weitermachen 

97E8 

60 



RTS 



97E9 

A9 

31 


LDA 

#$31 

•1' 

97EB 

9D 

00 

01 

STA 

$0100,X 

in Nummernfeld setzen 

97EE 

E8 



INX 


Offset erhöhen 

97EF 

86 

80 


STX 

$80 

Kommaposition setzen 

97F1 

C6 

77 


DEC 

$77 

Länge korrigieren 

97F3 

10 

05 


BPL 

$97FA 

Wenn korrekt, Ende 

97F5 

E6 

77 


INC 

$77 

Länge auf 0 

97F7 

EE 

2A 

01 

INC 

$012A 

Eine Vorkommastelle mehr 

97FA 

60 



RTS 




Zahl anpassen 

97FB 

AA 

80 


LDY 

$80 

Koirnia an erster Stelle ? 

97FD 

FO 

17 


BEQ 

$9816 

Ja, Skip 

97FF 

AC 

23 

01 

LDY 

$0123 

Zeiger auf Nummernanfang setzen 

9802 

B9 

00 

01 

LDA 

$0100,Y 

Aktuelle Ziffer 

9805 

C9 

30 


CMP 

#$30 

auf '0' testen 

9807 

60 



RTS 



9808 

E6 

80 


INC 

$80 

Kommaposition korrigieren 

980A 

20 

3D 

97 

JSR 

$973D 

Ziffer anpassen 

980D 

EE 

23 

01 

INC 

$0123 

Nummernanfang korrigieren 

9810 

CC 

24 

01 

CPY 

$0124 

Nummernende erreicht ? 

9813 

FO 

E5 


BEQ 

$97FA 

Ja, Ende 

9815 

C8 



INY 


Offset erhöhen 

9816 

20 

02 

98 

JSR 

$9802 

Ziffer = '0' ? 

9819 

FO 

ED 


BEQ 

$9808 

Ja, Zahl anpassen 

981B 

60 



RTS 



9810 

CC 

24 

01 

CPY 

$0124 

Nummernende erreicht ? 

9813 

FO 

E5 


BEQ 

$97FA 

Ja, Ende 

9815 

C8 



INY 


Offset erhöhen 

9816 

20 

02 

98 

JSR 

$9802 

Ziffer = '0' ? 
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9819 FO ED BEQ $9808 Ja, Zahl anpassen 

981B 60 RTS 


****************************** zahl formatiert ausgeben 


981C 

AD 

25 

01 

LDA 

$0125 

Dollarzeichen ? 

981F 

30 

02 


BMI 

$9823 

Nein, Skip 

9821 

E6 

77 


INC 

$77 

Länge erhöhen 

9823 

AE 

23 

01 

LDX 

$0123 

Anfangszeiger setzen 

9826 

CA 



DEX 


Zähler erniedrigen 

9827 

AC 

34 

01 

LDY 

$0134 

Zeiger auf Feldbeginn setzen 

982A 

20 

D3 

42 

JSR 

$42D3 

Zeichen aus String holen 

982D 

C8 



INY 


Offset erhöhen 

982E 

C9 

2C 


CMP 

#$2C 

1 l 9 

1 

9830 

DO 

14 


BNE 

$9846 

Nein, Skip 

9832 

2C 

26 

01 

BIT 

$0126 

Füllzeichenflag gesetzt ? 

9835 

30 

09 


BMI 

$9840 

Ja, Skip 

9837 

8D 

03 

FF 

STA 

$FF03 

Read aus Bank 0 setzen 

983A 

AD 

05 

12 

LDA 

$1205 

Kommazeichen laden 

9830 

4C 

AB 

98 

JMP 

$98AB 

Zeichen ausgeben 

9840 

AD 

33 

01 

LDA 

$0133 

Füllzeichen laden 

9843 

4C 

AB 

98 

JMP 

$98 AB 

und ausgeben 

9846 

C9 

2E 


CMP 

#$2E 

1 . 1 ? 

9848 

DO 

09 


BNE 

$9853 

Nein, Skip 

984A 

8D 

03 

FF 

STA 

$FF03 

Read aus Bank 0 setzen 

984D 

AD 

06 

12 

LDA 

$1206 

Dezimalpunktzeichen laden 

9850 

4C 

AB 

98 

JMP 

$98AB 

und ausgeben 

9853 

C9 

2B 


CMP 

#$2B 

• + ' ? 

9855 

FO 

3B 


BEO 

$9892 

Ja, Skip 

9857 

C9 

2D 


CMP 

#$2D 

■ - ■ 7 

9859 

FO 

32 


BEO 

$9880 

Ja, Skip 

985B 

C9 

5E 


CMP 

#$5E 

i * i z 

985D 

DO 

69 


BNE 

$98C8 

Nein, Skip 

985 F 

A9 

45 


LDA 

#$45 

• E ■ 

9861 

20 

EB 

98 

JSR 

$98EB 

Zeichen auf Schirm 

9864 

AC 

29 

01 

LDY 

$0129 

Zeiger auf Exponenten setzen 

9867 

20 

02 

98 

JSR 

$9802 

Zeichen mit 1 0 1 vergleichen 

986A 

DO 

06 


BNE 

$9872 

Keine '0', Skip 

986C 

C8 



INY 


Zeichen überlesen 

986D 

20 

02 

98 

JSR 

$9802 

Exponent ganz = 0 ? 

9870 

FO 

07 


BEO 

$9879 

Ja, Skip 

9872 

A9 

2D 


LDA 

#$2D 

1 . 1 

9874 

2C 

28 

01 

BIT 

$0128 

Vorzeichen des Exponenten negativ ? 

9877 

30 

02 


BMI 

$987B 

Ja, Skip 

9879 

A9 

2B 


LDA 

#$2B 
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987B 

20 

EB 

98 

JSR 

$98EB 

987E 

AE 

29 

01 

LDX 

$0129 

9881 

BD 

00 

01 

LDA 

$0100,X 

9884 

20 

EB 

98 

JSR 

$98EB 

9887 

AC 

36 

01 

LDY 

$0136 

988A 

4C 

AI 

98 

JMP 

$98 AI 

988D 

AD 

32 

01 

LDA 

$0132 

9890 

30 

AE 


BMI 

$9840 

9892 

AD 

32 

01 

LDA 

$0132 

9895 

4C 

AB 

98 

JMP 

$98AB 

9898 

A5 

77 


LDA 

$77 

989A 

DO 

18 


BNE 

$98B4 

989C 

EC 

24 

01 

CPX 

$0124 

989F 

F0 

05 


BEO 

$98A6 

98A1 

E8 



I NX 


98 A 2 

BD 

00 

01 

LDA 

$0100,X 

98A5 

2C 



.BYTE $2C 

98A6 

A9 

30 


LDA 

#$30 

98A8 

4E 

26 

01 

LSR 

$0126 

98 AB 

20 

EB 

98 

JSR 

$98EB 

98AE 

F0 

03 


BEO 

$98B3 

98B0 

4C 

2A 

98 

JMP 

$982A 

98B3 

60 



RTS 


98B4 

C6 

77 


DEC 

$77 

98B6 

AD 

25 

01 

LDA 

$0125 

98B9 

30 

EB 


BMI 

$98A6 

98BB 

38 



SEC 


98BC 

6E 

25 

01 

ROR 

$0125 

98BF 

8D 

03 

FF 

STA 

$FF03 

98C2 

AD 

07 

12 

LDA 

$1207 

98C5 

4C 

A8 

98 

JMP 

$98A8 

98C8 

AD 

27 

01 

LDA 

$0127 

98CB 

F0 

CB 


BEO 

$9898 

98CD 

CE 

27 

01 

DEC 

$0127 

9800 

F0 

03 


BEO 

$98D5 

98D2 

4C 

40 

98 

JMP 

$9840 

98D5 

AD 

2E 

01 

LDA 

$012E 

98D8 

30 

F6 


BMI 

$98D0 

98DA 

20 

D3 

42 

JSR 

$4203 

98DD 

C9 

2C 


CMP 

#$2C 

98DF 

DO 

AC 


BNE 

$9880 

98E1 

AD 

33 

01 

LDA 

$0133 

98E4 

20 

EB 

98 

JSR 

$98EB 

98E7 

C8 



I NY 



Zeichen auf Schirm 
Zeiger auf Exponenten laden 
Zeichen aus Puffer laden 
Zeichen auf Schirm 
Zeiger auf Feldende setzen 
und weiter ausgeben 

Vorzeichen gesetzt ? 

Nein, Füllzeichen ausgeben 
Vorzeichen laden 
und ausgeben 

Führende Nulten ? 

Nein, Skip 

Endenummer erreicht ? 

Ja, '0' ausgeben 
Offset erhöhen 
Aktuelles Zeichen laden 
Nächsten Befehl überlesen 
• 0 ' 

Zeichen auf Schirm 

Wenn Oruckfeidende erreicht, Ende 

Zum Schleifenstart 


Dollarflag gesetzt ? 

Nein, Skip 

Dollarflag löschen 
Read aus Bank 0 setzen 
Dezi malpunktZeichen 
ausgeben 

Zähler schon 0 ? 

Ja, Wert ausgeben 
Zäher erniedrigen 
Jetzt 0, Skip 
Füllzeichen ausgeben 
Vorzeichenflag gesetzt ? 
Nein, Skip 

Aktuelles Zeichen holen 
i l 7 

I 1 

Nein, Vorzeichen ausgeben 
Füllzeichen laden 
Zeichen auf Schirm 
Offset erhöhen 
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98E8 4C DA 98 JMP $98DA 

****************************** Zeichenausgabe für PRINT USING 


98EB 

20 

OC 

56 

JSR $560C 

Zeichenausgabe 

98EE 

CE 

31 

01 

DEC $0131 

Zeichenzähler erniedrigen 

98F1 

60 



RTS 



****************************** Zeichen bis zum ersten '#' ausgeben 

Falls nötig Syntaxprüfung 


98F2 

AC 

36 

01 

LDY 

$0136 

98F5 

20 

8B 

97 

JSR 

$978B 

98F8 

20 

A7 

99 

JSR 

$99A7 

98FB 

DO 

14 


BNE 

$9911 

98FD 

8C 

34 

01 

STY 

$0134 

9900 

90 

1A 


BCC 

$991C 

9902 

AA 



TAX 


9903 

20 

88 

97 

JSR 

$978B 

9906 

B0 

05 


BCS 

$990D 

9908 

20 

AF 

99 

JSR 

$99AF 

990B 

F0 

0A 


BEO 

$9917 

990D 

AC 

34 

01 

LDY 

$0134 

9910 

8A 



TXA 


9911 

20 

OC 

56 

JSR 

$560C 

9914 

4C 

F5 

98 

JMP 

$98 F 5 

9917 

B0 

EA 


BCS 

$9903 

9919 

AC 

34 

01 

LDY 

$0134 

991C 

A6 

77 


LDX 

$77 

991E 

DO 

7A 


BNE 

$999A 

9920 

8E 

31 

01 

STX 

$0131 

9923 

88 



DEY 


9924 

CE 

31 

01 

DEC 

$0131 

9927 

20 

8B 

97 

JSR 

$978B 

992A 

B0 

74 


BCS 

$99A0 

992C 

C9 

2C 


CMP 

#$2C 

992E 

F0 

F7 


BEO 

$9927 

9930 

20 

7E 

99 

JSR 

$997E 

9933 

90 

EF 


BCC 

$9924 

9935 

C9 

2E 


CMP 

#$2E 

9937 

DO 

08 


BNE 

$9941 

9939 

E8 



I NX 


993A 

EO 

02 


CPX 

#$02 

993C 

90 

E9 


BCC 

$9927 


Offset laden 

Zeichen aus Formatstring holen 

Spezielles Formatzeichen ? 

Nein, ausgeben 

(Y) retten 

Wenn '#', Skip 

Zeichen retten 

Nächstes Zeichen holen 

Wenn Ende erreicht, Skip 

Zeichen testen 

Wenn Formatzeichen, Skip 

(Y) wieder holen 
Zeichen wieder holen 
Zeichenausgabe 


Wenn kein '#', weiter suchen 
(Y) wieder holen 

Ausgabe ? 

Ja, Ende 

Zeichenzähler auf 0 
Offset erniedrigen 
Zeichenzähler erniedrigen 
Zeichen aus Formatstring holen 
Wenn Ende erreicht, Skip 

I l 7 

f 1 

Ja, weitertesten 
Test auf Vorzeichen 
Wenn Vorzeichen, weitertesten 
'. • ? 

Nein, Skip 
Kommazähler erhöhen 
Zwei Kommas gelesen ? 

Nein, weitertesten 
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993E 

4C 

6C 

79 

JMP 

$796C 

•SYNTAX' 

9941 

20 

B3 

99 

JSR 

$99B3 

Stringformatzeichen ? 

9944 

DO 

OB 


BNE 

$9951 

Nein, Skip 

9946 

90 

03 


BCC 

$994B 

Wenn '#', Skip 

9948 

80 

2B 

01 

STA 

$012B 


994B 

FE 

2C 

01 

INC 

$012C,X 

Stellenzähler erhöhen 

994E 

4C 

27 

99 

JHP 

$9927 

und weitertesten 

9951 

C9 

24 


CMP 

#$24 

'$' ? 

9953 

DO 

OF 


BNE 

$9964 

Nein, Skip 

9955 

2C 

25 

01 

BIT 

$0125 

Dollarflag schon gesetzt ? 

9958 

10 

Fl 


BPL 

$994B 

Ja, Zeichen als Druckzeichen angeben 

995A 

18 



CLC 



995B 

6E 

25 

01 

ROR 

$0125 

Dollarflag setzen (Bit 7=0) 

995 E 

CE 

2C 

01 

DEC 

$012C 

Vorkommastellenzähler erniedrigen 

9961 

4C 

4B 

99 

JMP 

$994B 

und weitermachen 

9964 

C9 

5E 


CMP 

#$5E 

l A t •> 

9966 

DO 

16 


BNE 

$997E 

Nein, Skip 

9968 

A2 

02 


LDX 

#$02 

Die nächsten drei Zeichen auch |A| ? 

996A 

20 

8B 

97 

JSR 

$978B 

Zeichen aus Formatstring holen 

996D 

BO 

CF 


BCS 

$993E 

Kein ,A| , Fehler 

996F 

C9 

5E 


CMP 

#$5E 

i * i ^ 

9971 

DO 

CB 


BNE 

$993E 

Nein, Fehler 

9973 

CA 



DEX 


Alle Zeichen getestet ? 

9974 

10 

F4 


BPL 

$996A 

Nein, nochmal 

9976 

EE 

2F 

01 

INC 

$012F 

Exponentflag setzen 

9979 

20 

8B 

97 

JSR 

$9788 

Zeichen aus Formatstring holen 

997C 

BO 

22 


BCS 

$99 AO 

Ende, Skip 

997E 

C9 

2B 


CMP 

#$2B 

' + • ? 

9980 

DO 

19 


BNE 

$999B 

Nein, Skip 

9982 

AD 

32 

01 

LDA 

$0132 

Vorzeichen bereits gesetzt ? 

9985 

10 

05 


BPL 

$998C 

Ja, Skip 

9987 

A9 

2B 


LDA 

#$2B 

• + • 

9989 

8D 

32 

01 

STA 

$0132 


998C 

AD 

2E 

01 

LDA 

$012E 

Vorzeichenflag schon gesetzt ? 

998F 

DO 

AD 


BNE 

$993E 

Ja, Fehler 

9991 

6E 

2E 

01 

ROR 

$012E 

Bit 7 im Vorzeichenflag setzen 

9994 

8C 

36 

01 

STY 

$0136 

Zeiger auf Feldende setzen 

9997 

EE 

31 

01 

INC 

$0131 

und Zeichenzählererhöhen 

999A 

60 



RTS 



999B 

C9 

2D 


CMP 

#$2D 

■. i f 

999D 

FO 

ED 


BEQ 

$998C 

Ja, Vorzeichen verarbeiten 

999F 

38 



SEC 



99 AO 

8C 

36 

01 

STY 

$0136 

Zeiger auf Feldende setzen 

99A3 

CE 

36 

01 

DEC 

$0136 

und korrigieren 
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99A6 60 RTS 

****************************** Test auf Vorzeichen und Formatzeichen 


99A7 

C9 

2B 

CMP #$2B 


? 

99A9 

F0 

15 

BEQ $99C0 

Ja, 

Skip 

99AB 

C9 

2D 

CMP #$2D 

i. i 

? 

99 AD 

F0 

11 

BEQ $99C0 

Ja, 

Skip 

99 AF 

C9 

2E 

CMP #$2E 

i i 

? 

99B1 

F0 

OD 

BEQ S99C0 

Ja, 

Skip 

99B3 

C9 

3D 

CMP #$3D 

■ = • 

? 

99B5 

F0 

09 

BEQ S99C0 

Ja, 

Skip 

99B7 

C9 

3E 

CMP #$3E 

■>• 

? 

99B9 

F0 

05 

BEQ $99C0 

Ja, 

Skip 

99BB 

C9 

23 

CMP #$23 


? 

99BD 

DO 

01 

BNE $99C0 

Nein, Skip 

99BF 

18 


CLC 

Für 

'#' BEQ + CLC 

99C0 

60 


RTS 




****************************** BASIC-Funktion INSTR 


99C1 

A5 

66 


LDA $66 

Quellstringadresse setzen 

99C3 

8D 

D6 

03 

STA $0306 


99C6 

A5 

67 


LDA $67 


99C8 

8D 

D7 

03 

STA $03D7 


99CB 

20 

EF 

77 

JSR $77EF 

FRMEVL Ausdruck auswerten 

99CE 

20 

DO 

77 

JSR $77DD 

Auf String prüfen 

99D1 

A5 

66 


LDA $66 

Suchstringadresse setzen 

99D3 

8D 

D8 

03 

STA $03D8 


99D6 

A5 

67 


LDA $67 


99D8 

8D 

D9 

03 

STA $0309 


99DB 

A2 

01 


LDX #$01 

Suchstart auf 1 setzen 

99DD 

86 

67 


STX $67 


99DF 

20 

86 

03 

JSR $0386 

CHRGOT 

99E2 

C9 

29 


CMP #$29 

= •)• ? 

99E4 

FO 

03 


BEQ $99E9 

Ja, Skip 

99E6 

20 

09 

88 

JSR $8809 

Byte-Wert nach Komma holen 

99E9 

20 

56 

79 

JSR $7956 

Test auf ')' 

99EC 

A6 

67 


LDX $67 

Suchstart = 0 ? 

99EE 

DO 

03 


BNE $99F3 

Nein, Skip 

99F0 

4C 

28 

7D 

JMP $7D28 

•ILLEGAL QUANTITY• 

99F3 

CA 



DEX 


99 F4 

86 

63 


STX $63 

Suchposition setzen 

99 F6 

A2 

03 


LDX #$03 

Stringadressen umkopieren 

99F8 

BD 

D6 

03 

LDA $03D6,X 


99FB 

95 

59 


STA $59,X 
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99FD 

CA 



DEX 


99FE 

10 

F8 


BPL 

$99 F8 

9A00 

A0 

02 


LDY 

#$02 

9A02 

A9 

59 


LDA 

#$59 

9A04 

20 

AB 

03 

JSR 

$03AB 

9A07 

99 

5D 

00 

STA 

$0050,Y 

9A0A 

A9 

5B 


LDA 

#$5B 

9A0C 

20 

AB 

03 

JSR 

$03AB 

9A0F 

99 

60 

00 

STA 

$0060,Y 

9A12 

88 



DEY 


9A13 

10 

ED 


BPL 

$9A02 

9A15 

A5 

60 


LDA 

$60 

9A17 

F0 

3B 


BEQ 

$9A54 

9A19 

A9 

00 


LDA 

#$00 

9A1B 

85 

64 


STA 

$64 

9A1D 

18 



CLC 


9A1E 

A5 

60 


LDA 

$60 

9A20 

65 

63 


ADC 

$63 

9A22 

BO 

30 


BCS 

$9A54 

9A24 

C5 

5D 


CMP 

$50 

9A26 

90 

02 


BCC 

$9A2A 

9A28 

DO 

2A 


BNE 

$9A54 

9A2A 

A4 

64 


LDY 

$64 

9A2C 

C4 

60 


CPY 

$60 

9A2E 

F0 

1F 


BEQ 

$9A4F 

9A30 

98 



TYA 


9A31 

18 



CLC 


9A32 

65 

63 


ADC 

$63 

9A34 

A8 



TAY 


9A35 

A9 

5E 


LDA 

#$5E 

9A37 

20 

AB 

03 

JSR 

$03AB 

9A3A 

85 

79 


STA 

$79 

9A3C 

A4 

64 


LDY 

$64 

9A3E 

A9 

61 


LDA 

#$61 

9A40 

20 

.*8 

J3 

JSR 

$03AB 

9 A4 3 

C5 

N 


CMP 

$79 

9 A4 5 

F0 

04 


BEQ 

$9A4B 

9A47 

E6 

63 


INC 

$63 

9A49 

DO 

CE 


BNE 

$9A19 

9A4B 

E6 

64 


INC 

$64 

9A4D 

DO 

DB 


BNE 

$9A2A 

9A4F 

E6 

63 


INC 

$63 

9A51 

A5 

63 


LDA 

$63 

9A53 

2C 



.BYTE $2C 

9A54 

A9 

00 


LDA 

#$00 

9A56 

80 

03 

FF 

STA 

$FF03 

9A59 

48 



PHA 


9A5A 

AD 

D8 

03 

LDA 

$03D8 


Ein Deskriptor hat 3 Bytes 
Aus Adresse ($59) 

Deskriptor für Quellstring lesen 

Aus Adresse ($5B) 

Deskriptor für Suchstring lesen 

Alle Bytes kopiert ? 

Nein, nochmal 
Suchstringlänge = 0 ? 

Ja, nicht gefunden, Ende 
Suchzeiger setzen 


Suchstringlänge 
+ Suchposition > 255 
Ja, nicht gefunden, Ende 
> Quellstringlänge ? 
Nein, Skip 

Ja, nicht gefunden, Ende 
Suchzeiger 
= Suchstringlänge ? 

Ja, gefunden, Ende 


(Y) = Suchzeiger + Suchposition 

Ergibt LDA ($5E),Y aus Bank 1 

Zeichen aus Quellstring holen 

und setzen 

(Y) = Suchzeiger 

Ergibt LDA ($61),Y aus Bank 1 

Zeichen aus Suchstring holen 

= Zeichen aus Quellstring ? 

Ja, Skip 

Suchposition erhöhen 

weitertesten 

Suchzeiger erhöhen 

weiter testen 

Suchposition anpassen 

und als Ergebnis laden 

Nächsten Befehl überlesen 

Wert für String nicht gefunden 

Urite in Bank 1 setzen 

Ergebnis retten 

Adresse des Quellstrings 
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96C9 

F0 

OB 


BEQ $9606 

Nein, Überlauf 

96CB 

88 



DEY 

Restplatz vorhanden ? 

96CC 

DO 

13 


BNE $96E1 

Ja, Skip 

96CE 

AD 

2D 

01 

LDA $012D 

Möglichkeiten ausreichend ? 

96D1 

OD 

2A 

01 

ORA $012A 


96D4 

DO 

AC 


BNE $9682 

Ja, Zahl ausgeben 

96D6 

A9 

2A 


LDA #$2A 

i * i 

96D8 

20 

EB 

98 

JSR $98EB 

ausgeben 

96DB 

DO 

FB 


BNE $96D8 

Wenn Ende noch nicht erreicht, mehr '*' 

96DD 

60 



RTS 


96DE 

A8 



TAY 

Restplatz vorhanden ? 

96DF 

FO 

AI 


BEQ $9682 

Nein, Zahl ausgeben 

96E1 

AD 

2A 

01 

LDA $012A 

Vorkommastellen vorhanden ? 

96E4 

DO 

9C 


BNE $9682 

Ja, Zahl ausgeben 

96E6 

CE 

27 

01 

DEC $0127 

Restplatz korrigieren 

96E9 

E6 

77 


INC $77 

und Zähler erhöhen 

96EB 

4C 

82 

•'6 

JMP $9682 

Zahl ausgeben 

****************************** 

Stellenzahl anpassen 

96EE 

38 



SEC 


96EF 

AD 

2C 

01 

LDA $012C 

Feldpositionen für Vorkommastellen 

96F2 

ED 

2A 

01 

SBC $012A 

= Vorkommastellenzahl ? 

96F5 

FO 

39 


BEQ $9730 

Ja, Ende 

96F7 

AO 

80 


LDY $80 

Zeiger auf Dezi malpunkt laden 

96F9 

90 

16 


BCC $9711 

Wenn zuwenig Stellen, Skip 

96FB 

85 78 

STA $78 

Anzahl der überflüssigen Positionen 

setzen 






96FD 

CC 

24 

01 

CPY $0124 

Nummerende erreicht ? 

9700 

FO 

02 


BEQ $9704 

Ja, Skip 

9702 

BO 

01 


BCS $9705 

Wenn größer, Skip 

9704 

C8 



INY 

Kommaposition korrigieren 

9705 

EE 

2A 

01 

INC $012A 

Vorkommastellen erhöhen 

9708 

20 

30 

97 

JSR $973D 

Exponent berechnen 

970B 

C6 

78 


DEC $78 

Alle Stellen aufgearbeitet ? 

970D 

DO 

EE 


BNE $96FD 

Nein, weitermachen 

970F 

FO 

ID 


BEQ $972E 

Unbedingter Sprung 

9711 

49 

FF 


EOR #$FF 

Stellenmangel positiv machen 

9713 

69 

01 


ADC #$01 


9715 

85 

78 


STA $78 

und setzen 

9717 

CC 

23 

01 

CPY $0123 

Anfang erreicht ? 

971A 

FO 

07 


BEQ $9723 

Ja, Skip 

971C 

88 



DEY 

Kommastelle korrigieren 

971D 

CE 

2A 

01 

DEC $012A 

Vorkommastellen erniedrigen 

9720 

4C 

25 

97 

JMP $9725 


9723 

E6 

77 


INC $77 

Zähler erhöhen 
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9AAC 

30 

OC 


BMI 

$9ABA 

Nein, Skip 

9AAE 

7D 

3E 

9F 

ADC 

$9F3E,X 

Feinwinkelwert aufaddieren 

9AB1 

48 



PHA 


und Lou-Byte retten 

9AB2 

98 



TYA 


High-Byte laden 

9AB3 

7D 

3D 

9F 

ADC 

$9F3D,X 

Feinwinkelwert aufaddieren 

9AB6 

A8 



TAY 


und High-byte wieder in (Y) 

9AB7 

68 



PLA 


Low-Byte wieder holen 

9AB8 

90 

EF 


BCC 

$9AA9 

Unbedingter Sprung 

9ABA 

48 



PHA 


Low-Byte retten 

9ABB 

A2 

00 


LDX 

#$00 

Offset für Sinus 

9ABD 

AD 

49 

11 

LDA 

$1149 

Ist ein Sinus ausgerechnet worden ? 

9AC0 

4A 



LSR 


Bit 0 ist wichtig ! 

9AC1 

BO 

02 


BCS 

$9AC5 

Ja, Skip 

9AC3 

A2 

02 


LDX 

#$02 

Offset für Cosinus 

9AC5 

68 



PLA 


Low-Byte holen 

9AC6 

9D 

4A 

11 

STA 

$114A,X 

Winkelfunktionswert eintragen 

9AC9 

98 



TYA 


High-Byte holen 

9ACA 

9D 

4B 

11 

STA 

$114B,X 

und Wert eintragen 

9ACD 

60 



RTS 




****************************** siN/COS mit Koordinate multiplizieren 


9ACE 

A0 

19 


LDY 

#$19 

Offset für Sinuswert laden 

9 ADO 

90 

02 


BCC 

$9 AD 4 

Wenn Sinus multiplizieren, Skip 

9 AD 2 

A0 

1 El 


LDY 

#$1 B 

Offset für Cosinuswert 

9AD4 

AD 

49 

11 

LDA 

$1149 

Quadrant 

9 AD 7 

69 

02 


ADC 

#$02 

+ 2 

9AD9 

4A 



LSR 



9ADA 

4A 



LSR 


Carry = Flag Quadrant 1 oder 4 

9ADB 

08 



PHP 



9 ADC 

20 8F 9D 

JSR $908F 

Koordinate mit Offset (Y) in (A)/(Y) 

laden 







9ADF 

CO 

FF 


CPY 

#$FF 

Wert unpassend ? 

9AE1 

90 

07 


BCC 

$9AEA 

Nein, Skip 

9AE3 

8A 



TXA 


Koordinatennummer in (Y) bringen 

9AE4 

A8 



TAY 



9AE5 

20 

8F 

9D 

JSR 

$9D8F 

Koordinate laden 

9AE8 

B0 

03 


BCS 

$9AED 

Unbedingter Sprung 

9AEA 

20 

AE 

9D 

JSR 

$9DAE 

Koordinate mit Winkelwert multiplizieren 

9AED 

28 



PLP 


Quadrant 1 oder 4 ? 

9AEE 

B0 

1B 


BCS 

$9B0B 

Ja, Ende 

9AF0 

4C 

VL 

9D 

JMP 

$9D9E 

Ergebnis negieren 

*#******t*********<r*********** 

Abstandswerte berechnen 

9AF3 

8D 

4E 

11 

STA 

$114E 

SIN/COS-Flag setzen 

9AF6 

A2 

23 


LDX 

#$23 

Offset auf Abstandsspeicher 

9AF8 

0E 

4E 

11 

ASL 

$114E 

SIN/COS-Bit setzen 
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9AFB 

20 

CE 

9A 

JSR 

$9ACE 

SIN/COS-Wert multiplizieren 

9AFE 

9D 

31 

11 

STA 

$1131,X 

Abstandswerte von $1154-$115B setzen 

9B01 

98 



TYA 


High-Byte laden 

9B02 

9D 

32 

11 

STA 

$1132,X 

und setzen 

9B05 

E8 



I NX 


Offset erhöhen 

9B06 

E8 



INK 


Offset erhöhen 

9B07 

E0 

2B 


CPX 

#$2B 

Beide Abstände ausgerechnet ? 

9B09 

90 

ED 


BCC 

$9AF8 

Nein, nochmal 

9B0B 

60 



RTS 




****************************** BASIC-Befehl RDOT 


9B0C 

20 

F7 

87 

JSR 

$87F7 

Byte-Wert holen 

9B0F 

E0 

02 


CPX 

#$02 

= 2 ? 

9B11 

90 

10 


BCC 

$9B23 

Wenn < 2, Skip 

9B13 

F0 

03 


BEQ 

$9818 

Wenn = 2, Skip 

9B15 

4C 

28 

70 

JMP 

$7028 

•ILLEGAL QUANTITY 1 

9B18 

20 

49 

9C 

JSR 

$9C49 

Farbwert an aktuellen Koordinaten lesen 

9B1B 

A8 



TAY 


Wert in (Y) 

9B1C 

90 

02 


BCC 

$9B20 

Wenn kein Fehler, Skip 

9B1E 

A0 

00 


LDY 

#$00 

Sonst Wert für Hintergrundfarbe 

9B20 

4C 

D4 

84 

JMP 

$84D4 

in FAC#1 

9B23 

8A 



TXA 


Offset in (A) 

9B24 

0A 



ASL 


= Wert * 2 

9B25 

AA 



TAX 


Als Offset laden 

9B26 

B0 

31 

11 

LDA 

$1131,X Und aktuelle X- oder Y-Koordinate 

auslesen 






9B29 

A8 



TAY 


Low-Byte in (Y) retten 

9B2A 

BD 

32 

11 

LDA 

$1132 

,X High-Byte laden 

9B2D 

4C 

3C 

79 

JMP 

$793C 

und in FAC#1 


****************************** |.jnie von aktueller Koordinate zu 

Zielkoordinate ziehen 


9B30 

A2 

02 


LOX 

#$02 

9B32 

A0 

06 


LDY 

#$06 

9B34 

A9 

00 


LDA 

#$00 

9B36 

90 

30 

11 

STA 

$113D,X 

9B39 

90 

3E 

11 

STA 

$113E,X 

9B3C 

20 

99 

90 

JSR 

$9D99 

9B3F 

10 

08 


BPL 

$9B49 

9B41 

DE 

30 

11 

DEC 

$1130,X 

9B44 

DE 

3E 

11 

DEC 

$113E, X 

9B47 

DO 

OB 


BNE 

$9B54 

9B49 

C9 

00 


CMP 

#$00 

9B4B 

DO 

04 


BNE 

$9B51 


Offset auf Y-Vorzeichen 
Offset auf Y-Zielkoordinate 

Vorzeichen auf $0000 
setzen 

(A)/(Y) = ABS(Start - Ziel) 
Wenn Differnez positiv, Skip 
Vorzeichen auf $FFFF 
setzen 

Unbedingter Skip 
Ergebnis = 0 ? 

Nein, Skip 
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97CD 

CD 

23 

01 

CMP $0123 

< Nummernstart ? 

97D0 

90 

28 


BCC $97FA 

Ja, Ende 

97D2 

AA 



TAX 

Wert als Offset laden 

97D3 

BD 

00 

01 

LDA $0100,X 

Ziffer holen 

97D6 

C9 

35 


CMP #$35 

•5' ? (Aufrunden) 

97D8 

90 

20 


BCC $97FA 

Nein, Ende 

97DA 

EC 

23 

01 

CPX $0123 

Nummernanfang erreicht ? 

97DD 

F0 

0A 


BEQ $97E9 

Ja, Skip 

97DF 

CA 



DEX 

Voranstehende Ziffer anwählen 

97E0 

20 

82 

97 

JSR $9782 

Ziffer testen 

97E3 

8E 

24 

01 

STX $0124 

Zeiger auf Nummernende setzen 

97E6 

F0 

F2 


BEO $97DA 

Uenn Korrektur nötig, weitermachen 

97E8 

60 



RTS 


97E9 

A9 

31 


LDA #$31 

•1' 

97EB 

9D 

00 

01 

STA $0100,X 

in Nummernfeld setzen 

97EE 

E8 



I NX 

Offset erhöhen 

97EF 

86 

80 


STX $80 

Kommaposition setzen 

97F1 

C6 

77 


DEC $77 

Länge korrigieren 

97F3 

10 

05 


BPL $97FA 

Wenn korrekt, Ende 

97F5 

E6 

77 


INC $77 

Länge auf 0 

97F7 

EE 

2A 

01 

INC $012A 

Eine Vorkommastelle mehr 

97FA 

60 



RTS 



****************************** zahl anpassen 


97FB 

A4 

80 


LDY 

$80 

97FD 

F0 

17 


BEQ 

$9816 

97FF 

AC 

23 

01 

LDY 

$0123 

9802 

B9 

00 

01 

LDA 

$0100,Y 

9805 

C9 

30 


CMP 

#$30 

9807 

60 



RTS 


9808 

E6 

80 


INC 

$80 

980A 

20 

30 

97 

JSR 

$973D 

980D 

EE 

23 

01 

INC 

$0123 

9810 

CC 

24 

01 

CPY 

$0124 

9813 

F0 

E5 


BEQ 

$97FA 

9815 

C8 



I NY 


9816 

20 

02 

98 

JSR 

$9802 

9819 

F0 

ED 


BEQ 

$9808 

981B 

60 



RTS 


9810 

CC 

24 

01 

CPY 

$0124 

9813 

F0 

E5 


BEQ 

$97FA 

9815 

C8 



INY 


9816 

20 

02 

98 

JSR 

$9802 


Komma an erster Stelle ? 

Ja, Skip 

Zeiger auf Nummernanfang setzen 

Aktuelle Ziffer 
auf ’O 1 testen 


Kommaposition korrigieren 
Ziffer anpassen 
Nummernanfang korrigieren 
Nummernende erreicht ? 

Ja, Ende 
Offset erhöhen 
Ziffer = '0' ? 

Ja, Zahl anpassen 


Nummernende erreicht ? 
Ja, Ende 
Offset erhöhen 
Ziffer = 'O' ? 
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9819 FO ED BEQ $9808 Ja, Zahl anpassen 
981B 60 RTS 


*★****★★*★★★*★*****★**★*★*★★** z a hi formatiert ausgabcn 


981C 

AD 

25 

01 

LDA 

$0125 

Dollarzeichen ? 

981F 

30 

02 


BMI 

$9823 

Nein, Skip 

9821 

E 6 

77 


INC 

$77 

Länge erhöhen 

9823 

AE 

23 

01 

LDX 

$0123 

Anfangszeiger setzen 

9826 

CA 



DEX 


Zähler erniedrigen 

9827 

AC 

34 

01 

LDY 

$0134 

Zeiger auf Feldbeginn setzen 

982A 

20 

D3 

42 

JSR 

$42D3 

Zeichen aus String holen 

982D 

C 8 



INY 


Offset erhöhen 

982E 

C9 

2C 


CMP 

#$2C 

i i 7 
f 

9830 

DO 

14 


BNE 

$9846 

Nein, Skip 

9832 

2C 

26 

01 

BIT 

$0126 

Füllzeichenflag gesetzt ? 

9835 

30 

09 


BMI 

$9840 

Ja, Skip 

9837 

8 D 

03 

FF 

STA 

$FF03 

Read aus Bank 0 setzen 

983A 

AD 

05 

12 

LDA 

$1205 

Kommazeichen laden 

983D 

4C 

AB 

98 

JMP 

$98 AB 

Zeichen ausgeben 

9840 

AD 

33 

01 

LDA 

$0133 

Füllzeichen laden 

9843 

4C 

AB 

98 

JMP 

$98AB 

und ausgeben 

9846 

C9 

2E 


CMP 

#$2E 

? 

9848 

DO 

09 


BNE 

$9853 

Nein, Skip 

984A 

8 D 

03 

FF 

STA 

$FF03 

Read aus Bank 0 setzen 

984D 

AD 

06 

12 

LDA 

$1206 

Dezimalpunktzeichen laden 

9850 

4C 

AB 

98 

JMP 

$98AB 

und ausgeben 

9853 

C9 

2B 


CMP 

#$2B 

' + ' ? 

9855 

FO 

3B 


BEQ 

$9892 

Ja, Skip 

9857 

C9 

2D 


CMP 

#$2D 

? 

9859 

FO 

32 


BEQ 

$988D 

Ja, Skip 

985B 

C9 

5E 


CMP 

#$5E 

1 A 1 7 

985D 

DO 

69 


BNE 

$98C8 

Nein, Skip 

985 F 

A9 

45 


LDA 

#$45 

• E • 

9861 

20 

EB 

98 

JSR 

$98EB 

Zeichen auf Schirm 

9864 

AC 

29 

01 

LDY 

$0129 

Zeiger auf Exponenten setzen 

9867 

20 

02 

98 

JSR 

$9802 

Zeichen mit '0' vergleichen 

986A 

DO 

06 


BNE 

$9872 

Keine '0', Skip 

986C 

C 8 



INY 


Zeichen über lesen 

986D 

20 

02 

98 

JSR 

$9802 

Exponent ganz = 0 ? 

9870 

FO 

07 


BEQ 

$9879 

Ja, Skip 

9872 

A9 

2 D 


LDA 

#$2D 

1 . 1 

9874 

2C 

28 

01 

BIT 

$0128 

Vorzeichen des Exponenten negativ ? 

9877 

30 

02 


BMI 

$987B 

Ja, Skip 

9879 

A9 

28 


LDA 

#$2B 
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9C08 

EE 

32 

11 

INC 

$1132 

Übertrag berücksichtigen 

9C0B 

20 

19 

9C 

JSR 

$9C19 

Punkt setzen 

9C0E 

AE 

31 

11 

LDX 

$1131 

X-Koordinate erniedrigen 

9C11 

DO 

03 


BNE 

$9C16 

Kein Übertrag, Skip 

9C13 

CE 

32 

11 

DEC 

$1132 

Übertrag berücksichtigen 

9C16 

CE 

31 

11 

DEC 

$1131 

Low-Byte erniedrigen 

*★★********★★★★**★*★★**★★★*★★★ 

Punkt nach Farbquelle setzen 

9C19 

20 

24 

9D 

JSR 

$9D24 

Graphikkoordinaten auf Schirm umrechnen 

9C1C 

BO 

24 


BCS 

$9C42 

Wenn Fehler, Skip 

9C1E 

20 

70 

9C 

JSR 

o 

n 

-Nl 

o 

Farbwert in Video-RAM setzen 

9C21 

20 

E8 

9C 

JSR 

$9CE8 

Schirmadresse berechnen 

9C24 

8 D 

6 D 

11 

STA 

$1160 

Bitmuster speichern 

9C27 

Bl 

8 C 


LDA 

($8C),Y 

Zeichen aus Schirm holen 

9C29 

OD 

6 D 

11 

ORA 

$116D 

Bit setzen 

9C2C 

24 

D8 


BIT 

$D8 

Multicolormodus ? 

9C2E 

10 

13 


BPL 

$9C43 

Nein, Skip 

9C30 

48 



PHA 


Zeichenwert retten 

9C31 

A6 

83 


LDX 

$83 

Bitmuster nach Farbquelle korrigieren 

9C33 

AD 

60 

11 

LDA 

$1160 


9C36 

3D 

25 

9F 

AND 

$9F25,X 


9C39 

80 

6 D 

11 

STA 

$1160 


9C3C 

68 



PLA 


Zeichen wieder holen 

9C3D 

4D 

6 D 

11 

EOR 

$116D 

mit Bitmuster verknüpfen 

9C40 

91 

8 C 


STA 

($8C),Y 

Bitmuster in Schirm setzen 

9C42 

60 



RTS 



9C43 

A6 

83 


LDX 

$83 

Farbquelle gesetzt ? 

9C45 

DO 

F9 


BNE 

$9C40 

Ja, Bitmuster in Schirm 

9C47 

FO 

F4 


BEO 

$9C3D 

Nein, Bit löschen und in Schirm 

****************************** 

Koordinaten testen (für PAINT) 

9C49 

20 

E3 

9C 

JSR 

$9CE3 

Schirmadresse berechnen 

9C4C 

BO 

21 


BCS 

$9C6F 

Wenn Fehler, Skip 

9C4E 

80 

60 

11 

STA 

$1160 

Bitmuster setzen 

9C51 

Bl 

8 C 


LDA 

($80,Y 

Bitmuster aus Schirm holen 

9C53 

2 D 

60 

11 

AND 

$1160 

Gesuchtes Bitmuster isolieren 

9C56 

2A 



ROL 


und an Anfang von (A) bringen 

9C57 

CA 



DEX 


Zähler erniedrigen 

9C58 

10 

FC 


BPL 

$9C56 

Bitmuster weiter schieben, wenn nötig 

9C5A 

2A 



ROL 


Bit in C-Flag schieben 

9C5B 

24 

8 B 


BIT 

$88 

Vergleich auf Hintergrundfarbe ? 

9C5D 

30 

06 


BMI 

$9C65 

Ja, Skip 

9C5F 

29 

03 


AND 

#$03 

Bitmuster normalisieren 

9C61 

C5 

83 


CMP 

$83 

= gewählte Farbe ? 

9C63 

18 



CLC 
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9C64 

60 


RTS 


9C65 

18 


CLC 


9C66 

29 

03 

AND #$03 

Bitmuster normalisieren 

9C68 

F0 

03 

BEQ $9C6D 

Wenn Hintergrundfarbe, Skip 

9C6A 

A2 

00 

LDX #$00 

BEQ 

9C6C 

60 


RTS 


9C6D 

A2 

FF 

LDX #$FF 

BNE 

9C6F 

60 


RTS 



★★★★★★★★*★★*★**★★★★★★*★★★***★★ Aktuellen Farbwert in Zeile (X) 

und Spalte (Y) bringen 


9C70 

BD 

33 

CO 

LDA 

$C033,X 

Videoadresse im HIRES-Modus setzen 

9C73 

85 

8 C 


STA 

$8C 

Low-Byte setzen 

9C75 

BD 

CA 

9C 

LDA 

$9CCA,X 

High-Byte für HIRES-Farbschirm laden 

9C78 

85 

8 D 


STA 

$8D 

High-Byte setzen 

9C7A 

A5 

83 


LDA 

$83 

Farbquelle = Hintergrund ? 

9C7C 

DO 

08 


BNE 

$9C86 

Nein, Skip 

9C7E 

AD 

E2 

03 

LDA 

$03E2 

Hintergrundnibble laden 

9C81 

24 

D8 


BIT 

$D8 

Mehrfarbmodus ? 

9C83 

10 

08 


BPL 

$9C8D 

Nein, Skip 

9C85 

60 



RTS 



9C86 

C9 

02 


CMP 

#$02 

Farbquelle = Zusatzfarbe 1 ? 

9C88 

DO 

10 


BNE 

$9C9A 

Nein, Skip 

9C8A 

AD 

E3 

03 

LDA 

& 

O 

M 

r— 

W 

Multicolornibble 1 laden 

9C8D 

29 

OF 


AND 

#$0F 

und Farbnibble isolieren 

9C8F 

85 

77 


STA 

$77 

Farbnibble setzen 

9C91 

Bl 

8 C 


LDA 

($80, Y 

Farbwert aus Bildschirm laden 

9C93 

29 

FO 


AND 

#$F0 

oberes Nibble isolieren 

9C95 

05 

77 


ORA 

$77 

und mit Farbnibble verknüpfen 

9C97 

91 

8 C 


STA 

($80,Y 

Farbwert wieder setzen 

9C99 

60 



RTS 



9C9A 

BO 

10 


BCS 

$9CAC 

Wenn Farbquelle > 2, Skip 

9C9C 

AD 

E2 

03 

LDA 

V» 

O 

W 

m 

rvj 

Multicolornibble 2 laden 

9C9F 

29 

FO 


AND 

#$F0 

Oberes Nibble isolieren 

9CA1 

85 

77 


STA 

$77 

und setzen 

9CA3 

Bl 

8 C 


LDA 

($80, Y 

Farbwert aus Bildschirm laden 

9CA5 

29 

OF 


AND 

#$0F 

Unteres Nibble isolieren 

9CA7 

05 

77 


ORA 

$77 

und mit Farbnibble verknüpfen 

9CA9 

91 

8 C 


STA 

($80, Y 

Farbwert wieder setzen 

9CAB 

60 



RTS 



9CAC 

A5 

8 D 


LDA 

$80 

Adreßzeiger auf Farb-RAM setzen 

9CAE 

29 

03 


AND 

#$03 

Wichtige Bits retten 

9CB0 

09 

D8 


ORA 

#$D8 

High-Byte auf $D800 setzen 

9CB2 

85 

8 D 


STA 

$8D 

und speichern 

9CB4 

A9 

00 


LDA 

o 

o 

Alle ROMs und I/0-Bereich anschalten 
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9CB6 

80 

o 

o 

FF 

STA 

$FF00 


9CB9 

78 



SEI 


Schirmverwaltung ausschalten 

9CBA 

A5 

01 


LDA 

$01 

Färb-RAM-Auswahl retten 

9CBC 

48 



PHA 



9CBD 

29 

FE 


AND 

#$FE 

Färb-RAM 2 für Graphik anwählen 

9CBF 

85 

01 


STA 

$01 


9CC1 

A5 

85 


LDA 

$85 

Multicolorfarbe 2 

9CC3 

91 

8 C 


STA 

($8C),Y 

in Farb-RAM setzen 

9CC5 

68 



PLA 


Auswahl wieder holen 

9CC6 

85 

01 


STA 

$01 

Färb-RAM-Auswahl wieder setzen 

9CC8 

58 



CU 


Schirmverwaltung wieder ein 

9CC9 

60 



RTS 



****************************** 

Video-RAM High-Bytes im HIRES-Modus 

9CCA 

IC 

IC 

IC 

IC IC 

IC IC ID 


9CD2 

10 

ID 

10 

ID ID 

IE IE IE 


9CDA 

IE 

IE 

IE 

IE 1F 

1F 1F 1F 


****************************** 

Graphikschirmadreßwerte berechnen 

9CE3 

20 

24 

9D 

JSR 

$9024 

Koordinate umrechnen 

9CE6 

BO 

33 


BCS 

$9D1B 

Wenn unpassende Koordinate, Ende 

9CE8 

98 



TYA 



9CE9 

18 



CLC 



9CEA 

7D 

33 

CO 

ADC 

$C033,X 

($8C) = 8 * Schirmposition 

9CED 

85 

8 C 


STA 

$8C 

entspricht Graphikschirmadresse 

9CEF 

BD 

4C 

CO 

LDA 

6* 

ro 

o 

o 

X 

High-Byte laden 

9CF2 

69 

00 


ADC 

#$00 

Übertrag berücksichtigen 

9CF4 

06 

8 C 


ASL 

$8C 

Low-Byte * 2 

9CF6 

2A 



ROL 


High-Byte * 2 

9CF7 

06 

8 C 


ASL 

$8C 

Low-Byte * 4 

9CF9 

2A 



ROL 


High-Byte * 4 

9CFA 

06 

8 C 


ASL 

$8C 

Low-Byte * 8 

9CFC 

2A 



ROL 


High-Byte * 8 

9CFD 

85 

80 


STA 

$80 

High-Byte setzen 

9CFF 

AD 

33 

11 

LDA 

$1133 

(Y) = Y-Uert AND 7 

9D02 

29 

07 


AND 

#$07 


9004 

A8 



TAY 


Als Offset auf Byte an Position laden 

9005 

AD 

31 

11 

LDA 

$1131 

X-Wert laden 

9D08 

24 

D8 


BIT 

$D8 

Multicolormodus ? 

9D0A 

08 



PHP 


Status retten 

90 OB 

10 

01 


BPL 

$9D0E 

Nein, Skip 

9000 

OA 



ASL 


X-Uert verdoppeln 

9D0E 

29 

07 


AND 

#$07 

(X) = X-Wert AND 7 

9D10 

AA 



TAX 


Als Offset auf Bit laden 

9011 

BD 

IC 

9D 

LDA 

$9D1C,X 

Bitposition aus Tabelle holen 

9014 

28 



PLP 


Multicolormodus ? 
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9015 

10 04 

BPL $901B 

Nein, Skip 

9D17 

E8 

I NX 

Offset erhöhen 

9D18 

ID IC 90 

0RA $9D1C, X 

2. Bit dazusetzen 

9D1B 

60 

RTS 



Zw6iGrpotcnzGn sbwärts 


90IC 80 40 20 10 08 04 02 01 

****************************** Aktuelle Koordinate auf Schirmpositionen 

umrechnen 


9024 

AD 

32 

11 

LOA $1132 

X-High > 1 ? 

9D27 

4A 



LSR 


9D28 

00 

IE 


BNE $9048 

Ja, SEC Ende 

9D2A 

AD 

31 

11 

LDA $1131 


9020 

6 A 



ROR 

X-Wert / 4 

9D2E 

4A 



LSR 


9D2F 

24 

D8 


BIT $08 

Mehrfarbmodus ? 

9031 

30 

01 


BMI $9034 

Ja, Skip 

9033 

4A 



LSR 

X-Wert / 8 

9034 

A8 



TAY 


9D35 

CO 

28 


CPY #$28 

Schirmwert > 39 ? 

9D37 

B0 

OF 


BCS $9048 

Ja, SEC Ende 

9D39 

AD 

34 

11 

LDA $1134 

Y-High gesetzt ? 

9D3C 

DO 

OA 


BNE $9048 

Ja, SEC Ende 

9D3E 

AD 

33 

11 

LDA $1133 

Y-Wert / 8 

9D41 

4A 



LSR 


9042 

4A 



LSR 


9D43 

4A 



LSR 


9D44 

AA 



TAX 


9D45 

C9 

19 


CMP #$19 

Wenn Y-Wert > 24, SEC 

9D47 

60 



RTS 


9D48 

38 



SEC 

SEC = Koordinaten unpassend 

9049 

60 



RTS 



X und Y skalieren 

9D4A 

AD 

6 A 

11 

LOA $116A 

Skalierung ? 

904D 

FO 

17 


BEQ $9D66 

Nein, Ende 

9D4F 

A5 

87 


LDA $87 

Skalierungsfaktor X laden 

9D51 

A4 

88 


LDY $88 


9053 

20 

5A 

9D 

JSR $905A 

X-Koordinate skalieren 

9D56 

A5 

89 


LDA $89 

Skalierungsfaktor Y laden 

9D58 

A4 

8 A 


LDY $8A 
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****************************** Eine Koordinate skalieren 


9D5A 

20 AE 

90 

JSR $9DAE 

Wert mit Koordinate multiplizieren 

9D5D 

90 31 

11 

STA $1131,X 

Neuen Koordinatenwert setzen 

9060 

98 


TYA 


9061 

E8 


INX 

Offset erhöhen 

9D62 

9D 31 

11 

STA $1131,X 


9D65 

E8 


INX 

Offset erhöhen 

9066 

60 


RTS 



****************************** (A)/(Y) = (A)/(Y) +/- Koordinate 2 


9D67 90 07 BCC $9D70 Addition, Skip 

9D69 BO 14 BCS $9D7F Subtraktion, Skip 

****************************** (A)/(Y) = Koordinate 1 +/- Koordinate 2 
9D6B BO 0F BCS $9D7C Subtraktion, Skip 

****************************** (A)/(Y) = Koordinate 1 + Koordinate 2 


9D6D 

20 

8 F 

90 

JSR $9D8F 

Aktuelle Koordinate laden 

9070 

18 



CLC 


9071 

7D 

31 

11 

ADC $1131,X 

Low-Byte aufaddieren 

9D74 

48 



PHA 

und retten 

9075 

98 



TYA 

High-Byte laden 

9076 

70 

32 

11 

ADC $1132,X 

Koordinate aufaddieren 

9D79 

A8 



TAY 

und High-Byte in (Y) 

9D7A 

68 



PLA 

Low-Byte wieder in (A) 

90 7B 

60 



RTS 



****************************** (A)/(Y) = Koordinate 1 - Koordinate 2 


9D7C 

20 

8 F 

9D 

JSR 

$9D8F 

Aktuelle Koordinate laden 

90 7F 

38 



SEC 



9D80 

FD 

31 

11 

SBC 

$1131,X 

Low-Byte abziehen 

9083 

85 

59 


STA 

$59 

und retten 

9085 

98 



TYA 


High-Byte laden 

9086 

FD 

32 

11 

SBC 

$1132,X 

und abziehen 

9D89 

A8 



TAY 


High-Byte wieder in (Y) 

9D8A 

08 



PHP 


Status retten 

9D8B 

A5 

59 


LOA 

$59 

Low-Byte wieder laden 

908D 

28 



PLP 


und Status wieder holen 

9D8E 

60 



RTS 




****************************** Aktuelle Koordinate 1 in (A)/(Y) 


9D8F B9 31 11 LOA S1131,Y low-Byte laden 
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9092 

48 

PHA 

und retten 

9D93 

B9 32 11 

LDA $1132,Y 

High-Byte laden 

9D96 

A8 

TAY 

und in (Y) 

9D97 

68 

PLA 

Low-Byte wieder holen 

9D98 

60 

RTS 



****************************** (A)/(Y) = ABSCKoordinate 1 • Koordinate 
2 ) 

9D99 20 7C 9D JSR S907C Koordinaten voneinander abziehen 


****************************** (A)/(Y) = ABS((A)/(Y)) 


9D9C 

10 0F 

BPL $90AD 

Wenn positiv, Skip 


909E 

08 

PHP 

Status retten 


9D9F 

18 

CIC 



9DA0 

49 FF 

EOR #$FF 

Zweierkomplement des 

Low-Byte 

9DA2 

69 01 

ADC #$01 

errechnen 


9DA4 

48 

PHA 

und retten 


9DA5 

98 

TYA 

High-Byte holen 


9DA6 

49 FF 

EOR #$FF 

Zweierkomplement des 

High-Byte 

9DA8 

69 00 

ADC #$00 

errechnen 


90 AA 

A8 

TAY 

ergibt positiven 


9DAB 

68 

PLA 

Wert in (A)/(Y) 


9DAC 

28 

PLP 

Status wieder laden 


90 AD 

60 

RTS 




****************************** Koordinate mit (A)/(Y) multiplizieren 


9DAE 

84 

8 E 


STY 

$8E 

Skalierungsfaktor setzen 

9DB0 

85 

8 r 


STA 

$8F 


90 B2 

BD 

31 

11 

LDA 

$1131,X 

Koordinate laden 

9DB5 

BC 

32 

11 

LOY 

$1132,X 


90 B8 

08 



PHP 


Vorzeichen retten 

90 B9 

20 

9C 

9D 

JSR 

$9D9C 

Absolutwert bi Iden 

9DBC 

90 

31 

11 

STA 

$1131,X 

Koordinate wieder speichern 

9DBF 

98 



TYA 


High-Byte in (A) 

9DC0 

90 

32 

11 

STA 

$1132,X 

und High-Byte setzen 

90 C3 

A9 

00 


LDA 

#$00 

Übertrag löschen 

90 C5 

8 D 

77 

11 

STA 

$1177 


9DC8 

A0 

10 


LOY 

#$10 

Koordinate mit Faktor multiplizieren 

9DCA 

46 

8 E 


LSR 

$8E 


9DCC 

66 

8 F 


ROR 

$8F 


9DCE 

90 

0F 


BCC 

$9DDF 


9DD0 

18 



CLC 



9DD1 

7D 

31 

11 

ADC 

$1131,X 


9DD4 

48 



PHA 



9DD5 

AD 

77 

11 

LDA 

$1177 
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9DD8 

7D 

32 

11 

ADC 

$1132,X 

Übertrag berücksichtigen 

9DDB 

8 D 

77 

11 

STA 

$1177 

Übertrag setzen 

9DDE 

68 



PLA 



9DDF 

4E 

77 

11 

LSR 

$1177 


9DE2 

6 A 



ROR 



9DE3 

88 



DEY 


16 Bit multipliziert ? 

9DE4 

DO 

E4 


BNE 

$9DCA 

Nein, weitermachen 

9DE6 

69 

00 


ADC 

#$00 

Übertrag setzen 

9DE8 

AC 

77 

11 

LDY 

$1177 

High-Byte laden 

9DEB 

90 

01 


BCC 

$9DEE 

Kein Übertrag, Skip 

9DED 

C8 



INY 


Übertrag berücksichtigen 

9DEE 

28 



PLP 


Altes Vorzeichen holen 

9DEF 

4C 

9C 

9D 

JMP 

$9D9C 

und wieder herstellen 


****************************** Aktuelle Koordinaten in Zielkoordinaten 


9DF2 

A0 

00 

LDY #$00 

Offset auf X-Startkoordinaten 

9DF4 

20 

F9 90 

JSR $9DF9 

Koordinate kopieren 

9DF7 

A0 

02 

LDY #$02 

Offset auf Y-Startkoordinaten 


****************************** Eine Koordinate kopieren 


9DF9 

B9 

35 

11 

LDA $1135,Y 

Low-Byte Quelle laden 

9DFC 

99 

31 

11 

STA $1131,Y 

und an Ziel speichern 

9DFF 

B9 

36 

11 

LDA $1136,Y 

High-Byte Quelle laden 

9E02 

99 

32 

11 

STA $1132,Y 

und an Ziel speichern 

9E05 

60 



RTS 



****************************** Ausdruck in (A)/(Y) holen 


9E06 

20 

86 

03 

JSR $0386 

CHRGOT 

9E09 

F0 

oc 


BEQ $9E17 

Wenn Trennzeichen, Skip 

9E0B 

20 

5C 

79 

JSR S795C 

Test auf Komma 

9E0E 

C9 

2C 


CMP #$2C 

Nächstes Zeichen = ? 

9E10 

F0 

05 


BEQ $9E17 

Ja, Skip 

9E12 

20 

12 

88 

JSR $8812 

Ausdruck in (A)/(Y) holen 

9E15 

38 



SEC 

SEC = Ausdruck gefunden 

9E16 

60 



RTS 


9E17 

A9 

00 


LDA #$00 

(A)/(Y) = 0 

9E19 

A8 



TAY 


9E1A 

18 



CLC 

CLC = Kein Ausdruck gefunden 

9E1B 

60 



RTS 



****************************** Byte-Wert in (X) holen 


9E1C 

A2 

00 

LDX 

o 

o 

3* 

9E1E 

20 

86 03 

JSR 

$0386 

9E21 

F0 

F7 

BEQ 

$9E1A 


Wert mit 0 vorbesetzen 
CHRGOT 

Uenn Trennzeichen, Ende 
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9E23 

20 

5C 

79 

JSR 

$795 C 

Test auf Komma 

9E26 

C9 

2C 


CMP 

#$2C 

Nächstes Zeichen = ? 

9E28 

F0 

FO 


BEQ 

$9E1A 

Ja, Ende 

9E2A 

20 

F4 

87 

JSR 

$87F4 

Byte-Wert in (X) holen 

9E2D 

38 



SEC 


SEC = Wert gefunden 

9E2E 

60 



RTS 



****************************** 

Farbqueüe auswerten 

9E2F 

20 

74 

AO 

JSR 

vT 

r- 

o 

< 

4A 

Test auf HIRES-Bereich 

9E32 

A2 

01 


LDX 

#$01 

Wert mit 1 vorbesetzen 

9E34 

20 

86 

03 

JSR 

$0386 

CHRGOT 

9E37 

FO 

13 


BEQ 

$9E4C 

Wenn Trennzeichen, Skip 

9E39 

C9 

2C 


CMP 

#$2C 

i i ? 
f 

9E3B 

FO 

OF 


BEQ 

$9E4C 

Ja, Skip 

9E3D 

20 

F4 

87 

JSR 

$87F4 

Byte-Wert holen 

9E40 

EO 

04 


CPX 

#$04 

> 3 ? 

9E42 

BO 

OB 


BCS 

$9E4F 

Ja, Fehler 

9E44 

EO 

02 


CPX 

#$02 


9E46 

24 

D8 


BIT 

$D8 

Graphikschi rin ? 

9E48 

30 

02 


BMI 

$9E4C 

Ja, Skip 

9E4A 

BO 

03 


BCS 

$9E4F 

Wenn Zahl > 1 und keine Graphik, Fehlei 

9E4C 

86 

83 


STX 

$83 

Farbqueüe speichern 

9E4E 

60 



RTS 



9E4F 

4C 

28 

7D 

JMP 

$7D28 

■ILLEGAL QUANTITY ERROR 1 

★★★★★★★★★★★★•fr***************** 

Koordinate holen, keine Angabe erlaubt 

9E52 

20 

86 

03 

JSR 

$0386 

CHRGOT 

9E55 

FO 

07 


BEQ 

$9E5E 

Wenn Trennzeichen, Skip 

9E57 

20 

5C 

79 

JSR 

$795C 

Test auf Komma 

9E5A 

C9 

2C 


CMP 

#$2C 

Nächstes Zeichen = ',' 7 

9E5C 

DO 

12 


BNE 

$9E70 

Nein, Skip 

9E5E 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

9E60 

B9 

31 

11 

LDA 

$1131,Y 

Aktuelle Koordinate laden 

9E63 

90 

31 

11 

STA 

$1131,X 

und an Ziel setzen 

9E66 

E8 



I NX 


Offset erhöhen 

9E67 

C8 



INT 


Offset erhöhen 

9E68 

CO 

04 


CPY 

#$04 

Koordinate kopiert ? 

9E6A 

DO 

F4 


BNE 

nO 

m 

O 

o 

Nein, nochmal 

9E6C 

60 



RTS 



****************************** 

Koordinate holen, Angabe zwingend 

9E6D 

20 

5C 

79 

JSR 

$795C 

Test auf Komma 

9E70 

8 E 

78 

11 

STX 

$1178 

Koordinatenoffset setzen 

9E73 

20 

08 

9F 

JSR 

$9F08 

Eine Koordinate holen 



Das BAS IC-ROM 


663 


9E76 

20 

86 

03 

JSR 

$0386 

CHRGOT 

9E79 

C9 

2C 


CMP 

#$2C 

i l 7 

i 

9E7B 

FO 

56 


BEQ 

$9ED3 

Ja, Skip 

9E7D 

C9 

3B 


CMP 

#$3B 

i . i 7 
r 

9E7F 

FO 

03 


BEQ 

$9E84 

Ja, Skip 

9E81 

4C 

6 C 

79 

JMP 

$796C 

•SYNTAX 1 

9E84 

20 

80 

03 

JSR 

$0380 

CHRGET 

9E87 

20 

12 

88 

JSR 

$8812 

Ausdruck in (Y)/(A) holen 

9E8A 

85 

77 


STA 

$77 

(A) und (Y) vertauschen 

9E8C 

98 



TYA 



9E8D 

A4 

77 


LDY 

$77 


9E8F 

20 

77 

9A 

JSR 

$9A 77 

Winkelwerte für (A)/(Y) berechnen 

9E92 

AE 

78 

11 

LDX 

$1178 


9E95 

BO 

31 

11 

LOA 

$1131,X 

Y-Wert = X-Uert 

9E98 

90 

33 

11 

STA 

$1133,X 


9E9B 

BD 

32 

11 

LDA 

$1132,X 


9E9E 

9D 

34 

11 

STA 

$1134,X 


9EA1 

20 

4A 

90 

JSR 

$9D4A 

Koordinaten skalieren 

9EA4 

A9 

OE 


LDA 

#$0E 


9EA6 

80 

79 

11 

STA 

$1179 


9EA9 

18 



CLC 



9EAA 

AE 

78 

11 

LDX 

$1178 

Koordinatennummer laden 

9EAD 

20 

CE 

9A 

JSR 

$9ACE 

Sinus mit Koordinate multiplizieren 

9EB0 

90 

31 

11 

STA 

$1131,X 


9EB3 

98 



TYA 



9EB4 

9D 

32 

11 

STA 

$1132,X 


9EB7 

AO 

00 


LDY 

#$00 

Offset auf Koordinate laden 

9EB9 

4E 

79 

11 

LSR 

$1179 

Relativkoordinate ? 

9EBC 

90 

02 


BCC 

$9EC0 

Nein, Skip 

9EBE 

AO 

02 


LDY 

#$02 

Offset auf Koordinate laden 

9EC0 

20 

6 B 

90 

JSR 

$9D6B 

Wert aufaddieren 

9EC3 

90 

31 

11 

STA 

$1131,X 

Neue Koordinate speichern 

9EC6 

98 



TYA 


High-Byte in (A) 

9EC7 

9D 

32 

11 

STA 

$1132,X 

High-Byte speichern 

9ECA 

E8 



I NX 


Offset erhöhen 

9ECB 

E8 



I NX 


Offset erhöhen 

9ECC 

4E 

79 

11 

LSR 

$1179 

Alles verarbeitet ? 

9ECF 

00 

DC 


BNE 

$9EAD 

Nein, nochmal 

9ED1 

18 



CLC 



9E02 

60 



RTS 



****************************** 

Koordinate holen und auswerten 

9ED3 

20 

80 

03 

JSR 

$0380 

CHRGET 

9ED6 

EE 

78 

11 

INC 

$1178 

Koordinatenoffset auf nächste 

9ED9 

EE 

78 

11 

INC 

$1178 

Koordinate setzen 

9EDC 

20 

08 

9F 

JSR 

$9F08 

Eine Koordinate auswerten 

9EDF 

AE 

78 

11 

LDX 

$1178 

Offset laden 



664 


128 Intern 


9EE2 

CA 



DEX 



Offset erniedrigen 

9EE3 

CA 



DEX 



Offset erniedrigen 

9EE4 

20 

4A 

90 

JSR 

$9D4A 


Koordinaten skalieren 

9EE7 

A0 

02 


LDY 

#$02 


Offset auf 2. Koordinate setzen 

9EE9 

AE 

78 

11 

LDX 

$1178 


Koordinatenoffset laden 

9EEC 

E8 



I NX 



Offset erhöhen 

9EE0 

E8 



INX 



Offset erhöhen 

9EEE 

CA 



DEX 



Offset erniedrigen 

9EEF 

CA 



DEX 



Offset erniedrigen 

9EF0 

4E 

79 

11 

LSR 

$1179 


Relativkoordinate ? 

9EF3 

90 

OA 


BCC 

$9EFF 


Nein, Skip 

9EF5 

20 

60 

90 

JSR 

$9D6D 


Koordinatenwert aufaddieren 

9EF8 

9D 

31 

11 

STA 

$1131, 

X 

Koordinatenuert setzen 

9EFB 

98 



TYA 



High-Byte in (A) holen 

9EFC 

9D 

32 

11 

STA 

$1132, 

X 

High-Byte speichern 

9EFF 

AO 

00 


LDY 

#$00 


Offset auf 1. Koordinate setzen 

9F01 

EC 

78 

11 

CPX 

$1178 


2 Koordinaten verarbeitet ? 

9F04 

FO 

E8 


BEQ 

$9EEE 


Nein, weitermachen 

9F06 

18 



CLC 




9F07 

60 



RTS 




****************************** 

1 Koordinate holen 

9F08 

20 

86 

03 

JSR 

$0386 


CHRGOT 

9F0B 

C9 

AA 


CMP 

#$AA 


Token für '+' (Relativkoordinate) ? 

9F0D 

FO 

05 


BEO 

$9F 14 


Ja, Skip 

9F0F 

C9 

AB 


CMP 

#$AB 


Token für (Relativkoordinate) ? 

9F11 

FO 

01 


BEQ 

$9F 14 


Ja, Skip 

9F13 

18 



CLC 




9F14 

2E 

79 

11 

ROL 

$1179 


Bei ' + ' oder 1 - 1 BIT 0 = 1 

9F17 

20 

12 

88 

JSR 

$8812 


Koordinatenausdruck auswerten 

9F1A 

AE 

78 

11 

LDX 

$1178 


Offset laden 

9F10 

90 

32 

11 

STA 

$1132, 

,x 

und aktuelle Koordinate speichern 

9F20 

98 



TYA 



High-Byte in (A) holen 

9F21 

90 

31 

11 

STA 

$1131, 

,X 

High-Byte speichern 

9F24 

60 



RTS 




****************************** 

Werte für Graphikfunktionen 

9F25 

FF 

AA 

55 

00 



Bitmuster für Farbmaskierung 

9F29 

00 

00 

2C 

71 57 

80 80 

00 

Sinuswerte für 10 Grad-Abschnitte 

9F2D 

A4 

8 F 

C4 

19 DD 

B2 FO 

90 

High/Low 

9F35 

FC 

IC 

FF 

FF 




9F3D 

04 

72 

04 

50 04 

OB 03 

A8 

Feinabstimmung innerhalb der 10 Grad 

9F45 

03 

28 

02 

90 01 

E3 01 

28 

High/Low 




Das BASIC-ROM 


665 


9F4D 00 63 

****************************** F a ii s nötig HIRES-Bereich reservieren 


9F4F 

A5 

76 


LDA $76 

HIRES-Bereich schon reserviert ? 

9F51 

F0 

01 


BEQ $9F54 

Nein, Skip 

9F53 

60 



RTS 


9F54 

AD 

11 

12 

LDA $1211 

Programmende-High 

9F57 

18 



CLC 


9F58 

69 

24 


ADC #$24 

+ 9 KByte 

9F5A 

BO 

OE 


BCS $9F6A 

Wenn > 255, Fehler 

9F5C 

85 

62 


STA $62 

Wert retten 

9F5E 

CD 

13 

12 

CMP $1213 

Wert > Speicherende ? 

9F61 

90 

OA 


BCC $9F6D 

Nein, Skip 

9F63 

DO 

05 


BNE $9F6A 

Ja, Fehler 

9F65 

CC 

12 

12 

CPY $1212 

Wert > Speicherende ? 

9F68 

90 

03 


BCC $9F6D 

Nein, Skip 

9F6A 

4C 

3A 

4D 

JMP $4D3A 

■OUT OF MEMORY* 

9F6D 

C6 

76 


DEC $76 

HIRES-Flag auf EIN setzen 

9F6F 

AD 

10 

12 

LDA $1210 

Neues Programmende in ($24) 

9F72 

85 

24 


STA $24 


9F74 

A5 

62 


LDA $62 


9F76 

85 

25 


STA $25 


9F78 

AE 

10 

12 

LDX $1210 

Programmende in ($26) 

9F7B 

86 

26 


STX $26 


9F7D 

AD 

11 

12 

LDA $1211 


9F80 

85 

27 


STA $27 


9F82 

38 



SEC 


9F83 

E9 

IC 


SBC #$1C 

- High-Programmstart 

9F85 

A8 



TAY 

(Besser wäre SBC $2E!) 

9F86 

8 A 



TXA 


9F87 

49 

FF 


EOR #$FF 


9F89 

85 

50 


STA $50 

($50)= - Programmlänge 

9F8B 

98 



TYA 


9F8C 

49 

FF 


EOR #$F F 


9F8E 

85 

51 


STA $51 


9F90 

AO 

00 


LDY #$00 


9F92 

E6 

50 


INC $50 

Endezähler erhöhen 

9F94 

DO 

04 


BNE $9F9A 


9F96 

E6 

51 


INC $51 


9F98 

FO 

18 


BEQ $9FB2 

Wenn Ende erreicht, Skip 

9F9A 

A5 

24 


LDA $24 

Zielzeiger erniedrigen 

9F9C 

DO 

02 


BNE $9FA0 


9F9E 

C6 

25 


DEC $25 


9FA0 

C6 

24 


DEC $24 


9FA2 

A5 

26 


LDA $26 

Quellzeiger erniedrigen 

9FA4 

DO 

02 


BNE $9FAS 


9FA6 

C6 

27 


DEC $27 




666 


12S Intern 


A8 

C6 

26 


DEC 

$26 

AA 

20 

CO 

03 

JSR 

$03C0 

AD 

91 

24 


STA 

($24),Y 

AF 

4C 

92 

9F 

JMP 

$9F92 

B2 

18 



CLC 


B3 

AD 

11 

12 

LDA 

$1211 

B6 

69 

24 


ADC 

#$24 

B8 

8 D 

11 

12 

STA 

$1211 

BB 

A5 

2E 


LDA 

$2E 

BD 

69 

24 


ADC 

#$24 

BF 

85 

2E 


STA 

$2E 

CI 

A5 

44 


LDA 

$44 

C3 

69 

24 


ADC 

#$24 

C5 

85 

44 


STA 

$44 

C7 

20 

4F 

4F 

JSR 

$4F4F 

CA 

20 

82 

4F 

JSR 

$4F82 

CD 

24 

7F 


BIT 

$7F 

CF 

10 

2 D 


BPL 

$9FFE 

Dl 

A2 

24 


LDX 

#$24 

D3 

24 

76 


BIT 

$76 

D5 

30 

02 


BMI 

$9FD9 

D7 

A2 

DC 


LDX 

#$DC 

D9 

8 A 



TXA 


'DA 

18 



CLC 


FDB 

65 

3E 


ADC 

$3E 

FDD 

85 

3E 


STA 

$3E 

FDF 

8 A 



TXA 


FEO 

18 



CLC 


FEI 

60 

03 

12 

ADC 

$1203 

FE4 

8 D 

03 

12 

STA 

$1203 

FE7 

8 A 



TXA 


FE8 

18 



CLC 


FE9 

6 D 

OF 

12 

ADC 

$120F 

FEC 

8 D 

OF 

12 

STA 

$120F 

FEF 

20 

47 

50 

JSR 

$5047 

FF2 

A5 

3F 


LDA 

$3F 

FF4 

C9 

FF 


CMP 

#$F F 

FF6 

DO 

07 


BNE 

$9FFF 

FF8 

A5 

40 


LDA 

$40 

F FA 

C9 

09 


CMP 

#$09 

FFC 

DO 

01 


BNE 

$9FFF 

F FE 

60 



RTS 


FFF 

AO 

00 


LDY 

#$00 


+ 9 KByte 

Programmstart neu setzen 
+ 9 KByte 

DATA-Adresse erhöhen 


Zeilenverkettung korrigieren 

Direktmodus ? 

Ja, Skip 
♦ 9 KByte 

HIRES-Bereich setzen ? 

Ja, Skip 
- 9 KByte 


PC neu setzen 


CONT-Zeiger neu setzen 


Fehlerzeiger neu setzen 

BASIC-Stackpointer in Hilfszeiger 
Stack leer ? 

Nein, Skip 

Stack leer ? 

Nein, Skip 


Offset auf 0 setzen 






Das RAS IC-ROM 


667 


A001 

Bl 

3F 


LDA 

($3 F), Y 

Zeichen aus Stack 

A003 

C9 

81 


CMP 

#$81 

Token für FOR 

A005 

DO 

09 


BNE 

$A010 

Nein, Skip 

A007 

AO 

10 


LDY 

#$10 

Offset laden 

A009 

20 

62 

AO 

JSR 

$A062 

PC auf Stack korrigieren 

AOOC 

A9 

12 


LDA 

#$12 

Offset auf nächstes Stackelement laden 

AOOE 

DO 

07 


BNE 

$A017 

Unbedingter Sprung 

A010 

AO 

04 


LDY 

#$04 

Offset laden 

A012 

20 

62 

AO 

JSR 

$A062 

PC auf Stack korrigieren 

A015 

A9 

05 


LDA 

#$05 

Offset auf nächstes Stackelement laden 

A017 

18 



CLC 



A018 

65 

3F 


ADC 

$3F 

Hilfsstackpointer erhöhen 

A01A 

85 

3F 


STA 

$3F 


A01C 

90 

D4 


BCC 

$9FF2 

Kein Übertrag, Skip 

A01E 

E6 

40 


INC 

$40 

Übertrag berücksichtigen 

A020 

DO 

DO 


BNE 

$9FF2 

Unbedingter Sprung zum Schleifenstart 

*★**★*★*★******★★*★*******★★★★ 

HIRES-Bereich löschen 

A022 

A5 

76 


LDA 

$76 

HIRES-Bereich reserviert ? 

A024 

DO 

01 


BNE 

$A027 

Ja, Skip 

A026 

60 



RTS 



A027 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

A029 

84 

76 


STY 

$76 

HIRES-Flag löschen 

A02B 

84 

24 


STY 

$24 

Low-Bytes der Pointer löschen 

A02D 

84 

26 


STY 

$26 


A02F 

A9 

IC 


LDA 

#$1C 

High-Byte des Zielpointers setzen 

A031 

85 

25 


STA 

$25 


A033 

A9 

40 


LDA 

#$40 

High-Byte des Quellpointers setzen 

A035 

85 

27 


STA 

$27 


A037 

20 

CO 

03 

JSR 

V» 

O 

D 

O 

Programm byteweise übertragen 

A03A 

91 

24 


STA 

($24),Y 

Programmbyte speichern 

A03C 

C8 



INY 


Block fertig übertragen ? 

A03D 

DO 

F8 


BNE 

$A037 

Nein, weitermachen 

A03F 

E6 

25 


INC 

$25 

High-Byte Ziel erhöhen 

A041 

E6 

27 


INC 

$27 

High-Byte Quelle erhöhen 

A043 

AD 

11 

12 

LDA 

$1211 

Programmende erreicht ? 

A046 

C5 

27 


CMP 

$27 


A048 

BO 

ED 


BCS 

$A037 

Nein, weiterschleifen 

A04A 

38 



SEC 



A04B 

A5 

2E 


LDA 

$2E 

Programmstart korrigieren 

A04D 

E9 

24 


SBC 

#$24 

- 9 KByte 

A04F 

85 

2E 


STA 

$2E 


A051 

AD 

11 

12 

LDA 

$1211 

Programmende korrigieren 

A054 

E9 

24 


SBC 

#$24 

- 9 KByte 

A056 

8 D 

11 

12 

STA 

$1211 


A059 

A5 

44 


LDA 

$44 

DATA-Zeiger korrigieren 

A05B 

E9 

24 


SBC 

#$24 

- 9 KByte 



668 


128 Intern 


A05D 

85 

44 


STA 

$44 

A05F 

4C 

C7 

9F 

JHP 

$9FC7 

★★*★*★★★★*★★******★*★★★★★★*★*★ 

A062 

Bl 

3F 


LDA 

($3F),Y 

A064 

24 

76 


BIT 

$76 

A066 

DO 

06 


BNE 

$A06E 

A068 

38 



SEC 


A069 

E9 

24 


SBC 

#$24 

A06B 

91 

3F 


STA 

($3F) ,Y 

A06D 

60 



RTS 


A06E 

18 



CLC 


A06F 

69 

24 


ADC 

#$24 

A071 

91 

3F 


STA 

($3F ), Y 

A073 

60 



RTS 



AO 74 

A5 

76 


LDA 

$76 

A076 

FO 

01 


BEQ 

$A079 

A078 

60 



RTS 


A079 

A2 

23 


LDX 

#$23 

A07B 

4C 

3C 

4D 

JMP 

$4D3C 

****************************** 

A07E 

20 

BF 

A3 

JSR 

$A3BF 

A081 

A5 

80 


LDA 

$80 

A083 

29 

E6 


AND 

#$E6 

A085 

FO 

03 


BEQ 

$A08A 

A087 

4C 

6 C 

79 

JMP 

$796C 

A08A 

AO 

01 


LDY 

#$01 

A08C 

A2 

01 


LDX 

#$01 

A08E 

A5 

80 


LDA 

$80 

A090 

29 

11 


AND 

#$11 

A092 

FO 

06 


BEQ 

$A09A 

A094 

4A 



LSR 


A095 

90 

02 


BCC 

$A099 

A097 

E8 



I NX 


A098 

E8 



I NX 


A099 

E8 



I NX 


A09A 

8 A 



TXA 


A09B 

20 

67 

A6 

JSR 

$A667 

A09E 

A9 

00 


LDA 

#$00 

AOAO 

AA 



TAX 


A0A1 

20 

87 

92 

JSR 

$9287 

A0A4 

AO 

60 


LDY 

#$60 


Rest der Zeiger neu setzen 

PC auf BASIC-Stack korrigieren 

High-Byte laden 
HIRES-Bereich setzen ? 

Ja, Skip 

- 9 KByte 


+ 9 KByte 


Test auf HIRES-Bereich 

HIRES-Bereich reserviert ? 

Nein, Fehler 

•NO GRAPHICS AREA 1 
Fehler ausgeben 

BASIC-Befehl DIRECTORY/CATALOG 

Parameter auswerten 
Flag für Parameter laden 
Parameter korrekt angegeben ? 
Ja, Skip 
•SYNTAX 1 

Offset auf Befehlstabelle laden 
St ring länge vorbesetzen 
Flag für Parameter laden 
Drive oder Filename angegeben ? 
Nein, Skip 
F i lename ? 

Nein, Skip 

Stringlänge anpassen 


Diskstring zusammenstellen 
Bank = 0 

Bank 0 für Diskoperation setzen 
Sekundäradresse =0 (LOAD) 
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A0A6 

AE 

IC 

01 

LDX 

S011C 

A0A9 

A9 

00 


LDA 

#$00 

AOAB 

20 

57 

92 

JSR 

$9257 

aoae 

38 



SEC 


AOAF 

20 

08 

90 

JSR 

$90D8 

A0B2 

90 

09 


BCC 

SAOBD 

A0B4 

48 



PHA 


A0B5 

20 

14 

AI 

JSR 

$A114 

A088 

68 



PLA 


A0B9 

AA 



TAX 


AOBA 

4C 

3C 

40 

JMP 

$4D3C 

AOBD 

A2 

00 


LDX 

#$00 

AOBF 

20 

45 

A 8 

JSR 

SA845 

A0C2 

20 

C 6 

FF 

JSR 

SFFC 6 

A0C5 

A0 

03 


LDY 

#$03 

A0C7 

8 C 

74 

11 

STY 

$1174 

AOCA 

20 

63 

92 

JSR 

$9263 

AOCD 

80 

75 

11 

STA 

$1175 

AODO 

20 

51 

92 

JSR 

$9251 

A0D3 

00 

3F 


BNE 

$A114 

A0D5 

20 

63 

92 

JSR 

$9263 

A0D8 

80 

76 

11 

STA 

$1176 

AODB 

20 

51 

92 

JSR 

$9251 

AOOE 

DO 

34 


BNE 

$A 114 

aoeo 

CE 

74 

11 

DEC 

$1174 

A0E3 

DO 

E5 


BNE 

SAOCA 

A0E5 

AE 

75 

11 

LDX 

$1175 

A0E8 

AD 

76 

11 

LDA 

$1176 

AOEB 

20 

32 

8 E 

JSR 

$8E32 

AOEE 

A9 

20 


LDA 

#$20 

AOFO 

20 

69 

92 

JSR 

$9269 

A0F3 

20 

63 

92 

JSR 

$9263 

A0F6 

48 



PHA 


A0F7 

20 

51 

92 

JSR 

$9251 

AOFA 

00 

17 


BNE 

$A113 

AOFC 

68 



PLA 


AOFD 

FO 

06 


BEO 

$A105 

AOFF 

20 

69 

92 

JSR 

$9269 

AI 02 

4C 

F3 

AO 

JMP 

SA0F3 

AI 05 

A9 

00 


LDA 

#$0D 

A107 

20 

69 

92 

JSR 

$9269 

A10A 

20 

93 

92 

JSR 

$9293 

AI 00 

FO 

05 


BEO 

$A114 

Al 0F 

AO 

02 


LDY 

#$02 

Al 11 

DO 

B4 


BNE 

SA0C7 

A113 

68 



PLA 


A114 

20 

6 F 

92 

JSR 

$926 F 


Gerätenummer laden 
Filenummer auf 0 
Fileparameter setzen 

BASIC-OPEN 

Wenn fehlerfrei, Skip 

Fehler retten 

File wieder schließen 

Fehler wieder holen 

Fehlernummer in (X) 

und Fehlermeldung ausgeben 

Filenummer 0 
ROMs einschatten 
Eingabegerät setzen 
Startadresse und Linkadresse 
über lesen 
Wert-Low lesen 
und setzen 
Status holen 

Wenn gesetzt, CLOSE und Ende 
Wert-High lesen 
und setzen 
Status holen 

Wenn gesetzt, CLOSE und Ende 
Noch eine Adresse überlesen ? 

Ja, zum Schleifenstart 
Blockanzahl (Zeilennummer) laden 

Und ausgeben 

I I 

Ausgeben 
Zeichen holen 
Und retten 
Status holen 

Wenn gesetzt, CLOSE und Ende 

Zeichen wieder holen 

Wenn Zeilenende, Skip 

Zeichen ausgeben 

Und nächstes Zeichen holen 

(CR) 

Ausgeben 

Test auf STOP-Taste 
Wenn STOP, CLOSE und Ende 
Linkadresse über lesen 
Und zum Schleifenstart 
Zeichen wieder holen 
CLRCH I/O rücksetzen 
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AI 17 

A9 

00 


LDA 

#$00 

Filenummer 0 laden 

A119 

18 



CLC 



A11A 

4C 

75 

92 

JMP 

$5275 

CLOSE File schliessen 

************************* V**** 

BASIC-Befehl DOPEN 

AI ID 

A9 

22 


LDA 

#$22 

Bits für verbotene Angaben laden 

A11F 

20 

CI 

A3 

JSR 

$A3C1 

Parameter auswerten 

A122 

20 

6F 

A7 

JSR 

$A76F 

Syntaxprüfung 

A125 

20 

57 AI 

JSR 

$A157 

Freie Sekundäradresse suchen 

A128 

A0 

05 


LDY 

#$05 

Offset auf Befehlstabelle laden 

A12A 

A2 

04 


LDX 

#$04 

St ring länge laden 

A12C 

24 

80 


BIT 

$80 

A12E 50 13 BVC $A143 

A130 

A2 

08 


LDX 

#$08 

Stringlänge korrigieren 

A132 

DO 

OF 


BNE 

$A143 


****************************** 

BASIC-Befehl APPEND 

AI 34 

A9 

E2 


LDA 

#$E2 

Bits für verbotene Angaben laden 

A136 

20 

CI 

A3 

JSR 

$A3C1 

Parameter auswerten 

AI 39 

20 

6 F 

A7 

JSR 

$A76F 

Syntaxprüfung 

A13C 

20 

57 

AI 

JSR 

$A157 

Freie Sekundäradresse suchen 

A13F 

AO 

16 


LDY 

#$16 

Offset auf Befehlstabelle laden 

A141 

A2 

OS 


LDX 

#$05 

Stringlänge laden 

AI 43 

8 A 



TXA 



A144 

20 

67 

A6 

JSR 

$A66 7 

Diskstring zusammenstellen 

A147 

20 

6F 

92 

JSR 

S926F 

CLRCH I/O rücksetzen 

A14A 

A9 

00 


LDA 

#$00 

Filenummer 0 laden 

A14C 

AA 



TAX 


Banknummer setzen 

A14D 

20 

87 

92 

JSR 

$9287 

Bank auf 0 setzen 

A150 

20 

D8 

90 

JSR 

$90D8 

Filenummer 0 OPEN 

A153 

38 



SEC 



A154 

4C 

75 

92 

JMP 

$9275 

CLOSE 

****************************** 

Freie Sekundäradresse suchen 

A157 

AO 

61 


LDY 

#$61 

Sekundäradresse 1 laden 

A159 

C8 



I NY 


Adresse erhöhen 

A15A 

CO 

6 F 


CPY 

#$6F 

Sekundäradresse 15 schon erreicht 

A15C 

FO 

OC 


BEQ 

$A16A 

Ja, Fehler 

A15E 

20 

45 

A8 

JSR 

$A845 

ROMs einschalten 

A161 

20 

5C 

FF 

JSR 

$FF5C 

Sekundäradresse in Tabelle suchen 

Al 64 

90 

F3 


BCC 

$A159 

Uenn gefunden, weitersuchen 

AI 66 

8 C 

ID 

01 

STY 

$0110 

Sekundäradresse setzen 

AI 69 

60 



RTS 



A16A 

A2 

01 


LDX 

#$01 

•TOO MANY FILES' 
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A16C 4C 3C 4D JMP $4D3C Fehler ausgeben 
****************************** ßASIC-Befehl DCLOSE 


A16F 

A9 

F3 


LDA #$F3 

Bits für verbotene Angaben laden 

A171 

20 

CI 

A3 

JSR $A3C1 

Parameter auswerten 

AI 74 

20 

OD 

A8 

JSR SA80D 

DS$ löschen 

A177 

A5 

80 


LDA $80 

Flag für Parameter laden 

AI 79 

29 

04 


AND #$04 

Filenunmer angegeben ? 

A17B 

FO 

06 


BEO $A183 

Nein, Skip 

A17D 

AD 

1B 

01 

LDA $011B 

Filenummer laden 

AI 80 

4C 

75 

92 

JMP $9275 

Und File schließen 

A183 

AD 

IC 

01 

LDA $01 IC 

Gerätenummer laden 

AI 86 

20 

45 

A8 

JSR $A845 

ROMs einschalten 

AI 89 

4C 

4A 

FF 

JMP $FF4A 

Alle Files auf aktuellem Gerät schließen 

****************************** 

BASIC-Befehl DSAVE 

A18C 

A9 

66 


LDA #$66 

Bits für verbotene Angaben laden 

A18E 

20 

CI 

A3 

JSR $A3C1 

Parameter auswerten 

A191 

20 

50 

A 7 

JSR $A750 

Syntaxprüfung 

A194 

A0 

05 


LDY #$05 

Offset auf Befehlstabelle setzen 

A196 

A9 

04 


LDA #$04 

Stringlänge setzen 

AI 98 

20 

67 

A6 

JSR $A667 

Diskstring zusammenstellen 

A19B 

A9 

00 


LOA #$00 

Filenummer 0 

A19D 

AA 



TAX 

Bank 0 

A19E 

20 

87 

92 

JSR $9287 

Bank 0 für Diskoperationen setzen 

AI AI 

4C 

15 

91 

JMP $9115 

SAVE-Befehl aufrufen 

****************************** 

BASIC-Befehl DVERIFY 

Al A4 

A9 

01 


LDA #$01 

Flag für Verify 

A1A6 

2C 



.BYTE $2C 

Nächsten Befehl überlesen 

****************************** 

BASIC-Befehl DLOAD 

A1A7 

A9 

00 


LDA #$00 

Flag für Load 

Al A9 

85 

OC 


STA $0C 

Flag setzen 

AI AB 

A9 

E6 


LDA #$E6 

Bits für verbotene Parameter setzen 

Al AD 

20 

CI 

A3 

JSR $A3C1 

Parameter holen 

A1B0 

20 

50 

A7 

JSR $A750 

Syntaxprüfung 

A1B3 

A9 

00 


LDA #$00 

Logische Adresse auf 0 setzen 

A1B5 

80 

ID 

01 

STA $0110 


A1B8 

AO 

05 


LDY #$05 

Offset auf Befehlstabelle laden 

A1BA 

A9 

04 


LDA #$04 

Stringlänge setzen 

A1BC 

20 

67 

A6 

JSR $A667 

Diskstring zusammenstellen 

A1BF 

A9 

00 


LDA #$00 



A1C1 AA TAX 


Bank 0 setzen 
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A1C2 

20 

87 92 

JSR 

$9287 

Bank 0 für Diskoperationen setzen 

A1C5 

4C 

33 

91 

JMP 

$9133 

LOAD-Befehl auf rufen 

****************************** 

BASIC-Befehl BSAVE 

A1C8 

A9 

66 


LDA 

#$66 

Bits für verbotene Parameter setzen 

AI CA 

A2 

F 8 


LDX 

#$F8 


A1CC 

20 

C3 

A3 

JSR 

$A3C3 

Parameter holen 

A1CF 

20 

50 

A7 

JSR 

$A750 

Syntaxprüfung 

A1D2 

A5 

81 


LDA 

$81 

Flag für Adressen laden 

A1D4 

29 

06 


AND 

#$06 


A1D6 

C9 

06 


CMP 

#$06 

Start- und Endadresse angegeben ? 

A1D8 

F0 

03 


BEQ 

$A1DD 

Ja, Skip 

AIDA 

4C 

6 C 

79 

JMP 

$796C 

•SYNTAX 1 

A1DD 

AD 

1 A 

01 

LDA 

$011A 

Endadresse =< Startadresse ? 

A1E0 

CD 

18 

01 

CMP 

$0118 


A1E3 

90 

30 


BCC 

$A215 

Ja, Fehler 

A1E5 

DO 

OA 


BNE 

$A 1F1 

Nein, Skip 

A1E7 

AD 

19 

01 

LDA 

$0119 

Endadresse =< Startadresse ? 

A1EA 

CD 

17 

01 

CMP 

$0117 


A1ED 

90 

26 


BCC 

$A215 

Ja, Fehler 

A1EF 

FO 

24 


BEQ 

$A215 

Ja, Fehler 

AI Fl 

AO 

05 


LDY 

#$05 

Offset auf Befehlstabelle laden 

A1F3 

A9 

04 


LDA 

#$04 

Stringlänge laden 

A1F5 

20 

67 

A6 

JSR 

$A66 7 

Diskstring zusammenstellen 

A1F8 

AD 

1 F 

01 

LDA 

$011F 

Sekundäradresse laden 

AI FB 

A2 

00 


LDX 

#$00 

Bank 0 

AI FD 

20 

87 

92 

JSR 

$9287 

Bank 0 für Diskoperationen setzen 

A200 

AE 

17 

01 

LDX 

$0117 

Startadresse in ($5A) kopieren 

A203 

AC 

18 

01 

LDY 

$0118 


A206 

A9 

5A 


LDA 

#$5A 

Flag für Startadresse in ($5A) 

A208 

86 

5A 


STX 

$5A 

Startadresse vorbesetzen 

A20A 

84 

5B 


STY 

$5B 


A20C 

AE 

19 

01 

LDX 

$0119 

Endadresse laden 

A20F 

AC 

1 A 

01 

LDY 

$011A 


A212 

4C 

ID 

91 

JMP 

$91 ID 

SAVE-Befehl aufrufen 

A215 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY* 

****************************** 

BASIC-Befehl BLOAD 

A218 

A9 

E6 


LDA 

#$E6 

Bits für verbotene Parameter setzen 

A21A 

A2 

FC 


LDX 

#$FC 


A21C 

20 

C3 

A3 

JSR 

$A3C3 

Parameter holen 

A21F 

20 

50 

A7 

JSR 

$A750 

Syntaxprüfung 

A222 

AE 

17 

01 

LDX 

$0117 

Startadresse holen 

A225 

AC 

18 

01 

LDY 

$0118 


A228 

A9 

00 


LDA 

#$00 

Sekundäradresse 0 

A22A 

EO 

FF 


CPX 

#$FF 

Startadresse angegeben ? 
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A22C 

DO 

06 


BNE $/234 

Ja, Skip 

A22E 

CO 

FF 


CPY #$FF 


A230 

DO 

02 


BNE $A234 

Ja, Skip 

A232 

A9 

FF 


LDA #$FF 

Sekundäradresse 1 

A234 

8D 

ID 

01 

STA $01 ID 

Sekundäradresse setzen 

A237 

AO 

05 


LDY #$05 

Offset auf Befehlstabelle laden 

A239 

A9 

04 


LDA #$04 

Stringlänge setzen 

A23B 

20 

67 

A6 

JSR $A667 

Diskstring zusammenstellen 

A23E 

AD 

1F 

01 

LDA $011F 

Sekundäradresse laden 

A241 

A2 

00 


LDX #$00 

Bank 0 

A243 

20 

87 

92 

JSR $9287 

Bank 0 für Diskoperationen setzen 

A246 

A9 

00 


LDA #$00 

Load-Flag 

A248 

AE 

17 

01 

LDX $0117 

Startadresse laden 

A24B 

AC 

18 

01 

LDY $0118 


A24E 

20 

D5 

FF 

JSR $FFD5 

LOADSP Load-Rout ine 

A251 

08 



PHP 

Status retten 

A252 

20 

43 

92 

JSR $9243 

DS$ für ungültig erklären 

A255 

28 



PLP 

Status wieder holen 

A256 

90 

03 


BCC $A25B 

Wenn fehlerfrei, Skip 

A258 

4C 

DO 

90 

JMP $90D0 

Fehlerauswertung 

A25B 

20 

51 

92 

JSR $9251 

Status holen 

A25E 

29 

BF 


AND #$BF 

EOF ? 

A260 

FO 

03 


BEQ $A265 

Nein, Skip 

A262 

4C 

67 

91 

JMP $9167 

LOAD-Befehl aufrufen 

A265 

18 



CLC 


A266 

60 



RTS 


****************************** 

BASIC-Befehl HEADER 

A267 

20 

BF 

A3 

JSR $A3BF 

Parameter holen 

A26A 

20 

49 

A7 

JSR $A749 

Syntaxprüfung 

A260 

29 

01 


AND #$01 

Diskettenname angegeben ? 

A26F 

C9 

01 


CMP #$01 


A271 

DO 

61 


BNE $A2D4 

Nein, Fehler 

A273 

20 

7B 

92 

JSR $9278 

CLALL 

A276 

20 

El 

A7 

JSR $A7E1 

•ARE YOU SURE?' 

A279 

DO 

25 


BNE $A2A0 

Nein, nicht sicher, Ende 

A27B 

AO 

1B 


LDY #$1B 

Offset auf Befehlstabelle laden 

A27D 

A9 

04 


LDA #$04 

String länge laden 

A27F 

AE 

20 

01 

LDX $0120 

ID angegeben ? 

A282 

FO 

02 


BEQ $A286 

Nein, Skip 

A284 

A9 

06 


LDA #$06 

Stringlänge korrigieren 

A286 

20 

97 

A3 

JSR $A397 

String zusammenstellen und übergeben 

A289 

20 

78 

A7 

JSR $A778 

DS$ holen 

A28C 

24 

7F 


BIT $7F 

Direktmodus ? 

A28E 

30 

10 


BMI $A2A0 

Nein, Ende 

A290 

AO 

00 


LDY #$00 

Offset auf 0 

A292 

A9 

7B 


LDA #$7B 

Zeiger auf Deskriptor von DS$ 
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A294 

20 

AB 

03 

JSR $03AB 

Erstes Zeichen aus DS$ laden 

A297 

C9 

32 


CMP #$32 

Fehlernummer < 20 ? 

A299 

90 

05 


BCC SA2A0 

Ja, Skip 

A29B 

A2 

24 


LDX #$24 

■BAD DISK' 

A29D 

4C 

3C 

4D 

JMP $4D3C 

Fehler ausgeben 

A2A0 

60 



RTS 


****************************** 

BASIC-Befehl SCRATCH 

A2A1 

20 

BF 

A3 

JSR $A3BF 

Parameter holen 

A2A4 

20 

49 

A7 

JSR $A749 

Syntaxprüfung 

A2A7 

20 

El 

A7 

JSR $A7E1 

■ARE YOU SURE? 1 

A2AA 

DO 

27 


BNE $A2D3 

Nein, nicht sicher, Ende 

A2AC 

AO 

37 


LDY #$37 

Offset auf Befehlstabelle laden 

A2AE 

A9 

04 


LDA #$04 

Stringlänge setzen 

A2B0 

20 

97 

A3 

JSR $A397 

String zusammenstellen und übergeben 

A2B3 

20 

78 

A7 

JSR $A778 

DS$ holen 

A2B6 

24 

7F 


BIT $7F 

Direktmodus ? 

A2B8 

30 

19 


BMI $A2D3 

Nein, Skip 

A2BA 

A9 

OD 


LDA #$0D 

(CR) 

A2BC 

20 

69 

92 

JSR $9269 

Ausgeben 

A2BF 

AO 

00 


LDY #$00 

Offset auf 0 

A2C1 

A9 

7B 


LDA #$7B 

Zeiger auf Deskriptor von DS$ 

A2C3 

20 

AB 

03 

JSR $03AB 

Zeichen aus DS$ holen 

A2C6 

FO 

06 


BEQ $A2CE 

Wenn 0, Ende 

A2C8 

20 

69 

92 

JSR $9269 

Zeichen ausgeben 

A2CB 

C8 



I NY 

Offset erhöhen 

A2CC 

DO 

F3 


BNE SA2C1 

Und weitermachen 

A2CE 

A9 

OD 


LDA #$0D 

(CR) 

A2D0 

20 

DF 

90 

JSR $90DF 

Ausgeben 

A2D3 

60 



RTS 


A2D4 

4C 

6C 

79 

JMP $796C 

•SYNTAX' 

****************************** 

BASIC-Befehl RECORD 

A2D7 

A9 

23 


LDA #$23 

•#• 

A2D9 

20 

5E 

79 

JSR $795E 

Test auf Code 

A2DC 

20 

F4 

87 

JSR $87F4 

Filenummer holen 

A2DF 

EO 

00 


CPX #$00 

Filenummer = 0 ? 

A2E1 

FO 

37 


BEQ $A31A 

Ja, Fehler 

A2E3 

8E 

1B 

01 

STX $011B 

Filenummer setzen 

A2E6 

20 

OF 

88 

JSR $880F 

Datensatznummer holen 

A2E9 

A2 

01 


LDX #$01 

Wert für erstes Byte vorbesetzen 

A2EB 

20 

IE 

9E 

JSR $9E1E 

Byte-Nummer holen 

A2EE 

EO 

00 


CPX #$00 

Bytenummer = 0 ? 

A2F0 

FO 

28 


BEQ $A31A 

Ja, Fehler 

A2F2 

EO 

FF 


CPX #$FF 

Bytenummer = 255 ? 

A2F4 

FO 

24 


BEQ $A31A 

Ja, Fehler 



Das BAS IC-ROM 


675 


A2F6 

8E 

IE 

01 

STX 

LU 

O 

V* 

Bytenummer setzen 

A2F9 

AD 

1B 

01 

LDA 

$011B 

Filenummer laden 

A2FC 

20 

45 

A8 

JSR 

in 

co 

< 

«A 

ROMs einschalten 

A2FF 

20 

59 

FF 

JSR 

$FF59 

LKUPLA Filenummer suchen 

A302 

BO 

19 


BCS 

$A31D 

Wenn nicht gefunden, Fehler 

A3 04 

8C 

ED 

11 

STY 

S11 ED 

Sekundäradresse setzen 

A307 

8E 

IC 

01 

STX 

S011C 

Geräteadresse setzen 

A30A 

A9 

00 


LDA 

#$00 

Filenummer 0 setzen 

A30C 

8D 

1B 

01 

STA 

$011B 


A30F 

A9 

6F 


LDA 

#$6F 

Sekundäradresse setzen 

A311 

8D 

ID 

01 

STA 

$01 ID 


A314 

A0 

3B 


LDY 

#$3B 

Offset auf Befehlstabelle laden 

A316 

A9 

04 


LDA 

#$04 

String länge laden 

A318 

DO 

7D 


BNE 

$A397 

Unbedingter Sprung 

A31A 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY* 

A3 ID 

A2 

04 


LDX 

#$04 

•FILE NOT FOUND' 

A31F 

4C 

3C 

4D 

JMP 

$4D3C 

Fehler ausgeben 

****************************** 

BASIC-Befehl DCLEAR 

A322 

20 

BF 

A3 

JSR 

SA3BF 

Parameter holen 

A325 

AO 

FF 


LDY 

#$F F 

Offset auf Befehlstabelle laden 

A327 

A9 

02 


LDA 

#$02 

Stringlänge auf 2 setzen 

A329 

20 

97 

A3 

JSR 

SA397 

String zusammenstellen und übergeben 

A32C 

4C 

83 

AI 

JMP 

$A183 

Fi les schließen 

****************************** 

BASIC-Befehl COLLECT 

A32F 

20 

BF 

A3 

JSR 

SA3BF 

Parameter holen 

A332 

20 

5B 

A7 

JSR 

$A75B 

Syntaxprüfung 

A335 

20 

7B 

92 

JSR 

$92 7B 

CLALL Offene Dateien löschen 

A338 

AO 

21 


LDY 

#$21 

Offset auf Befehlstabelle laden 

A33A 

A2 

01 


LDX 

#$01 

Stringlänge setzen 

A33C 

A5 

80 


LDA 

$80 

Flag für Parameter laden 

A33E 

29 

10 


AND 

#$10 

Laufwerksnummer angegeben ? 

A340 

FO 

01 


BEO 

SA343 

Nein, Skip 

A342 

E8 



INX 


Länge auf 2 Zeichen erhöhen 

A343 

8A 



TXA 


Stringlänge in (A) 

A344 

DO 

51 


BNE 

$A397 

Unbedingter Sprung 

****************************** 

BASIC-Befehl COPY 

A346 

20 

BF 

A3 

JSR 

$A3BF 

Parameter holen 

A349 

29 

30 


AND 

#$30 


A34B 

C9 

30 


CMP 

#$30 

Zwei Laufwerksnummern angegeben ? 

A34D 

DO 

06 


BNE 

SA355 

Nein, Skip 

A34F 

A5 

80 


LDA 

$80 

Flag für Parameter laden 

A351 

29 

C7 


AND 

#$C7 

Parameter uneingeschränkt gültig ? 
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A353 

F0 07 

BEQ $A35C 

Ja, Skip 

A355 

A5 80 

LDA $80 

Flag für Parameter laden 

A357 

20 60 A7 

JSR $A760 

Syntaxprüfung 

A35A 

A5 80 

LDA $80 

Flag für Parameter laden 

A35C 

AO 27 

LDY *$27 

Offset auf Befehlstabelle laden 

A35E 

A9 08 

LDA #$08 

Stringlänge setzen 

A360 

DO 35 

BNE $A397 

Unbedingter Sprung 

****************************** 

BASIC-Befehl CONCAT 

A362 

20 BF A3 

JSR $A3BF 

Parameter holen 

A365 

20 60 A7 

JSR $A760 

Syntaxprüfung 

A368 

AO OD 

LDY #$0D 

Offset auf Befehlstabelle laden 

A36A 

A9 OC 

LDA #$0C 

St ring länge setzen 

A36C 

DO 29 

BNE $A397 

Unbedingter Sprung 

****************************** 

BASIC-Befehl RENAME 

A36E 

A9 E4 

LDA #$E4 

Bits für verbotene Parameter setzen 

A3 70 

20 CI A3 

JSR $A3C1 

Parameter holen 

A373 

20 66 A7 

JSR $A766 

Syntaxprüfung 

A376 

AO 2F 

LDY #$2F 

Offset auf Befehlstabelle setzen 

A3 78 

A9 08 

LDA #$08 

Stringlänge setzen 

A37A 

DO 18 

BNE $A397 

Unbedingter Sprung 

****************************** 

BASIC-Befehl BACKUP 

A37C 

A9 C7 

LDA #$C7 

Bits für verbotene Parameter setzen 

A37E 

20 CI A3 

JSR $A3C1 

Parameter holen 

A381 

29 30 

AND #$30 


A383 

C9 30 

CMP #$30 

Zwei Laufwerksnummern angegeben ? 

A385 

FO 03 

BEO $A38A 

Ja, Skip 

A387 

4C 6C 79 

JMP $796C 

•SYNTAX' 

A38A 

20 El A7 

JSR $A7E1 

•ARE YOU SURE?' 

A38D 

FO 01 

BEO $A390 

Ja, sicher, Skip 

A38F 

60 

RTS 


A390 

20 83 AI 

JSR $A183 

Files schließen 

A393 

AO 23 

LDY #$23 

Offset auf Befehlstabelle laden 

A395 

A9 04 

LDA #$04 

Stringlänge setzen 

****************************** 

Diskstring zusammenstellen und übergeben 

A397 

20 67 A6 

JSR $A667 

Diskstring zusammenstellen 

A39A 

20 6F 92 

JSR $926F 

CLRCH I/O rücksetzen 

A39D 

A9 00 

LDA #$00 


A39F 

AA 

TAX 

Bank 0 setzen 

A3A0 

20 87 92 

JSR $9287 

Bank 0 für Diskoperationen setzen 

A3A3 

38 

SEC 
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A3A4 

20 

D8 

90 

JSR 

S90D8 

A3A7 

08 



PHP 


A3A8 

48 



PHA 


A3A9 

AD 

1B 

01 

IDA 

*011B 

A3AC 

38 



SEC 


A3AD 

20 

75 

92 

JSR 

$9275 

A3B0 

68 



PLA 


A3B1 

28 



PLP 


A3B2 

BO 

01 


BCS 

SA3B5 

A3B4 

60 



RTS 


A3B5 

4C 

DO 

90 

JMP 

$9000 


BASIC-Open 
Status retten 
Fehlernummer retten 
Filenummer laden 

CLOSE File schließen 
Fehlernummer wieder holen 
Status holen 

Wenn Fehler, zur Auswertung 
Fehlerauswertung 


****************************** Vorbesetzung für Adressen 

und Fileparameter 


A3B8 FF FF FF FF 00 08 6F 

****************************** Parameter auswerten 


A3BF 

A9 

00 


LDA 

o 

o 

£ 

Flag für alle Parameter erlaubt 

A3C1 

A2 

FF 


LDX 

#$FF 

Flag für keine Adreßangaben erlaubt 

A3C3 

48 



PHA 


Beide Flagwerte retten 

A3C4 

8A 



TXA 



A3C5 

48 



PHA 



A3C6 

A9 

00 


LDA 

#$00 


A3C8 

85 

80 


STA 

$80 

Parameterstatus löschen 

A3CA 

85 

81 


STA 

$81 

Adreßangabestatus löschen 

A3CC 

A2 

22 


LDX 

#$22 

Offset laden 

A3CE 

9D 

00 

01 

STA 

$0100,X 

DOS-Puffer löschen 

A3D1 

CA 



DEX 


Puffer gelöscht ? 

A3D2 

DO 

FA 


BNE 

$A3CE 

Nein, nochmal 

A3D4 

A2 

06 


LDX 

#$06 

Adressen und Fileparameter vorbesetzen 

A3D6 

BD 

B8 

A3 

LDA 

$A3B8,X 

Parameter aus Tabelle laden 

A3D9 

9D 

17 

01 

STA 

$0117,X 

und speichern 

A3DC 

CA 



DEX 


Alle Parameter gesetzt ? 

A3DD 

10 

F7 


BPL 

$A3D6 

Nein, nochmal 

A3DF 

AE 

D5 

03 

LDX 

$0305 

Aktuelle Bank laden 

A3E2 

8E 

1F 

01 

STX 

$011F 

und setzen 

A3E5 

20 

86 

03 

JSR 

$0386 

CHRGOT 

A3E8 

DO 

OE 


BNE 

$A3F8 

Wenn kein Trennzeichen, Skip 

A3EA 

68 



PLA 


Adreßwertflag holen 

A3EB 

25 

81 


AND 

$81 

Falsche Werte angegeben ? 

A3ED 

DO 

6B 


BNE 

$A45A 

Ja, Fehler 

A3EF 

68 



PLA 


Paramterflag holen 

A3F0 

20 

ID 

A6 

JSR 

$A61D 

Status prüfen 

A3F3 

A5 

80 


LDA 

$80 

Statuswerte laden 
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A3F5 

A6 

81 

LDX 

$81 

A3F7 

60 


RTS 


A3F8 

C9 

23 

CMP 

#$23 

A3FA 

FO 

4B 

BEQ 

$A44 7 

A3 FC 

C9 

57 

CMP 

#$57 

A3FE 

FO 

5D 

BEQ 

$A45D 

A400 

C9 

4C 

CMP 

#$4C 

A402 

FO 

59 

BEQ 

$A45D 

A404 

C9 

52 

CMP 

#$52 

A4 06 

FO 

29 

BEQ 

$A431 

A4 08 

C9 

44 

CMP 

#$44 

A40A 

FO 

73 

BEQ 

$A47F 

A40C 

C9 

91 

CMP 

#$91 

A40E 

FO 

27 

BEQ 

$A437 

A410 

C9 

42 

CMP 

#$42 

A412 

FO 

2E 

BEQ 

$A442 

A414 

C9 

55 

CMP 

#$55 

A416 

FO 

25 

BEQ 

$A43D 

A418 

C9 

50 

CMP 

#$50 

A41A 

DO 

03 

BNE 

$A41 F 

A4 IC 

4C 

B4 A4 

JMP 

$A4B4 

A41F 

C9 

49 

CMP 

#$49 

A421 

FO 

75 

BEQ 

CO 

o 

< 

A4 23 

C9 

22 

CMP 

#$22 

A425 

FO 

07 

BEQ 

$A42E 

A427 

C9 

28 

CMP 

#$28 

A429 

FO 

03 

BEO 

$A42E 

A42B 

4C 

6C 79 

JMP 

$796C 

A42E 

4C 

DC A4 

JMP 

$A4DC 

A431 

20 

80 03 

JSR 

$0380 

A4 34 

4C 

FB A4 

JMP 

$A4FB 

A437 

20 

82 A5 

JSR 

$A582 

A43A 

4C 

F7 A4 

JMP 

$A4F7 

A43D 

20 

80 A5 

JSR 

$A580 

A440 

DO 

F8 

BNE 

$A43A 

A442 

20 

9E A5 

JSR 

$A59E 

A445 

F0 

F3 

BEQ 

$A43A 

A447 

A9 

04 

LDA 

#$04 

A449 

20 

ID A6 

JSR 

$A61D 

A44C 

20 

F2 A5 

JSR 

$A5F2 

A44F 

E0 

00 

CPX 

#$00 


'#' Filenummer ? 

Ja, Skip 

•W' Uriteangabe ? 

Ja, Skip 

■L' Satzlänge ? 

Ja, Skip 

'R' Readangabe ? 

Ja, Skip 

■D 1 Driveangabe ? 

Ja, Skip 
Token für ON ? 

Ja, Skip 

•B 1 Bankangabe ? 

Ja, Skip 

•U' Unitangabe ? 

Ja, Skip 

•P 1 Adreßangabe ? 

Nein, Skip 
Adresse auswerten 

•I 1 ID Angabe ? 

Ja, Skip 
"" Filename ? 

Ja, Skip 

'(' Filenamenausdruck ? 

Ja, Skip 
'SYNTAX' 

Filename übernehmen 

' R• überlesen 
und weiter testen 

Routine für ON auf rufen 
und weiter testen 

Routine für ‘U' aufrufen 
und weiter testen 

Banknummer einiesen 
und weiter testen 

Filenummer schon gelesen ? 
Wenn ja, Fehler 
Fi lenummer holen 
Filenummer = 0 ? 
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A451 

FO 

42 


BEQ 

$A495 

Ja, Fehler 

A453 

8E 

1B 

01 

STX 

*011B 

Filenummer setzen 

A456 

A9 

04 


LDA 

#$04 

Status für Filenummer gesetzt laden 

A458 

DO 

EO 


BNE 

*A43A 

Unbedingter Sprung 

A45A 

4C 

6C 

79 

JMP 

S796C 

■SYNTAX 1 

A45D 

AA 



TAX 


■W oder • L 1 retten 

A45E 

A9 

40 


LDA 

#$40 

Status für 'W oder 1 L• schon gesetzt ? 

A460 

20 

ID 

A6 

JSR 

$A61D 

Status testen 

A463 

EO 

57 


CPX 

#$57 

■W Writeangabe ? 

A465 

DO 

06 


BNE 

$A46D 

Nein, Skip 

A467 

20 

80 

03 

JSR 

$0380 

■U 1 über lesen 

A46A 

4C 

7B 

A4 

JMP 

$A47B 

Status setzen 

A46D 

20 

F2 

A5 

JSR 

$A5F2 

Satzlänge auswerten 

A470 

EO 

00 


CPX 

#$00 

Länge = 0 ? 

A472 

FO 

21 


BEQ 

$A495 

Ja, Fehler 

A4 74 

EO 

FF 


CPX 

#$FF 

Länge = 255 ? 

A4 76 

FO 

ID 


BEQ 

*A495 

Ja, Fehler 

A4 78 

8E 

IE 

01 

STX 

$01 IE 

Satzlänge setzen 

A47B 

A9 

40 


LDA 

#$40 

Status setzen 

A47D 

DO 

14 


BNE 

$A493 

Unbedingter Sprung 

A47F 

A9 

10 


LDA 

#$10 

Status für Drive 1 schon angegeben 

A481 

20 

ID 

A6 

JSR 

*A61D 

Status testen 

A484 

20 

F 2 

A5 

JSR 

$A5F2 

Drivenummer 1 holen 

A487 

EO 

02 


CPX 

#$02 

Zu groß ? 

A489 

BO 

OA 


BCS 

$A495 

Ja, Fehler 

A48B 

8E 

12 

01 

STX 

$0112 

Drivenummer 1 setzen 

A48E 

8E 

14 

01 

STX 

$0114 

Drivenummer 2 vorbesetzen 

A491 

A9 

10 


LDA 

#$10 

Status setzen 

A493 

DO 

62 


BNE 

*A4F7 

Unbedingter Sprung 

A495 

4C 

28 

7D 

JMP 

$7D28 

•ILLEGAL QUANTITY• 

A498 

AD 

22 

01 

LDA 

$0122 

ID schon angegeben ? 

A498 

DO 

BD 


BNE 

*A45A 

Ja, Fehler 

A49D 

20 

80 

03 

JSR 

*0380 

Erstes Zeichen der ID holen 

A4A0 

8D 

20 

01 

STA 

$0120 

und setzen 

A4A3 

20 

80 

03 

JSR 

$0380 

Zweites Zeichen der ID holen 

A4A6 

8D 

21 

01 

STA 

$0121 

und setzen 

A4A9 

A9 

FF 


LDA 

#$FF 

Flag für ID gelesen setzen 

A4AB 

8D 

22 

01 

STA 

$0122 


A4AE 

20 

80 

03 

JSR 

*0380 

Nächstes Zeichen lesen 

A4B1 

4C 

FB 

A4 

JMP 

$A4FB 

und weiter testen 

A4B4 

A9 

02 


LDA 

#$02 

Adresse 1 schon angegeben ? 

A4B6 

20 

22 

A6 

JSR 

$A622 

Wenn ja, Fehler 

A4B9 

20 

05 

A6 

JSR 

$A605 

Adreßwert holen 

A48C 

8C 

17 

01 

STY 

$0117 

und Adresse 1 setzen 
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80 

18 

01 

STA 

$0118 


A9 

02 


LDA 

#$02 

Status für Adresse 1 gelesen setzen 

05 

81 


ORA 

$81 


85 

81 


STA 

$81 


DO 

31 


BNE 

$A4FB 

Unbedingter Sprung 

A9 

04 


LDA 

#$04 

Adresse 2 schon gelesen ? 

20 

22 

A6 

JSR 

$A622 

Wenn ja, Fehler 

20 

05 

A6 

JSR 

$A605 

Adreßwert holen 

8C 

19 

01 

STY 

$0119 

und Adresse 2 setzen 

80 

1A 

01 

STA 

$011A 


A9 

04 


LDA 

#$04 

Status für Adresse 2 gelesen 

DO 

E8 


BNE 

$A4C4 

Status setzen 

A9 

01 


LDA 

#$01 

Status für Filename 1 schon gelesen 

20 

B9 

A5 

JSR 

$A5B9 

Status testen und String holen 

80 

11 

01 

STA 

$0111 

Filenamenlänge setzen 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

20 

B 7 

03 

JSR 

$03B7 

Zeichen aus String holen 

80 

03 

FF 

STA 

$FF03 

Urite in Bank 0 setzen 

99 

B7 

12 

STA 

$12B7,Y 

Filename byteweise übertragen 

C8 



INY 


Offset erhöhen 

CC 

11 

01 

CPY 

$0111 

Filename kopiert ? 

90 

Fl 


BCC 

$A4E6 

Nein, nochmal 

A9 

01 


LDA 

#$01 

Status für Filname 1 gelesen setzen 

05 

80 


ORA 

$80 


85 

80 


STA 

$80 


20 

86 

03 

JSR 

$0386 

CHRGOT 

00 

19 


BNE 

$A519 

Uenn kein Trennzeichen, Skip 

4C 

EA 

A3 

JMP 

$A3EA 

Ende ausführen 

C9 

91 


CMP 

#$91 

Token für ON ? 

DO 

03 


BNE 

$A50A 

Nein, Skip 

4C 

37 

A4 

JMP 

$A437 

Unitnummer einiesen 

C9 

A4 


CMP 

#$A4 

Token für TO 

FO 

02 


BEQ 

$A510 

Ja, Skip 

DO 

6D 


BNE 

$A57D 

Nein, Fehler 

20 

80 

03 

JSR 

$0380 

CHRGOT 

C9 

50 


CMP 

#$50 

■P 1 Adreßangabe ? 

DO 

OF 


BNE 

$A526 

Nein, Skip 

FO 

Bl 


BEO 

$A4CA 

Ja, Skip 

C9 

2C 


CMP 

#$2C 

V 7 

DO 

E6 


BNE 

$A503 

Nein, Test auf andere Zeichen 

20 

80 

03 

JSR 

$0380 

Zeichen über lesen 
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A520 

4C 

KJ 

< 

CO 

u. 

JMP $A3F8 

und weiter testen 

A523 

20 

80 03 

JSR $0380 

CHRGET 

A526 

C9 

44 

CMP #$44 

■D 1 Drivenummer 2 ? 

A528 

F0 

10 

BEQ $A53A 

Ja, Skip 

A52A 

C9 

91 

CMP #$91 

Token für ON ? 

A52C 

F0 

1F 

BEO $A54D 

Ja, Skip 

A52E 

C9 

55 

CMP #$55 

•U 1 Unitnummr 2 ? 

A530 

F0 

21 

BEQ $A553 

Ja, Skip 

A532 

C9 

22 

CMP #$22 

1 Filename 2 ? 

A534 

FO 

22 

BEQ $A558 

Ja, Skip 

A536 

C9 

28 

CMP #$28 

'(' Filenamenausdruck 2 ? 

A538 

FO 

IE 

BEQ $A558 

Ja, Skip 

A53A 

A9 

20 

LDA #$20 

Laufwerksnummer 2 schon gelesen ? 

A53C 

20 

ID A6 

JSR $A61D 

Uenn ja, Fehler 

A53F 

20 

F2 A5 

JSR $A5F2 

Laufwerksnummer holen 

A542 

EO 

02 

CPX #$02 

Zu groß ? 

A544 

BO 

39 

BCS $A57F 

Ja, Fehler 

A546 

8E 

14 01 

STX $0114 

Laufwerksnummer 2 setzen 

A549 

A9 

20 

LDA #$20 

Status für Laufwerksnummer 2 gelesen 

A54B 

DO 

1B 

BNE $A568 

Status setzen 

A54D 

20 

82 A5 

JSR $A582 

Routine für ON auf rufen 

A550 

4C 

68 A5 

JMP $A568 

Und weiter testen 

A553 

20 

80 A5 

JSR $A58D 

Routine für 'U' aufrufen 

A556 

DO 

10 

BNE $A568 

Und weiter testen 

A558 

A9 

02 

LDA #$02 

Status für Filename 2 gelesen 

A55A 

20 

B9 A5 

JSR $A5B9 

Status testen und Filename 2 lesen 

A550 

80 

13 01 

STA $0113 

Länge setzen 

A560 

8E 

15 01 

STX $0115 

Adresse setzen 

A563 

8C 

16 01 

STY $0116 


A566 

A9 

02 

LDA #$02 

Status für Filename 2 gelesen laden 

A568 

05 

80 

ORA $80 

Status setzen 

A56A 

85 

80 

STA $80 


A56C 

20 

86 03 

JSR $0386 

CHRGET 

A56F 

FO 

8F 

BEQ $A500 

Wenn Trennzeichen, Ende 

A571 

C9 

2C 

CMP #$2C 


A573 

FO 

AE 

BEQ $A523 

Ja, weitermachen 

A575 

C9 

91 

CMP #$91 

Token für ON ? 

A577 

FO 

04 

BEQ $A54D 

Ja, Routine für ON aufrufen 

A579 

C9 

55 

CMP #$55 

•U' ? 

A57B 

FO 

D6 

BEQ $A553 

Ja, Routine für 'U' aufrufen 

A57D 

DO 

37 

BNE $A5B6 

Sonst Fehler 
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A57F 

4C 28 70 

JMP $7D28 

•ILLEGAL QUANTITY 1 

****************************** 

Routine für Token ON 

A582 

20 80 03 

JSR $0380 

CHRGET 

A585 

C9 42 

CMP #$42 

• B 1 ? 

A587 

F0 15 

BEQ $A59E 

Ja, Skip 

A589 

C9 55 

CMP #$55 

•u* ? 

A58B 

DO 29 

BNE $A5B6 

Nein, Fehler 

****************************** 

Routine für 1 U• Unitnummer holen 

A58D 

20 F2 A5 

JSR $A5F2 

Unitnummer holen 

A590 

EO 1F 

CPX #$1F 

Wert zu groß ? 

A592 

BO 56 

BCS $A5EA 

Ja, Fehler 

A594 

EO 04 

CPX #$04 

Wert zu klein ? 

A596 

90 52 

BCC SA5EA 

Ja, Fehler 

A598 

8E IC 01 

STX $011C 

Gerätenummer setzen 

A59B 

A9 08 

LDA #$08 

Status für Gerätenummer gelesen, setzen 

A59D 

60 

RTS 


****************************** 

Routine für 1 B• Bank holen 

A59E 

A9 01 

LDA #$01 

Bank-Wert schon gelesen ? 

A5A0 

20 22 A6 

JSR $A622 

Wenn ja, Fehler 

A5A3 

20 F2 A5 

JSR $A5F2 

Bank-Wert holen 

A5A6 

EO 10 

CPX #$10 

Bank zu groß ? 

A5A8 

BO D5 

BCS $A57F 

Ja, Fehler 

A5AA 

8E 1F 01 

STX $011F 

Bank-Wert setzen 

A5AD 

A9 01 

LDA #$01 

Status für Bank-Wert gelesen setzen 

A5AF 

05 81 

ORA $81 


ASB1 

85 81 

STA $81 


A5B3 

A9 00 

LDA #$00 


A5B5 

60 

RTS 


A5B6 

4C 6C 79 

JMP $796C 

•SYNTAX 1 

****************************** 

Status testen und Filenamen lesen 

A5B9 

20 ID A6 

JSR $A61D 

Status testen 

A5BC 

20 7B 87 

JSR $877B 

FRMEVL ♦ FRESTR Stringausdruck holen 

A5BF 

AA 

TAX 

Länge = 0 ? 

A5C0 

FO 25 

BEQ $A5E7 

Ja, Fehler 

A5C2 

AO 00 

LDY #$00 

Offset auf 0 

A5C4 

20 B7 03 

JSR $03B7 

Erstes Zeichen aus String lesen 

A5C7 

C9 40 

CMP #$40 

Xiammeraffe ? 

A5C9 

DO 12 

BNE $A5DD 

Nein, Skip 

A5CB 

A9 80 

LDA #$80 

Klammeraffe schon gelesen ? 

A5CD 

20 ID A6 

JSR $A61D 

Wenn ja, Fehler 
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A5D0 

A5 

80 


LDA $80 

Status für Klammeraffe setzen 

A5D2 

09 

80 


ORA #$80 


A5D4 

85 

80 


STA $80 


A5D6 

CA 



DEX 

Länge erniedrigen 

A5D7 

E6 

24 


INC $24 

und Startadresse des Strings erhöhen 

A5D9 

DO 

02 


BNE SA5D0 

Kein Übertrag, Skip 

A50B 

E6 

25 


INC $25 

Übertrag berücksichtigen 

A5DD 

8A 



TXA 

Länge laden 

A5DE 

C9 

11 


CMP #$11 

Länge > 16 ? 

A5E0 

BO 

OB 


BCS $A5ED 

Ja, Fehler 

A5E2 

A6 

24 


LDX $24 

Startadresse laden 

A5E4 

A4 

25 


LDY $25 


A5E6 

60 



RTS 


****************************** 

Verschiedene Fehlermeldungen 

A5E7 

A2 

08 


LDX #$08 

1 MI SS ING FILENAME' 

A5E9 

2C 



.BYTE $2C 

Nächsten Befehl überlesen 

A5EA 

A2 

09 


LDX #$09 

•ILLEGAL DEVICE NUMBER' 

A5EC 

2C 



.BYTE $2C 

Nächsten Befehl überlesen 

A5ED 

A2 

17 


LDX #$17 

■STRING TOO LONG' 

A5EF 

4C 

3C 

4D 

JMP $4D3C 

Fehler ausgeben 

****************************** 

Byte-Wert in (X) holen 

A5F2 

20 

80 

03 

JSR $0380 

CHRGET 

A5F5 

FO 

BF 


BEQ $A5B6 

Uenn Trennzeichen, Fehler 

A5F7 

90 

09 


BCC $A602 

Wenn Ziffer, Skip 

A5F9 

20 

59 

79 

JSR $7959 

Test auf '(' 

A5FC 

20 

F4 

87 

JSR $87F4 

Byte-Wert holen 

A5FF 

4C 

56 

79 

JMP $7956 

Test auf ')' 

A602 

4C 

F4 

87 

JMP $87F4 

Byte-Wert holen 

****************************** 

Ausdruck in (Y)/(A) holen 

A605 

20 

80 

03 

JSR $0380 

CHRGOT 

A608 

FO 

AC 


BEQ $A5B6 

Wenn Trennzeichen, Fehler 

A60A 

90 

OE 


BCC $A61A 

Wenn Ziffer, Skip 

A60C 

20 

59 

79 

JSR $7959 

Test auf '(' 

A60F 

20 

12 

88 

JSR $8812 

Ausdruck holen 

A612 

20 

56 

79 

JSR $7956 

Test auf ')' 

A615 

A4 

16 


LDY $16 

Ausdruck laden 

A617 

A5 

17 


LDA $17 


A619 

60 



RTS 


A61A 

4C 

12 

88 

JMP $8812 

Ausdruck holen 
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****************************** Parameterstatus testen 


A61D 

25 

80 

AND $80 

Status schon gesetzt ? 

A61F 

DO 

95 

BNE $A5B6 

Ja, Fehler 

A621 

60 


RTS 



****************************** Adreßstatus testen 


A622 

25 

81 

AND $81 

Status schon gesetzt ? 

A624 

DO 

90 

BNE $A5B6 

Ja, Fehler 

A626 

60 


RTS 



****************************** Stringtabelle für Diskbefehle 


A627 

49 

Dl 




•P (Drive 1) 



A629 

24 

Dl 

3A 

Fl 


•$• (Drive 1) 

1 : 1 (Filename 1) 


A62D 

FO 

Dl 

3A 

Fl 2C El 

2C EO 

(Klammeraffe) 

(Drive 1) (Filename 1) 







(Dateiart) 

(Dateityp) 


A635 

43 

D2 

3A 

F2 3D D2 

3A F2 

•C (Drive 2) 

1 : 1 (Filename 2) 








'=' (Drive 2) 

1 :' (F i l ename 2) 


A63D 

2C 





1 1 

1 



A63E 

Dl 

3A 

Fl 

2C 41 


(Drive 1) 1 : 1 

(Filename 1) 1 ,A 1 


A643 

4E 

Dl 

3A 

Fl 2C DO 


• N ■ (Drive 1) 

•: 1 (Filename 1) 1 , 1 

(ID) 

A649 

56 

Dl 




■V' (Drive 1) 



A64B 

44 

D2 

30 

Dl 


• D• (Drive 2) 

'=' (Drive 1) 


A64F 

43 

02 

3A 

F2 3D Dl 

3A Fl 

•C' (Drive 2) 

1 : 1 (Filename 2) 1 = 1 








(Drive 1) ':' 

(Filename 1) 


A657 

52 

Dl 

3A 

F2 30 Dl 

3A Fl 

■ R • (Drive 1) 

': 1 (F i l ename 2) ' = 1 








(Drive 1) 1 : 1 

(Filename 1) 


A65F 

53 

Dl 

3A 

Fl 


'S' (Drive 1) 

1 :' (Filename 1) 


A663 

50 

C2 

E2 

EO 


’P 1 (Sekundäradresse) (Satznummer) 

(Byte) 

****************************** 

Diskstring zusammenstellen 


A667 

8D 

10 

01 

STA $0110 

Länge setzen 



A66A 

98 



TYA 


Offset retten 



A66B 

48 



PHA 
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A66C 

20 

0D 

A8 

JSR 

$A80D 

A66F 

A2 

00 


LDX 

#$00 

A671 

68 



PLA 


A672 

CE 

10 

01 

DEC 

$0110 

A675 

30 

48 


BMI 

$A6BF 

A677 

A8 



TAY 


A678 

C8 



INY 


A679 

98 



TYA 


A67A 

48 



PHA 


A67B 

B9 

27 A6 

LDA 

$A627,Y 

A67E 

10 

37 


BPL 

$A6B7 

A680 

C9 

C2 


CMP 

#$C2 

A682 

F0 

52 


BEQ 

$A6D6 

A684 

C9 

DO 


CMP 

#$D0 

A686 

F0 

5D 


BEQ 

$A6E5 

A688 

C9 

E2 


CMP 

#$E2 

A68A 

F0 

77 


BEQ 

$A703 

A68C 

C9 

El 


CMP 

#$E 1 

A68E 

F0 

61 


BEQ 

$A6F1 

A690 

C9 

F0 


CMP 

#$F0 

A692 

F0 

47 


BEQ 

$A6DB 

A694 

C9 

Fl 


CMP 

#$F 1 

A696 

F0 

75 


BEQ 

$A70D 

A698 

C9 

F2 


CMP 

#$F2 

A69A 

F0 

21 


BEQ 

$A6BD 

A69C 

C9 

E0 


CMP 

#$E0 

A69E 

DO 

05 


BNE 

$A6A5 

A6A0 

AD 

IE 

01 

LDA 

$01 IE 

A6A3 

DO 

12 


BNE 

$A6B7 

A6A5 

C9 

Dl 


CMP 

#$D1 

A6A7 

DO 

05 


BNE 

SA6AE 

A6A9 

AD 

12 

01 

LDA 

$0112 

A6AC 

10 

07 


BPL 

$A685 

A6AE 

C9 

D2 


CMP 

#$D2 

A6B0 

DO 

BF 


BNE 

$A671 

A6B2 

AD 

14 

01 

LDA 

$0114 

A6B5 

09 

30 


ORA 

#$30 

A687 

90 

00 

11 

STA 

$1100,X 

A6BA 

E8 



INX 


A6BB 

DO 

B4 


BNE 

$A671 

A6BD 

F0 

64 


BEQ 

$A723 

A6BF 

8A 



TXA 


A6C0 

48 



PHA 



DS$ für ungültig erklären 

Offset weider holen 
Ende erreicht ? 

Ja, Skip 
Offset setzen 
Offset erhöhen 
Und wieder retten 

Zeichen aus Tabelle holen 
Wenn normales Zeichen, eintragen 
Sekundäradresse ? 

Ja, Skip 

Code für Disk ID ? 

Ja, Skip 
Satznummer ? 

Ja, Skip 

Code für Dateiart ? 

Ja, Skip 

Code für Klammeraffe ? 

Ja, Skip 

Code für Filename 1 ? 

Ja, Skip 

Code für Filename 2 ? 

Ja, Skip 

Code für Datei typ ? 

Nein, Skip 

Datei typ/Satzlänge laden 
Unbedingter Sprung 

Code für Drivenummer 1 ? 

Nein, Skip 
Drivenummer 1 laden 
Unbedingter Sprung 

Code für Drivenummer 2 ? 

Nein, Zeichen über lesen 
Drivenummer 2 laden 
und in ASCII wandeln 

Zeichen eintragen 
Zieloffset erhöhen 
Unbedingter Sprung 

Filenamen 2 einiesen 

Länge des Ergebnisstrings 
retten 
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A6C1 

A2 

00 


LDX 

#$00 

A6C3 

A0 

11 


LDY 

#$11 

A6C5 

20 

50 

92 

JSR 

$925D 

A6C8 

AD 

1 B 

01 

LDA 

$011B 

A6CB 

AE 

IC 

01 

LDX 

$01 IC 

A6CE 

AC 

ID 

01 

LDY 

$01 ID 

A6D1 

20 

57 92 

JSR 

$9257 

A6D4 

68 



PLA 


A6D5 

60 



RTS 


A6D6 

AD 

ED 

11 

LDA 

$11ED 

A6D9 

DO 

DC 


BNE 

$A6B7 

A6DB 

24 

80 


BIT 

$80 

A6DD 

30 

02 


BMI 

$A6E 1 

A6DF 

10 

90 


BPL 

$A671 

A6E1 

A9 

40 


LDA 

#$40 

A6E3 

DO 

D2 


BNE 

$A6B7 

A6E5 

AD 

20 

01 

LDA 

$0120 

A6E8 

90 

00 

11 

STA 

$1100,X 

A6EB 

E8 



INX 


A6EC 

AD 

21 

01 

LDA 

$0121 

A6EF 

DO 

C6 


BNE 

$A6B7 

A6F1 

AD 

IE 

01 

LDA 

$01 IE 

A6F4 

FO 

04 


BEQ 

$A6FA 

A6F6 

A9 

4C 


LDA 

#$4C 

A6F8 

DO 

BD 


BNE 

$A6B7 

A6FA 

A9 

53 


LDA 

#$53 

A6FC 

8D 

IE 

01 

STA 

$01 IE 

A6FF 

A9 

57 


LDA 

#$57 

A701 

DO 

B4 


BNE 

$A6B7 

A703 

A5 

16 


LDA 

$16 

A705 

90 

00 

11 

STA 

$1100,X 

A708 

A5 

17 


LDA 

$17 

A70A 

E8 



INX 


A70B 

DO 

AA 


BNE 

$A6B7 

A70D 

AC 

11 

01 

LDY 

$0111 


FO 

33 


BEQ 

$A745 

A712 

AO 

00 


LDY 

#$00 

A714 

B9 

87 

12 

LDA 

$12B7,Y 

A717 

90 

00 

11 

STA 

$1100,X 

A71A 

E8 



INX 


A71B 

C8 



INY 



Adresse auf $1100 
setzen 

Filenamenparameter setzen 
Filenummer laden 
Gerätenummer laden 
Sekundäradresse laden 
Fileparameter setzen 
Länge wieder holen 

Sekundäradresse laden 
Unbedingter Sprung 

Klammeraffe vorhanden ? 

Ja, Skip 

Nein, weitermachen 

Klammeraffe eintragen 
Unbedingter Sprung 

Erstes Zeichen der 10 laden 
und eintragen 
Offset erhöhen 

und zweites Zeichen eintragen 
Unbedingter Sprung 

Satzlänge angegeben ? 

Nein, Skip 

•L 1 Satzlänge für REL-Datei 
Unbedingter Sprung 
•S• Dateityp sequentiell laden 
und setzen 
•U* 

Urite eintragen 

Satz länge eintragen 
Zeichen eintragen 
Zweites Byte 
Offset erhöhen 
Unbedingter Sprung 

Länge Filename 1=0? 

Ja, Skip 

Filenamen eintragen 
Filename laden 
und kopieren 
Offset erhöhen 
Offset erhöhen 
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A71C 

CC 

11 

01 

CPY 

$0111 

Länge erreicht ? 

A71F 

DO 

F3 


BNE 

$A714 

Nein, weiter kopieren 

A721 

FO 

23 


BEQ 

$A746 

Zurück zur Kopierschleife 

A723 

AD 

15 

01 

LDA 

$0115 

Adresse des zweiten Filenamens setzen 

A726 

85 

24 


STA 

$24 


A728 

AD 

16 

01 

LDA 

$0116 


A72B 

85 

25 


STA 

$25 


A72D 

AC 

13 

01 

LDY 

$0113 

Länge = 0 ? 

A730 

FO 

13 


BEQ 

$A745 

Ja, Skip 

A732 

AO 

00 


LDY 

#$00 

Offset auf 0 setzen 

A734 

20 

B7 

03 

JSR 

$03B7 

Filenamen byteweise kopieren 

A737 

80 

03 

FF 

STA 

$FF03 

Write in Bank 0 setzen 

A73A 

90 

00 

11 

STA 

$1100,X 

Filename setzen 

A73D 

E8 



1NX 


Offset erhöhen 

A73E 

C8 



INY 


Offset erhöhen 

A73F 

CC 

13 

01 

CPY 

$0113 

Länge erreicht ? 

A742 

DO 

FO 


BNE 

$A734 

Nein, weiter kopieren 

A744 

24 



.BYTE $24 

Nächsten Befehl über lesen 

A745 

CA 



DEX 


Ein Zeichen zurückschalten 

A746 

4C 

71 

A6 

JMP 

$A671 

und zum Anfang der Schleife 


****************************** Syntaxprüfung auf Name 1, Drive 1 und 
Uni t 


A749 

29 

E6 

AND #$E6 

Falsche Parameter angegeben ? 

A74B 

F0 

03 

BEQ $A750 

Nein, Skip 

A74D 

4C 

6C 79 

JMP $796C 

•SYNTAX' 

A750 

A5 

80 

LDA $80 

Flag für Parameter laden 

A752 

29 

01 

AND #$01 

Dateiname 1 vorhanden ? 

A754 

C9 

01 

CMP #$01 


A756 

DO 

F5 

BNE $A74D 

Nein, Fehler 

A758 

A5 

80 

LDA $80 

Flag für Parameter laden 

A75A 

60 


RTS 



****************************** Prüfung auf anderes als Name 1 und Drive 
1 


A75B 

29 E7 

AND #$E7 

Falsche Parameter 

angegeben ? 

A75D 

DO EE 

BNE $A74D 

Ja, Fehler 


A75F 

60 

RTS 



****************************** 

Prüfung auf beide 

Dateinamen i 

A760 

29 C4 

AND #$C4 

Falsche Parameter 

angegeben ? 

A762 

DO E9 

BNE $A74D 

Ja, Fehler 


A764 

A5 80 

LDA $80 

Flag für Parameter laden 

A766 

29 03 

AND #$03 





A768 

C9 

03 

CMP 

#$03 

A76A 

DO 

El 

BNE 

$A74D 

A76C 

A5 

80 

LDA 

$80 

A76E 

60 


RTS 



****************************** 


A76F 

29 

05 


AND 

#$05 

A771 

C9 

05 


CMP 

#$05 

A773 

DO 

08 


BNE 

$A74D 

A775 

A5 

80 


LDA 

$80 

A777 

60 



RTS 


****************************** 

A778 

A5 

7A 


LDA 

$7A 

A77A 

DO 

19 


BNE 

$A795 

A77C 

A9 

28 


LDA 

#$28 

A77D 

85 

7A 


STA 

$7A 

A780 

20 

99 92 

JSR 

$9299 

A783 

86 

7B 


STX 

$7B 

A785 

84 

7C 


STY 

$7C 

A787 

A0 

28 


LDY 

#$28 

A789 

80 

04 

FF 

STA 

$FF04 

A78C 

A9 

7A 


LDA 

#$7A 

A78E 

91 

7B 


STA 

($7B),Y 

A790 

C8 



INY 


A791 

A9 

00 


LDA 

#$00 

A793 

91 

7B 


STA 

($7B),Y 

A795 

AE 

IC 

01 

LDX 

$01 IC 

A798 

DO 

05 


BNE 

$A79F 

A79A 

A2 

08 


LDX 

#$08 

A79C 

8E 

IC 

01 

STX 

$01 IC 

A79F 

A9 

00 


LDA 

#$00 

A7A1 

AO 

6F 


LDY 

#$6F 

A7A3 

20 

57 92 

JSR 

$9257 

A7A6 

A9 

00 


LDA 

#$00 

A7A8 

20 

50 

92 

JSR 

$925D 

A7AB 

20 

08 

90 

JSR 

$9008 

A7AE 

A2 

00 


LDX 

#$00 

A7B0 

20 

C6 

FF 

JSR 

$FFC6 

A7B3 

BO 

20 


BCS 

$A7D5 

A7B5 

AO 

FF 


LDY 

#$FF 

A7B7 

C8 



INY 


A7B8 

20 

63 

92 

JSR 

$9263 

A7BB 

80 

04 

FF 

STA 

$FF04 

A7BE 

C9 

00 


CMP 

#$00 

A7C0 

FO 

06 


BEO 

$A7C8 


Beide Dateinamen angegeben ? 
Nein, Fehler 

Flag für Parameter laden 


Prüfung auf Name 1 und Filenummer 


Name 1 und Filenummer angegeben ? 
Nein, Fehler 

Flag für Parameter laden 


DSS holen 

DS$ gesetzt ? 

Ja, Skip 

Deskriptor auf 40 Zeichen setzen 

Platz für String reservieren 
Und Adresse setzen 

Pointer auf Trailer setzen 
Write in Bank 1 setzen 

Trailer auf $007A setzen 
Offset erhöhen 
Und damit 

String für gültig erklären 
Geräteadresse gesetzt ? 

Ja, Skip 

Geräteadresse auf 8 
setzen 

Filenummer 0 
Sekundäradresse 15 
Fileparameter setzen 
Filenamenlänge = 0 setzen 
Filenamenparameter setzen 
OPEN 

Filenummer 0 
Eingabegerät setzen 
Wenn Fehler, Skip 
Offset auf Start 
Offset erhöhen 
BAS IN 

Write in Bank 1 setzen 
CR ? 

Ja, Ende 
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A7C2 

91 

7B 


STA 

($7B),Y 

A7C4 

CO 

28 


CPY 

#$28 

A7C6 

90 

EF 


BCC 

$A7B7 

A7C8 

A9 

00 


LDA 

#$00 

A7CA 

91 

7B 


STA 

($7B),Y 

A7CC 

20 

6F 

92 

JSR 

$926F 

A7CF 

A9 

00 


LDA 

#$00 

A7D1 

38 



SEC 


A7D2 

4C 

75 

92 

JMP 

$9275 

A7D5 

48 



PHA 


A7D6 

20 

C8 

A7 

JSR 

$A7C8 

A7D9 

20 

0D 

A8 

JSR 

$A80D 

A7DC 

68 



PLA 


A7DD 

AA 



TAX 


A7DE 

4C 

3C 

4D 

JMP 

$4D3C 

#**#****##*##*****###**#****** 

A7E1 

24 

7F 


BIT 

$7F 

A7E3 

30 

25 


BMI 

$A80A 

A7E5 

20 

81 

92 

JSR 

$9281 

ft***************************** 

A7E8 

41 

52 

45 

20 59 4F 55 20 

A7F0 

53 

55 

52 

45 3F 

00 

****************************** 

A7F6 

20 

6F 

92 

JSR 

$926F 

A7F9 

20 

63 

92 

JSR 

$9263 

A7FC 

48 



PHA 


A7FD 

C9 

OD 


CMP 

#$0D 

A7FF 

F0 

05 


BEQ 

$A806 

A801 

20 

63 

92 

JSR 

$9263 

A804 

DO 

F7 


BNE 

$A7FD 

A806 

68 



PLA 


A807 

C9 

59 


CMP 

#$59 

A809 

60 



RTS 



Zeichen in DS$ speichern 
Länge schon = 40 ? 

Nein, weiter einiesen 
Null-Byte 

als Abschluß in DS$ 

CLRCH I/O rücksetzen 
Fi lenummer 0 

CLOSE 

Fehler retten 

DSS beenden, CLOSE 

DS$ für ungültig erklären 

Fehler laden 

und für Ausgabe in (X) 

Fehler ausgeben 

Im Direktmodus 'ARE YOU SURE' 

Direktmodus ? 

Nein, Skip 
Text ausgeben 

Textkonstante 

•ARE YOU SURE? 1 


CLRCH I/O rücksetzen 
BASIN Zeichen holen 
und retten 
CR ? 

Ja, Skip 

Zeichen überlesen 
Bis Ende gefunden 
Erstes Zeichen wieder holen 
•Y 1 ? Flags setzen 


ft##***###*#*****#*#**#*#****** 

A80A A9 00 LDA #$00 (A) löschen 

A80C 60 RTS 
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****************************** os$ für ungültig erklären 


A80D 

98 


TYA 


(Y) retten 

A80E 

48 


PHA 



A80F 

A5 

7A 

LDA 

$7A 

Deskriptor gesetzt ? 

A811 

FO 

OD 

BEO 

o 

oo 

< 

Nein, Skip 

A813 

AO 

28 

LDY 

#$28 

(Y) = Länge von DS$ (40 Zeichen) 

A815 

98 


TYA 


Länge in (A) 

A816 

80 

04 FF 

STA 

SFF04 

Write in Bank 1 setzen 

A819 

91 

7B 

STA 

($7B),Y 

Trailer setzen 

A81B 

C8 


I NY 


Offset erhöhen 

A81C 

A9 

FF 

LDA 

#$FF 

String für ungültig erklären 

A81E 

91 

7B 

STA 

($7B),Y 

Trailerbyte setzen 

A820 

A9 

00 

LDA 

#$00 


A822 

80 

03 FF 

STA 

$FF03 

Write in Bank 0 setzen 

A825 

85 

7A 

STA 

$7A 

Deskriptor löschen 

A827 

68 


PLA 



A828 

A8 


TAY 


(Y) wieder holen 

A829 

60 


RTS 



****************************** 

Textkonstante 'KEY 0,' 

A82A 

2C 

30 20 

59 45 

48 

',0 YEK' ergibt 'KEY 0,' 

****************************** 

Byte-Wert in (A) ausgeben 

A830 

AA 


TAX 


Byte-Wert in (X) 

A831 

98 


TYA 


(Y) retten 

A832 

48 


PHA 



A833 

A9 

00 

LDA 

#$00 

High-Byte auf 0 setzen 

A835 

20 

32 8E 

JSR 

$8E32 

Adresse in (X)/(A) ausgeben 

A838 

68 


PLA 



A839 

A8 


TAY 


(Y) wieder holen 

A83A 

60 


RTS 



****************************** 

Direktmodusflags setzen falls nötig 

A83B 

85 

3C 

STA 

$3C 

Zei lennummer High-Byte setzen 

A83D 

88 


DEY 



A83E 

AA 


TAX 



A83F 

E8 


I NX 


War High-Byte = $FF ? (Direktmodus) 

A840 

DO 

02 

BNE 

$A844 

Nein, Ende 

A842 

86 

7F 

STX 

$7F 

Direktmodusflag 

A844 

60 


RTS 




****************************** roMs einschalten 


A845 48 


PHA 


(A) retten 
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A846 

A9 00 

LDA #$00 


A848 

80 00 FF 

STA $FF00 

Alle ROMs einschalten 

A848 

68 

PLA 

(A) wieder holen 

A84C 

60 

RTS 



****************************** BASIC-IRQ Routine 


A840 

AD FD 

12 

LDA $12FD 

BASIC-IRQ erlaubt ? 

A850 

F0 01 


BEQ $A853 

Ja, Skip 

A852 

60 


RTS 


A853 

EE FD 

12 

INC $12FD 

IRQ verbieten 

A856 

A2 10 


LDX #$10 

Spriteadressen in VIC kopieren 

A858 

BD D6 

11 

LDA $11D6,X 

Bytes aus Tabelle laden 

A85B 

9D 00 

DO 

STA $DOOO,X 

und VIC programmieren 

A85E 

CA 


DEX 

Alle Bytes kopiert ? 

A85F 

10 F7 


BPL $A858 

Nein,nochmal 

A861 

AO 07 


LDY #$07 

8 Sprites bearbeiten 

A863 

AD 15 

DO 

LDA $D015 

VIC-Spriteschalter laden 

A866 

39 B3 

6C 

AND $6CB3,Y 

Sprite angeschaltet ? 

A869 

FO 38 


BEQ $A8A3 

Nein, Skip 

A86B 

BE 09 

6D 

LDX $6DD9,Y 

Tabellenoffset auf Spritedaten laden 

A86E 

BD 7E 

11 

LDA $117E,X 

Soll Sprite bewegt werden ? 

A871 

FO 30 


BEQ $A8A3 

Nein, Skip 

A873 

9D 7F 

11 

STA $117F,X 

Geschwindigkeitszähler setzen 

A876 

98 


TYA 


A877 

OA 


ASL 


A878 

A8 


TAY 


A879 

BD 80 

11 

LDA $1180,X 


A87C 

38 


SEC 


A87D 

E9 01 


SBC #$01 


A87F 

E8 


INX 


A880 

E8 


I NX 


A881 

C8 


INY 


A882 

20 F4 

A9 

JSR $A9F4 

Position aufaddieren 

A885 

CA 


DEX 


A886 

CA 


DEX 


A887 

88 


DEY 


A888 

BD 80 

11 

LDA $1180,X 


A88B 

20 F4 

A9 

JSR $A9F4 

Position aufaddieren 

A88E 

08 


PHP 

Übertrag retten 

A88F 

98 


TYA 


A890 

4A 


LSR 


A891 

A8 


TAY 


A892 

28 


PLP 

Übertrag vorhanden ? 

A893 

90 09 


BCC $A89E 

Nein, Skip 

A895 

AD E6 

11 

LDA $11E6 

MSB der Spriteposition setzen 

A898 

59 B3 

6C 

EOR $6CB3,Y 


A89B 

8D E6 

11 

STA $11E6 
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DE 

7F 

11 

DEC 

$117F,X 

DO 

D3 


BNE 

$A876 

88 



DEY 


10 

BD 


BPL 

SA863 

AD 

19 

DO 

LDA 

$D019 

8D 

19 

DO 

STA 

$D019 

29 

OE 


AND 

#$0E 

F0 

44 


BEO 

$A8F4 

4A 



LSR 


A0 

01 


LDY 

#$01 

4A 



LSR 


90 

20 


BCC 

$A8D6 

48 



PHA 


B9 

IE 

DO 

LDA 

$D01E,Y 

19 

E 7 

11 

ORA 

$11E7,Y 

99 

E 7 

11 

STA 

$11E7,Y 

A9 

00 


LDA 

#$00 

99 

IE 

DO 

STA 

$D01E,Y 

AD 

7F 

12 

LDA 

$127F 

CO 

00 


CPY 

#$00 

F0 

01 


BEQ 

$A8CD 

4A 



LSR 


4A 



LSR 


90 

05 


BCC 

$A8D5 

A9 

FF 


LDA 

#$FF 

99 

76 

12 

STA 

$1276,Y 

68 



PLA 


88 



DEY 


10 

DA 


BPL 

$A8B3 

4A 



LSR 


90 

18 


BCC 

$A8F4 

AD 

13 

DO 

LDA 

$D013 

OD 

E9 

11 

STA 

$11E9 

AD 

14 

DO 

LDA 

$D014 

OD 

EA 

11 

STA 

$11EA 

AD 

7F 

12 

LDA 

$127F 

29 

04 


AND 

#$04 

FO 

05 


BEQ 

$A8F4 

A9 

FF 


LDA 

#$FF 

8D 

78 

12 

STA 

$1278 

A2 

00 


LDX 

#$00 

BD 

24 

12 

LDA 

$1224,X 

30 

27 


BMI 

$A922 

BD 

23 

12 

LDA 

$1223,X 

38 



SEC 


ED 

22 

12 

SBC 

$1222 

9D 

23 

12 

STA 

$1223,X 


Zähler = 0 ? 

Nein, weiterbewegen 
Alle Sprites verarbeitet ? 
Nein, weiter testen 
VIC-Interrupts löschen 
VIC programmieren 
War etwas gesetzt ? 

Nein, Skip 
Wert anpassen 
Nummer laden 
Spritekollision ? 

Nein, Skip 
IRQ-Wert retten 
Kollisionsbits 
In Interpreterwerte setzen 


Kollisionsbits löschen 
BASIC-IRQ Flag laden 
Sprite/Sprite Kollision ? 
Ja, Skip 

Art der Kollision erlaubt ? 
Nein, Skip 

BASIC-IRQ Wert setzen 


Beide Kollisionsarten getestet ? 
Nein, weitermachen 
Lightpenaktivierung ? 

Nein, Skip 

Lightpenposition retten 


Lightpen-IRQ erlaubt ? 
Nein, Skip 
Lightpenflag setzen 


Nein, Skip 











Das BAS IC-ROM 


693 


A905 

BO 

1B 


BCS 

$A922 

Wenn kein Übertrag, Skip 

A907 

BD 

24 

12 

LDA 

$1224,X 


A90A 

E9 

00 


SBC 

#$00 


A90C 

90 

24 

12 

STA 

$1224,X 


A90F 

BO 

11 


BCS 

$A922 

Wenn kein Übertrag, Skip 

A911 

8A 



TXA 



A912 

4A 



LSR 



A913 

A8 



TAY 



A914 

B9 

30 

12 

LDA 

$1230,Y 

Wellenform laden 

A917 

29 

FE 


AND 

#$FE 

KEY-Bit löschen 

A919 

48 



PHA 



A91A 

B9 

39 

70 

LDA 

$7039,Y 

Stimmenoffset setzen 

A91D 

A8 



TAY 



A91E 

68 



PLA 



A91F 

99 

04 

D4 

STA 

$D404,Y 

Und Stimme ausklingen lassen 

A922 

E8 



1NX 


Offset erhöhen 

A923 

E8 



INX 


Offset erhöhen 

A924 

EO 

06 


CPX 

#$06 

Alle 3 Stimmen verarbeitet ? 

A926 

DO 

CE 


BNE 

$A8F6 

Nein, weiter testen 

A928 

AO 

02 


LDY 

#$02 

Offset laden 

A92A 

B9 

85 

12 

LDA $1285,Y 

Soundstimme gesetzt ? 

A92D 

10 

06 


BPL 

$A935 

Ja, Skip 

A92F 

88 



DEY 


Alle 3 Soundstimmen getestet ? 

A930 

10 

F8 


BPL 

$A92A 

Nein, weiter 

A932 

4C 

FO 

A9 

JMP 

$A9F0 

BASIC-IRQ wieder erlauben und Ende 

A935 

18 



CLC 



A936 

B9 

90 

12 

LDA 

$1290,Y 

Schrittzahl auf Frequenz aufaddieren 

A939 

79 

97 

12 

ADC 

$1297,Y 


A93C 

99 

90 

12 

STA 

$1290,Y 


A93F 

B9 

AO 

12 

LDA 

$12A0,Y 


A942 

79 

9A 

12 

ADC 

$129A,Y 


A945 

99 

AO 

12 

STA 

$12A0,Y 


A948 

B9 

94 

12 

LDA 

$1294,Y 

Richtung laden 

A94B 

AA 



TAX 



A94C 

29 

01 


AND 

#$01 

Zunehmend 7 

A94E 

FO 

2E 


BEQ 

$A97E 

Ja, Skip 

A950 

90 

OF 


BCC 

$A961 

Wenn kein alter Übertrag vorhanden, Skip 

A952 

38 



SEC 



A953 

B9 

90 

12 

LDA 

$1290,Y 

Minimalwert von Frequenz abziehen 

A956 

F9 

8E 

12 

SBC 

$128E,Y 


A959 

B9 

AO 

12 

LDA 

$12A0,Y 


A95C 

F9 

91 

12 

SBC 

$1291,Y 


A95F 

BO 

4D 


BCS 

$A9AE 

Wenn kein Übertrag, Skip 

A961 

EO 

02 


CPX 

#$02 

Oszillierend ? 

A963 

90 

OA 


BCC 

$A96F 

Nein, Skip 

A965 

20 

DA 

A9 

JSR 

$A90A 

Schrittzahl negieren 

A968 

A9 

02 


LDA 

#$02 

Oszillierend zunehmend 

A96A 

99 

94 

12 

STA 

$1294,Y 

Setzen 
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A96D 

A96F 

A972 

A975 

A978 

A97B 

A97E 

A980 

A983 

A986 

A988 

A98A 

A98D 

A990 

A992 

A994 

A996 

A998 

A99B 

A990 

A9A0 

A9A2 

A9A5 

A9A8 

A9AB 

A9AE 

A9B1 

A9B4 

A9B7 

A9BA 

A9BD 

A9BE 

A9BF 

A9C2 

A9C4 

A9C7 

A9CA 

A9CD 

A9CF 

A901 

A9D4 

A9D7 


DO 

33 


BNE 

$A9A2 

Unbedingter Sprung 

B9 

88 

12 

LDA 

$1288,Y 

Maximalwert in Frequenz setzen 

99 

90 

12 

STA 

$1290,Y 


B9 

8B 

12 

LDA 

$128B,Y 


99 

AO 

12 

STA 

$12A0,Y 


4C 

AE 

A9 

JMP 

$A9AE 


BO 

14 


BCS 

o 

o 

< 

4A 

Wenn alter Übertrag vorhanden, Skip 

B9 

AO 

12 

LDA 

$12A0,Y 

Maximalwert erreicht ? 

09 

8B 

12 

CMP 

$128B,Y 


90 

26 


BCC 

$A9AE 

Nein, Skip 

DO 

OA 


BNE 

$A994 


B9 

9D 

12 

LDA 

$129D,Y 


D9 88 

12 

CMP 

$1288,Y 


90 

IC 


BCC 

$A9AE 

Nein, Skip 

FO 

1A 


BEQ 

$A9AE 

Nein, Skip 

EO 

02 


CPX 

#$02 

Oszillierend zunehmend ? 

90 

OA 


BCC 

$A9A2 

Nein, Skip 

20 

DA 

A9 

JSR 

$A9DA 

Schrittzahl negieren 

A9 

03 


LDA 

#$03 

Oszillierend abnehmend 

99 

94 

12 

STA 

$1294,Y 

Setzen 

DO 

CD 


BNE 

$A96F 

Maximalfrequenz setzen 

B9 

8E 

12 

LDA 

$128E,Y 

Minimalfrequenz setzen 

99 

9D 

12 

STA 

$1290,Y 


B9 

91 

12 

LDA 

$1291,Y 


99 

AO 

12 

STA 

$12A0,Y 


BE 

39 

70 

LDX 

$7039,Y 

Stimmenoffset laden 

B9 

9D 

12 

LDA 

$129D,Y 

Frequenz programmieren 

9D 

00 

D4 

STA 

$D400,X 


B9 

AO 

12 

LDA 

$12A0, Y 


9D 

01 

D4 

STA 

$0401,X 


98 



TYA 


(Y) in (X) kopieren 

AA 



TAX 



BD 

82 

12 

LDA 

$1282,X 

Zeitspeicher erniedrigen 

DO 

03 


BNE 

$A9C7 


DE 

85 

12 

DEC 

$1285,X 


DE 

82 

12 

DEC 

$1282,X 


BD 

85 

12 

LDA 

$1285,X 

Noch Zeit vorhanden ? 

10 

08 


BPL 

$A9D7 

Ja, Skip 

A9 

08 


LDA 

#$08 

TEST-Bit 

BE 

39 

70 

LDX 

$7039,Y 

Offset auf SID-Stimme laden 

90 

04 

D4 

STA 

$0404,X 

In SID setzen 

4C 

2F 

A9 

JMP 

$A92F 

Nächste Soundstimme testen 
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****************************** 

Schrittzahl negieren 

A9DA 

B9 

97 

12 

LDA 

$1297,Y 

Low-Byte negieren 

A9DD 

49 

FF 


EOR 

#$FF 


A9DF 

18 



CLC 



A9E0 

69 

01 


ADC 

#$01 


A9E2 

99 

97 

12 

STA 

$1297,Y 


A9E5 

B9 

9A 

12 

LDA 

$ 129A, Y 

High-Byte negieren 

A9E8 

49 

FF 


EOR 

#$FF 


A9EA 

69 

00 


ADC 

#$00 


A9EC 

99 

9A 

12 

STA 

$129A,Y 


A9EF 

60 



RTS 



****************************** 

BASIC-IRQ wieder erlauben 

A9F0 

CE 

FD 

12 

DEC 

$ 12 FD 

Flag auf 0 (war vorher 1) 

A9F3 

60 



RTS 



****************************** 

Spriteposition aufaddieren 

A9F4 

48 



PHA 



A9F5 

18 



CLC 



A9F6 

BO 

81 

11 

LDA 

$1181,X 


A9F9 

7D 

85 

11 

ADC 

$1185,X 


A9FC 

90 

85 

11 

STA 

$1185,X 


A9FF 

BO 

82 

11 

LDA 

$1182,X 


AA02 

7D 

86 

11 

ADC 

$1186,X 


AA05 

9D 

86 

11 

STA 

$1186,X 


AA08 

68 



PLA 



AA09 

90 

13 


BCC 

$AA1E 

Wenn kein Übertrag, Skip 

AAOB 

4A 



LSR 



AAOC 

4A 



LSR 



AAOO 

B9 

06 

11 

LDA 

$11D6,Y 

Position laden 

AA10 

BO 

05 


BCS 

$AA17 

Wenn subtrahieren, Skip 

AA12 

69 

01 


ADC 

#$01 

Position erhöhen 

AA14 

4C 

1B 

AA 

JMP 

$AA1B 


AA17 

E9 

01 


SBC 

#$01 

Position erniedrigen 

AA19 

C9 

FF 


CMP 

#$FF 

Auf Übertrag vergleichen 

AA1B 

99 

D6 

11 

STA 

$1106,Y 

Und setzen 

AA1E 

60 



RTS 




BASIC-Befehl STASH 


AA1F A9 84 LOA #$84 
AA21 4C 2B AA JMP $AA2B 


Code für STASH 
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****************************** 


AA24 

A9 

85 


LDA 

#$85 

AA26 

4C 

2B 

AA 

JMP 

$AA2B 

****************************** 

AA29 

A9 

86 


LDA 

#$86 

AA2B 

48 



PHA 


AA2C 

20 

12 

88 

JSR 

$8812 

AA2F 

20 

45 

A8 

JSR 

$A845 

AA32 

8C 

07 

DF 

STY 

$DF07 

AA35 

8D 

08 

DF 

STA 

$DF08 

AA38 

20 

0F 

88 

JSR 

$880 F 

AA3B 

20 

45 

A8 

JSR 

$A845 

AA3E 

8C 

02 

DF 

STY 

$DF02 

AA41 

8D 

03 

DF 

STA 

$DF03 

AA44 

20 

0F 

88 

JSR 

$880 F 

AA47 

20 

45 

A8 

JSR 

in 

>4- 

co 

< 

AA4A 

8C 

04 

DF 

STY 

$DF04 

AA4D 

8D 

05 

DF 

STA 

in 

o 

U_ 

Q 

AA50 

20 

09 

88 

JSR 

$8809 

AA53 

E0 

10 


CPX 

#$10 

AA55 

B0 

0L 


BCS 

$AA65 

AA57 

20 

45 

A8 

JSR 

$A845 

AA5A 

8E 

06 

DF 

STX 

$DF06 

AA5D 

68 



PLA 


AA5E 

A8 



TAY 


AA5F 

AE 

D5 

03 

LDX 

o 

w 

o 

yj\ 

AA62 

4C 

50 

FF 

JMP 

$FF50 

AA65 

4C 

28 

7D 

JMP 

$7D28 


****************************** 

AA68 20 47 8C JSR $8C47 
AA6B 4C C7 8C JMP $8CC7 

***************************** 


BASIC-Befehl FETCH 
Code für FETCH 


BASIC-Befehl SWAP 

Code für SWAP 

Befehlscode retten 

Anzahl der Bytes holen 

ROMs einschalten 

Anzahl an RAM-Disk übergeben 

Startadresse im Computer holen 
ROMs einschalten 
Startadresse übergeben 

Startadresse in RAM-Disk holen 
ROMs einschalten 
Startadresse übergeben 

Banknummer in RAM-Disk holen 
Banknummer zu groß ? 

Ja, Fehler 
ROMs einschalten 
Bank programmieren 
Befehlscode wieder holen 
und in (Y) 

Bank des Computers laden 
DMA starten 
■ILLEGAL QUANTITY• 

FAC#1 gerundet in Integerformat 

FACAM runden 

und in Integer wandeln 

FülIbytes 


AA6E FF FF FF FF . . . 

****************************** Verschlüsselter Text 

AE63 .7B E9 77 Siehe FRE-Funktion ab $8000 ! 

AE66 6A 5F 5E 5D BE 21 30 24 Sie sollten sich diesen Text einmal 

AE6E 37 3F 22 55 20 24 4A 30 ausgeben lassen I 

AE76 27 3A 4E 2F 35 4D 4C 4F 

AE7E 40 47 46 68 69 88 15 1F 
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AE86 

OC 

08 

1F 

OF 19 

69 5F 

71 





AE8E 

96 

05 

13 

11 74 

89 05 

IE 





AE96 

00 

01 

43 

6D 98 

06 10 

13 





AE9E 

19 

67 

94 

IC 05 

75 37 

19 





AEA6 

EE 

70 

70 

ID F9 

61 66 

66 





AEAE 

79 

79 

73 

38 39 

E3 6F 

7B 





AEB6 

6C 

78 

6F 

7F 69 

19 2F 

01 





AEBE 

E2 

6E 

6A 

05 EC 

5E 48 

5D 





AEC6 

15 

3F 

DA 

5C 4A 

56 32 

D9 





AECE 

51 

4E 

58 

5C 51 

06 2A 

CF 





AED6 

5A 

4E 

40 

46 2C 

D3 43 

4D 





AEDE 

41 

4E 

47 

08 09 

E9 36 

BO 





AEE6 

B6 

B4 

DE 

BC AE 

BE AI 

DD 





AEEE 

B4 

B8 

B8 

D2 AO 

CB A7 

A8 





AEF6 

A3 

AA 

CE 

B9 A4 

A6 AF 

CF 





AE FE 

ED 

E7 









****************************** 

Sprungtabeüe für diverse 

Routinen 

AFOO 

4C 

B4 

84 

JMP 

$84B4 


FAC#1 in Integer mit Berei 

chsprüfung 

AF03 

4C 

3C 

79 

JMP 

$793C 


Integer (A)/(Y) in FAC#1 




AF06 

4C 

42 

8E 

JMP 

$8E42 


FAC#1 in ASCII ab $0100 




AF09 

4C 

52 

80 

JMP 

$8052 


ASCII ab ($24) in FAC#1 




AFOC 

4C 

15 

88 

JMP 

$8815 


FAC#1 in Adreßformat 




AFOF 

4C 

75 

8C 

JMP 

$8C75 


Adreßwert in FAC#1 




AF12 

4C 

2E 

88 

JMP 

$882E 


FAC#1 = Konstante (A)/(Y) 

- 

FAC#1 

Bank 

AF15 

4C 

31 

88 

JMP 

$8831 


FAC#1 = FAC#2 - FAC#1 




AF18 

4C 

45 

88 

JMP 

$8845 


FAC#1 = Konstante (A)/(Y) 

■f 

FAC#1 

Bank 

AF1B 

4C 

48 

88 

JMP 

$8848 


FAC#1 = FAC#2 + FAC#1 




AF 1E 

4C 

24 

8A 

JMP 

$8A24 


FAC#1 = Konstante (A)/(Y) 

* 

FAC#1 

Bank 

AF21 

4C 

27 

8A 

JMP 

$8A27 


FAC#1 = FAC#2 * FAC#1 




AF24 

4C 

49 

8B 

JMP 

$8B49 


FAC#1 = Konstante (A)/(Y) 

/ 

FAC#1 

Bank 

AF27 

4C 

4C 

88 

JMP 

$8B4C 


FAC#1 = FAC#2 / FAC#1 




AF2A 

4C 

CA 

89 

JMP 

$89CA 


LOG-Funktion 




AF2D 

4C 

FB 

8C 

JMP 

$8CFB 


INT-Funktion 




AF30 

4C 

B7 

8F 

JMP 

$8FB7 


SQR-Funktion 




AF33 

4C 

FA 

8F 

JMP 

$8FFA 


Vorzeichenuechsel FAC#1 




AF36 

4C 

BE 

8F 

JMP 

$8FBE 


FAC#1 = FAC#2 A Konstante 

(A)/(Y) 


AF39 

4C 

CI 

8r 

JMP 

$8FC1 


FAC#1 = FAC#2 A FAC#1 




AF3C 

4C 

33 

90 

JMP 

$9033 


EXP-Funktion 




AF3F 

4C 

09 

94 

JMP 

$9409 


COS-Funktion 




AF42 

4C 

10 

94 

JMP 

$9410 


SIN-Funktion 




AF45 

4C 

59 

94 

JMP 

$9459 


TAN-Funktion 




AF48 

4C 

B3 

94 

JMP 

$94 B 3 


ATN-Funktion 




AF4B 

4C 

47 

8C 

JMP 

$8C47 


FAC#1 runden 




AF4E 

4C 

84 

8C 

JMP 

$8C84 


ABS-Funktion 




AF51 

4C 

57 

8C 

JMP 

$8C57 


Vorzeichen von FAC#1 holen 



AF54 

4C 

87 

8C 

JMP 

$8C87 


Vergleich Konstante (A)/(Y) 

mit FAC#1 
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AF57 

4 C 

37 84 

JMP 

$8437 

RND-Funktion 

AF5A 

4C 

B4 

8A 

JMP 

$8AB4 

FAC#2 = Konstante (A)/(Y) Bank 1 

AF5D 

4C 

89 8A 

JMP 

o 

CO 

< 

CO 

FAC#2 = Konstante (A)/(Y) 

AF60 

4C 

85 

7A 

JMP 

$7A85 

FAC#1 = Konstante (A)/(Y) Bank 1 

AF63 

4C 

D4 

8B 

JMP 

$8BD4 

FAC#1 = Konstante (A)/(Y) 

AF66 

4C 

00 

8C 

JMP 

$8C00 

FACMEM <X)/(Y) mit Rundung 

AF69 

4C 

28 8C 

JMP 

S8C28 

FAC#1 = FAC#2 

AF6C 

4C 

38 8C 

JMP 

$8C38 

FAC#2 = FAC#1 mit Rundung 

AF6F 

4C 

28 48 

JMP 

$4828 

??? Tabelle der Hierarchiewerte 

AF72 

4C 30 9B 


JMP $9B3C 

i Linie von Start- zu Zielkoordinaten 

ziehen 







AF75 

4C 

FB 

9B 

JMP 

$9BFB 

Koordinaten setzen 

AF78 

4C ! 

50 67 

JMP $6750 Nächste Koordinate auf Kreisbogen 

berechnen 






AF7B 

4C 

9B 

5A 

JMP 

$5A9B 

RUN-Befehl 

AF7E 

4C 

F3 

51 

JMP 

$51F3 

PC auf Programmstart, CLR 

AF81 

4C 

F8 

51 

JMP 

$51 F8 

CLR-Befehl 

AF84 

4C 

D6 

51 

JMP 

$51D6 

NEU-Befehl 

AF87 

4C 

4F 

4F 

JMP 

$4F4F 

Zeilenverkettung korrigieren 

AF8A 

4C 

0A 

43 

JMP 

$430A 

Umwandlung in Interpretercode 

AF8D 

4C 

64 

50 

JMP 

$5064 

Zeile suchen 

AF90 

4C 

F6 

4A 

JMP 

$4AF6 

Interpreterschleifenstart 

AF93 

4C 

07 

78 

JMP 

$78D7 

Nächstes Element eines Ausdrucks holen 

AF96 

4C 

EF 

77 

JMP 

$77EF 

FRMEVL Ausdruck auswerten 

AF99 

4C 

A6 

5A 

JMP 

$5AA6 

RUN-Direkteinsprung 

AF9C 

4C 

81 

5A 

JMP 

$5A81 

Programm-Modus setzen 

AF9F 

4C 

AO 

50 

JMP 

o 

< 

o 

</* 

Zeilennummer lesen 

AFA2 

4C 

EA 

92 

JMP 

$92EA 

Garbage-Collection 

AFA5 

4C 

CD 

40 

JMP 

$4DCD 

Direkteinsprung in Eingabeschleife 


****************************** FülIbytes 


AFA8 FF . . . 
AFFF ... FF 
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9.12 Die Zeropage 

In der Zeropage hat man zu PET’s Zeiten alle Systemvariablen 
gespeichert. Dies sind beispielsweise die aktuelle Cursorposition, 
Angaben über das aktuelle Ausgabegerät usw. 256 Bytes reichten 
aus, um diese Informationen zu speichern, weshalb man diesem 
System-Bereich auch den Namen Zeropage verpaßte. 

Heute sieht dies alles ganz anders aus. 256 Byte reichen schon 
lange nicht mehr aus, alle Systeminformationen zu speichern. 
Den Namen Zeropage hat man allerdings beibehalten, da er sich 
sehr gut eingeprägt hat. 

Die Zeropage bietet sehr viele Möglichkeiten zur direkten 
Manipulation bzw. beinhaltet auch eine Flut von Informationen, 
auf die der Programmierer zurückgreifen kann (was er auch 
unbedingt tun sollte). Da diese Zeropage so immens wichtig ist, 
finden Sie auf den nun folgenden Seiten nähere Informationen 
zu den einzelnen Speicheradressen. Diese Informationen werden 
Ihnen sicherlich sehr hilfreich sein. 

Allerdings werden einige Adressen in der Zeropage nur im 
Zusammenhang mit den entsprechenden Routinen im Kernal 
und dem BASIC-ROM-Listing deutlich. Deshalb ist es sehr 
wichtig, daß Sie sich die entsprechenden Passagen im ROM- 
Listing vor Manipulationen in der Zeropage näher betrachten. 
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Die Zeropage des Commodore 128 und die erweiterte Zeropage 


0000: 

0000 


6510 Datenrichtung Prozessorport 


0001: 

0001 


6510 Datenregister Prozessorport 


0002: 

0002 


Speicher für Bank Byte 


0003: 

0003 


Speicher für Programm-Zähler Hi-Wert 


0004: 

0004 


Speicher für Programm-Zähler Lo-Uert 


0005: 

0005 


Speicher für CPU Status Register 


0006: 

0006 


Speicher für Akkumulator 


0007: 

0007 


Speicher für X-Register 


0008: 

0008 


Speicher für Y-Register 


0009: 

0009 


Speicher für den Stapelzeiger / Suchzeichen 


000A: 

0010 


Sucht Anführungszeichen am Ende eines Strings 

0008: 

0011 


Bildschirmspalte ab letztem TAB 


000C: 

0012 


Disketten-Flag: 0=LOAD, 1=VERIFY 


000D: 

0013 


Anzahl der Elemente, Eingabepufferzeiger 


000E: 

0014 


Standardvorgabe bei Felddimensionierungen (DIM) 

000F: 

0015 


Datentyp-Flag 1: $00=numerisch, $FF=String 


0010: 

0016 


Datentyp-Flag 2: $00=lnteger, $80=Floatingpoint 

0011: 

0017 


Flag: LIST, DATAs lesen, Garbage Collection 


0012: 

0018 


Zeiger für FN Funktion, Variablentyp für FOR/NEXT 

0013: 

0019 


Input-Flag: $00=INPUT, $40=GET, $98=READ 


0014: 

0020 


Vorzeichen des ATN; Flag:Gleichheit bei Vergleich 

0015: 

0021 


Aktives I/O Gerät, Flag: INPUT Kommentar 


0016: 

0022 ■ 

0023 

Zeilennummer, Ganzahliger Wert Lo/High 


0018: 

0024 


Zeiger auf temporären Stringstack 


0019: 

0025 - 

0026 

Adresse des letzten temporären Strings 


001B: 

0027 • 

0029 

3 Byte Stapel für kurzzeitige Strings 


001E: 

0030 - 

0032 

3 Byte Stapel für kurzzeitige Strings 


0021: 

0033 - 

0035 

3 Byte Stapel für kurzzeitige Strings 


0024: 

0036 • 

0037 

2 Byte für Hilfszeiger Index 1 


0026: 

0038 - 

0039 

2 Byte für Hilfszeiger Index 2 


0028: 

0040 - 

0044 

Gleitpunktergebnis der Multiplikation 


002D: 

0045 • 

0046 

Zeiger: Basic-Text Anfang 

Lo/Hi 

002F: 

0047 - 

0048 

Zeiger: Anfang der Basic-Variablen 

Lo/Hi 

0031: 

0049 • 

0050 

Zeiger: Anfang der Basic-Felder 

Lo/Hi 

0033: 

0051 - 

0052 

Zeiger: Ende der Basic-Felder + 1 

Lo/Hi 

0035: 

0053 • 

0054 

Zeiger: Anfang des Stringspeichers 

Lo/Hi 

0037: 

0055 - 

0056 

Hilfszeiger bei der Stringspeicherung 

Lo/Hi 

0039: 

0057 • 

0058 

Zeiger: Ende Stringspeicher, Var. Bank 1 

Lo/Hi 

003B: 

0059 - 

0060 

Aktuelle Basic Zeilennummer 

Lo/Hi 

003D: 

0061 • 

0062 

Zeiger auf Basic Text für CHRGET, CHRGOT 

Lo/Hi 

003F: 

0063 - 

0064 

PRINT USING Hilfszeiger, Suchzeichen Zeiger 

Lo/Hi 

0041: 

0065 - 

0066 

Aktuelle DATAs Zeilennummer 

Lo/Hi 

0043: 

0067 - 

0068 

Zeiger auf die aktuelle DATA Adresse 

Lo/Hi 

0045: 

0069 • 

0070 

Vektorzeiger für INPUT Routine 

Lo/Hi 

0047: 

0071 - 

0072 

Aktueller Basic Variablenname 

Lo/Hi 
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0049: 0073 - 0074 Zeiger auf Adresse der aktuellen Variablen Lo/Hi 

004B: 0075 • 0076 Maske für AND, LIST Zeiger, FOR NEXT Zeiger 

004D: 0077 - 0078 Zwischenspeicher für Programmzeiger Lo/Hi 

004F: 0079 Maske für Vergleichsoperationen >:2, =:4, <:8 

0050: 0080 - 0081 Variablenzeiger f.FN Definition, + für Garb. Coli. 

0052: 0082 - 0084 Zeiger: Descriptor in Variablenliste b. Stringvgl. 

0055: 0085 Help Flag: 

0056: 0086 - 0087 Sprungvektor für Funktionsauswertungen 

0058: 0088 Oldov 

0059: 0089 Bereich für INSTRING Operationen / Hilfszeiger 1 

005A: 0090 - 0091 Zeiger: Blockübertragung, DIM Initialisierung 

005C: 0092 • 0093 Zeiger: Blockübertragung 

005E: 0094 Hilfszeiger 2, Zeitweilig für Fließkomma Akku 

005F: 0095 • 0096 Vorkomma-/Nachkommastellenzahl für Umwandlung 

0061: 0097 Zeiger: Dezimalpunkt b. Einlesen von Ziffernketten 

0062: 0098 Exponent Vorzeichen der gelesenen Zahl (neg. =$80) 

0063: 0099 Gleitpunktakkumulator 1: Exponent 

0064: 0100 • 0103 Gleitpunktakkumulator 1: Mantisse 

0068: 0104 Gleitpunktakkumulator 1: Vorzeichen 

0069: 0105 Zeiger: Polynomauswertung 

006A: 0106 Gleitpunktakkumulator 2: Exponent 

006B: 0107 - 0110 Gleitpunktakkumulator 2: Mantisse 

006F: 0111 Gleitpunktakkumulator 2: Vorzeichen 

0070: 0112 Ergebnisflag: Vorzeichenvergleich Akku 1 zu Akku 2 

0071: 0113 Gleitpunktakkumulator 1: Kleinste Stelle (Rundung) 

0072: 0114 • 0115 Zeiger: Kassettenpuffer 

0074: 0116 • 0117 Offset Wert für AUTO Befehl, $00=ausgeschaltet 

0076: 0118 Hires Flag: bei EIN Basicstart um 10k hochsetzen 

0077: 0119 Spritenummer/Zähler für führende Nullen/Farbquelle 

0078: 0120 Help Zähler 

0079: 0121 Zwischenspeicher für indirektes Laden 

007A: 0122 - 0124 Beschreibung der Fehlervariable DS$ 

007D: 0125 • 0126 Ende des Stacks während des Programmlaufs 

007F: 0127 Modus Flag: $80=RUN Modus, $00=Direkt Modus 

0080: 0128 USING Zeiger f. Dezimalpunkt,Statuswort DOS Parser 

0081: 0129 Parstx 

0082: 0130 Oldstx 

0083: 0131 Aktuelle Farbe für Grafikmodus 

0084: 0132 Multicolor Modus: Farbe 1 

0085: 0133 Multicolor Modus: Farbe 2 

0086: 0134 Vordergrundfarbe 

0087: 0135 - 0136 Faktor des Abbildungsmaßstabes in X-Richtung 

0089: 0137 ■ 0138 Faktor des Abbildungsmaßstabes in Y-Richtung 

008B: 0139 Stop zeichnen, wenn nicht Hintergrundfarbe 

008C: 0140 • 0141 Adresszeiger für Grafik Routinen 

008E: 0142 Hilfsspeicher 1 für Grafik Routinen 

008F: 0143 Hilfsspeicher 2 für Grafik Routinen 

0090: 0144 Statuswort für Kernal Ein- Ausgabeoperationen 
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0090 

0144 

0091 

0145 

0092 

0146 

0093 

0147 

0094 

0148 

0095 

0149 

0096 

0150 

0097 

0151 

0098 

0152 

0099 

0153 

009A 

0154 

009B 

0155 

009C 

0156 

009D 

0157 

009E 

0158 


0159 


0160 - 0162 

!! ! 

0163 - 0164 


0165 

I l 

0166 


0167 

• •; • 

0168 


0169 

00AA 

0170 

00AB 

0171 

00AC 

0172 - 0173 

00AE 

0174 - 0175 

00B0 

0176 - 0177 

00B2 

0178 - 0179 

00B4 

0180 

00B5 

0181 

00B6 

0182 

00B7 

0183 

00B8 

0184 

00B9 

0185 

00BA 

0186 

00BB 

0187 • 0188 

00BD 

0189 

00BE 

0190 

00BF 

0191 

ooco 

0192 

00C1 

0193 

00C2 

0194 

00C3 

0195 - 0196 

00C5 

0197 

00C6 

0198 

00C7 

0199 

00C8 

0200 - 0201 


Statuswort für Kernal Ein- Ausgabeoperationen 
Stop Flag: STOP Taste, RVS Taste 
Zeit Konstante für Kassetten Operationen 
Load Flag: $00=LOAD, $01=VER1FY 
serieller Bus Flag: Zeichen im Puffer 
Zeichen im Puffer für den seriellen Bus 
Sync Nr. für Kassette, EOT vom Band empfangen 
Temporäre Datenadresse 

Index für Dateitabellen, Zahl der offenen Dateien 
Standard Eingabegerät (0 für Tastatur) 

Standard Ausgabegerät (3 für Bildschirm) 

Paritätsbyte von Kassette 

Band Flag: Byte empfangen 

Nachrichten Flag für Kernal 

Kassettenfehler Pass 1: Zeichenfehler 

Kassettenfehler Pass 2: korrigiert 

24 Stunden Echtzeit Uhr : 1/60 Sekunden Einheiten 

Zwischenspeicher für seriellen Bus 

Abwärtszähler beim SAVE auf Band, ser. Hilfszeiger 

Zeiger für Kassettenpuffer 

Band Kurzzähler, RS232 Eingabebits 

Band Lesefehler, RS232 Zähler Eingabebits 

Band 0 Leseflag, RS232 Startbit Flag 

Band READ Modus, RS232 Puffer Eingabebyte 

Band Kurzzähler, RS232 Eingabeparität 

Zeiger: Bildschirm scrollen, Kassettenpuffer Lo/Hi 

Zeiger: Programmende, Kassettenende Lo/Hi 

Kassetten Konstante für Zeit 

Zeiger: Anfang des Kassetten Puffers Lo/Hi 

Band Hilfszeiger, RS232 nächstes Bit für scrollen 
Band EOT Zeichen, RS232 nächstes Bit für übertr. 
Band Hilfszeiger, RS232 Bytepuffer 
Länge des aktuellen Datei namens 
Logische Dateinummer (LFN) 

Aktuelle Sekundäradresse (SA) 

Aktuelle Geräteadresse (GA) 

Zeiger: Adresse des Aktuellen Dateinamens Lo/Hi 

Band Hilfszeiger, RS232 rotieren Paritäts Puffer 
Zahl der zum Lesen/Schreiben verbliebenen Blöcke 
Serieller Puffer 
Flag: Kassettenmotor 

Startadresse für Ein- Ausgabe (Lo), Track Nr. 
Startadresse für Ein- Ausgabe (Hi), Sektor Nr. 
Band LOAD temporär, Zeiger Kernal Vektoradressen 
Band Lesen/Schreiben Datenbereich 
Bank Nr. für aktuelle LOAD, SAVE, VERIFY Aufrufe 
Bank Nr. wo aktueller Filename unter $BB,$BC steht 
Zeiger: RS232 Eingabepuffer 
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OOCC: 

0204 - 

0205 

Zeiger: Tastatur Dekodiertabelle 

00CE: 

0206 - 

0207 

Zeiger auf String Pos. für Kernal PRIMM Routine 

00D0: 

0208 


Index auf Tastaturpuffer Warteschlamge 

00D1: 

0209 


Flag für Funktionstaste bei Aufruf 

00D2: 

0210 


Index auf den Funktionstastenstring bei Aufruf 

00D3: 

0211 


Sh-Flag:Shift=$01, C=$02, Ctrl=$04, Alt=$08, DIN=$10 

00D4: 

0212 


Flag für eine gedrückte Taste 

00D5: 

0213 


Flag für momentan gedrückte Taste (CHR$(0)=keine) 

00D6: 

0214 


Flag für INPUT oder GET über Tastatureingabe 

OOD7: 

0215 


Flag für 40 / 80 Zeichen Modus (40=$00. 80=$80) 

00D8: 

0216 


Flag für Text- GraphikbiIdschirm Modus 

00D9: 

0217 


Zeiger Zeichensatz im RAM oder ROM (0=ROM, 4=RAM) 

000A: 

0218 


Zeiger für MOVLIN (Lo), F-Taste Stringlänge 

OODB: 

0219 


Zeiger für MOVLIN (Hi), Stringlänge aller F-Tasten 

OODC: 

0220 


Nummer der Funktionstaste 

OODD: 

0221 


F-Tasten Stringlänge bis zur aktuellen F-Taste 

OODE: 

0222 


Bank für Funktionstastenaufruf <sedt1> 

OODF: 

0223 


F-Tasten Stringlänge bis zur aktuellen (F-Taste-1) 

OOEO: 

0224 - 

0225 

Zeiger auf laufende Bildschirmzeile: Text Ram 

OOE2: 

0226 • 

0227 

Zeiger auf laufende Bildschirmzeile: Attribut Ram 

00E4: 

0228 


Untere Grenze des Fensters 

00E5: 

0229 


Obere Grenze des Fensters 

00E6: 

0230 


Linke Grenze des Fensters 

00E7: 

0231 


Rechte Grenze des Fensters 

00E8: 

0232 


Start der laufenden Eingabezeile 

00E9: 

0233 


Start der laufenden Eingabespalte 

OOEA: 

0234 


Ende der laufenden Eingabezeile 

OOEB: 

0235 


Aktuelle Cursorposition: Zeile 

OOEC: 

0236 


Aktuelle Cursorposition: Spalte 

OOED: 

0237 


Maximale Anzahl der Bildschirmzeilen 

OOEE: 

0238 


Maximale Anzahl der Bildschirmspalten 

OOEF: 

0239 


Zwischenspeicher für auszugebendes Zeichen 

OOFO: 

0240 


Speicher: vorangegangenes Zeichen ( für ESC Test ) 

00F1: 

0241 


Aktueller Farbcode unter Cursor für Zeichenausgabe 

00F2: 

0242 


Farbcode Sicherung für INSERT und DELETE 

00F3: 

0243 


Flag: Rervers (RVS) Modus aktiv 

00F4: 

0244 


Flag: Anführungszeichen (Quote) Modus aktiv 

00F5: 

0245 


Flag: Einfüge (Insert) Modus aktiv 

00F6: 

0246 


Flag: Automatisches Einfügen (Auto Insert) aktiv 

00F7: 

0247 


Umschaltverriegelung C-Shift ($80) u. Ctrl-S ($40) 

00F8: 

0248 


Verriegeln des Bildschirm scrollens 

00F9: 

0249 


Verriegeln des mittels Ctrl-G erzeugten Beep-Tones 

OOFA: 

0250 - 

0254 

Freier Bereich für Benutzeranwendungen 

OOFF: 

0255 


Lofbuf 


********************************************************************** 

0100: 0256 - 0271 16 Byte Bereich zur Bildung von Dateinamen 
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0100: 

0256 - 

0271 

16 Byte Bereich zur Bildung von Dateinamen 

0110: 

0272 


DOS Schleifenzähler 


0111: 

0273 


DOS Länge des 1. Datei namens 


0112: 

0274 


DOS Geräteadresse 1. Diskettenlaufwerk 


0113: 

0275 - 

0276 

DOS Adresse des 1. Datei namens 

Lo/Hi 

0115: 

0277 


DOS Länge des 2. Dateinamens 


0116: 

0278 


DOS Geräteadresse 2. Diskettenlaufwerk 


0117: 

0279 - 

0280 

DOS Adresse des 2. Dateinamens 

Lo/Hi 

0119: 

0281 - 

0282 

Anfangsadresse für BLOAD / BSAVE Befehl 

Lo/Hi 

011B: 

0283 - 

0284 

Endadresse für BSAVE Befehl 

Lo/Hi 

01 ID: 

0285 


DOS Logische Adresse 


01 IE: 

0286 


DOS Physikalische Adresse 


011F: 

0287 


DOS Sekundäradresse 


0120: 

0288 


DOS Länge eines Datensatzes 


0121: 

0289 


DOS BANK Nummer 


0122: 

0290 - 

0291 

DOS 2 Byte Speicher für Disketten ID 


0124: 

0292 


DOS Flag für Disk-ID Prüfung 


0125: 

0293 


PRINT USING Zeiger auf Anfangsnummer 


0126: 

0294 


PRINT USING Zeiger auf Endenummer 


0127: 

0295 


PRINT USING Flag für Dollar ($) Zeichen 


0128: 

0296 


PRINT USING Flag für Komma (,) Zeichen 


0129: 

0297 


PRINT USING Zähler 


012A: 

0298 


PRINT USING Vorzeichen des Exponenten 


012B: 

0299 


PRINT USING Zeiger auf den Exponenten 


012C: 

0300 


PRINT USING Zähler für Anzahl der Vorkommastellen 

012D: 

0301 


PRINT USING Flag für Ausrichtung nach Dezimalpunkt 

012E: 

0302 


PRINT USING Zähler Feldpositionen vor Dezimalpunkt 

012 F : 

0303 


PRINT USING Zähler Feldpositionen nach Dezimalpunkt 

0130: 

0304 


PRINT USING Flag für Vorzeichenfeld (+/- 

) 

0131: 

0305 


PRINT USING Flag für Exponent des Feldes 


0132: 

0306 


PRINT USING Schalter 


0133: 

0307 


PRINT USING Zähler für die Zeichen eines 

Feldes 

0134: 

0308 


PRINT USING Vorzeichennummer 


0135: 

0309 


PRINT USING Flag für Blank oder Sternchen ( /*) 

0136: 

0310 


PRINT USING Zeiger auf den Beginn des Feldes 

0137: 

0311 


PRINT USING Zeiger für Länge des Formats 


0138: 

0312 


PRINT USING Zeiger auf das Ende des Feldes 


*★*★*★*★★***★***★*★***★★*★**★******#************★*★**#*★***★*★★******* 

0139: 0313 - 0510 Ende des System-Stacks 

01FF: 0511 Anfang des System-Stacks 

********************************************************************** 


0200: 0512 


Basic und Monitor Eingabe-Puffer 
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*★★****★*★*★★**★★★★★★★★★*★★★★**★★★★*★★★★**★★*★★★****★★★***★★*★★***★*** 


02A2 

0674 


FETCF 

Routine: 

LDA(ZP),Y von beliebiger Bank 

02A2 

AD 

00 

FF 

LDA 

JFF00 

Eine genaue Beschreibung 

02A5 

8E 

00 

FF 

STX 

$FF00 

dieser Routine finden Sie im 

02A8 

AA 



TAX 


ROM Listing unter $F800, da 

02A9 

Bl 

FF 


LDA 

($FF),Y 

dort die ROM Kopie zu finden ist 

02AB 

8E 

00 

FF 

STX 

$FF00 

Der "FETVEC" hat die Adresse: 

02AE 

60 



RTS 


$02AA, bzw. Dez. 0682. 




02AF 

0687 


STASH Routine: 

STA(ZP),Y in beliebige Bank 

02AF 

48 



PHA 


Eine genaue Beschreibung 

02BO 

AD 

00 

FF 

LDA 

$FF00 

dieser Routine finden Sie im 

02B3 

8E 

00 

FF 

STX 

$FF00 

ROM Listing unter $F80D, da 

02B6 

AA 



TAX 


dort die ROM Kopie zu finden ist 

02B7 

68 



PLA 


Der "STAVEC" hat die Adresse: 

02B8 

91 

FF 


STA 

($FF),Y 

$02B9, bzw. Dez. 0697. 

02BA 

8E 

00 

FF 

STX 

$FF00 


02BD 

60 



RTS 




**★*★***★★*★★**★★*★★★**★*★★*★★★★★★★***★★★***★******★**★***★★*★★******★ 


02BE: 

0702 


CMPARE Routine 

CMP(ZP),Y mit beliebiger Bank 

02BE: 

48 



PHA 


Eine genaue Beschreibung 

02BF: 

AD 

00 

FF 

LDA 

$FF00 

dieser Routine finden Sie im 

02C2: 

8E 

00 

FF 

STX 

$FF00 

ROM Listing unter $F81C, da 

02C5: 

AA 



TAX 


dort die ROM Kopie zu finden ist 

02C6: 

68 



PLA 


Der "CMPVEC" hat die Adresse: 

02C7: 

Dl 

FF 


CMP 

(SFF).Y 

$02C8, bzw. Dez. 0712. 

02C9: 

8E 

00 

FF 

STX 

$FF00 


02CC: 

69 



RTS 




********************************************************************** 


02CD 

0717 

JSRFAR Routine 

JSR in beliebige Bank und Return 

02CD 

20 E3 02 

JSR 

$02E3 

Eine genaue Beschreibung 

02D0 

85 06 

STA 

* $06 

dieser Routine finden Sie im 

02D2 

86 07 

STX 

* $07 

ROM Listing unter der 

02D4 

84 08 

STY 

* $08 

Adresse $F82B, da dort die 

02D6 

08 

PHP 


ROM Kopie dieser Routine steht. 

02D7 

68 

PLA 



02D8 

85 05 

STA 

* $05 
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02DA 

BA 

TSX 


02DB 

86 09 

STX 

* $09 

02DD 

A9 00 

LDA 

# $00 

02DF 

80 00 FF 

STA 

$F F00 

02E2 

60 

RTS 



********************************************************************** 


02E3 

0739 


JMPFAR Routine 

JMP in beliebige Bank ohne Return 

02E3 

A2 

00 


LDX 

# $00 

Eine genaue Beschreibung 

02E5 

B5 

03 


LDA 

* $03,X 

dieser Routine finden Sie im 

02E7 

48 



PHA 


ROM Listing unter der 

02E8 

E8 



I NX 


Adresse $F841, da dort die 

02E9 

E0 

03 


CPX 

« $03 

ROM Kopie dieser Routine zu 

02EB 

90 

F8 


BCC 

$02E5 

finden ist. 

02ED 

A6 

02 


LDX 

* $02 


02EF 

20 

6R 

FF 

JSR 

$FF6B 


02F3 

8D 

00 

FF 

STA 

$FF00 


02F6 

A5 

06 


LDA 

* $06 


02F8 

A6 

07 


LDX 

* $07 


02FA 

A4 

08 


LDY 

* $08 


02FB 

40 



RTI 




********************************************************************** 


Routine zum Sprung in eine Funktions-Cartridge. Oer Cartridge-Vektor 
hat die Adresse: $02FE-$02FF (Dez. 766-767) 

02FC: 78 SEI Alle System-Interrupts verhindern 

02FD: 4C 00 00 JMP $0000 Sprung an Funktions-Cartridge Vek. 

********************************************************************** 


0300: 

0768 

3F 

4D 

($4D3F) 

0302: 

0770 

C6 

4D 

($4DC6) 

0304: 

0772 

0D 

43 

($430D) 

0306: 

0774 

51 

51 

($5151) 

0308: 

0776 

A2 

4A 

($4AA2) 

030A: 

0778 

DA 

78 

($78DA) 

030C: 

0780 

21 

43 

($4321) 

030E: 

0782 

CD 

51 

($5 ICD) 

0310: 

0784 

A9 

4B 

($4BA9) 

0312: 

0786 

FF 

FF 

($FFFF) 

0314: 

0788 

65 

FA 

($FA65) 

0316: 

0790 

03 

B0 

($B003) 

0318: 

0792 

40 

FA 

($FA40) 

031A: 

0794 

BD 

EF 

($EFBD) 


Vektor: Fehler Routine (X = Fehler) 

Vektor: Einles./Ausfuhren Bas.Zeile 

Vektor: Umwandlung Interpretercode 

Vektor: Umwandlg in Klartext (List) 

Vektor: Ausfuhren d. Schlüsselworte 

Vektor: Ausdruck auswerten 

Vektor: Escape Umwandlungsroutine 

Vektor: Escape List 

Vektor: Escape ausführen 

Interruptvektor: TIME 

Vektor für IRQ Routine 

Vektor für Break Einsprung (Monitor) 

Vektor für NMI Routine 

Vektor auf Kernal OPEN Routine 
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031C 

0796 

88 

Fl 

($F188) 

Vektor 

auf 

Kernal 

CLOSE 

Routine 

031E 

0798 

06 

Fl 

($F106) 

Vektor 

auf 

Kernal 

CHKIN 

Routine 

0320 

0800 

4C 

Fl 

($F14C) 

Vektor 

auf 

Kernal 

CKOUT 

Routine 

0322 

0802 

26 

F2 

($F226) 

Vektor 

auf 

Kernal 

CLRCH 

Routine 

0324 

0804 

06 

EF 

($EF06) 

Vektor 

auf 

Kernal 

BAS IN 

Routine 

0326 

0806 

79 

EF 

($EF79) 

Vektor 

auf 

Kernal 

BSOUT 

Routine 

0328 

0808 

6E 

F6 

($F66E) 

Vektor 

auf 

Kernal 

STOP 

Routine 

032A 

0810 

EB 

EE 

(SEEEB) 

Vektor 

auf 

Kernal 

GETIN 

Routine 

032C 

0812 

22 

F2 

($F222) 

Vektor 

auf 

Kernal 

CLALL 

Routine 

032E 

0814 

06 

B0 

($B006) 

Vektor 

auf 

EXMON 

Einsprung 

0330 

0816 

6C 

F2 

($F26C) 

Vektor 

auf 

Kernal 

LOAD 

Routine 

0332 

0818 

4E 

F5 

($F54E) 

Vektor 

auf 

Kernal 

SAVE 

Routine 


********************************************************************** 


Kopie der Zeichenausgabe-, Tastatur- und Decodiervektoren 

Die Originale dieser Vektoren stehen im ROM von Adr. $C065 - $C07A 


0334 

0820 

B9 

C7 

($C7B9) 

Vektor 

für Zeichenausgabe mit Ctrl 

0336 

0822 

05 

C8 

(SC805) 

Vektor 

für Zeichenausgabe mit Shift 

0338 

0824 

CI 

C9 

($C9C1) 

Vektor 

für Zeichenausgabe mit Esc 

033A 

0826 

El 

C5 

(IC5E1) 

Vektor 

für Tastaturabfrage 

033C 

0828 

AD 

C6 

(SC6AD) 

Vektor 

auf Tastendruck speichern 

033E 

0830 

80 

FA 

($FA80) 

Vektor: 

Tastatur Decodiertabelle 1a 

0340 

0832 

D9 

FA 

($FAD9) 

Vektor: 

Tastatur Decodiertabelle 2a 

0342 

0834 

32 

FB 

($FB32) 

Vektor: 

Tastatur Decodiertabelle 3a 

0344 

0836 

8B 

FB 

(SFB8B) 

Vektor: 

Tastatur Decodiertabelle 4a 

0346 

0838 

80 

FA 

($FA80) 

Vektor: 

Tastatur Decodiertabelle 1a 

0348 

0840 

E4 

FB 

($FBE4) 

Vektor: 

Tastatur Decodiertabelle 5a 

********************************************************************** 

034A 

0842 

0851 

IRQ 

Tastatur 

Puffer 


0354 

0852 

0861 

Bitmuster Tabelle: Tabulator Stops 

035E 

0862 

0865 

Bitmuster Tabelle: Zeilen Übergänge 

0362 

0866 

0875 

Tabelle der 

ogisehen 

Datei nummern 

036C 

0876 

0885 

Tabelle der 

üeräteadressen 

0376 

0886 

0895 

Tabelle der 

äekundäradressen 


********************************************************************** 


0380: 

0896 

Basic CHRGET 
(Das Original 

Routine 

steht im ROM an Adresse $4279) 

0380: 

E6 3D 

INC 

* $3D 

BASIC-Textzeiger Lo 

erhöhen 

0382: 

DO 02 

BNE 

$0386 

Kein Überlauf, dann 

Skip 

0384: 

E6 3E 

INC 

* $3E 

BASIC-Textzeiger Hi 

erhöhen 
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********************************************************************** 


0386: 

0902 


Basic CHRGOT 
(Das Original 

Routine 

steht im ROM an Adresse $427F) 

0386: 

8D 

01 

FF 

STA 

$FF01 

RAM 0 Bereich einschalten 

0389: 

A0 

00 


LDY 

# $00 

Displacementzeiger auf BASIC-Text 

038B: 

Bl 

3D 


LDA 

($3D),Y 

Hole ein Zeichen aus BASIC-Text 

038D: 

8D 

03 

FF 

STA 

$FF03 

RAM 0, System ROMs einschalten 


********************************************************************** 

0390: 0912 Basic QNUM Routine 

setzt Zero-Flag bei Trennzeichen $00 oder $3A 
setzt Carry-Flag bei Ziffernzeichen 0 - 9 
(Das Original steht im ROM an Adresse $4289) 


0390 

C9 

3A 

CMP 

# $3A 

Zeichencode größer als Zifferncode? 

0392 

B0 

0A 

BCS 

$039B 

Ja, dann Skip 

0394 

C9 

20 

CMP 

# $20 

War gelesenes Zeichen ein "Blank"? 

0396 

F0 

EB 

BEQ 

$0380 

Ja, dann Leerzeichen überlesen 

0398 

38 


SEC 


Carry für Subtraktion setzen 

0399 

E9 

30 

SBC 

# $30 

Test auf Ziffernzeichen (dann C = 1) 

039B 

38 


SEC 


Carry für Subtraktion setzen 

039C 

E9 

DO 

SBC 

# $D0 

Stelle alten Wert wieder her 

039E 

60 


RTS 


Rücksprung aus dem Unterprogramm 


********************************************************************** 


039F: 0927 


Laden aus beliebiger Bank über PCRA und PCRC 






(Das 

Original 

039F 

8D 

A6 

03 

STA 

$03A6 

03A2 

8D 

01 

FF 

STA 

$FF01 

03A5 

Bl 

00 


LDA 

($00),Y 

03A7 

8D 

03 

FF 

STA 

$FF03 

03AA 

60 



RTS 



********************************************************************** 


03AB 

0939 


Laden aus beliebiger 

Bank über PCRB und PCRD 




(Das 

Original steht 

im ROM an Adresse $42A4) 

03AB 

8D B2 

03 

STA 

$03B2 


03AE 

8D 02 

FF 

STA 

$FF02 


03B1 

Bl 00 


LDA 

($00),Y 


03B3 

8D 04 

FF 

STA 

$FF04 


03B6 

60 


RTS 
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********************************************************************** 


03B7: 0951 Laden aus bei. Bank über PCRA und PCRC von 

der durch Z-Page Index 1 angegebenen Adresse 
Das Original steht im ROM an Adresse $42B0) 


03B7: 

8D 

02 

FF 

STA 

$FF02 

03BA: 

Bl 

24 


LDA 

($24),Y 

03BC: 

8D 

04 

FF 

STA 

$FF04 

03BF: 

60 



RTS 



********************************************************************** 


03C0: 0960 Laden aus bei. Bank über PCRB und PCRD von 

der durch Z-Page Index 2 angegebenen Adresse 
(Das Original steht im ROM an Adresse $42B9) 


03C0: 

8D 

01 

FF 

STA 

$FF01 

03C3: 

Bl 

26 


LDA 

($26),Y 

03C5: 

80 

03 

FF 

STA 

$FF03 

03C8: 

60 



RTS 



03C9: 0969 Laden aus bei. Bank über PCRA und PCRC von 

der durch Z-Page CHRGET Zeiger angegebenen Adresse 
Das Original steht im ROM an Adresse $42C2) 


03C9: 

8D 

01 

FF 

STA 

$FF01 

03CC: 

Bl 

3D 


LDA 

($3D),Y 

03CE: 

80 

03 

FF 

STA 

$FF03 

03D1: 

60 



RTS 



********************************************************************** 


03D2 

0978 - 0980 

03D5 

0981 

03D6 

0982 - 0985 

03DA 

0986 

03DB 

0987 - 0990 

03DF 

0991 

03E0 

0992 

03E1 

0993 

03E2 

0994 

03E3 

0995 

03E4 

0996 - 1007 


Numerische Konstante für Basic, v. Rom geladen 
Bank für SYS,POKE,PEEK. Gesetzt durch Bank Befehl 
Zwischenspeicher für Instring 
Bank Zeiger für Strings und Zahlenumwandlung 
4 Byte Arbeitsspeicher für SSHAPE Operationen 
Überlauf Kennzeichen des FAC1 
Zwischenspeicher zur Spritespeicherung Nr.1 
Zwischenspeicher zur Spritespeicherung Nr.2 
Gepackte Vodergrund/Hintergrund Farbnibbles 
Gepackte Vordergrund/Multicolor Farbnibbles 
Freier Bereich 
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********************************************************************** 


03F0 

1008 


DMA 

Call Routine im unteren Common Bereich (l.k) 





zur 

Initialisierung des externen Speicherzugriffs 

03F0 

AE 

00 

FF 

LDX 

$FF00 

Eine genaue Beschreibung dieser 

03F3 

8C 

01 

DF 

STY 

$DF01 

DMA-Call Routine für die Kontrolle 

03F6 

8D 

00 

FF 

STA 

$FF00 

des externen Speicherzugriffs 

03F9 

8E 

00 

FF 

STX 

$FF00 

finden Sie im ROM unter d. Original 

03 FC 

60 



RTS 


adresse $F85A 


********************************************************************** 

03FD: 1021 - 1023 Freier Bereich 

03FF: 1023 Ende der Common-Area,die in allen Banks gleich ist 

********************************************************************** 

0400: 1024 - 2047 Bildschirmspeicher 

********************************************************************** 

0800: 2048 - 2559 512 Bytes für Basic Laufzeitspeicher 

•Ar********************************************************************* 


0A00: 
0A02: 
0A03: 
0A04: 
0A05: 
0A07: 
0A09: 
OAOB: 
OAOC: 
OAOD: 
OAOE: 
OAOF: 
0A10: 
0A11: 
0A12: 
0A14: 
0A15: 
0A16: 
0A18: 
0A19: 
0A1A: 


2560 - 2561 Vektor System restart (Norm. Warmstart) ($4003) 

2562 Kernal Warm-/Kaltstart Initialisierungs Status 

2563 PAL / NTSC System Zeiger ($FF=PAL, $00=NTSC) 

2564 System Zeiger für den NMI und RESET Status 

2565 - 2566 Untere Grenze d. verfügbaren RAM in System Bank 

2567 - 2568 Obere Grenze des verfügbaren RAM in System Bank 

2569 - 2570 Indirekter IRQ Vektor für Kassettenroutinen 

2571 Zeitvergleich bei Kassettenroutinen 

2572 Zwischenspeicher beim Lesen von Kassette 

2573 Zwischenspeicher beim Lesen von Kassette 

2574 Timeout Zeiger für schnellen seriellen Modus 

2575 RS232 NMI Status Register 

2576 RS232 Kontrollregister 

2577 RS232 Kommandoregister 

2578 - 2579 RS232 Benutzer Baudrate 

2580 RS232 Statusregister 

2581 RS232 Anzahl der zu sendenden Bits 

2582 - 2583 RS232 Baud Rate: Full Bit Time (in us) 

2584 RS232 Index auf den Anfang des Eingabepuffers 

2585 RS232 Index auf das Ende des Eingabepuffers 

2586 RS232 Index auf den Anfang des Ausgabepuffers 
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0A1B: 

2587 

0A1C: 

2588 

0A1D: 

2589 - 2591 

0A20: 

2592 

0A21: 

2593 

0A22: 

2594 

0A23: 

2595 

0A24: 

2596 

0A25: 

2597 

0A26: 

2598 

0A27: 

2599 

0A28: 

2600 

0A29: 

2601 

0A2A: 

2602 

0A2B: 

2603 

0A2C: 

2604 

0A2D: 

2605 

0A2E: 

2606 

0A2F: 

2607 

0A30: 

2608 

0A31: 

2609 

0A32: 

2610 

0A33: 

2611 

0A34: 

2612 

0A35: 

2613 

0A36: 

2614 

0A37: 

2615 

0A38: 

2616 

0A39: 

2617 


RS232 Index auf das Ende des Ausgabepuffers 
Intern/Extern Zeiger für schnellen seriellen Modus 
Zwischenspeicher für die 24h Echtzeituhr 
Speicher für die Größe des Tastaturpuffers 
Pause Zeiger, <Crtl - S> Zeiger 
Zeiger: Tastenwiederholungen 
Zählgeschwindigkeit für Tastenwiederholungen 
Zähler für Tasten Wiederholungsverzögerung 
Speicher für letztes Shift Muster der Tastatur 
Zeiger für Cusor in Blinkphase 

Zeiger für Cursor ein/aus (0 = blinkender Cursor) 

Zählzeiger für blinkenden Cursor 

Zeichen für Cursorposition 

Speicher für Hintergrundfarbe unter Cursor 

Zeiger für aktuellen Cursor Modus (wenn verfügbar) 

Text Bildschirm/Zeichen Basis Zeiger 

Bit-Map Basis Zeiger 

Zeiger für Adresse (*256) für 80 Zeichen Video RAM 
Zeiger für Adresse (*256) für Attribut RAM 
Hilfszeiger auf letzte Zeile für L00P4 Routine 
Zwischenspeicher (a) für 80 Zeichen Routinen 
Zwischenspeicher (b) für 80 Zeichen Routinen 
Zwischenspeicher (a) für Zeile löschen / verschieben 
Zwischenspeicher (b) für Zeile löschen / verschieben 
Farbe unter 80 Zeichen Cursor vor dem Blinken 
Rasterzeile an d. Rasterinterrupt ausgelöst wird 
Speicher für das X-Register bei BANK Operationen 
Zähler für das PAL System, Jiffie Abgleich 
Hilfsspeicher für 80 Zeichen V0C Bildschirm 


********************************************************************** 


Sicherungsspeicher für passiven Bildschirm Variablen. Dieser Bereich 
korrespondiert mit dem Zero-Page Bereich ab $E0. 


0A40: 

0A42: 

2624 - 

2626 - 

2625 

2627 

Zeiger auf laufende Bildschirmzeile: Text RAM 
Zeiger auf laufende Bildschirmzeile: Attribut 

RAM 

0A44: 

2628 


Untere Grenze des Fensters 

(init: 

$18 

= 

24) 

0A45: 

2629 


Obere Grenze des Fensters 

(init: 

$00 

= 

00) 

0A46: 

2630 


Linke Grenze des Fensters 

(init: 

$00 

= 

00) 

0A47: 

2631 


Rechte Grenze des Fensters 

(init: 

$4F 

= 

79) 

0A48: 

2632 


Start der laufenden Eingabezeile 

(init: 

$00 

= 

00) 

0A49: 

2633 


Start der laufenden Eingabespalte 

(init: 

$00 

= 

00) 

0A4A: 

2634 


Ende der laufenden Eingabezeile 

(init: 

$00 

= 

00) 

0A4B: 

2635 


Aktuelle Cursorposition: Zeile 

(init: 

$00 

= 

00) 

0A4C: 

2636 


Aktuelle Cursorposition: Spalte 

(init: 

$00 

= 

00) 

0A4D: 

2637 


Maximale Anzahl Bildschirmzeilen 

(init: 

$18 

= 

24) 

0A4E: 

2638 


Maximale Anzahl Bildschirmspalten 

(init: 

$4F 

= 

79) 
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0A4F: 

2639 

0A50: 

2640 

0A51: 

2641 

0A52: 

2642 

0A53: 

2643 

0A54: 

2644 

0A55: 

2645 

0A56: 

2646 

0A57: 

2647 

0A58: 

2648 

0A59: 

2649 


Zwischenspeicher für auszugebendes Zeichen 
Speicher: Vorangegangenes Zeichen (für ESC Test) 
Aktueller Farbcode unter Cursor (init: $07 = 07) 
Farbcode Sicherung (Insert+Delete)(init: $07 = 07) 
Zeiger für RVS Modus aktiv 

Zeiger für Anführungszeichen (Quote) Modus aktiv 
Zeiger für Einfüge (Insert) Modus aktiv 
Zeiger für automatisches Einfügen aktiv 
Zeiger für Umschaltverriegelung und Pause Zeiger 
Zeiger für Verriegeln des Bildschirm scrollens 
Zeiger für Verriegeln des Beep Tones (Ctrl-G) 


********************************************************************** 


0A60: 2650 

0A80: 2688 

0AA0: 2720 

0AAA: 2730 
0AAB: 2731 
0AAC: 2732 
0AAF: 2735 

0AB0: 2736 

0AB1: 2737 

OAB2: 2738 
0AB3: 2739 

0AB4: 2740 

0AC0: 2752 

0AC1: 2753 

0AC5: 2757 


2687 Hilfsspeicherbereich für 40 und 80 Zeichen 
2719 Buffer für Vergleichsoperationen 
2729 Hilfszähler 

Adressierungsart für Assembler Befehl 
Länge des Befehlscodes für Assembler/Disassembler 
2734 Assembler/Disassembler Speicher f. integ. Monitor 
Ein Byte Zwischenspeicher für verschiedene Zwecke 
Ein Byte Zwischenspeicher für verschiedene Zwecke 
Ein Byte Zwischenspeicher für verschiedene Zwecke 
X-Reg Speicher b. indirekten Unterprogrammaufrufen 
Richtungszeiger für Transfer Operationen 
2751 Ein Byte Zwischenspeicher 

ROM Bank für aktuellen Funktionstastenaufruf 
2756 Tabelle physikalischer Adressen und ID's von 
eingesteckten Erweiterungskarten 
System Zeiger für die Zusammensetzung von Vokalen 
mit Akzenten im DIN-Zeichensatz 


********************************************************************** 


0B00: 2816 - 3071 Kassettenpuffer 

********************************************************************** 

0C00: 3072 • 3327 RS232 Eingabe Puffer 

********************************************************************** 

0D00: 3328 • 3583 RS232 Ausgabe Puffer 

********************************************************************** 


0E00: 3584 - 4095 Bereich z. Spritedefinition (muß unter $1000 sein) 
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******************** *********************** *********** **************** 

1000: 4096 ■ 4105 Programmierbare Funkt ionstasten (Längentabelle) 
100A: 4106 - 4351 Programmierbare Funktionstasten (Funktionsstrings) 

*★*★**★*★★★★★**★★★★★★★****★*****★★★***★*****★******★★★*★★**★*★★★***★★★ 

1100: 4352 - 4400 Puffer zur Bildung v. DOS Ausgabe Strings 

1131: 4401 - 4402 Grafik Variable: Aktuelle X-Position (Lo/Hi) 

1133: 4403 - 4404 Grafik Variable: Aktuelle Y-Position (Lo/Hi) 

1135: 4405 - 4406 Grafik Variable: Zielrichtung X-Koordinate (Lo/Hi) 

1137: 4407 - 4408 Grafik Variable: Zielrichtung Y-Koordinate (Lo/Hi) 

1139: 4409 - 4410 Variable für Grafik Linien: X/Y-Absotut, X-Absolut 

113B: 4411 - 4412 Variable für Grafik Linien: Y-Absolut 

113D: 4413 - 4414 Variable für Grafik Linien: X/Y-Signum , X-Signum 

113F: 4415 - 4416 Variable für Grafik Linien: Y-Signum 

1141: 4417 • 4420 Variable für Grafik Linien: Faktor 

1145: 4421 - 4422 Variable für Grafik Linien: Fehlerwert 

1147: 4423 Variable für Grafik Linien: Kleiner Kennzeichen 

1148: 4424 Variable für Grafik Linien: Größer Kennzeichen 

1149: 4425 Variable für Uinkel Rout.: Vorzeichen des Winkels 

114A: 4426 - 4427 Variable für Winkel Rout.: Sinus des Winkelwertes 

114C: 4428 - 4429 Variable für Uinkel Rout.: Cosinus d Winkelwertes 

114E: 4430 - 4431 Variable für Uinkel Rout.: Winkel Distanz 

********************************************************************** 

Die folgenden 24 Byte sind für verschiedene Zwecke mehrfach belegt 

Variablen für Kreis Routinen 


1150 

4432 

4433 

Kreis Mittelpunkt: X-Koordinate 

(Lo/Hi) 

1152 

4434 

4435 

Kreis Mittelpunkt: Y-Koordinate 

(Lo/Hi) 

1154 

4436 

4437 

Kreis Radius in X-Richtung 

(Lo/Hi) 

1156 

4438 

4439 

Kreis Radius in Y-Richtung 

(Lo/Hi) 

1158 

4440 

4443 

Rotationswinkel des Kreises 

(Lo/Hi) 

115C 

4444 

4445 

Uinkelgrad für Anfang des Kreisbogens 

(Lo/Hi) 

115E 

4446 

4447 

Winkelgrad für Ende des Kreisbogens 

(Lo/Hi) 

1160 

4448 

4449 

X-Radius * Cos(Rotationswinkel) 


1162 

4450 

4451 

Y-Radius * Sin(Rotationswinkel) 


1164 

4452 

4453 

X-Radius * Sin(Rotationswinkel) 


1166 

4454 

• 4455 

Y-Radius * Cos(Rotationswinkel) 





Mehrfach benutzte Parameter für allgemeine 

Zwecke 

1150 

4432 - 

4433 

Mittelpunkt für X-Koordinate 


1152 

4434 - 

4435 

Mittelpunkt für Y-Koordinate 


1154 

4436 • 

4437 

Abstand 1 für X-Koordinate 


1156 

4438 • 

4439 

Abstand 1 für Y-Koordinate 
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1158: 4440 ■ 

4441 

Abstand 2 für X-Koordinate 

115A: 4442 - 

4443 

Abstand 2 für Y-Koordinate 

115C: 4444 - 

4445 

Koordinaten Abstandsende 

115E: 4446 


Spaltenzähler für Zeichen 

115F: 4447 


Zeilenzähler für Zeichen 

1160: 4448: 


Längenzähler für Zeichenkette 

Mehrfach benutzte Variablen für Rechteck Routinen 

1150: 4432 - 

4433 

X-Koordinate 1 

1152: 4434 • 

4435 

Y-Koordinate 1 

1154: 4436 - 

4437 

Rotationswinkel 

1156: 4438 - 

4439 

Zähler für X-Uert 

1158: 4440 - 

4441 

Zähler für Y-Uert 

115A: 4442 - 

4443 

Länge einer Seite des Rechtecks 

115C: 4444 - 

4445 

X-Koordinate 2 

115E: 4446 - 

4447 

Y-Koordinate 2 

Mehrfach benutzt für Shapes und Shape Bewegung 

1150: 4432 


Platzhalter 

1151: 4433 


Längenzeiger 

1152: 4434 


Folgezeiger 

1153: 4435 


Länge der Zeichenkette 

1154: 4436 


Shape-Modus setzen / ersetzen 

1155: 4437 


Zeiger auf Position in der Zeichenkette 

1156: 4438 


Altes Bit-Map Byte 

1157: 4439 


Variable f. neuen String oder Bit-Map Byte 

1158: 4440 


Platzhalter 

1159: 4441 - 

4442 

Spaltenbreite (X-Breite) eines Shapes 

115B: 4443 - 

4444 

Zeilenzahl (Y-Länge) eines Shapes 

115D: 4445 - 

4446 

Zwischenspeicher für die Spaltenbreite 

115F: 4447 - 

4448 

Zeiger auf Shape-String bei der Shape Speicherung 

1161: 4449 


Bitzeiger auf Byte des Shape Strings 


********************************************************************** 


Bereich für allgemeine Grafik Variablen 


1168: 4456 
1169: 4457 
116A: 4458 
116B: 4459 
116C: 4460 
116D: 4461 
116E: 4462 
116F: 4463 
1170: 4464 - 4465 


Hilfsspeicher für diverse Zwecke 

Hilfsspeicher: Bitzähler für GSHAPE Anweisung 

Bildschirm Skalierungszeiger 0=320*200,1=1024*1024 

Hilfszeiger für doppelte Breite 

Hilfszeiger für Rechteck ausfüllen (Box fill) 

Hilfsspeicher für Bitmasken 

Hilfszähler für numerische Werte 

Hilfszeiger für Trace Modus ein/aus 

Hilfsspeicher 1 für Renumber Routine 
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1172: 4466 - 4467 Hilfsspeicher 2 für Renumber Routine 
1174: 4468 1 Byte Hilfsspeicher 

1175: 4469 - 4470 2 Byte Hilfsspeicher 

1177: 4471 1 Byte Hilfsspeicher 1 für Grafikroutinen 

1178: 4472 1 Byte Hilfsspeicher 2 für Grafikroutinen 

1179: 4473 1 Byte Hilfsspeicher 3 für Grafikroutinen 

117A: 4474 - 4475 Vektor: Umwandlung Fließpunkt in Integer ($849F) 

117C: 4476 • 4477 Vektor: Umwandlung Integer in Fließpunkt ($793C) 

117E: 4478 - 4565 Geschwindigkeits-/Richtungstabelle für Sprites 

11D6: 4566 • 4607 42 Byte Bereich für Kopie der VIC Register 

1200: 4608 - 4609 Vorherige Basic Zeilennummer 

1202: 4610 - 4611 Befehlszeiger für Basic CONTinue Befehl 

1204: 4612 Print Using Zeiger: Chr$ 

1205: 4613 Print Using Zeiger: Füllzeichen 

1206: 4614 Print Using Zeiger: Konrmazeichen 

1207: 4615 Print Using Zeiger: Zeichen für Dezimalpunkt 

1208: 4616 Letzte aufgetretene Fehlernummer (für TRAP Befehl) 

1209: 4617 - 4618 Zeitennummer des letzten Fehlers ($FFFF ist OK KZ) 

120B: 4619 - 4620 Zeilennummer.die bei Fehler ausgeführt werden soll 

120D: 4621 Hilfszeiger für TRAP Befehl 

120E: 4622 - 4623 Zeiger auf Text der Fehlermeldung 

1210: 4624 • 4625 Textendezeiger 

1212: 4626 • 4627 Höchste für Basic verfügbare Adresse in RAM 0 

1214: 4628 • 4629 Hilfsspeicher für DO - LOOP 

1216: 4630 - 4631 Hilfsspeicher für Zeilennummer 

1218: 4632 USR Sprung 

1219: 4633 • 4634 USR Adresse im Format Lo/Hi 

121B: 4635 - 4639 Eingangswert der RND Funktion 

1220: 4640 Gradzahl für ein Kreissegment 

1221: 4641 Zeiger auf Reset Status (Kaltstart oder Warmstart) 

********************************************************************** 

Speicherbereich für Musik Zeiger 


1222: 

4642 


<tempo rate> 

1223: 

4643 

4648 

<voices> 

1229: 

4649 

4650 

<ntime> 

122B: 

4651 


<octave> 

122C: 

4652 


<sharp> 

122D: 

4653 

4654 

<pitch> 

122F: 

4655 


<voice> 

1230: 

4656 

4658 

<wave 0> 

1233: 

4659 


<dnote> 

1234: 

4660 

4663 

<f ltsav> 

1238: 

4664 


<fItflg> 

1239: 

4665 


<nibble> 

123A: 

4666 


<tonnum> 
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123B: 4667 

- 4669 

<tonval> 

123E: 4670 


<parcnt> 

123F: 4671 

- 4680 

<atktab> 

1249: 4681 

- 4690 

<sustab> 

1253: 4691 

- 4700 

<waftab> 

125D: 4701 

- 4710 

<pulstw> 

1267: 4711 

• 4720 

<putshi> 

1271: 4721 

- 4725 

<filters> 


********************************************************************** 

Speicherbereich für Interrupt Zeiger 

1276: 4726 • 4728 3 Byte Interrupt Speicher 

1279: 4729 - 4731 3 Byte Interrupt Adresse Lo Speicher 

127C: 4732 • 4734 3 Byte Interrupt Adresse Hi Speicher 

127F: 4735 <intval> 

1280: 4736 <coltyp> 

********************************************************************** 


Speicherbereich für SID Variablen 


1281: 4737 


Sound: Voice Speicher 


1282: 4738 - 

4740 

Sound: Zeitspeicher Lo-Wert 

(3 Byte) 

1285: 4741 - 

4743 

Sound: Zeitspeicher Hi-Wert 

(3 Byte) 

1288: 4744 - 

4746 

Sound: Maximalwert 

Lo 

(3 Byte) 

128B: 4747 - 

4749 

Sound: Maxiamlwert 

Hi 

(3 Byte) 

128E: 4750 • 

4752 

Sound: Minimalwert 

Lo 

(3 Byte) 

1291: 4753 - 

4755 

Sound: Minimalwert 

Hi 

(3 Byte) 

1294: 4756 - 

4758 

Sound: Richtung 


(3 Byte) 

1297 : 4759 - 

4761 

Sound: Schrittzahl 

Lo 

(3 Byte) 

129A: 4762 - 

4764 

Sound: Schrittzahl 

Hi 

(3 Byte) 

1290: 4765 - 

4767 

Sound: Frequenz 

Lo 

(3 Byte) 

12A0: 4768 - 

4770 

Sound: Frequenz 

Hi 

(3 Byte) 

12A3: 4771 


Zwischenspeicher: 

Zeitwert 

Lo 

12A4: 4772 


Zwischenspeicher: 

Zeitwert 

Hi 

12A5: 4773 


Zwischenspeicher: 

Maximalwert 

Lo 

12A6: 4774 


Zwischenspeicher: 

Maximalwert 

Hi 

12A7: 4775 


Zwischenspeicher: 

Minimalwert 

Lo 

12A8: 4776 


Zwischenspeicher: 

Minimalwert 

Hi 

12A9: 4777 


Zwischenspeieher: 

Richtung 


12AA: 4778 


Zwischenspeieher: 

Schrittzahl 

Lo 

12AB: 4779 


Zwischenspeicher: 

Schrittzahl 

Hi 

12AC: 4780 


Zwischenspeicher: 

Frequenz 

Lo 

12AD: 4781 


Zwischenspeieher: 

F requenz 

Hi 

12AE: 4782 


Zwischenspeieher: 

Pulswellenbreite Lo 

12AF: 4783 


Zwischenspeicher: 

Pulswellenbreite Hi 
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1280: 4784 
12B1: 4785 
12B2: 4786 
12B3: 4787 - 4790 
12B7: 4791 • 4857 
12FA: 4858 
12FB: 4859 
12FC: 4860 - 4863 


Zwischenspeicher: Wellenform 
Zwischenspeicher 1 für POT Funktion 
Zwischenspeicher 2 für POT Funktion 
Zwischenspeicher für UINDOW Operationen Lo/Hi 
Speicherzeiger für SPRDEF und SAVSPR Befehte 
Definit. Modus für SPRDEF und SAVSPR Befehle 
Zeilenzähler für SPRDEF und SAVSPR Befehle 
Sprite Nummer für SPRDEF und SAVSPR Befehle 


********************************************************************** 


1300: 4864 - 6143 Nicht belegter absoluter RAM Bereich 

1800: 6144 • 7167 Reserviert für Funktionstastenanwendungen 

1C00: 7168 - 8191 Video Matrix #2 (1 kB, Bitmap Farbe) wenn benötigt 

********************************************************************** 

2000: 8192 -16383 VIC Bitmap (8 kB) wenn benötigt 
********************************************************************** 

4000: 16384 Beginn des ROM über dem RAM 


********************************************************************** 
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9.13 Einbinden eigener Befehle 


9.13.1 Das Befehlsmodul 

Als Leser des Buchs 128 Intern sind Sie sicher auch kein Freund 
von halben Sachen. Deshalb wollen wir jetzt auch einen Befehl 
und eine Funktion voll in das BASIC 7.0 einbinden. Und zwar 
mit Tokenumwandlung, List- und Ausführungsmöglichkeit. Das 
erfordert natürlich mehr Aufwand als etwa die Benutzung der 
USR-Funktion für solche Zwecke. Es bringt aber hinterher die 
Befriedigung, daß man sich nicht mit irgendwelchen 
Erkennungszeichen für die Befehle herumschlagen muß. Man 
kann dann jeden neuen Befehl wie alle anderen benutzen und 
sogar alte Kommandos ohne spezielle Abfragen durch neue er¬ 
setzen. Ferner können Sie verschiedene Kommandos voneinander 
unterscheiden. Dabei hilft Ihnen das Befehlsmodul, das hier in 
mehreren Schritten erläutert wird. 

Das BASIC 7.0 hat wesentlich mehr als 128 Kommandos. Des¬ 
halb hat Commodore die Sondertoken $FE und $CE eingeführt, 
auf die noch ein Byte folgt. Dieses zweite Byte ist die eigent¬ 
liche Nummer des Befehls oder der Funktion, die aufgerufen 
werden soll. $FE ist die Kennung für Befehle und $CE die 
Kennung für Funktionen. Wenn Sie schon im ROM-Listing 
geblättert haben, dann haben Sie sicher im Interpreter in der 
Befehlsverarbeitung sogenannte Escape-Vektoren entdeckt. Sie 
werden benutzt, wenn der Interpreter hinter einem Sondertoken 
eine Kommandonummer findet, die er nicht verarbeiten kann. 
Und genau an dieser Stelle ist der Punkt, an dem wir einhaken. 

Zuerst bringen wir dem Interpreter bei, unsere Kommandos als 
Sondertoken mit Befehlsnummern größer als 127 abzulegen. 
Unsere Assemblerprogramme für diesen Zweck legen wir in die 
Programmbank 0 ab $F000. Man braucht ja immer mehr Platz 
für Variablen, als für ein Programm. Wie bringt man den Inter¬ 
preter aber dazu, daß er aus dem ROM in einen RAM-Bereich 
unter dem Betriebssystem springt? Wir benutzen dazu das 
Sprungmodul aus Kapitel 9.9.1 und hängen daran eine kleine 
Sprungtabelle für die Escape-Vektoren. Tippen Sie also zuerst 
das Sprungmodul und dann folgenden Speicherauszug ein: 
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>01780 20 03 17 4c 00 fO 24 00 20 03 17 4c 03 fO 24 00 
>01790 20 03 17 4c 06 fO 24 00 20 03 17 4c 09 fO 24 00 
>017a0 60 

Damit Sie sich darunter auch etwas vorstellen können, folgt hier 
der Klartext: 


1780 

20 

03 

17 

jsr 

$1703 

Sprungmodut JMP-Befehl 

1783 

4c 

00 

fO 

jmp 

$f000 

Funktionsvektor auf $F000 

1786 

24 

00 


bi t 

$00 

in Bank 0 

1788 

20 

03 

17 

jsr 

$1703 

Sprungmodul JMP-Befehl 

178b 

4c 

03 

fO 

jmp 

$ f 003 

Tokenumwandlung auf $F003 

178e 

24 

00 


bi t 

$00 

in Bank 0 

1790 

20 

03 

17 

jsr 

$1703 

Sprungmodul JMP-Befehl 

1793 

4c 

06 

fO 

jmp 

$f006 

Listvektor auf $F006 

1796 

24 

00 


bi t 

$00 

in Bank 0 

1798 

20 

03 

17 

jsr 

$1703 

Sprungmodul JMP-Befehl 

179b 

4c 

09 

fO 

jmp 

$f 009 

Befehlsvektor auf $F009 

179e 

24 

00 


bi t 

$00 

in Bank 0 

17a0 

60 



rts 


Für Rücksprung ins ROM 


Für alles ist also ein Sprung vorhanden, für die Funktionsaus¬ 
führung, für die Umwandlungen in Token und in Klartext und 
für die Befehlsausführung. Der RTS-Befehl ist für den Rück¬ 
sprung ins ROM nötig. Man kann zwar mit dem Sprungmodul 
direkt ins BASIC-ROM einspringen, ein Rücksprung mit RTS 
ist jedoch wegen der nötigen Umschaltung der Speicherkonfi¬ 
guration nicht möglich. Sie werden jetzt sagen, daß man auch 
ein RTS im ROM hätte anspringen können. Das stimmt natür¬ 
lich. Der Logik nach aber sollte dieser Befehl auch in der 
Sprungtabelle stehen. 

Da wir uns zuerst mit der Umwandlung in Befehlstoken und 
wieder in Klartext befassen wollen, brauchen wir erst die Hälfte 
des Befehlsmoduls einzutippen: 

>0f000 4c da fO 4c 32 fO 4c ba fO 4c 00 fl 20 03 17 4c 

>0f010 78 4c 24 Of 20 03 17 4c 21 43 24 Of 20 03 17 4c 

>0f020 2e 51 24 Of 20 03 17 4c a9 4b 24 Of 2c 00 f8 2c 

>0f030 00 f9 ac 2d fO ad 2e fO 20 62 fO 90 06 a2 00 a5 

>0f040 Od dO Of ac 30 fO ad 31 fO 20 62 fO 90 08 a2 ff 
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>0f050 a5 Od 18 4c 14 fO 20 00 17 20 86 03 24 00 38 4c 
>0f060 14 fO 85 25 84 24 aO 00 84 Od 88 c8 bl 3d 38 fl 
>0f070 24 fO f8 c9 80 fO 1b bl 24 30 03 c8 dO f9 c8 e6 
>0f080 Od 18 98 65 24 85 24 90 02 e6 25 18 aO 00 bl 24 
>0f090 dO da 05 Od 85 Od 60 aO 00 ca 10 Of bl 24 48 e6 
>OfOaO 24 dO 02 e6 25 68 10 f4 30 ef c8 bl 24 30 Oa 20 
>OfObO 00 17 20 Oc 56 24 Of dO fl 60 85 24 8a fO 02 a9 
>OfOcO 03 a8 a6 24 b9 2d fO 85 24 b9 2e fO 85 25 20 97 
>OfOdO fO 4c 1c fO 

Und damit Sie auch etwas davon haben, ist hier wieder das 


kommentierte Assemblerlisting: 


fOOO 

4c 

da 

fO 

jmp 

$f0da 

f003 

4c 

32 

fO 

jmp 

$f032 

f006 

4c 

ba 

fO 

jmp 

SfOba 

f009 

4c 

00 

fl 

jmp 

tf 100 

fOOc 

20 

03 

17 

jsr 

11703 

fOOf 

4c 

78 

4c 

jmp 

$4c78 

f 012 

24 

Of 


bi t 

$0f 

f 014 

20 

03 

17 

jsr 

$1703 

f 017 

4c 

21 

43 

jmp 

$4321 

f 01 a 

24 

Of 


bi t 

$0f 

fOlc 

20 

03 

17 

jsr 

$1703 

fOlf 

4c 

2e 

51 

jmp 

$512e 

f 022 

24 

Of 


bi t 

$0f 

f024 

20 

03 

17 

jsr 

$1703 

f027 

4c 

a9 

4b 

jmp 

$4ba9 

f02a 

24 

Of 


bi t 

$0f 

f02c 

2c 

00 

f8 

bi t 

$f800 

f02f 

2c 

00 

f9 

bi t 

$f900 

f 032 

ac 

2d 

fO 

Idy 

$f02d 

f 035 

ad 

2e 

fO 

Ida 

$f02e 

f038 

20 

62 

fO 

jsr 

$f062 

f03b 

90 

06 


bcc 

$f043 

f03d 

a2 

00 


Idx 

#$00 

f03f 

a5 

Od 


Ida 

$0d 

f 041 

dO 

Of 


bne 

$f 052 

f043 

ac 

30 

fO 

Idy 

$f 030 

f046 

ad 

31 

fO 

Ida 

$f031 

f049 

20 

62 

fO 

jsr 

$f062 


Sprung: Funktionsauswertung 
Sprung: Tokenumwandlung 
Sprung: Listroutine 
Sprung: Befehlsauswertung 
Sprungmodul JMP-Befehl 
Rücksprung in Funktionsauswertung 
in Bank 15 

Sprungmodul JMP-Befehl 
Rücksprung in Tokenumwandlung 
in Bank 15 

Sprungmodut JMP-Befehl 
Rücksprung in Listroutine 
in Bank 15 

Sprungmodul JMP-Befehl 
Rücksprung in Befehlsauswertung 
in Bank 15 

Adresse der Befehlsnamen 
Adresse der Funktionsnamen 
Adresse der Befehlsnamen 
laden 

und Befehl suchen 

Wenn nicht gefunden, Skip 

Flag für Sondertoken 1 

Befehlsnummer als Token laden 

Unbedingter Sprung 

Adresse der Funktionsnamen 

laden 

und Funktion suchen 
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f04c 

90 

08 

bcc 

$f056 

f04e 

a2 

ff 

Idx 

#$ff 

f050 

a5 

Od 

Ida 

$0d 

f052 

18 


clc 


f053 

4c 

14 fO 

jmp 

Sf 014 

f056 

20 

00 17 

jsr 

$1700 

f059 

20 

86 03 

jsr 

$0386 

f05c 

24 

00 

bi t 

$00 

f05e 

38 


sec 


f 05 f 

4c 

14 fO 

jmp 

$f 014 

f062 

85 

25 

sta 

$25 

f064 

84 

24 

sty 

$24 

f066 

aO 

00 

Idy 

#$00 

f068 

84 

Od 

sty 

$0d 

f06a 

88 


dey 


f 06b 

c8 


iny 


f06c 

bl 

3d 

Ida 

($3d),y 

f06e 

38 


sec 


f06f 

fl 

24 

sbc 

($24),y 

f 071 

fO 

f8 

beq 

$f 06b 

f073 

c9 

80 

cmp 

#$80 

f075 

fO 

1b 

beq 

$f 092 

f077 

bl 

24 

Ida 

($24),y 

f079 

30 

03 

bmi 

$f07e 

f07b 

c8 


iny 


f07c 

dO 

f9 

bne 

$f0 77 

f07e 

c8iny 



f07f 

e6 

Od 

inc 

$0d 

f 081 

18 


clc 


f 082 

98 


tya 


f083 

65 

24 

ade 

$24 

f085 

85 

24 

sta 

$24 

f087 

90 

02 

bcc 

$f08b 

f089 

e6 

25 

inc 

$25 

f08b 

18 


clc 


f08c 

aO 

00 

Idy 

#$00 

f08e 

bl 

24 

Ida 

($24),y 

f090 

dO 

da 

bne 

$f06c 

f092 

05 

Od 

ora 

$0d 

f094 

85 

Od 

sta 

$0d 

f096 

60 


rts 



Wenn nicht gefunden, Skip 
Flag für Sondertoken 2 
Funktionsnummer als Token laden 
Flag für Kommando erkannt setzen 
und Token eintragen 
Sprungmodul JSR-Befehl 
Aktuelles Zeichen holen 
Sprung in Bank 0 
Flag für Kommando nicht erkannt 
Auswertung fortsetzen 

Diese Routine ist zu der 
im ROM-Listing ab $43E2 
identisch 

Sie liegt nur deshalb im 
RAM, damit die Texttabellen 
ebenfalls im RAM liegen 
können 
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f097 

aO 

00 


Idy #$00 

Diese Routine ist im 

f099 

ca 



dex 

ROM-Listing ab $516E 

f09a 

10 

Of 


bpi SfOab 

fast identisch vorhanden 

f09c 

bl 

24 


Ida ($24),y 


f09e 

48 



pha 

Sie wurde ins RAM verlegt. 

f09f 

e6 

24 


inc $24 

damit auch die Befehlstexte 

fOal 

dO 

02 


bne $f0a5 

im RAM liegen können 

f0a3 

e6 

25 


inc $25 


f0a5 

68 



pla 


f0a6 

10 

f4 


bpi $f09c 


f0a8 

30 

ef 


bmi $f099 


fOaa 

c8 



iny 


fOab 

bl 

24 


Ida ($24),y 


fOad 

30 

0a 


bmi $f0b9 


fOaf 

20 

00 

17 

jsr $1700 

Sprungmodul JSR-Befehl 

f0b2 

20 

Oc 

56 

jsr $560c 

Zeichenausgabe 

f0b5 

24 

Of 


bit $0f 

in Bank 15 

f0b7 

dO 

fl 


bne $fOaa 


f0b9 

60 



rts 


fOba 

85 

24 


sta $24 

Tokennummer setzen 

fObc 

8a 



txa 

Sondertoken 1 ? 

fObd 

fO 

02 


beq $f0c1 

Ja, Offset gleich 0 

fObf 

a9 

03 


Ida #$03 

Sonst Offset gleich 3 

fOcI 

a8 



tay 


f0c2 

a6 

24 


Idx $24 

Tokennummer wieder laden 

f0c4 

b9 

2d 

fO 

Ida $f02d,y 

Zeiger je nach Offset 

f0c7 

85 

24 


sta $24 

auf Befehlsnamen oder 

f0c9 

b9 

2e 

fO 

Ida $f02e,y 

Funktionsnamen setzen 

fOcc 

85 

25 


sta $25 


fOce 

20 

97 

fO 

jsr $f097 

Gesuchtes Kommando listen 

f 0dl 

4c 

1c 

fO 

jmp $f01c 

Und Rücksprung in LIST 


Am Anfang des Sprungmoduls sind nun auch alle Sprung¬ 
vektoren vorhanden, die wir benötigen. Wir haben jetzt schon 
eine komplette Ergänzung zur Tokenumwandlung und zum 
LIST-Befehl. Jetzt brauchen wir nur noch Befehls- und Funk¬ 
tionsnamen einzutragen, die Escape-Vektoren für die Tokenum¬ 
wandlung und den LIST-Befehl zu verbiegen und wir können 
unsere neuen Funktionen schon eingeben und wieder auflisten. 
Ab $F02C haben wir die Adressen für die Texttabellen der 
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Befehle und Funktionen gespeichert. Geben Sie nun bei der 
ersten Adresse $F800 mit dem Monitor folgende Bytes ein: 

>0f800 44 4f 4b c5 00 

Sobald Sie RETURN drücken, sehen Sie, daß unser neuer Befehl 
DOKE heißen wird. Und als Namen für die neue Funktion 
geben Sie DEEK ein: 

>0f900 44 45 45 cb 00 

Die Ablage der Befehlstexte ist mit der Ablage der originalen 
Befehle im ROM-Listing ab $4417 identisch. Bei dem letzten 
Zeichen jedes Befehlsnamens ist das Bit 7 gesetzt. Jede Tabelle 
wird mit einem Null-Byte beendet. 

Sie sollten jetzt alles erst einmal abspeichern. Nun ändern Sie 
den Escape-Vektor für die Tokenumwandlung bei (S030C) auf 
unsere Sprungtabelle in $1788 und den Escape-Vektor des LIST- 
Befehls bei ($030E) auf $1790. Rufen Sie jetzt aus dem Monitor 
wieder das BASIC 7.0 auf, und tippen Sie eine kurze Programm¬ 
zeile mit den neuen Kommandos DOKE und DEEK ein. Sie 
können mit dem Monitor überprüfen, ob in der Programmzeile 
ab $1C00 die neuen Kommandos wirklich als Sondertoken abge¬ 
legt sind. 

Jetzt haben wir zwei neue Befehle, die der Interpreter auch 
richtig übernimmt. Nur ausführen kann er sie noch nicht. Des¬ 
halb folgt jetzt die zweite Hälfte des Befehlsmoduls, die die 
Verarbeitung neuer Befehle und Funktionen übernimmt: 

>0f0d4 2c 00 fa 2c 00 fb c9 80 bO 04 38 4c 0c fO 0a a8 

>0f0e4 ad d8 fO 85 57 ad d9 fO 85 58 bl 57 48 c8 bl 57 

>0f0f4 85 58 68 85 57 20 56 00 18 4c 0c fO c9 80 90 17 

>0f104 0a a8 ad d5 fO 85 57 ad d6 fO 85 58 20 1f fl 20 

>0f114 03 17 4c aO 17 24 Of 38 4c 24 fO bl 57 48 c8 bl 

>0f124 57 85 58 68 85 57 20 00 17 20 80 03 24 Of 4c 56 

>0f134 00 


Natürlich wird der Speicherauszug auch wieder dokumentiert: 
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f0d4 

2c 

00 

fa 

bit 

SfaOO 

Adresse der Befehlsadresstabelle 

f0d7 

2c 

00 

fb 

bi t 

SfbOO 

Adresse der Funktionsadresstabelle 

fOda 

c9 

80 


cmp 

#$80 

Eine neue Funktion ? 

fOdc 

bO 

04 


bcs 

$f0e2 

Ja, Skip 

fOde 

38 



sec 


Flag für Funktion nicht erkannt 

fOdf 

4c 

24 

fO 

jmp 

$f00c 

Fehler ausgeben 

f0e2 

Oa 



asl 


Funktionsnummer * 2 

f0e3 

a8 



tay 


ergibt Offset auf Tabelle 

f0e4 

ad 

d8 

fO 

Ida 

$f0d8 

Zeiger auf Adreßtabelle 

f0e7 

85 

57 


sta 

$57 

der Funktionen setzen 

f0e9 

ad 

d9 

fO 

Ida 

$f0d9 


fOec 

85 

58 


sta 

$58 


fOee 

bl 

57 


Ida 

($57),y 

Adresse Low laden 

fOfO 

48 



pha 


und retten 

fOfl 

c8 



iny 



f Of 2 

bl 

57 


Ida 

($57),y 

Adresse High laden 

f0f4 

85 

58 


sta 

$58 

und setzen 

fOf6 

68 



pla 


Adresse Low laden 

f Of 7 

85 

57 


sta 

$57 

und setzen 

f0f9 

20 

56 

00 

jsr 

$0056 

Neue Funktion aufrufen 

fOfc 

18 



clc 


Flag für Funktion gefunden 

fOfd 

4c 

Oc 

fO 

jmp 

$f00c 

Rücksprung in Ausdruckauswertung 

f 100 

c9 

80 


cmp 

#$80 

Ein neuer Befehl ? 

f 102 

90 

17 


bcc 

Sf 11b 

Nein, Fehler 

f 104 

Oa 



asl 


Befehlsnummer * 2 

f 105 

a8 



tay 


ergibt Offset auf Tabelle 

f 106 

ad 

d5 

fO 

Ida 

$f0d5 

Zeiger auf Adreßtabelle 

f 109 

85 

57 


sta 

$57 

der Befehle setzen 

f 10b 

ad 

d6 

fO 

Ida 

$f0d6 


flOe 

85 

58 


sta 

$58 


fl 10 

20 

Id 

fl 

jsr 

*f 11 f 

Befehl aufrufen 

fl 13 

20 

03 

17 

jsr 

$1703 

Sprungmodul JMP-Befehl 

fl 16 

4c 

aO 

17 

jmp 

$17a0 

über RTS Rücksprung ins ROM 

fl 19 

24 

Of 


bi t 

$0fnach 

Bank 15 

fl 1b 

38 



sec 


Flag für Befehl nicht erkannt 

fl 1c 

4c 

24 

fO 

jmp 

$f024 

Fehler ausgeben 

f 11 f 

bl 

57 


Ida 

($57),y 

Adresse Low laden 

f 121 

48 



pha 


und retten 

f 122 

c8 



iny 



f 123 

bl 

57 


Ida 

($57),y 

Adresse High laden 

f 125 

85 

58 


sta 

$58 

und setzen 
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f 127 

68 


pla 


f 128 

85 57 


sta 

$57 

f 12a 

20 00 

17 

jsr 

$1700 

f 12d 

20 80 

03 

jsr 

$0380 

f 130 

24 Of 


bi t 

$0f 

f 132 

4c 56 

00 

jmp 

o 

o 

Ul 

o 


Adresse Low laden 
und setzen 

Sprungmodul JSR-Befehl 
Aktuelles Zeichen aus Programm 
holen 

und Befehl aufrufen 


Wie auch im ersten Teil des Befehlsmoduls sind die Tabellen¬ 
adressen wieder in zwei BIT-Befehlen gespeichert, sie lassen 
sich dann leichter finden und ändern. Zu den Adreßtabellen sei 
noch etwas gesagt: Es sind immer die absoluten Adressen der 
Routinen für die Befehle und Funktionen. Das ist speziell bei 
den Befehlen so. Das anzumerken ist deshalb wichtig, weil der 
Interpreter seine Befehle etwas anders aufruft und keine abso¬ 
luten sondern Adreßwerte minus eins benutzt. 

Das Befehlsmodul ist nun vollständig und funktionsfähig. Wir 
brauchen aber noch die Assemblerprogramme für die neuen 
Kommandos, damit das Befehlsmodul auch etwas zu tun hat. 
Nehmen wir zuerst den Speicherauszug für den DOKE-Befehl: 

>0f200 20 00 17 20 12 88 24 Of a5 16 48 a5 17 48 20 00 

>0f210 17 20 5c 79 24 Of 20 00 17 20 12 88 24 Of a6 16 

>0f220 a4 17 68 85 17 68 85 16 98 48 20 00 17 20 e8 80 

>0f230 24 Of e6 16 dO 02 e6 17 68 20 00 17 20 e9 80 24 

>0f240 Of 60 

Zum DOKE-Befehl gibt es natürlich auch ein kommentiertes 
Assemblerlisting: 


f200 

20 

00 

17 

jsr 

$1700 

Sprungmodul JSR-Befehl 

f203 

20 

12 

88 

jsr 

$8812 

Adresse auswerten 

f206 

24 

Of 


bi t 

$0f 

Bank 15 

f208 

a5 

16 


Ida 

$16 

Adresse retten 

f20a 

48 



pha 



f20b 

a5 

17 


Ida 

$17 


f20d 

48 



pha 



f20e 

20 

00 

17 

jsr 

$1700 

Sprungmodul JSR-Befehl 

f211 

20 

5c 

79 

jsr 

$795c 

Test auf Komma 

f 214 

24 

Of 


bi t 

$0f 

Bank 15 

f 216 

20 

00 

17 

jsr 

$1700 

Sprungmodul JSR-Befehl 

f 219 

20 

12 

88 

jsr 

$8812 

Adreßwert holen 
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f21c 

24 

Of 

bit 

SOf 

f21e 

a6 

16 

Idx 

$16 

f220 

a4 

17 

Idy 

$17 

f222 

68 


pla 


f223 

85 

17 

sta 

$17 

f 225 

68 


pla 


f226 

85 

16 

sta 

$16 

f228 

98 


tya 


f229 

48 


pha 


f22a 

20 

00 17 

jsr 

$1700 

f22d 

20 

e8 80 

jsr 

$80e8 

f 230 

24 

Of 

bit 

$0f 

f 232 

e6 

16 

inc 

$16 

f234 

dO 

02 

bne 

$f 238 

f236 

e6 

17 

inc 

$17 

f238 

68 


pla 


f239 

20 

00 17 

jsr 

$1700 

f23c 

20 

e9 80 

jsr 

$80e9 

f 23 f 

24 

Of 

bit 

$0f 

f 241 

60 


rts 



Bank 15 

Adreßwert in Register retten 
Speicheradresse wieder setzen 


High-Byte des Adreßwertes 
retten 

Sprungmodul JSR-Befehl 
(X) Low-Byte ins RAM bringen 
Bank 15 

Speicheradresse erhöhen 

High-Byte wieder holen 
Sprungmodul JSR-Befehl 
(A) High-Byte ins RAM bringen 
Bank 15 


Wie Sie aus dem Assemblerlisting ersehen können, bringt der 
DOKE-Befehl einen Adreßwert in zwei aufeinanderfolgende 
Speicherzellen. Sie müssen einen Adreßwert also nicht mehr 
mühselig in Low-Byte und High-Byte auftrennen, bevor Sie ihn 
ins RAM schreiben können. Der DOKE-Befehl - sein Name 
kommt von Doppel-POKE - berücksichtigt wie der normale 
POKE-Befehl die Speicherkonfiguration, die Sie mit dem 
BANK-Befehl anwählen. 

Bevor wir den DOKE-Befehl aber endgültig einbinden, kommt 
die versprochene DEEK-Funktion. Hier ist der entsprechende 
Speicherauszug: 

>0f300 20 00 17 20 56 79 24 Of a5 16 48 a5 17 48 20 00 

>0f310 17 20 da 77 24 Of 20 00 17 20 15 88 24 Of aO 00 

>0f320 a9 16 20 00 17 20 74 ff 24 Of 85 65 e6 16 dO 02 

>0f330 e6 17 aO 00 a9 16 20 00 17 20 74 ff 24 Of 85 64 

>0f340 68 85 17 68 85 16 a2 90 38 20 00 17 20 75 8c 24 

>0f350 Of 60 
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Auch hier wieder das Assemblerlisting dazu: 


f300 

20 

00 

17 

jsr 

$1700 

f303 

20 

56 

79 

jsr 

$7956 

f306 

24 

Of 


bi t 

$0f 

f308 

a5 

16 


Ida 

$16 

f30a 

48 



pha 


f30b 

a5 

17 


Ida 

$17 

f30d 

48 



pha 


f30e 

20 

00 

17 

jsr 

$1700 

f 311 

20 

da 

77 

jsr 

$77da 

f314 

24 

Of 


bi t 

$0f 

f 316 

20 

00 

17 

jsr 

$1700 

f319 

20 

15 

88 

jsr 

$8815 

f31c 

24 

Of 


bi t 

$0f 

f31e 

aO 

00 


Idy 

#$00 

f320 

a9 

16 


Ida 

#$16 

f322 

20 

00 

17 

jsr 

$1700 

f325 

20 

74 

ff 

jsr 

$ff74 

f328 

24 

Of 


bi t 

$0f 

f 32a 

85 

65 


sta 

$65 

f32c 

e6 

16 


inc 

$16 

f32e 

dO 

02 


bne 

$f332 

f330 

e6 

17 


inc 

$17 

f332 

aO 

00 


Idy 

#$00 

f334 

a9 

16 


Ida 

#$16 

f336 

20 

00 

17 

jsr 

$1700 

f339 

20 

74 

ff 

jsr 

$ff74 

f33c 

24 

Of 


bi t 

$0f 

f33e 

85 

64 


sta 

$64 

f340 

68 



pla 


f 341 

85 

17 


sta 

$17 

f343 

68 



pla 


f344 

85 

16 


sta 

$16 

f346 

a2 

90 


Idx 

#$90 

f348 

38 



sec 


f349 

20 

00 

17 

jsr 

$1700 

f34c 

20 

75 

8c 

jsr 

$8c75 

f34f 

24 

Of 


bi t 

$0f 

f 351 

60 



rts 



Sprungmodul JSR-Befehl 
Test auf ')' 

Bank 15 

Adressspeicher retten 


Sprungmodul JSR-Befehl 
Auf numerisch prüfen 
Bank 15 

Sprungmodul JSR-Befehl 
FAC#1 in Adressformat wandeln 
Bank 15 
Offset auf 0 
Adresse ist in ($16) 
Sprungmodul JSR-Befehl 
Low-Byte aus Speicher holen 
Bank 15 

Low-Byte setzen 
Ladeadresse erhöhen 

Offset auf 0 
Adresse ist in ($16) 
Sprungmodul JSR-Befehl 
High-Byte aus Speicher holen 
Bank 15 

High-Byte setzen 
Adressenspeicher wieder setzen 


Exponent für Umwandlung in 
Realzahl setzen 
Sprungmodul JSR-Befehl 
Adreßwert in FAC#1 
Bank 15 
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Die DEEK-Funktion ist das Gegenstück zum DOKE-Befehl. Sie 
liest einen Adreßwert aus zwei aufeinanderfolgenden Speicher¬ 
zellen aus. Auch sie berücksichtigt die Speicherkonfiguration, 
die durch den BANK-Befehl gewählt worden ist. 

Das Befehlsmodul ist im Speicher, die Assemblerprogramme und 
die Namen für die neuen Kommandos ebenfalls, wir müssen nur 
noch in die Adreßtabellen die Startadressen der Kommandos 
eintragen. Zuerst für den DOKE-Befehl: 

>0fa00 00 f2 

Und dann für die DEEK-Funktion: 

>fb00 00 f3 

Sie haben jetzt sehr viel eingetippt. Speichern Sie deshalb alles 
sicherheitshalber ab. Jetzt hat das Befehlsmodul auch alle Anga¬ 
ben bekommen, die es braucht, um die neuen Kommandos auf¬ 
zurufen. Setzen Sie also den Escape-Vektor für Funktionsaufrufe 
bei ($02FC) in die Sprungtabelle auf $1780 und den Escape- 
Vektor für Befehlsauswertung bei ($0310) auf $1798. Jetzt kön¬ 
nen Sie den DOKE-Befehl und die DEEK-Funktion auch 
benutzen. Tippen Sie doch folgendes ein: 

PRINT 1IEX$(DEEK(45)) 

Die Startadresse für BASIC-Programme wird nun hexadezimal 
ausgegeben. Zwei PEEK-Befehle würden hier mehr Arbeit 
machen. Eine echte Erleichterung bietet aber erst der DOKE- 
Befehl: 

DOKE 808, DEC("F670") 

Diese Eingabe sperrt die STOP-Taste. Rückgängig gemacht 
werden kann sie durch 

DOKE 808,DEC("F66E") 

Hier ändert sich zwar nur das Low-Byte des Adreßwertes, aber 
dasselbe mit zwei POKE-Befehlen zu erledigen ist nicht ganz so 
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einfach und erfordert noch einige mathematische Operationen. 

Sie können mit dem Befehlsmodul bis zu 128 neue Befehle und 
bis zu 128 neue Funktionen einführen. Probleme wird es nur mit 
freiem Speicherplatz geben. Da immer zuerst versucht wird, die 
neuen Kommandos zu erkennen, ist es auch möglich, alte 
Befehle durch neue zu ersetzen. Man braucht nur eine neue 
Funktion mit dem Namen "SQR" zu entwickeln, damit die origi¬ 
nale Wurzelfunktion ignoriert wird. Natürlich ändert sich dabei 
auch das entsprechende Token für die Funktion. Sie sollten des¬ 
halb keine Sprungbefehle ersetzen, da sonst zum Beispiel der 
RENUMBER-Befehl nicht mehr funktioniert. Ansonsten sind 
Ihrem Ideenreichtum aber keine Grenzen gesetzt. 
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10. Das Z-80-ROM-Listing 

10.1 Einführung zur Z-80 

Der Teil des ROM, der beinahe ausschließlich Z-80-Mnemocode 
beinhaltet, umfaßt alles in allem 4 KByte, der physikalisch im 
Adreßbereich $D000 bis $DFFF liegt; Kenner spitzen hier schon 
die Ohren, denn sie wissen, daß es sich hier um einen recht 
kritischen Speicherbereich handelt. 

Ist die Z-80 eingeschaltet (ein Bit im MODE CONFI- 
GURATION REGISTER ist hierfür verantwortlich), so 
adressiert die MMU, das ist der für die Adressierung zuständige 
Baustein, das ab $D000 liegende ROM, wenn die Z-80 den 
Bereich $0000 bis SOFFF adressiert; hier liegt normalerweise bei 
einem Z-80-Betriebssystem das ROM. Als Anwender oder 
Programmierer unter Z-80 merken Sie hiervon allerdings 
garnichts, da die MMU dies alles vollkommen automatisch 
regelt. 

Wird der Rechner eingeschaltet oder ein RESET ausgeführt, so 
wird die Z-80 auf jeden Fall zunächst einmal kurz eingeschaltet. 
Es werden die notwendigen Vorbereitungen für einen 
eventuellen CP/M-Start getroffen; Sie wissen ja, daß der 
Commodore 128 CP/M automatisch bootet und startet, sollte sich 
eine CP/M-Diskette beim RESET im Laufwerk befinden. Ist das 
Z-80-Betriebssystem mit seinen Vorbereitungen fertig, so wird 
wieder die 8502 eingeschaltet. Diese macht dann genau an der 
Stelle weiter, an der sie ihre Arbeit beendet hat - dies ist 
normalerweise die Stelle, nach der die Z-80 eingeschaltet 
worden ist. Klingt alles zunächst ein wenig kompliziert, ist es 
eigentlich aber gar nicht. 

Es ist sicherlich sehr sinnvoll, das Z-80-Betriebssystem 
dokumentiert abzudrucken. Wenn Sie unter der Z-80 program¬ 
mieren wollen, so ist es sicherlich sinnvoll zu wissen, wie das Z- 
80-ROM aussieht; schließlich müssen Sie damit ja kooperieren. 
Ferner ist aus dem Programmierstil leicht ersichtlich, wie man 
die Z-80 beim Commodore 128 programmieren muß, denn es 
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gibt einige Eigenheiten, die auf das Adreßchaos zurückzuführen 
sind. 

Will man beispielsweise den Bereich $D000 bis SDFFF 
adressieren, also einen der Bausteine wie VIC, VDC, SID oder 
einen der anderen, so können Sie dies nicht mit den "normalen" 
Adressierungskommandos tun. Hierzu sind die Port-Kommandos 
OUT und IN zu verwenden. Um beispielsweise die 8502 
einzuschalten, ist folgender Befehlsablauf notwendig: 


LD BC,$D505 
LD A,$B1 
OUT (C),A 


;Adresse Mode Configuration Register 
;Code, um 8502 einzuschalten 
.•entspricht LD (BC),A 


entsprechend müssen Sie zum Auslesen von Speicherstellen das 
IN-Kommando verwenden. Im Registerpaar BC muß immer die 
anzusprechende Adresse enthalten sein. 

Wenn Sie das hier abgedruckte ROM-Listing sorgsam studieren, 
so werden Sie feststellen, daß auch einige 8502-Code-Sequenzen 
enthalten sind. Das Umschalten der Prozessoren beispiesweise 
muß es ja in beiden Mnemocodes geben, sonst klappt es nicht. 
Ferner muß sich das Umschalten unbedingt innerhalb des 
Common Area abspielen, sonst meldet sich der Rechner nach 
dem Einschalten der Z-80 mit an Sicherheit grenzender 
Wahrscheinlichkeit nicht mehr wieder. 

Wozu aber dient nun das Z-80-ROM, werden Sie sich 
berechtigterweise fragen. Nun, ganz einfach. Es dient in erster 
Linie dem Laden und Starten der notwendigen CP/M-Dateien. 
Ferner befinden sich sämtliche Bildschirmroutinen in diesem 
ROM, sowohl für den 40- als auch für den 80-Zeichen- 
Bildschirm. Hierauf greift das BIOS und das BDOS sicherlich 
zurück, da nicht alle Routinen tatsächlich innerhalb des ROMs 
genutzt werden. Alle Systemmeldungen, die Sie während des 
Bootens von CP/M auf dem Bildschirm erhalten, erfolgen aus 
diesem ROM. Verfallen Sie aber bitte nicht dem Irrtum, daß das 
gesamte CP/M oder auch nur ganze Teile von CP/M sich in 
diesem ROM befinden; es handelt sich hierbei lediglich um 
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extrem systemspezifische Routinen. 

Das Laden von Diskette allerdings erfolgt in guter alter 8502- 
Manier. Hierfür schaltet die Z-80 kontrolliert kurz die 8502 ein, 
welche nach getaner Arbeit wieder brav zur Z-80 umschaltet. 
Dies ist eigentlich recht sinnvoll, da man auf diese Weise auf die 
bestehenden Kernal-Routinen zurückgreifen kann. 

Wir wollen Sie nun aber - bevor Sie sich des Z-80-ROMs näher 
annehmen - kurz aufklären, denn sonst wachsen Ihnen auch 
noch graue Haare, und das muß ja nicht sein. Sie müssen 
wissen, daß beim Einschalten der Z-80 nichts mehr so bleibt, 
wie es ist. Der Bereich $D000 bis $DFFF wird nach $0000 
heruntergespiegelt; ein Adressieren des Bereiches ab $D000 ist 
ausschließlich mittels OUT (C),x und IN (C),x möglich. Aber 
auch der Bildschirm und der Zeichengenerator werden 
verschoben; dies ist ganz logisch, denn dort, wo der Videoram 
sich normalerweise befindet, wird ja ROM adressiert: $0400 bis 
$07FF können Sie dem ROM-Listing entnehmen, der VIC-Chip 
wäre recht verwirrt. 

Das Videoram wird nach $2C00 verschoben; der Zeichen¬ 
generator wird um 256 Byte nach oben verschoben, beginnt also 
bei $D100. Einzig das Farbram bleibt dort, wo es ist, es läßt 
sich bekanntlich ja nicht verschieben. 

Damit das Ganze aber nicht so einfach ist, gibt es neben dem 
40-Zeichen- und dem 80-Zeichen-Bildschirm noch einen 
dritten, dem 40-Zeichen-Bildschirm übergeordneten Bildschirm. 
Beim 40-Zeichen-Bildschirm wird von der Anzeige her ein 80- 
Zeichen-Bildschirm simuliert, der in der Horizontalen gescrollt 
werden kann. Um dies zu ermöglichen, muß man natürlich einen 
zusätzlichen Speicher haben. Wir haben diesen Bildschirm 80- 
Zeichen-Simulator getauft; es wird immer nur ein Fenster aus 
diesem Bildschirm auf dem 40-Zeichen-Bildschirm dargestellt. 

Dieser 80-Zeichen-Bildschirm liegt im Bereich ab $1400; das 
dazugehörige Farbram finden Sie ab $1C00. Allerdings kann 
man vom Gebrauch dieses Pseudo-80-Zeichen-Bildschirmes nur 
abraten, den Überblick dürfte wohl jeder früher oder später 
verlieren. 
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So, das wäre eigentlich schon das Wichtigste zum ROM; nun 


aber noch 

eine kleine Auflistung der verwendeten 

Systemadressen im RAM, damit Sie nicht so lange rumrätseln 
müssen. 

$2400 

Zwischenspeicher allerlei 

$2402 

angepaßte Spalte für 80-Zeichen-Simulation 

$2404+ 

Maske für Textausgabe 

$2406+ 

Adresse Cursor 40-Zeichen-Schirm 

$2408 

Zeilen pro Bildschirm (24 Default) 

$2409+ 

Cursoradresse + $1400 für 80-Zeichen-Simulation 

$2408 

Cursorspalte (40-Zeichen) 

$240C 

Cursorzeile (40-Zeichen) 

$2400 

Zeichenfarbe 

$240E 

Hintergrundfarbe 

$240F 

Rahmenfarbe 

$2410 

Füllzeichen (entweder $00 oder $80 für reverses Space) 

$2411+ 

Cursoradresse 

$2413 

Cursorspalte 

$2414 

Cursorzeile 

$2415 

Attribut 

$2416 

Hintergrundfarbe 80-Zeichen-Schirm 

$2417 

Vordergrundfarbe 80-Zeichen-Schirm 

$FD01 

Flag für Vektoren setzen Ja/Nein 

$FD03 

zu lesende Spur 

$FD04 

zu lesender Sektor 

$FD05 

noch zu ladende Anzahl Blöcke 

$FD06 

Fehlerflag ($00,$0D,$FF) 

$FD08 

Logische Filenummer 

$FD0D 

Zeiger auf Anpassungstabei le 

$FD10 

Attack/Decay 

$ FD 11 

Volume 

$FD12 

F requenz (Hi) 

$FD13 

Sustain/Release 

$FD 14 

Ausschalten Ton 

$FD15 

Einschalten Ton 

$FD18+ 

Basisadresse zu ladender Block 

Mit "+" gekennzeichnete Adressen sind als 16-Bil-Werte zu 


verstehen. 

Der Bootsektor der CP/M-Diskette soll auch noch kurz 
angeschnitten werden, damit Sie ihn sich nicht selbst anzusehen 
brauchen. Natürlich beginnt er mit der Identifizierung als 
Bootsektor, beinhaltet also zunächst die drei Buchstaben "CBM" 
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und dann fünf Nullen. Das dann zu startende Programm sieht so 
aus: 


SEI 


Interrupt unterbinden 

JSR 

$FF84 

10INIT 

LDA 

#$3E 

Konfigurationsbyte 

STA 

$FF00 

definieren 

LDA 

#$C3 

Code für JP unter Z-80 

STA 

$FFEE 

Code speichern 

LDA 

#$08 

Lo-Byte ist $08 

STA 

SFFEF 

speichern 

LDA 

#$00 

Hi-Byte ist $00 

STA 

$FFF0 

speichern; entspricht einem RST 

JMP 

$FFD0 

Z-80 einschalten 

Das ist 

alles. 

was der Booting-Sektor macht. 


sich innerhalb des Z-80-ROMs ab und ist Ihnen ab sofort nicht 


mehr verborgen. Es ist Wert darauf gelegt worden, daß nahezu 
jede Zeile sinnvoll dokumentiert wurde. 


Speicherbereiche, die kopiert werden, sind mit zwei Adressen 
versehen. Zunächst die physikalisch/logische Adresse und dann 
die vorgesehene Zieladresse. Relative Sprünge beziehen sich auf 
ihre vorgesehene Speicherumgebung. 

Nun aber das versprochene ROM-Listing: 
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10.2 Das Z-80-ROM-Listing 

************************************ RST 00 (Kaltstart) 


0000 

3E 

3E 


LD 

A,$3E 

Konfigurationsbyte (RAM,I/O) 

0002 

32 

00 

FF 

LD 

(SFFOO),A 

ins Konfigurationsregister 

0005 

C3 

3B 

00 

JP 

S003B 

Rest des Kaltstarts 

************************************ 

RST 08; Z-80 wieder eingeschaltet 

0008 

31 

77 

3C 

LD 

SP,S3C77 

SP initialisieren 

000B 

3E 

3F 


LD 

A,$3F 

Konfigurationsbyte 

000D 

C3 

8C 

01 

JP 

$018C 

Rest der RST-08-Routine 

************************************ 

RST 10 

0010 

El 



POP 

HL 

Rücksprungadresse von Stack 

0011 

6E 



LD 

L,(HL) 

Folgebyte als Offset holen 

0012 

C3 

20 

00 

JP 

$0020 

RST-20-Routine anspringen 

0015 

00 



NOP 


FülIbytes 

0016 

00 



NOP 



0017 

00 



NOP 



************************************ 

RST 18 

0018 

El 



POP 

HL 

Rücksprungadresse von Stack 

0019 

6E 



LD 

L, (HL) 

Lo-Byte der Rücksprungadresse 

001A 

C3 

28 

00 

JP 

$0028 

RST-28-Routine anspringen 

001D 

00 



NOP 


Füllbytes 

001E 

00 



NOP 



001F 

00 



NOP 



************************************ 

RST 20 

0020 

3A 

OF 

FD 

LD 

A,($FDOF) 


0023 

A7 



AND 

A 

Setze Flags 

0024 

28 

02 


JR 

Z,$0028 

Bei Nullflag Sprung 

0026 

2C 



INC 

L 

sonst erhöhe den 

0027 

2C 



INC 

L 

Sprungzeiger um 2 


************************************ 28 ; 

Sprungadresse aus Tabelle holen 


0028: 

26 01 

LD 

H,$01 

Hi-Byte der Tabelle ist 1 

002A: 

7E 

LD 

A, (HL) 

Folgebyte als Offset holen 

002B: 

23 

INC 

HL 

Zeiger nun auf Hi-Byte 
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002C 

66 


LD 

H,(HL) 

Hi-Byte auch holen 

0020 

6F 


LD 

L,A 

Lo-Byte nach L 

002E 

E9 


JP 

(HL) 

Und indirekter Sprung 

002F 

00 


NOP 


Füllbyte 

************************************ 

RST 30; Dummy; Erstellungsdatum 

0030: 

30 

35 2F 31 

32 2F 

38 35 

.ASC ‘'05/12/85" 






=12. Juni 1985 

************************************ 

RST 38 

0038 

C3 

FD FD 

JP 

SFDFD 

RST 38 bei $FDFD fortführen 

************************************ 

RST 0 Contn'd 

003B 

01 

2F DO 

LD 

BC,$D02F 

Register 47 des VIC-Chip (Tast. 

003E 

11 

FC FF 

LD 

DE,$FFFC 

$FF in die Tastatur schreiben 

0041 

ED 

51 

OUT 

<C),D 

Keine Erweiterungstasten 

0043 

03 


INC 

BC 

Register 48=Taktregister 

0044 

ED 

59 

OUT 

<C),E 

auf $FC set 2 en -> 1 MHz-Modus 

0046 

01 

05 D5 

LD 

BC,$D505 

Mode-Configuration-Register 

0049 

3E 

BO 

LD 

A,$BO 

/EXROM und /GAME testen 

004B 

ED 

79 

OUT 

(C),A 

sowie 128er-Modus einschalten 

0040 

ED 

78 

IN 

A, (C) 

Mode-Configuration-Register 

004F 

2F 


CPL 


wieder aus lesen und negieren 

0050 

E6 

30 

AND 

$30 

/EXROM oder /GAME gesetzt? 

0052 

28 

05 

JR 

Z,$0059 Nein, dann keine Cartridge 

************************************ 

64er-Modus einschalten und 






Kontrolle an Cartridge übergeben 

0054 

3E 

Fl 

LD 

A,$F1 

8502 einschalten und 64er-Modus 

0056 

ED 

79 

OUT 

<C),A 

auswählen 

0058 

C7 


RST 

$00 

und Kaltstart ausführen 

0059 

01 

OF DC 

LD 

BC,$DC0F 

CRB-Register im CIA 1 

005C 

3E 

08 

LD 

A,$08 

auswählen und dann 

005E 

ED 

79 

OUT 

(C),A 

Timer B anhalten sowie 

0060 

0D 


DEC 

C 

auch den Timer A des 

0061 

ED 

79 

OUT 

(C),A 

CIA 1 stoppen. 

0063 

OE 

03 

LD 

C,$03 

DDRB-Datenrichtungsregister 

0065 

AF 


XOR 

A 

für Port B: Alle Bits auf Ein¬ 

0066 

ED 

79 

OUT 

(C), A 

gabe legen 

0068 

OD 


DEC 

C 

Zeiger auf DDRA und hier 

0069 

3D 


DEC 

A 

alle Bits auf 

006A 

ED 

79 

OUT 

(C).A 

Ausgabe legen. 

006C 

OD 


DEC 

C 

Durch zweimaliges dekremen- 
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006D: 

OD 



DEC 

C 

tieren zeigt BC auf Port A 

006E: 

3E 

7F 


LD 

A,$7F 

Port A mit $7F (Siehe auch 

0070: 

ED 

79 


OUT 

(C),A 

Tastaturmatrix) beschreiben 

0072: 

03 



INC 

BC 

Zeiger auf Port B (Eingabe) 

0073: 

ED 

78 


IN 

A,(C) 

und aus lesen 

0075: 

E6 

20 


AND 

$20 

Commodore-Taste ausmaskieren 

0077: 

01 

05 

D5 

LD 

BC,$D505 

Zeiger für Mode-Config.-Reg. 

007A: 

28 

D8 


JR 

Z,$0054 Taste war gedrückt-» 64er-Modus 

007C: 

21 

B4 

OF 

LD 

HL,$0FB4 

Es werden nun die Register 

007F: 

01 

OA 

D5 

LD 

BC,$D50A 

der MMU mit den Werten ab 

0082: 

16 

OB 


LD 

D,$OB 

$0FAA belegt 

0084: 

7E 



LD 

A,(HL) 

Es ist zu beachten, daß alle 

0085: 

ED 

79 


OUT 

<C),A 

11 Register der MMU 

0087: 

2B 



DEC 

HL 

von hinten mit den Werten 

0088: 

OD 



DEC 

C 

ab $0FB4 abwärts beschrieben 

0089: 

15 



DEC 

D 

werden! 

008A: 

20 

F8 


JR 

NZ,$0084 Ende der Schleife 

008C: 

21 

1 A 

OD 

LD 

HL,$0D1A 

Den Bereich von $0D1A 

008F: 

11 

00 

11 

LD 

DE,$1100 

nach $1100 kopieren 

0092: 

01 

08 

00 

LD 

BC,$0008 

Acht Bytes sind zu 

0095: 

ED 

BO 


LDIR 


kopieren (8502-Code!) 

0097: 

21 

E5 

OE 

LD 

HL,$0EE5 

Ebenfalls den Bereich 

009A: 

11 

DO 

FF 

LD 

DE,$FFDO 

von $0EE5 an nach Common 

009D: 

01 

1F 

00 

LD 

BC,$001F 

Area ab $FFD0 kopieren 

00A0: 

ED 

BO 


LDIR 


31 Bytes sind zu kopieren 

00A2: 

21 

00 

11 

LD 

HL,$1100 

$1100 als Sprungvektor 

00A5: 

22 

FA 

FF 

LD 

($FFFA),HL 

Sprungvektor in 

00A8: 

22 

FC 

FF 

LD 

($FFFC),HL 

alle vier Adressen 

OOAB: 

22 

FE 

FF 

LD 

($FFFE),HL 

kopieren, unter anderem 

OOAE: 

22 

DD 

FF 

LD 

($FFDD),HL 

auch an $FFDD (frisch kopiert!) 

00B1: 

C3 

EO 

FF 

JP 

$FFEO 

und Sprung in Z-80-Teil 


************************************ 


00B4: 

CD 

6D 

03 

CALL 

$036D 

Lade Blöcke 

O0B7: 

3A 

06 

3C 

LD 

A,($3C06) 

Hole Blockanzahl 

00BA: 

22 

18 

FD 

LD 

($FD18),HL 

Zieladresse des Ladeblockes 

00BD: 

11 

ED 

00 

LD 

DE,$00ED 


OOCO: 

F5 



PUSH 

AF 

Rette Blockanzahl 

00C1: 

CD 

D3 

00 

CALL 

$00D3 

Vergleiche (HL) mit (DE) 

00C4: 

CC 

FA 

02 

CALL 

Z,$02FA 

Wenn ok, dann Aufruf 

00C7: 

Fl 



POP 

AF 

hole Blockanzahl zurück 

00C8: 

2A 

18 

FD 

LD 

HL,($FD18) 

Ladeadresse holen 

OOCB: 

11 

20 

00 

LD 

DE,$0020 

32 als Offset 

OOCE: 

19 



ADD 

HL,DE 

hinzuaddieren 

OOCF: 

3D 



DEC 

A 

erniedrige ßlockzähler 

00D0: 

20 

E8 


JR 

NZ,$00BA 

noch nicht fertig, --> schleifen 

00D2: 

C9 



RET 


Ende der Unterroutine 
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************************************ Vergleiche (HL) mit (DE) 


00D3 

06 

OC 


LD 

B,$0C 

00D5 

EB 



EX 

DE,HL 

00D6 

1A 



LD 

A,(DE) 

00D7 

E6 

7F 


AND 

$7F 

OOD9 

BE 



CP 

(HL) 

OODA 

CO 



RET 

NZ 

OODB 

23 



INC 

HL 

OODC 

13 



INC 

DE 

OODD 

10 

F7 


DJNZ 

$00D6 

OODF 

3A 

06 

3C 

LD 

A,($3C06) 

00E2 

FE 

40 


CP 

$40 

00E4 

1A 



LD 

A,(DE) 

00E5 

20 

01 


JR 

NZ,$00E8 

00E7 

1F 



RRA 


00E8 

32 

35 

3C 

LD 

($3C35),A 

OOEB 

AF 



XOR 

A 

OOEC 

C9 



RET 



12 Bytes sind zu vergleichen 

Austausch beider Vergl.register 

Hole ersten Uert in Akku 

und lösche irrelevantes 8. Bit 

vergleich mit (HL) durchführen 

und bei Unterschied abbrechen 

sonst beide Adressen 

eins hochzählen 

und weiterschleifen 

Hole Blockanzahl 

64 Blocks zu laden? 

Hole Blockanzahl aus Tabelle 
$3C06 ist kleiner als 64 
sonst verdoppele Akku 
und merken 

Akku und Flags löschen 
Ende der Routine 


************************************ Text 


OOED 

00 


NOP 



OOEE 

43 

50 4D 

2B 20 20 2C 

20 

"CPM+ " 

00F6 

53 

59 53 

00 


"SYS" <Ende> 

************************************ 

Vergleich HL mit DE 

OOFA 

7C 


LD 

A, H 

Hi-Byte von HL 

OOFB 

BA 


CP 

D 

vergleiche mit D 

OOFC 

CO 


RET 

NZ 

und Ende, wenn ungleich 

OOFD 

7D 


LD 

A,L 

sonst vergleiche auch noch 

OOFE 

BB 


CP 

E 

die Lo-Bytes von HL und DE 

OOFF 

C9 


RET 


und Rückkehr mit Flags 

************************************ 

Sprung-Tabelle für RST 28 

0100 

84 

06 

.Word 

$0684 

64 Einsprungadressen 

0102 

6E 

09 

.Word 

$096E 


0104 

AB 

06 

.Word 

$06AB 


0106 

BC 

09 

.Word 

$09BC 


0108 

C2 

06 

.Word 

$06C2 


010A 

DD 

09 

.Word 

$09DD 


010C 

Dl 

06 

.Word 

$0601 


010E 

Fl 

09 

.Word 

$09 Fl 


0110 

DD 

06 

.Word 

$06DD 








740 


128 Intern 


0112: 

31 

OA 

.Word 

o 

> 

0114: 

E8 

06 

.Word 

S06E8 

0116: 

3C 

OA 

.Uord 

$0A3C 

0118: 

Fl 

06 

.Word 

$06F1 

011A: 

45 

OA 

.Word 

$0A45 

01 IC: 

7A 

07 

.Word 

$077A 

01 IE: 

48 

OA 

.Word 

$0A48 

0120: 

80 

07 

.Word 

$0780 

0122: 

62 

OA 

.Word 

$0A62 

0124: 

91 

07 

.Uord 

$0791 

0126: 

8E 

OA 

.Uord 

$0A8E 

0128: 

CA 

07 

.Word 

$07CA 

012A: 

BA 

OA 

.Word 

$0ABA 

012C: 

DC 

07 

.Uord 

$07DC 

012E: 

DF 

OA 

.Word 

$0ADF 

0130: 

IE 

08 

.Word 

$081E 

0132: 

2D 

OB 

.Uord 

$0B2D 

0134: 

1B 

07 

.Uord 

$071B 

0136: 

7B 

OB 

.Uord 

$0B7B 

0138: 

10 

07 

.Word 

$0710 

013A: 

62 

OB 

.Word 

$0B62 

013C: 

IC 

09 

.Uord 

$091C 

013E: 

95 

09 

.Uord 

$0995 

0140: 

27 

09 

.Uord 

$0927 

0142: 

A2 

09 

.Word 

$09A2 

0144: 

4E 

07 

.Word 

$074E 

0146: 

AE 

OB 

.Uord 

$0BAE 

0148: 

EB 

00 

.Word 

$O0EB 

OHA: 

EB 

00 

.Uord 

$O0EB 

014C: 

EB 

00 

.Uord 

$00EB 

OHE: 

EB 

00 

• Uord 

$O0EB 

0150: 

E3 

03 

.Uord 

$03E3 

0152: 

6B 

04 

.Uord 

$0468 

0154: 

FA 

OC 

• Word 

$0CFA 

0156: 

EB 

00 

.Uord 

$00EB 

0158: 

EB 

00 

.Uord 

$O0EB 

015A: 

EB 

00 

.Uord 

$00EB 

015C: 

EB 

00 

.Uord 

$00EB 

015E: 

EB 

00 

.Uord 

$00EB 

0160: 

3C 

OC 

.Word 

$0C3C 

0162: 

4A 

OC 

.Uord 

$0C4A 

0164: 

CF 

OB 

.Uord 

$0BCF 

0166: 

OC 

OC 

.Uord 

$0C0C 

0168: 

26 

05 

.Uord 

$0526 

016A: 

32 

05 

.Word 

$0532 

016C: 

2C 

05 

.Word 

$052C 

016E: 

EB 

00 

.Word 

$00EB 

0170: 

7F 

OC 

.Word 

$0C7F 
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0172 

C2 

oc 

.Word 

$0CC2 

0174 

C7 

oc 

.Uord 

$0CC7 

0176 

E4 

oc 

.Uord 

V» 

O 

n 

m 

0178 

EB 

00 

.Word 

ca 

LU 

O 

O 

017A 

3D 

08 

.Word 

$083D 

017C 

AE 

08 

.Word 

$08AE 

017E 

60 

06 

.Word 

$0660 

0780 

C3 

0A 

.Word 

$0AC3 

0182 

09 


ADD 

HL,BC 

0183 

C3 

33 09 

JP 

$0933 


Addiere BC als Offset 

Hole A:Attribut, BrZeichen an 

(HL) in VOC 


************************************ ^ 3ls Updateadresse im VDC 

0186: C3 53 09 JP $0953 HL als Updateadresse im VDC 

************************************ VDC-Status abwarten und Register 

<Akku> anwählen 


0189: C3 45 09 JP $0945 VDC-Status abwarten und <Akku> 

anwählen 


************************************ rst 8 Contn'd 


018C: 

32 

00 

FF 

LD 

($FF00),A 

018F: 

21 

00 

30 

LD 

HL,$3000 

0192: 

11 

01 

30 

LD 

DE,$3001 

0195: 

01 

FF 

CE 

LD 

BC,$CEFF 

0198: 

75 



LD 

(HL),L 

0199: 

ED 

B0 


LDIR 


019B: 

21 

22 

0D 

LD 

HL,$0022 

019E: 

11 

00 

30 

LD 

DE,$3000 

01A1: 

01 

C3 

01 

LD 

BC,$01C3 

01 A4: 

ED 

B0 


LDIR 


01A6: 

21 

E5 

0E 

LD 

HL,$0EE5 

01A9: 

11 

DO 

FF 

LD 

DE,$FFD0 

01AC: 

01 

1F 

00 

LD 

BC,$001F 

01AF: 

ED 

B0 


LDIR 


01B1: 

3E 

C9 


LD 

A,$C9 

01B3: 

32 

EE 

FF 

LD 

($FFEE),A 

01B6: 

CD 

E0 

FF 

CALL 

$FFE0 

01B9: 

21 

B4 

0F 

LD 

HL,$0FB4 

01BC: 

01 

0A 

D5 

LD 

BC,$D50A 

01 BF: 

16 

OB 


LD 

D,$0B 

01 CI: 

7E 



LD 

A,(HL) 

01C2: 

ED 

79 


OUT 

(C), A 

01C4: 

2B 



DEC 

HL 


Akku ins Konfigurationsbyte 
Es wird der Bereich 
$3000 bis $FEFF 
mit dem Wert $00 
gefüllt 

Der Bereich ab $0022 
wird nach $3000 kopiert 
Es handelt sich hierbei um 
8502-Code! 

Bereich ab 

$0EE5 in Common Area 

ab $FFD0 kopieren 

31 Bytes 

Code für RETurn 

RST 8 durch RET ersetzen 

8502 einschalten - weitermachen 

Die MMU-Register 

werden mit der Tabelle 

ab $0FAA gefülIt. 

s.o. 

s.o. 

s.o. 
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01C5: 

0D 




DEC 

C 

01C6: 

15 




DEC 

D 

01C7: 

20 

F8 



JR 

NZ,$01C1 

01C9: 

21 

00 

10 


LD 

HL,$1000 

01CC: 

11 

01 

10 


LD 

DE,$1001 

01 CF: 

01 

FF 

1F 


LD 

BC,$1 FFF 

01D2: 

75 




LD 

(HL),L 

01D3: 

ED 

B0 



LDIR 


01D5: 

3E 

1A 



LD 

A,$1A 

01D7: 

CD 

45 

09 


CALL 

$0945 

01DA: 

3E 

90 



LD 

A,$90 

01DC: 

ED 

79 



OUT 

(C), A 

01DE: 

3E 

83 



LD 

A,$83 

01E0: 

32 

15 

24 


LD 

($2415),A 

01E3: 

3E 

0E 



LD 

A,$0E 

01E5: 

32 

0D 

24 


LD 

($240D),A 

01E8: 

CD 

BD 

05 


CALL 

$05BD 

01EB: 

3E 

19 



LD 

A,$19 

01ED: 

32 

08 

24 


LD 

($2408),A 

01F0: 

CD 

26 

05 


CALL 

$0526 

01F3: 

FF 




.Byte 

$FF 

01F4: 

81 

0A 



.Byte $81,$0A 

01F5: 

42 

4F 

4F 

54 

49 4E 47 20 

01 FD: 

43 

50 

2F 

4D 

20 50 4C 55 

0205: 

53 

00 







01 

18 

DO 

LD 

BC,$D018 


3E 

B6 


LD 

A,$B6 

020D 

ED 

79 


OUT 

(C), A 


CD 

D2 

02 

CALL 

$02D2 

0212 

C2 

FF 

04 

JP 

NZ,$04FF 

0215 

21 

B2 

0F 

LD 

HL,$0FB2 


22 

02 

3C 

LD 

($3C02),HL 

021B 

CD 

B4 

00 

CALL 

$00B4 


CD 

B4 

00 

CALL 

$0084 

0221 

2A 

09 

3C 

LD 

HL,($3C09) 


7C 



LD 

A,H 


B5 



OR 

L 


CA 

FF 

04 

JP 

Z,$04FF 


21 

09 

3C 

LD 

HL,$3C09 


22 

02 

3C 

LD 

($3C02),HL 


CD 

6D 

03 

CALL 

$036D 


21 

00 

34 

LD 

HL,$3400 


11 

29 

3C 

LD 

DE,$3C29 


01 

OC 

00 

LD 

BC,$000C 


ED 

B0 


LDIR 



s.o> 

s.o. 

Ende der Schleife 
Den Bereich 
$1000 bis $2FFF 
mit dem Wert $00 
füllen 
s.o. 

Register 26 (Farben) des VDC 
anwählen und dann Vorder/ 
Hintergrundfarben 
VDC auf $90 (Hellroter Cursor) 
Hellblau & Alternate-Zeichensatz 
als Attribut definieren (VDC) 
Zeichenfarbe für VIC-Chip 
definieren 

Präpariere VDC-Zeichensatz 
Der Bildschirm wird mit 24 
Zeilen definiert (DEVICE) 
Nachfolgenden Text ausgeben 
Bildschirm löschen ($FF) 

Zeile 1, Spalte 10 

BOOT ING 
CP/M PL 
US<Ende> 


Basisadresse von Video-RAM 
B->10-13 Video-RAM, 6->11 -13 
CHARROM; Videoram ab $2C00 
Bootsektor checken und holen 
evtl. Fehler ausgeben 
Tabellenanfang 
in $3C02 merken 
Ersten Teil laden 
Zweiten Teil laden 
Hole Wert 

Setzen des Zeroflags 

wenn 16-Bit-Uert null ist 

und Sprung, falls ja 

Neuer Tabellenanfang 

merken 

Daten laden 

12 Bytes 

von $3400 

nach $3C29 

kopieren 
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023D 

CD 

26 

05 


CALL 

$0526 

Leerzeile ausgeben 

0240 

8A 




• Byte 

$8A,$00,$00 

Zeile 10, Spalte 0 und <Ende> 

0243 

21 

80 

34 


LD 

HL,$3480 

Zeiger auf Ausgabetext 

0246 

CD 

34 

05 


CALL 

$0534 

und Text ab (HL) ausgeben 

0249 

21 

00 

35 


LD 

HL,$3500 

Zeiger $3500 

024C 

22 

04 

3C 


LD 

($3C04),HL 

merken 

024F 

CD 

26 

05 


CALL 

$0526 

Nachfolgenden Text ausgeben 

0252 

83 




.Byte $83,$0C 

Zeile 3, Spalte 12 

0254 

44 

41 

54 

41 

20 54 41 

42 

DATA TAB 

025C 

4C 

45 

53 

00 



LES<Ende> 

0260 

2A 

33 

3C 


LD 

HL,($3C33) 

Nacheinander CP/M-Segmente 

0263 

22 

09 

FD 


LD 

($FD09),HL 

in den Arbeitsspeicher 

0266 

21 

32 

3C 


LD 

HL,$3C32 

einladen 

0269 

CD 

31 

03 


CALL 

$0331 

Hole Blockzahl und Startadresse 

026C 

22 

OB 

FD 


LD 

($FDOB),HL 

Startadresse merken 

026F 

CD 

44 

03 


CALL 

$0344 


0272 

11 

80 

00 


LD 

DE,$0080 

Recordoffset (CP/M-Intern) 

0275 

19 




ADD 

HL,DE 

von 128 addieren 

0276 

20 

F7 



JR 

NZ,$026F 

Wenn nicht fertig, dann nochmal 

0278 

CD 

26 

05 


CALL 

$0526 

Nachfolgenden Text ausgeben 

027B 

84 

OC 



.Byte 

$84,$0C 

Zeile 4, Spalte 12 

027D 

43 

4F 

4D 

4D 

4F 4E 20 43 

COMMON C 

0285 

4F 

44 

45 

00 



ODE<Ende> 

0289 

21 

2A 

3C 


LD 

HL,$3C2A 

Basisadresse für Tabelle 

028C 

CD 

24 

03 


CALL 

$0324 

und Common Code einladen 

028F 

CD 

26 

05 


CALL 

$0526 

Nachfolgenden Text ausgeben 

0292 

85 

OC 



.Byte 

$85,$0C 

Zeile 5, Spalte 12 

0294 

42 

41 

4E 

4B 

45 44 20 43 

BANKED C 

029C 

4F 

44 

45 

00 



ODE<Ende> 

02A0 

21 

2C 

3C 


LD 

HL,$3C2C 

Basisadresse für Tabelle 

02A3 

CD 

24 

03 


CALL 

$0324 

und Banked Code einladen 

02A6 

CD 

26 

05 


CALL 

$0526 

Nachfolgenden Text ausgeben 

02A9 

86 

OC 



■ Byte 

$86,$0C 

Zeile 6, Spalte 12 

02AB 

42 

49 

4F 

53 

38 35 30 32 

BIOS8502 

02B3 

20 

43 

4F 

44 

45 00 


CODE<Ende> 

02B9 

21 

30 

3C 


LD 

HL,$3C30 

Basisadresse für Tabelle 

02BC 

CD 

24 

03 


CALL 

$0324 

und BIOS8502 Daten laden 

02BF 

3A 

30 

3C 


LD 

A,($3C30) 


02C2 

47 




LD 

B, A 


02C3 

3A 

2F 

3C 


LD 

A,($3C2F) 
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02C6 

90 



SUB 

B 

02C7 

32 

DE 

FF 

LD 

($FFDE),A 

02CA 

AF 



XOR 

A 

02CB 

32 

DD 

FF 

LD 

($FFDD),A 

02CE 

2A 

2D 

3C 

LD 

HL,(S3C2D) 

02D1 

E9 



JP 

(HL) 


************************************ 


02D2 

21 

00 

FE 

LD 

HL,$FE00 

02D5 

22 

18 

FD 

LD 

($FD18),HL 

02D8 

AF 



XOR 

A 

0209 

32 

04 

FD 

LD 

($FD04),A 

02DC 

3C 



INC 

A 

02DD 

32 

03 

FD 

LD 

($FD03),A 

02E0 

CD 

4F 

04 

CALL 

$044 F 

02E3 

CD 

6B 

04 

CALL 

$046B 

02E6 

CO 



RET 

NZ 

02E7 

3C 



INC 

A 

02E8 

21 

00 

38 

LD 

HL,$3800 

02EB 

3E 

2U 


LD 

A,$20 

02ED 

20 

03 


JR 

NZ,$02F2 

02EF 

26 

3C 


LD 

H,$3C 

02F1 

87 



ADD 

A, A 

02F2 

22 

07 

3C 

LD 

($3C07),HL 

02F5 

32 

06 

3C 

LD 

($3C06),A 

02F8 

AF 



XOR 

A 

02F9 

C9 



RET 



************************************ 


02FA 

11 

09 

3C 

LD 

DE,$3C09 

02FD 

3A 

35 

3C 

LD 

A,($3C35) 

0300 

B7 



OR 

A 

0301 

28 

07 


JR 

Z,$030A 

0303 

11 

19 

3C 

LD 

DE,$3C19 

0306 

3D 



DEC 

A 

0307 

C2 

80 

04 

JP 

NZ,$0480 

030A 

2A 

18 

FD 

LD 

HL,($FD18) 

0300 

01 

10 

00 

LD 

BC,$0010 

0310 

09 



ADD 

HL,BC 

0311 

ED 

B0 


LDIR 


0313 

3A 

09 

3C 

LD 

A,($3C09) 

0316 

B7 



OR 

A 

0317 

C8 



RET 

Z 

0318 

2A 

18 

3C 

LD 

HL,($3C18) 

031B 

AF 



XOR 

A 


Differenz bilden 
Differenz als Hi-Byte 
Akku löschen (=0) 
als Lo-Byte merken 
Sprungadresse für CP/M-Einsprung 
holen und anspringen 

ies ab Spur 1/Sektor 0 

Ladeadresse für ersten zu 

ladenden Block merken 

Akku löschen 

Sektor#=0 

Akku=1 

Spur definieren 

Lies Spur/Sektor 

Gelesen? Test auf Bootsektor 

Kein Bootsektor 

Letztes Zeichen des Blockes+1 

Startadresse 

32 als Blockzähler 

Wenn Akku vor INC<>$FF, Sprung 

sonst Hi-Byte auf $3C ändern 

Blockzahl * 2 (Recordanzahl) 

Merke Ladeadresse 

Merke Blockzahl 

Akku und Flags (Wichtig) löschen 
und Ende der Routine 


Zieladresse für Kopie 

Flag holen 

Setze Flags 

Flag ist nicht gesetzt 

sonst Startadresse +16 

und Flag (Zähler) erniedrigen 

und Fehler ausgeben 

Hole Zieladresse 
16 als Inkrement 
addieren 

und 16 Bytes kopieren 
Zähler holen und 
Flags setzen 

Bei null ist alle Arbeit getan 

Sonst hole Adresse 

und vergleiche mit $0000 






Das Z-80-RQM 


745 


031C 

BD 



CP 

L 

Akku ist null 

031D 

28 

02 


JR 

Z,$0321 

Lo-Byte ist null 

031F 

BC 



CP 

H 

vergleiche mit Hi-Byte 

0320 

C8 



RET 

Z 

Hi-Byte ist null 

0321 

C3 

29 

02 

JP 

$0229 

Zeroflag als Parameter übergeben 

************************************ 

Lade Records von Floppy 

0324 

CO 

31 

03 

CALL 

$0331 

Hole Anzahl und Startadresse 

0327 

11 

80 

FF 

LD 

DE,$FF80 

128 als Zweierkomplement 

032A 

19 



ADD 

HL,DE 

addieren (abziehen!) 

032B 

CD 

44 

03 

CALL 

$0344 

Record laden 

032E 

20 

F7 


JR 

NZ,$0327 

noch ein Record 

0330 

C9 



RET 


sonst Ende der Routine 

************************************ 

Hole Anzahl und Startadresse 

0331 

5E 



LD 

E,(HL) 

Anzahl holen 

0332 

16 

00 


LD 

D,$00 

und Hi-Byte löschen 

0334 

7B 



LD 

A.E 

Testet Anzahl 

0335 

B7 



OR 

A 

auf null 

0336 

CA 

1B 

05 

JP 

Z,$051B 

BAD wenn null 

0339 

EB 



EX 

DE,HL 

sonst Anzahl nach HL 

033A 

29 



ADD 

HL,HL 

und verdoppeln (Recordanzahl) 

0338 

22 

00 

3C 

LD 

($3C00),HL 

in $3C00 merken 

033E 

EB 



EX 

DE, HL 

wieder nach DE 

033F 

2B 



DEC 

HL 

Tabellenzeiger erniedrigen 

0340 

66 



LD 

H,(HL) 

Hi-Byte holen 

0341 

2E 

00 


LD 

L ,$00 

und Lo-Byte löschen 

0343 

C9 



RET 


Ende der Routine 

************************************ 

Record laden und Zähler erniedrigen 

0344 

E5 



PUSH 

HL 

Auf Stack retten 

0345 

2A 

07 

3C 

LD 

HL,($3C07) 

Hole erste Vergleichsadresse 

0348 

EB 



EX 

DE, HL 

und in DE merken 

0349 

2A 

04 

3C 

LD 

HL,($3C04) 

Zweite Vergleichsadresse holen 

034C 

CD 

FA 

00 

CALL 

$OOFA 

Vergleiche (HL) mit (DE) 

034F 

CC 

6D 

03 

CALL 

Z,$036D 

und Sprung, wenn gleich 

0352 

EB 



EX 

DE,HL 

sonst Register austauschen 

0353 

21 

80 

00 

LD 

HL,$0080 

Record-Offset von 128 

0356 

19 



ADD 

HL,DE 

hinzuaddieren 

0357 

22 

04 

3C 

LD 

($3C04),HL 

und wieder merken 

035A 

El 



POP 

HL 

Adresse zurückholen 

035B 

E5 



PUSH 

HL 

und erneut auf Stack sichern 

035C 

EB 



EX 

DE,HL 

Ziel und Quelle vertauschen 

035D 

01 

80 

00 

LD 

BC,$0080 

und 128 Bytes kopieren 

0360 

ED 

BO 


LDIR 


(1 Record) 
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0362 

2A 

00 

3C 

LD 

HL,(S3C00) 

0365 

2B 



DEC 

HL 

0366 

22 

00 

3C 

LD 

($3C00),HL 

0369 

7D 



LD 

A,L 

036A 

B4 



OR 

H 

036B 

El 



POP 

HL 

036C 

C9 



RET 



Hole Recordzähler 

um eins erniedrigen 

und wieder abspeichern 

Teste, ob Recordanzahl 

gleich null ist und setze Flags 

Adresse zurückholen 

und Routine beenden 


************************************ gaten ab $3400 + Offset laden 


036D: 

21 

00 

34 

LD 

HL,$3400 

0370: 

22 

18 

FD 

LD 

($FD18),HL 

0373: 

E5 



PUSH 

HL 

0374: 

2A 

02 

3C 

LD 

HL,($3C02) 

0377: 

16 

00 


LD 

D,$00 

0379: 

5E 



LD 

E,(HL) 

037A: 

23 



INC 

HL 

037B: 

22 

02 

3C 

LD 

($3C02),HL 

037E: 

EB 



EX 

DE,HL 

037F: 

29 



ADD 

HL,HL 

0380: 

29 



ADD 

HL,HL 

0381: 

3A 

06 

3C 

LD 

A,($3C06) 

0384: 

0F 



RRCA 


0385: 

0F 



RRCA 


0386: 

0F 



RRCA 


0387: 

FE 

04 


CP 

$04 

0389: 

28 

01 


JR 

Z,$038C 

038B: 

29 



ADD 

HL,HL 

038C: 

22 

16 

FD 

LD 

($FD16),HL 

038F: 

3D 



DEC 

A 

0390: 

32 

05 

FD 

LD 

($FD05),A 

0393: 

F5 



PUSH 

AF 

0394: 

3E 

01 


LD 

A, $01 

0396: 

32 

BD 

31 

LD 

($31BD),A 

0399: 

CD 

l 3 

03 

CALL 

$03E3 

039C: 

2A 

16 

FD 

LD 

HL,($FD16) 

039F: 

23 



INC 

HL 

03A0: 

22 

16 

FD 

LD 

($FD16),HL 

03A3: 

Fl 



POP 

AF 

03A4: 

28 

2A 


JR 

Z,$03D0 

03A6: 

3A 

08 

FD 

LD 

A,($FD08) 

03A9: 

A7 



AND 

A 

03AA: 

28 

24 


JR 

Z,$03D0 

03AC: 

2A 

03 

FD 

LD 

HL,($FD03) 

03 AF: 

E5 



PUSH 

HL 

03B0: 

CD 

E3 

03 

CALL 

$03E3 

03B3: 

El 



POP 

HL 

03B4: 

3A 

03 

FD 

LD 

A,($FD03) 


Ladeadresse (Basis) 
für 8502-Code merken 
und auf Stack sichern 
Zeiger auf Blockladetabelle 
Hi-Byte löschen 
und Lo-Byte aus Tabelle holen 
Zeiger auf Tabelle erhöhen 
und wieder merken 
Anzahl Blocks nach HL 
und verdoppeln -> Recordanzahl 
nochmal verdoppeln 
Hole Blockanzahl 
/2 
/4 
/8 

Ist Blockzahl 32 - 63?? 

Ja, dann Sprung 
sonst verdopple HL erneut 
uns als Blocknummer merken 
erniedrige Blockanzahl 
und ebenfalls merken 
Rette Anzahl auf Stack 
Anzahl zu ladenden Datenblöcke 
auf 1 setzen 

Mache aus Block# -> Track/Sektor 

Hole Blocknummer 

um eins erhöhen und 

wieder ablegen 

Hole Zähler und Flags 

Wenn Ende, dann Sprung 

Sonst hole Fehlerflag 

und setze Flags 

keine Fehler 

Track/Sektor holen 

und auf Stack sichern 

Block# in Track/Sector wandeln 

errechneten Track/Sektor holen 

Hole Spur# 
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03B7 

BD 



CP 

L 

vergleiche mit errechneter Spur 

03B8 

20 

13 


JR 

NZ,$03CD 

ist leider ungleich 

03BA 

E5 



PUSH 

HL 

Rette Track/Sektor 

03BB 

2A 

16 

FD 

LD 

HL,($FD16) 

Hole Block# 

03BE 

23 



INC 

HL 

und erhöhe Blocknummer 

03BF 

22 

16 

FD 

LD 

($FD16),HL 

Neue Blocknummer merken 

03C2 

21 

BD 

31 

LD 

HL,$31BD 

Zeiger auf zu ladende Blockzahl 

03C5 

34 



INC 

(HL) 

und ebenfalls erhöhen 

03C6 

21 

05 

FD 

LD 

HL,$FD05 

noch zu ladende Blockzahl 

03C9 

35 



DEC 

(HL) 

um eins erhöhen (Korrektur) 

03CA 

20 

E4 


JR 

NZ,$03B0 

noch wenigstens ein Block 

03CC 

El 



POP 

HL 

Hole Track/Sektor von Stack 

03CD 

22 

03 

FD 

LD 

($FD03),HL 

Merke Track/Sektor 


*********************************** fehler eufgetreten 


03DO 

CD 

4F 

04 

CALL 

$044F 

Lies Block/Blöcke von Diskette 

03D3 

21 

19 

FD 

LD 

HL,$FD19 

Hi-Byte Zieladresse 

03D6 

3A 

BD 

31 

LD 

A,($31BD) 

Hole Anzahl zu ladender Blöcke 

03D9 

86 



ADD 

A, (HL) 

zur Zieladresse hinzuaddieren 

03DA 

77 



LD 

(HL),A 

und merken 

03DB 

3A 

05 

FD 

LD 

A,($FD05) 

Hole Anzahl zu ladender Blöcke 

03DE 

A7 



AND 

A 

Flags setzen 

03DF 

20 

AE 


JR 

NZ,$038F 

weitermachen, wenn nicht Ende 

03E1 

El 



POP 

HL 

sonst hole Track/Sektor 

03E2 

C9 



RET 


und Ende der Routine 


************************************ ^ us Block# Track/Sektor machen 


03E3 

3E 

23 


LD 

A,$23 

Offset 35 für 1571 (2. Seite) 

03E5 

32 

00 

24 

LD 

($2400),A 

und Offset merken 

03E8 

2A 

16 

FD 

LD 

HL,($FD16) 

Hole Block# 

03EB 

11 

A8 

02 

LD 

DE,$02A8 

ab Blocknummer $2A8 -> 2.Seite 
adressieren 

03EE 

B7 



OR 

A 

Carry für Subtraktion löschen 

03EF 

ED 

52 


SBC 

HL,DE 

abs. Blocknummer auf 2. Seite 

03F1 

30 

05 


JR 

NC,$03F8 

durch Subtraktion ermitteln. 
Sprung bei 1. Seite 

03F3 

AF 



XOR 

A 

Offset löschen 

03F4 

32 

00 

24 

LD 

($2400),A 

und speichern 

03F7 

19 



ADD 

HL,DE 

Korrektur zur Subtraktion 

03F8 

23 



INC 

HL 

Block# + 2, da 1./2. Block 

03F9 

23 



INC 

HL 

für Directory reserviert sind 

03FA 

11 

65 

01 

LD 

DE,$0165 

(357) Blocknummer ab Spur 19 

03FD 

01 

00 

15 

LD 

BC,$1500 

Spur 0- hat 21 Sektoren/Spur 

0400 

B7 



OR 

A 

Carry für Subtraktion löschen 

0401 

ED 

52 


SBC 

HL,DE 

Kontrolle auf 21 Sektoren/Spur 

0403 

38 

1B 


JR 

C,$0420 

Block im 21-Sektoren-Bereich 
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0405 

23 



INC 

HL 

0406 

11 

85 

00 

LD 

DE,$0085 

0409 

01 

11 

13 

LD 

BC,$1311 

040C 

ED 

52 


SBC 

HL,DE 

040E 

38 

10 


JR 

C,$0420 

0410 

11 

6C 

00 

LD 

DE,$006C 

0413 

01 

18 

12 

LD 

BC,$1218 

0416 

ED 

52 


SBC 

HL,DE 

0418 

38 

06 


JR 

C,$0420 

041A 

11 

00 

00 

LD 

DE,$0000 

041D 

01 

IE 

11 

LD 

BC,$111E 

0420 

19 



ADD 

HL,DE 

0421 

16 

00 


LD 

D,$00 

0423 

58 



LD 

E,B 

0424 

B7 



OR 

A 

0425 

OC 



INC 

C 

0426 

ED 

52 


S8C 

HL,DE 

0428 

30 

FB 


JR 

NC,$0425 

042A 

19 



ADD 

HL,DE 

042B 

3A 

00 

24 

LD 

A,($2400) 

042E 

81 



ADD 

A, C 

042F 

32 

03 

FD 

LD 

($FD03),A 

0432 

E5 



PUSH 

HL 

0433 

21 

B5 

0F 

LD 

HL,$0FB5 

0436 

01 

15 

00 

LD 

BC,$0015 

0439 

7B 



LD 

A,E 

043A 

B9 



CP 

C 

043B 

28 

0A 


JR 

Z,$0447 

043D 

09 



ADD 

HL , BC 

043E 

OB 



DEC 

BC 

043F 

OB 



DEC 

BC 

0440 

B9 



CP 

C 

0441 

28 

04 


JR 

Z,$0447 

0443 

09 



ADD 

HL ,BC 

0444 

OB 



DEC 

BC 

0445 

18 

F9 


JR 

$0440 

0447 

CI 



POP 

BC 

0448 

09 



ADD 

HL,BC 

0449 

7E 



LD 

A,(HL) 

044A 

32 

04 

FD 

LD 

($FD04), A 

044D 

3C 



INC 

A 

044E 

C9 



RET 



+1 zur Fehlerkorrektur 
nächsten 133 Blöcke haben 

17 Sektoren pro Spur 
Teste, ob Block in Bereich 
Jawohl, dann Ende der Testreihe 
Nächsten Spuren haben 

18 Sektoren/Spur (ab Spur $18) 
Teste, ob Block in Bereich 

Ja, dann Ende der Testreihe 
Korrekturfaktor auf null 
ab Spur 30 -> 17 Sektoren 
Korrektur der Subtraktion 
Hi-Byte von DE löschen 
Sektor nach E 
Carry löschen 
Spur erhöhen 

Sektoren pro Spur subtrahieren 

und evtl, weiterschleifen 

Fehlerkorrektur 

Hole Offset für Seite 0/1 

addiere Offset zur Spur 

Merke errechnete Spur 

Rette Sektor# auf Stack 

Tabelle für angepaBte 

Sektornummern 

zur Zugriffsoptimierung 

Hole Sektornumner 

und vergleiche mit Maximalwert 

Ist 21, dann Ende 

addiere Offs, für Tabellenzeiger 

Nächster Bereich hat 2 Sektoren 

weniger pro Spur 

Ist Maximalwert nun erreicht? 

Ja, dann Ende 

addiere Offs, für Folgebereich 

Folgebereich hat einen Sektor 

weniger und weiterversuchen 

Hole Sektor# von Stack 

und Basis hinzuaddieren 

Hole angepaßte Sektornummer 

und merken 

Flags löschen und 

Ende der Blockberechnung 


************************************ Lesen von Floppy 

044F: 3E 03 LD A,$03 Anzahl der Leseversuch auf 

0451: 32 36 3C LD ($3C36),A Floppy setzen 
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0454: 

3E 

01 


LD 

A,$01 

0456: 

32 

01 

FD 

LD 

($FD01),A 

0459: 

CD 

8C 

05 

CALL 

S058C 

045C: 

CD 

E0 

FF 

CALL 

$FFE0 

045 F: 

3E 

3F 


LD 

A,$3F 

0461: 

32 

00 

FF 

LD 

($FF00),A 

0464: 

3A 

06 

FD 

LD 

A,(IFD06) 

0467: 

B7 



OR 

A 

0468: 

20 

32 


JR 

NZ.S049C 

046A: 

C9 



RET 



Flag für Vektor setzen aus 

(werden nicht nochmal gesetzt) 

Block (Track/Sektor) auf 

Bildschirm anzeigen 

8502 einschalten 

Konfigurationsbyte RAM Bank 0 

einschalten 

Hole Lesefehlerflag 

und teste es auf Lesefehler 

Lesefehler aufgetreten 

Sonst Ende der Routine 


★★***★**★★★*★★★*★******★★*★*★★★★★*★* festet geladenen Block auf 

Bootsektor 


046B 

21 

00 FE 

LD 

HL,$FE00 

046E 

7E 


LD 

A, (HL) 

046F 

FE 

43 

CP 

$43 

0471 

CO 


RET 

NZ 

0472 

2C 


INC 

L 

0473 

7E 


LD 

A, (HL) 

0474 

FE 

42 

CP 

$42 

0476 

CO 


RET 

NZ 

0477 

2C 


INC 

L 

0478 

7E 


LD 

A, (HL) 

0479 

FE 

4D 

CP 

$4D 

047B 

CO 


RET 

NZ 

04 7C 

2E 

FF 

LD 

L,$FF 

04 7E 

7E 


LD 

A, (HL) 

047F 

C9 


RET 



************************************ 


0480: 

CD 

26 

05 


CALL 

$0526 

0483: 

93 

05 



.Byte $93,$05 

0485: 

33 

32 

4B 

20 

4D 41 

58 20 

048D: 

43 

50 

4D 

2B 

2E 53 

59 53 

0495: 

20 

53 

49 

5A 

45 00 


049B: 

CF 




RST 

$08 

049C: 

3C 




INC 

A 

049D: 

28 

FC 



JR 

Z,$049B 

049F: 

3A 

36 

3C 


LD 

A,($3C36) 

04A2: 

3D 




DEC 

A 

04A3: 

32 

36 

3C 


LD 

($3C36),A 

04A6: 

20 

AC 



JR 

NZ,$0454 


Startadresse geladener Block 
Hole erstes Zeichen 
ist es "C"? 

Nein, dann kein Bootsektor 
nächstes Zeichen 
holen und 

auf "B" vergleichen 
Nicht, dann Ende 
drittes Zeichen wird über¬ 
prüft, 
auf "M M 

Nein, kein Bootsektor 
Zeiger auf letztes Zeichen 
Hole dieses Zeichen 
und Ende der Routine 

Fehler aufgetreten 

Nachfolgenden Text ausgeben 
Zei le 19, Spalte 5 

32K MA: 

CPM+.SYS 

SlZE<Ende> 

Bootvorgang wiederholen 

Test auf Akku=SFF 

Bei &FF ebenfalls Neu-Booting 

Sonst holde den Lesezähler 

und um eins erniedrigen 

wieder ablegen 

Nochmal versuchen 
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04A8 

CD 

26 

05 


CALL $0526 

04AB 

93 

05 



.Byte $93,$05 

04 AD 

52 

45 

41 

44 

20 45 52 

04B4 

52 

4F 

52 

00 


04B8 

CD 

26 

05 


CALL $0526 

04BB 

20 

2D 

20 

48 

49 54 20 52 

04C5 

45 

54 

55 

52 

4E 20 54 4F 

04CD 

20 

52 

45 

54 

52 59 

04D1 

94 

0F 



.Byte $94,$0F 

04D3 

44 

45 

4C 

20 

54 4F 20 45 

04DB 

4E 

54 

45 

52 

20 43 31 32 

04E3 

38 

20 

4D 

4F 

44 45 00 

04EA 

01 

00 

DC 


LD BC,$DC00 

04ED 

3E 

FE 



LD A,$FE 

04EF 

ED 

79 



OUT (C),A 

04F1 

OC 




INC C 

04F2 

ED 

78 



IN A,(C) 

04 F4 

E6 

02 



AND $02 

04 F6 

28 

A3 



JR Z,$049B 

04 F8 

ED 

78 



IN A,(C) 

04 FA 

E6 

01 



AND $01 

04 FC 

20 

EC 



JR NZ,$04EA 

04FE 

C7 




RST $00 

04 FF 

CD 

26 

05 


CALL $0526 

0502 

93 

05 



.Byte $93,$05 

0504 

4E 

4F 

00 



0507 

CD 

26 

05 


CALL $0526 

05 0A 

20 

43 



.Byte $20,$43 

050B 

43 

50 

4D 

2B 

2E 53 59 53 

0513 

20 

46 

49 4C 

45 00 

0519 

18 

9D 



JR $04B8 

051B 

CD 

26 

05 


CALL $0526 


Nachfolgenden Text ausgeben 
Zeile 19, Spalte 5 

READ ER 
R0R<Ende> 

Nachfolgenden Text ausgeben 

- HIT R 
ETURN TO 
RETRY 

Zeile $14,$0F 

DEL TO E 
NTER C12 
8 M0DE<Ende> 

Port A CI Al 
(Tastaturdekodierung) 

DEL- und <CR>-Taste werden 

ausmaskiert 

und abgecheckt 

Zeiger auf Port B des CIA1 

Hole Ergebnis 

Bit für <CR> testen 

<CR> ist gedrückt -> Reboot 

Sonst hole Wert erneut 

Teste DEL-Bit 

Nicht gedrückt, weiterversuchen 
Sonst in den C-128-Modus 

Nachfolgenden Text ausgeben 
Zeile 19, Spalte 5 

N0<Ende> 

Nachfolgenden Text ausgeben 
$20=Ab Cursorposition 

CPM+.SYS 

FILE<Ende> 

Neuer Versuch oder 128er-Modus 
Nachfolgenden Text ausgeben 
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051E 

93 



.Byte 

$93,$05 

0520 

42 

41 

•r* 

o 

o 



0524 

18 

El 


JR 

$0507 

************************************ 

0526 

E3 



EX 

(SP),HL 

0527 

CD 

34 

05 

CALL 

$0534 

05 2A 

E3 



EX 

(SP),HL 

052B 

C9 



RET 


************************************ 

052C 

21 

FF 

FF 

LD 

HL,$FFFF 

052F 

22 

04 

24 

LD 

($2404),HL 

0532 

D5 



PUSH 

DE 

0533 

El 



POP 

HL 

************************************ 

0534 

56 



LD 

D,(HL) 

0535 

23 



INC 

HL 

0536 

3A 

05 

24 

LD 

A,($2405) 

0539 

A7 



AND 

A 

053A 

28 

05 


JR 

Z,$0541 

053C 

AA 



XOR 

D 

053D 

32 

05 

24 

LD 

($2405),A 

0540 

57 



LD 

D,A 

0541 

7A 



LD 

A,D 

0542 

B7 



OR 

A 

0543 

C8 



RET 

Z 

0544 

FE 

24 


CP 

$24 

0546 

C8 



RET 

Z 

0547 

E5 



PUSH 

HL 

0548 

21 

33 

05 

LD 

HL,$0533 

054B 

E5 



PUSH 

HL 

054C 

FE 

0A 


CP 

$0A 

054E 

C8 



RET 

Z 

054F 

FE 

0D 


CP 

$0D 

0551 

20 

OB 


JR 

NZ,$055E 

0553 

CD 

45 

0A 

CALL 

$0A45 

0556 

CD 

Fl 

06 

CALL 

$06F1 

0559 

CD 

Fl 

09 

CALL 

$09F1 

055C 

DF 



RST 

$18 

055D 

OC 



.Byte 

$0C 


Zeile $13, Spalte $05 
BAD<Ende> 

Neuer Versuch oder 128er-Modus 

Nachfolgenden Text ausgeben 

Rücksprungadresse von Stack 
Text ab HL bis $00 ausgeben 
Ende des Textes als neue Rück- 
sprungadresse und RETurn 

Text ab DE ausgeben 

zeichenmaske für auszugebende 
Zeichen setzen 
Textadresse auf Stack 
und in HL einiesen 

Text ab HL ausgeben 

Hole Zeichen 

Erhöhe Zeiger auf Textstelle 
Maske holen 
Flags setzen 

Maske erlaubt alles, Ende 
Sonst mit Maske verknüpfen 
und zurückschreiben 
Zeichen nach D 

aktuelles Zeichen 
Flags setzen 
Null ist Endekennzeichen 
Dol larzeichen? 

Wenn ja, dann Ende 
Rette den aktuellen Zeiger 
Sprung von Adresse $0533 
simulieren 
Wenn Linefeed, dann 
Sprung an diese Adresse 
Ist Zeichen <CR>? 

Nein, dann nach $055E 
Spalte=0 - 40 Zeichen 
Spalte=0 - 80 Zeichen 
Zeilenzeiger erhöhen 
-> $0601 (Zeilenzeiger erhöhen) 
Sprungvektor 
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055E 

FE 

FF 


CP 

$FF 

0560 

20 

17 


JR 

NZ,$0579 

0562 

11 

00 

18 

LD 

DE,$1800 

0565 

CD 

85 

05 

CALL 

$0585 

0568 

CD 

48 

0A 

CALL 

$0A48 

056B 

CD 

7A 

07 

CALL 

$077A 

056E 

11 

00 

00 

LD 

DE,$0000 

0571 

CD 

OO 

V/l 

05 

CALL 

$0585 

0574 

CD 

62 

0A 

CALL 

$0A62 

0577 

DF 



RST 

$18 

0578 

20 



■ Byte 

$20 

0579 

E6 

80 


AND 

A,$80 

057B 

28 

39 


JR 

Z,$05B6 

05 7D 

CI 



POP 

BC 

057E 

El 



POP 

HL 

057F 

5E 



LD 

E, (HL) 

0580 

23 



INC 

HL 

0581 

E5 



PUSH 

HL 

0582 

C5 



PUSH 

BC 

0583 

CB 

BA 


RES 

7,0 

0585 

D5 



PUSH 

DE 

0586 

CD 

BC 

09 

CALL 

$09BC 

0589 

Dl 



POP 

DE 

058A 

DF 



RST 

$18 

058B 

04 



• Byte 

$04 


************************************ 


Ist Zeichen $FF? 

Nein, dann überspringe Löschteil 
Zeiger auf Statuszeile 
(Zeile/Spalte) 

Setze Cursorpos 
Statuszeile löschen (40er) 
Statuszeile löschen (VDC) 

Auf erste Bildschirmposition 
Setze Cursorpos 

Cursorpos. bis Bildende löschen 
Dasselbe für VDC 
Sprungvektor 32 

Teste Bit 7 

Gelöscht: Zeichen normal ausg. 
Simulierte RS-Adresse zurück 
Zeiger zurück 
Hole Spalte 

Zeiger auf nächstes Zeichen 
Rette Zeiger 

Rette simulierte CALL-Adresse 
Bit 7 von Zeile löschen 
Rette Zeile/Spalte 
40-Zeichen-Cursor setzen 
Hole Zeile/Spalte 
80-Zeichen-Cursor anspringen 
Sprungvektor ist 4 

zu lesenden Block (Track/Sektor) 


anzeigen 


058C: 

11 

4A 

18 

LD 

DE,$184A 

058F: 

CD 

AB 

06 

CALL 

$06AB 

0592: 

11 

22 

18 

LD 

DE,$1822 

0595: 

CD 

BC 

09 

CALL 

$09BC 

0598: 

3A 

03 

FD 

LD 

A,($FD03) 

059B: 

CD 

A6 

05 

CALL 

$05A6 

059E: 

16 

20 


LD 

D,$20 

05A0: 

CD 

B6 

05 

CALL 

$05B6 

05A3: 

3A 

04 

FD 

LD 

A,($FD04) 


************************************* 


05A6 

06 2F 

LD 

B,$2F 

05A8 

04 

INC 

B 

05A9 

D6 0A 

SUB 

$0A 

05AB 

30 FB 

JR 

NC,$05A8 

05AD 

C6 3A 

ADD 

A,$3A 


Zeile 24, Spalte 74 als Cursor 
80-Zeichen-Cursorpos. setzen 
Zei le 24, Spalte 34 
40-Zeichen-Cursor setzen 
zu lesende Spur 
in ASCII wandeln 
Leerzeichen 
ausgeben 

zu ladender Sektor 

macht aus <Akku> ASCII 

ASCII "0" - 1 
Zehnerstelle erhöhen 
Zieht (wenn möglich) 10 ab 
Zehnerstelle ist noch nicht null 
Fehlerkorrektur plus ASCII "0" 
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05AF 

F5 



PUSH 

AF 

05B0 

78 



LD 

A,B 

05B1 

CD 

B5 

05 

CALL 

$05B5 

05B4 

Fl 



POP 

AF 

************************************ 

05B5 

57 



LD 

D.A 

05B6 

D5 



PUSH 

DE 

05B7 

CD 

6E 

09 

CALL 

$096E 

05BA 

Dl 



POP 

DE 

05BB 

DF 



RST 

$18 

05BC 

00 



• Byte 

$00 

************************************ 

05BD 

21 

04 

30 

LD 

HL,$3004 

05C0 

CD 

3D 

09 

CALL 

$093D 

05C3 

04 



INC 

B 

05C4 

05 



DEC 

B 

05C5 

C8 



RET 

Z 

05C6 

21 

00 

38 

LD 

HL,$3800 

05C9 

01 

00 

04 

LD 

BC,$0400 

05CC 

16 

00 


LD 

D,$00 

05CE 

CD 

47 

08 

CALL 

$0847 

05D1 

21 

A0 

37 

LD 

HL,$37A0 

05D4 

11 

A0 

38 

LD 

DE,$38A0 

05D7 

01 

08 

00 

LD 

BC,$0008 

05DA 

CD 

B0 

08 

CALL 

$08B0 

05DD 

21 

90 

36 

LD 

HL,$3690 

05E0 

11 

90 

38 

LD 

DE,$3890 

05E3 

01 

08 

00 

LD 

BC,$0008 

05E6 

CD 

B0 

08 

CALL 

$08B0 

05E9 

21 

E0 

35 

LD 

HL,$35E0 

05EC 

11 

E0 

38 

LD 

DE,$38E0 

05EF 

01 

18 

00 

LD 

BC,$0018 

05F2 

CD 

B0 

08 

CALL 

$08B0 

05 F 5 

21 

10 

30 

LD 

HL,$3010 

05 F 8 

11 

10 

36 

LD 

DE,$3610 

05FB 

01 

98 

01 

LD 

BC,$0198 

05 FE 

CD 

BO 

08 

CALL 

$08B0 

0601 

21 

00 

30 

LD 

HL,$3000 

0604 

01 

00 

02 

LD 

BC,$0200 

0607 

16 

00 


LD 

D,$00 

0609 

CD 

47 

08 

CALL 

$0847 

060C 

21 

00 

20 

LD 

HL,$2000 

060 F 

11 

00 

34 

LD 

DE,$3400 

0612 

01 

08 

00 

LD 

BC,$0008 


Rette Einerstelle 
Zehnerstelle (ASCII) nach <Akku> 
und ausgeben 
Hole Einerstelle (ASCII) 

Zeichen <Akku) ausgeben 

Zweichen nach <D> 

und merken 

Zeichen ausgeben 

Hole auszugebendes Zeichen (VDC) 

Auf 40-Zeichen-BiIdschirm 

Vektor 0 

Präpariere Zeichensatz 80 Zeichen 

Adresse im VDC-RAM 
Wert an $3004 holen 
und auf 0 prüfen durch 
dekrementieren und inkr. 

Null: wurde schon präpariert 
$3800 bis 
$3FFF mit dem 
Wert 0 

füllen (löschen) 

ASCII 122 
wi rd 

ASCII 138 

ASCII 105 
wi rd 

ASCII 137 

ASCII 94 (PI) 
wird 

ASCII 95 (_) 

A-Z (ASCII 1-26) 
nach 

ASCII 97 ff. 

$3000 bis $31 FF 
im VDC-RAM 
löschen 

»a 11 (ASCII 64) 
in VDC-RAM 
kopieren 
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0615 

CD 

B0 

08 

CALL 

SO8B0 

0618 

21 

B0 

21 

LD 

HL,$21B0 

061B 

11 

B0 

35 

LD 

DE,$35B0 

061E 

01 

28 

00 

LD 

BC,$0028 

0621 

CD 

B0 

08 

CALL 

$08B0 

0624 

21 

CO 

21 

LD 

HL,$21C0 

0627 

11 

00 

38 

LD 

DE,$3800 

062A 

01 

08 

00 

LD 

BC,$0008 

062D 

CD 

B0 

08 

CALL 

$08B0 

0630 

21 

E0 

21 

LD 

HL,$21E0 

0633 

11 

10 

38 

LD 

DE,$3810 

0636 

01 

18 

00 

LD 

BC,$0018 

0639 

CD 

B0 

08 

CALL 

$0880 

063C 

21 

00 

24 

LD 

HL,$2400 

063 F 

11 

00 

3C 

LD 

DE,$3C00 

0642 

01 

F8 

03 

LD 

BC,$03F8 

0645 

CD 

B0 

08 

CALL 

$08B0 

0648 

11 

1A 

0F 

LD 

DE,$0F1A 

064B 

21 

CO 

35 

LD 

HL,$35C0 

064 E 

CD 

70 

06 

CALL 

$0670 

0651 

21 

E0 

35 

LD 

HL,$35E0 

0654 

06 

03 


LD 

B,$03 

0656 

CD 

62 

06 

CALL 

$0662 

0659 

21 

B0 

37 

LD 

HL,$37B0 

065C 

06 

05 


LD 

B,$05 

065E 

18 

02 


JR 

$0662 

0660 

El 



POP 

HL 

0661 

E3 



EX 

(SP),HL 


************************************ 


0662 

C5 



PUSH 

BC 

0663 

E5 



PUSH 

HL 

0664 

CD 

70 

06 

CALL 

$0670 

0667 

El 



POP 

HL 

0668 

01 

10 

00 

LD 

BC,$0010 

066B 

09 



ADD 

HL, BC 

066C 

CI 



POP 

BC 

066D 

10 

F3 


DJNZ 

$0662 

066 F 

C9 



RET 


************************************ 

0670 

CD 

53 

09 

CALL 

$0953 

0673 

26 

08 


LD 

H,$08 

0675 

1A 



LD 

A,(DE) 

0676 

ED 

79 


OUT 

(C), A 

0678 

0D 



DEC 

C 


bis (ASCII 27 bis 29) 
nach 
ASCII 91 

ASCII 28 (Pfundzeichen) 
nach 

ASCII 128 

ASCII 30 O wird 129 
sowie 

ASCII 31 (_) wird 130 

Großbuchstaben und Sonderzeichen 
nach $3C00 (ASCII 192) 


ASCII 227 
wi rd 

ASCII 92 
ASCII 228-230 
wi rd 

ASCII 94-96 
ASCII 231-235 
wi rd 

ASCII 123 ff. 

Hole Rücksprungadresse nach HL 
Eine Rücksprungadresse löschen 

Kopiere (DE)->(HL) VDC (BC) mal 

Zähler retten 

Zieladresse merken 

(DE)->(HL) VDC-RAM, 8 Bytes 

Zieladresse zurückholen 

Und 16 addieren (anstatt 8) 

wegen internen VDC-Aufbau 

Hole Zähler zurück 

noch ein Zeichen zu kopieren? 

Nein, dann Ende 

(DE)->(HL) VDC; 8 Bytes 

HL als Update anmelden 
8 Bytes sollen kopiert werden 
Hole das Zeichen aus RAM 
und speichere es nach VDC 
Zeiger auf Status-Flag 
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0679: 

13 

INC 

DE 

067A: 

ED 78 

IN 

A, (C) 

067C: 

17 

RLA 


067D: 

30 FB 

JR 

NC,$067A 

067F: 

OC 

INC 

C 

0680: 

25 

DEC 

H 

0681: 

20 F2 

JR 

NZ,$0675 

0683: 

C9 

RET 



Zeiger auf Tabelle erhöhen 
Hole Status-Flag 
Teste Ready-Bit 
Noch nicht fertig 
Zeiger wieder auf $D601 
Erniedrige Zähler 
Springe, wenn noch keine 8 Byte 
sonst beende Routine 


************************************ <A> Zeichen 3US9eben inkl. 

Cursorbewegung 


0684 

2A 

11 

24 

LD 

HL,($2411) 

Cursoradresse holen 

0687 

CD 

07 

09 

CALL 

$0907 

Zeichen ausgeben auf 80-Zeichen 

068A 

3A 

13 

24 

LD 

A,($2413) 

Cursorspalte 

068D 

FE 

4 F 


CP 

$4F 

rechten Rand (79) erreicht? 

068 F 

28 

3C 


JR 

Z,$06CD 

Ja, dann nächste Zeile 

0691 

3C 



INC 

A 

sonst erhöhe den Spaltenzeiger 

0692 

32 

13 

24 

LD 

($2413),A 

und merke die neue Spalte 

0695 

2A 

11 

24 

LD 

HL,($2411) 

Hole Cursoradresse 

0698 

23 



INC 

HL 

und ebenfalls um eine Stelle 

0699 

22 

11 

24 

LD 

($2411),HL 

erhöhen und wieder abspeichern 

************************************ 

als Cursoradresse setzen 

069C 

3E 

OE 


LD 

A,$0E 

Cursoradresse Hi-Byte 

069E 

CD 

45 

09 

CALL 

$0945 

anmelden bei VDC 

06A1 

ED 

61 


OUT 

(C), H 

Higher Byte an VDC übergeben 

06A3 

3E 

0F 


LD 

A,$0F 

Register 15 ist Cursoradresse Lo 

06A5 

CD 

45 

09 

CALL 

$0945 

anmelden bei VDC 

06A8 

ED 

69 


OUT 

(C),L 

und auch Lo-Byte übergeben 

06AA 

C9 



RET 


Ende der Übertragung 


************************************ 80-Zeichen-Cursorposition setzen 

D:Spalte, E:Zeile 


06AB 

7A 



LD 

A,D 

Hole Zeile 

06AC 

FE 

19 


CP 

$19 

Größer als 24 

06AE 

DO 



RET 

NC 

Ja, dann ungültig und Ende 

06AF 

7B 



LD 

A, E 

Hole Spalte 

06BO 

FE 

50 


CP 

$50 

größer als 79? 

06B2 

DO 



RET 

NC 

Ja, dann ungültig und Ende 

06B3 

EB 



EX 

DE,HL 

zwecks Speicherung HL nach DE 

06B4 

22 

13 

24 

LD 

($2413),HL 

und Cursorposition merken 

06B7 

2A 

13 

24 

LD 

HL,($2413) 

Cursorposition holen 

06BA 

CD 

CE 

OC 

CALL 

$0CCE 

Zeile*80 + Spalte 

06BD 

22 

11 

24 

LD 

($2411),HL 

Adresse merken 
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06C0: 18 DA JR $069C 

************************************ 


06C2 

3A 

14 

24 

LD 

A,($2414) 

06C5 

B7 



OR 

A 

06C6 

C8 



RET 

Z 

06C7 

3D 



DEC 

A 

06C8 

32 

14 

24 

LD 

($2414),A 

06CB 

18 

EA 


JR 

$0687 


Cursoradresse an VDC übergeben 

Zeile um eins erniedrigen 

Hole Cursorzeile 

setze die CPU-Flags 

Zeile bereits erste, dann Schluß 

sonst erniedrige die Zeile 

und merke diese 

neue Cursoradresse berechnen 


************************************ Spalte—O (erste Spelte) setzen 

inkl. Zeilenbeeinflussung 


06CD 

AF 


XOR 

A 

Akku wird null 

06CE 

32 

13 24 

LD 

($2413),A 

und als Spalte merken 

06D1 

3A 

14 24 

LD 

A,($2414) 

Hole aktuelle Cursorzeile 

06D4 

FE 

17 

CP 

$17 

Ist Zeile die 23.? 

06D6 

28 

21 

JR 

Z,$06F9 

Ist erreicht, dann Sprung 

06D8 

30 

1A 

JR 

NC,$06F4 

Zeile ist 24 

06DA 

3C 


INC 

A 

sonst Zeile um eins erhöhen 

06DB 

18 

EB 

JR 

$06C8 

und Zeite merken 

************************************ 

Spalte um eins erniedrigen 

06DD 

3A 

13 24 

LD 

A,($2413) 

Hole aktuelle Spalte 

06E0 

B7 


OR 

A 

setze Flags zum Testen auf null 

06E1 

C8 


RET 

Z 

Bereits erste Spalte, dann Ende 

06E2 

3D 


DEC 

A 

Erniedrige den Spaltenzeiger 

06E3 

32 

13 24 

LD 

($2413),A 

und merke neue Spalte 

06E6 

18 

CF 

JR 

$06B7 

Neue Cursoradresse berechnen 

************************************ 

Spalte um eins erhöhen 

06E8 

3A 

13 24 

LD 

A, ($2413) 

Hole aktuelle Spalte 

06EB 

3C 


INC 

A 

und um eins erhöhen 

06EC 

FE 

50 

CP 

$50 

ist Spalte 80 erreicht? 

06EE 

20 

F3 

JR 

NZ,$06E3 

Nein, dann merke Spalte 

06F0 

C9 


RET 


sonst beende Routine 


************************************ spalte auf 0 (erste Spalte) setzen 

06F1: AF XOR A Akku gleich Null setzen 

06F2: 18 EF JR $06E3 und dann als neue Spalte merken 

************************************ Zelle = 23 setzen 

06F4: 3E 17 LD A,$17 Zeile auf 23. setzen 
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06F6 

32 

14 

24 

LD 

($2414),A 

06F9 

21 

50 

00 

LD 

HL,$0050 

06FC 

11 

00 

00 

LD 

DE,$0000 

06FF 

01 

30 

07 

LD 

BC,$0730 

0702 

CO 

B0 

08 

CALL 

$0880 

0705 

21 

30 

07 

LD 

HL,$0730 

0708 

01 

50 

00 

LD 

BC,$0050 

070B 

CD 

41 

08 

CALL 

$0841 

070E 

18 

A 7 


JR 

$06B7 


und im Speicher merken 
Bildschirm um eine 
Zeile nach oben scrollen 
durch Kopieren der 2 in die 
erste Zeile etc. 

Zeiger auf letzte Zeile 
Anzahl ist 80 Zeichen 
Zeile löschen 

und neue Cursorposition anmelden 


******************* 11 :***********#**** Neues Attribut definieren (Bizu 

löschende, C:zu setzende Attr.) 


0710 

3A 

15 

24 

LD 

A,($2415) 

0713 

2F 



CPL 


0714 

B0 



OR 

B 

0715 

2F 



CPL 


0716 

Bl 



OR 

C 

0717 

32 

15 

24 

LD 

($2415),A 

071A 

C9 



RET 



★ #r#r*r*#r#t*r*r**r#r**r*#r*r*#r*'*#r*HHr#r#r*r*r*#r***r#f* 


071B: 

78 



LD 

A, B 

071C: 

D6 

20 


SUB 

$20 

071E: 

FE 

20 


CP 

$20 

0720: 

38 

0A 


JR 

C,$072C 

0722: 

0E 

20 


LD 

C,$20 

0724: 

CD 

E5 

OC 

CALL 

$0CE5 

0727: 

D8 



RET 

C 

0728: 

7E 



LD 

A, (HL) 

0729: 

E6 

0F 


AND 

$0F 

072B: 

80 



ADD 

A, B 

072C: 

32 

00 

24 

LD 

($2400),A 

072F: 

0E 

20 


LD 

C,$20 

0731: 

C6 

30 


ADD 

A,$30 

0733: 

21 

0A 

0F 

LD 

HL,$0F0A 

0736: 

CD 

E8 

OC 

CALL 

$0CE8 

0739: 

7E 



LD 

A,(HL) 

073A: 

80 



ADD 

A,B 

073B: 

FE 

10 


CP 

$10 

073D: 

W 

CO 

1B 


JR 

C,$075A 

073F: 

E6 

0F 


AND 

$0F 

0741: 

32 

16 

24 

LD 

($2416),A 

0744: 

F5 



PUSH 

AF 

0745: 

3E 

1A 


LD 

A, $1A 

0747: 

CD 

45 

09 

CALL 

$0945 


Hole Attribut 
komplementiere Attribut 
zu löschende Bits (Attr.) 
Zurückkomplementieren 
zu setzende Bits (Eigenschaften) 
Abspeichern des neuen Attributes 
Ende der Routine 


Zeichen holen 

ASCII 32 subtrahieren (Leer) 
ASCII 32? 

Kleiner, dann Sprung 
Merker für ASCII 32 abgezogen 
ASCII + Code umwandeln 
Geschafft 

Hole Zeichen aus Tabelle 
Bits 4-7 ausmaskieren 
und <B> als Offset dazu 
merke Zeichen 

ASCII 32 subtrahiert-Zeiger 
ASCII 48 ("O“) addieren 
Tabelle für Farvanpassung 
umwändeln 
Hole Farbwert 
und addiere Attribut 
Übertrag ins höherw. Nibble? 
Vordergrundfarbe wird definiert 
sonst Bits 4-7 ausmaskieren 
Hintergrundfarbe merken 
Rette Farbcode 
Register 

26=Vorder/Hintergrundfarbe 
VOC-Status abwarten und anmelden 
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074A 

Fl 



POP 

AF 

Hole Farbewert 

074B 

ED 

79 


OUT 

(C),A 

und Farbe setzen 

074D 

C9 



RET 


Ende der Routine 

************************************ 

B:Backgnd, D:Attribut A:Foregnd 

074E 

3A 

16 

24 

LD 

A,($2416) 

Hintergrundfarbe holen 

0751 

47 



LD 

B,A 

und nach <B> 

0752 

3A 

15 

24 

LD 

A,($2415) 

Attribut holen 

0755 

57 



LD 

D.A 

und nach D 

0756 

3A 

17 

24 

LD 

A,($2417) 

Vordergrundfarbe holen 

0759 

C9 



RET 


Ende der Routine 

************************************ 

Neue Vordergrundfarbe definieren 

075A 

47 



LD 

B,A 

Farbe nach B 

075B 

3A 

15 

24 

LD 

A,($2415) 

Hole aktuelles Attribut 

075E 

E6 

FO 


AND 

$F0 

Farbennibble ausmaskieren 

0760 

BO 



OR 

B 

und neue Farbe setze 

0761 

32 

15 

24 

LD 

($2415),A 

neues Attribut merken 

0764 

3A 

00 

24 

LD 

A,($2400) 

Hole Hintergrundfarbe und 

0767 

32 

17 

24 

LD 

($2417),A 

merken 

076A 

2A 

11 

24 

LD 

HL,($2411) 

Hole Cursoradresse 

076D 

11 

00 

08 

LD 

DE,$0800 

und Offset für Attribut-RAM 

0770 

19 



ADD 

HL,DE 

addieren 

0771 

CD 

53 

09 

CALL 

$0953 

HL als Update anmelden 

0774 

3A 

15 

24 

LD 

A,($2415) 

Attribut holen 

0777 

ED 

79 


OUT 

(C),A 

und an Cursoradresse speichern 

0779 

C9 



RET 


Ende der Routine 

************************************ 

Cursorpos. bis Zeilenende löschen 

077A 

CD 

C7 

OC 

CALL 

$0CC7 

Hole Cursorpos., Anzahl Zeichen 

077D 

03 



INC 

BC 

erhöhe die Anzahl 

077E 

18 

OE 


JR 

$078E 

und lösche den Rest der Zeile 

************************************ 

Cursorpos. bis Bildende löschen 

0780 

CD 

C7 

OC 

CALL 

$0CC7 

Hole Cursorpos., Anzahl Zeichen 

0783 

EB 



EX 

DE,HL 

Cursoradresse nach DE 

0784 

21 

80 

07 

LD 

HL,$0780 

Adresse Anfang der Statuszeile 

0787 

AF 



XOR 

A 

Lösche Carry für Subtraktion 

0788 

ED 

52 


SBC 

HL,DE 

Anzahl Zeichen bis Statuszeile 

078A 

F8 



RET 

M 

Wenn negativ, dann Ende (Fehler 

078B 

44 



LD 

B,H 

Sonst BC gleich 

078C 

4D 



LD 

C.L 

Anzahl Zeichen bis Statuszeile 

078D 

EB 



EX 

DE,HL 

und aktuelle Cursorposition 


wieder nach HL 
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078E: C3 41 08 JP $0841 Lösche bis Anfang Statuszeile 

************************************ ^ Zeichen einfÜQen 

Restzeile verschieben 


0791 

CD 

C7 

OC 

CALL 

$0CC7 

0794 

21 

4 F 

00 

LD 

HL,$004F 

0797 

19 



ADD 

HL,DE 

0798 

3D 



DEC 

A 

0799 

28 

2C 


JR 

Z,$07C7 

079B 

54 



LD 

D,H 

079C 

5D 



LD 

E.L 

079D 

2B 



DEC 

HL 

079E 

C5 



PUSH 

BC 

079F 

E5 



PUSH 

HL 

07A0 

D5 



PUSH 

DE 

07A1 

CD 

AD 

07 

CALL 

S07AD 

07A4 

01 

00 

08 

LD 

BC,$0800 

07A7 

El 



POP 

HL 

07A8 

09 



ADD 

HL.BC 

07A9 

EB 



EX 

DE,HL 

07AA 

El 



POP 

HL 

07AB 

09 



ADD 

HL.BC 

07AC 

CI 



POP 

BC 

07AD 

C5 



PUSH 

BC 

07AE 

CD 

53 

09 

CALL 

$0953 

07B1 

ED 

78 


IN 

A, (C) 

07B3 

EB 



EX 

DE,HL 

07B4 

F5 



PUSH 

AF 

07B5 

CD 

53 

09 

CALL 

$0953 

07B8: Fl 



POP 

AF 

07B9 

ED 

79 


OUT 

(C), A 

07BB 

EB 



EX 

DE, HL 

07BC 

CI 



POP 

BC 

07BD 

2B 



DEC 

HL 

07BE 

1B 



DEC 

DE 

07BF 

OB 



DEC 

BC 

07C0 

78 



LD 

A,B 

07C1 

Bl 



OR 

C 

07C2 

20 

E9 


JR 

NZ,$07AD 

07C4 

2A 

11 

24 

LD 

HL.($2411) 

07C7 

C3 

05 

09 

JP 

$0905 


Hole Cursorpos. & Anzahl Zeichen 
addiere 79 zu Zeilenanfang 
zum Zeilenanfang 
Anzahl Zeichen bis Zeilenende-1 
keines mehr, dann Schluß 
Adresse des Zeilenende 
nach DE 

Adresse Zeilenende-1 
Rette Anzahl 
Rette Quelle 
Rette Ziel 

Kopiere (HL)->(DE) in VDC-RAM 
Addiere nun Offset für 
Attribut-RAM im VDC 
zur Quelladresse 
und in DE merken 
Hole Zieladresse von Stack 
ebenfalls den Offset addieren 
Anzahl holen 

und wieder sichern 
HL als Update anmelden 
Hole aktuellen Inhalt 
Ziel und Quelle vertauschen 
Rette das ermittelte Zeichen 
HL wieder als Update anmelden 
ermitteltes Zeichen zurückholen 
und in Zieladresse kopieren 
Ziel und Quelle wieder ok. 

Hole Anzahl zurück 
Erniedrige den Quellzeiger 
Erniedrige den Zielzeiger 
Erniedrige den Zähler 
Feststellen, ob Register¬ 
paar BC gleich null ist 
nein, nächstes Zeichen kopieren 
sonst Cursoradresse holen 
und ein Leerzeichen ausgeben 


************************************ Zeichen an Cursorposition löschen 


07CA: CD C7 OC 
07CD: D5 


CALL $0CC7 
PUSH DE 


Hole Cursoradr. & Anzahl Zeichen 
Zeilenanfang auf Stack sichern 
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07CE 

54 



LD 

D.H 

07CF 

5D 



LD 

E,L 

07D0 

23 



INC 

HL 

07D1 

CD 

B0 

08 

CALL 

$08B0 

07D4 

El 



POP 

HL 

07D5 

11 

4F 

00 

LD 

DE,$004F 

07D8 

19 



ADD 

HL,DE 

07D9 

C3 

05 

09 

JP 

$0905 

************************************ 

07DC 

11 

62 

0F 

LD 

DE,$0F62 

07DF 

3E 

17 


LD 

A,$17 

07E1 

2A 

13 

24 

LD 

HL,($2413) 

07E4 

BC 



CP 

H 

07E5 

CA 

05 

07 

JP 

Z,$0705 

07E8 

38 

1A 


JR 

C,$0804 

07EA 

21 

E0 

06 

LD 

HL,$06E0 

07ED 

11 

30 

07 

LD 

DE,$0730 

07F0 

06 

18 


LD 

B,$18 

07F2 

CD 

0A 

08 

CALL 

$080A 

07F5 

3A 

14 

24 

LD 

A,($2414) 

07F8 

B8 



CP 

B 

07F9 

20 

F 7 


JR 

NZ,$07F2 

07FB 

CD 

C7 

OC 

CALL 

$0CC7 

07FE 

EB 



EX 

DE,HL 

07FF 

01 

50 

00 

LD 

BC,$0050 

0802 

18 

3D 


JR 

$0841 

0804 

3C 



INC 

A 

0805 

BD 



CP 

L 

0806 

CO 



RET 

NZ 

0807 

C3 

2C 

05 

JP 

$052C 

************************************ 

080A 

C5 



PUSH 

BC 

080B 

E5 



PUSH 

HL 

080C 

D5 



PUSH 

DE 

080D 

01 

50 

00 

LD 

BC,$0050 

0810 

CD 

B0 

08 

CALL 

$08B0 

0813 

01 

B0 

FF 

LD 

BC,$FFB0 

0816 

El 



POP 

HL 

0817 

09 



ADD 

HL,BC 

0818 

EB 



EX 

DE, HL 

0819 

El 



POP 

HL 


aktuelle Cursorposition 
nach DE kopieren 
Quelle um eins erhöhen 
(HL)->(DE) BC mal = 1 Zeichen 
löschen 

Zeilenanfang nach HL 

und 79 für Zeilenende hinzu- 

addieren 

Zeilenende ein <Space> ausgeben 

An Cursorzeile eine Zeile einfügen 

Zeiger auf Tabelle 
Zeile 23 in Akku 
Hole Zeile/Spalte 
Zeile 23 erreicht? 

Ja, dann lösche 23. Zeile 
kleiner als 23, dann Sprung 
(vorvorletzte Zeile) 

Zieladresse (vorletzte Zeile) 

24 Zeilen sind zu kopieren 
Zeile (HL) nach (DE) kopieren 
Hole Zeile 

aktuelle Zeile erreicht? 

Nein, dann weiterkopieren 
Hole Cursorpos. & Anzahl Zeichen 
HL:Zeilenanfang 
80 als Anfang Folgezeile 
Cursorzeile löschen 

Diese Stelle wird nie 
erreicht, da sich der Cursor 
dann in der Statuszeile befände 
Text ab DE ausgeben 

Zeile (HL) -> (DE) kopieren im VDC 

Anzahl auf Stack sichern 

Quelladresse auf Stack sichern 

Zieladresse auf Stack sichern 

80 Zeichen pro Zeile 

Zeile kopieren 

Komplement von 80 addieren 

ergibt Subtraktion 

Hole Zieladresse 

subtrahiere 80 Zeichen 

und nach DE 

Hole Quelladresse 
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081A: 

09 



ADD 

HL,BC 

081B: 

CI 



POP 

BC 

081C: 

05 



DEC 

B 

081D: 

C9 



RET 


************************************ 

081E: 

3A 

14 

24 

LD 

A,($2414) 

0821: 

FE 

18 


CP 

$18 

0823: 

DO 



RET 

NC 

0824: 

CD 

C7 

OC 

CALL 

$0CC7 

0827: 

21 

50 

00 

LD 

HL,$0050 

082A: 

19 



ADD 

HL,DE 

082B: 

EB 



EX 

DE,HL 

082C: 

E5 



PUSH 

HL 

082D: 

21 

80 

07 

LD 

HL,$0780 

0830: 

AF 



XOR 

A 

0831: 

ED 

52 


SBC 

HL,DE 

0833: 

44 



LD 

B, H 

0834: 

4D 



LD 

C,L 

0835: 

El 



POP 

HL 

0836: 

EB 



EX 

DE,HL 

0837: 

CD 

B0 

08 

CALL 

$08B0 

083A: 

C3 

05 

07 

JP 

$0705 


ebenfalls 80 subtrahieren 
Hole Anzhal 

den Zähler lediglich erniedrigen 
und Ende der Routine 

Cursorz. löschen, Rest raufziehen 

Hole Zeile 

Ist Zeile 24 erreicht? 

Ja, dann Schluß 
Cursorpos. und Anzhal Zeichen 
80 zur Startadresse der Cursor¬ 
zeile hinzuaddieren 
und in DE merken 
Rette Startadresse auf Stack 
Startadresse der Statuszeile 
Lösche Carry für Subtraktion 
Min. Startadresse der Folgezeile 
ergibt Anzahl Zeichen bis 
Bildschirmende nach BC 
Hole Startadresse zurück 
Vertausche Quelle und Ziel 
(HL)->(DE) im VDC-RAM 
Zeile vor Statuszeile löschen 
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************************************ VDC-RAM mit Uert füllen 


083D: 

El 

POP 

HL 

083E: 

E3 

EX 

(SP),HL 

083 F: 

18 06 

JR 

$0847 

0841: 

3A 15 24 

LD 

A,($2415) 

0844: 

5F 

LD 

E,A 

0845: 

16 20 

LD 

D,$20 


************************************ 


0847: 

78 

LD 

A,B 

0848: 

A7 

AND 

A 

0849: 

28 0D 

JR 

Z,$0858 

084 B: 

E5 

PUSH 

HL 

084C: 

D5 

PUSH 

DE 

084D: 

C5 

PUSH 

BC 

084E: 

AF 

XOR 

A 

084 F: 

CD 5B 08 

CALL 

$0858 

0852: 

CI 

POP 

BC 

0853: 

Dl 

POP 

DE 

0854: 

El 

POP 

HL 

0855: 

24 

INC 

H 

0856: 

10 F3 

DJNZ 

$084B 

0858: 

79 

LD 

A,C 

0859: 

A7 

AND 

A 

085A: 

C8 

RET 

z 


************************************ 


085B 

F5 



PUSH 

AF 

085C 

E5 



PUSH 

HL 

085D 

D5 



PUSH 

DE 

085E 

CD 

6C 

08 

CALL 

$086C 

0861 

Dl 



POP 

DE 

0862 

01 

00 

08 

LD 

BC,$0800 

0865 

El 



POP 

HL 

0866 

09 



ADD 

HL,BC 

0867 

CD 

FE 

08 

CALL 

$08FE 

086A 

Fl 



POP 

AF 

086B 

53 



LD 

D,E 


Rücksprungadresse holen 
und vorhergehende 
Rücksprungadresse löschen 
Sprung nach Routine 

Hole Attribut 
Attribut in E merken 
ASCII-Code für Leerzeichen 

(HL) in VDC-RAM mit D füllen, 
Attribut mit E 

(HL+800) wird nur ggf. gefüllt 

Hi-Byte von Anzahl 

und Hi-Byte auf null testen 

Null, dann nur Lo-Byte füllen 

Rette Zieladresse 

Rette Füllwerte 

Rette Anzahl 

Akku=0 bedeutet 256 Zeichen 
Fülle (HL) mit D, 256 mal 
Hole Anzahl zurück 
Hole Füllwerte zurück 
Hole Zieladresse zurück 
Hi-Byte erhöhen 

falls > 256 Zeichen, dann Sprung 
Teste Lo-Byte auf 
null (keine mehr zu füllen) 
und beende, wenn Schluß 

<D> an <HL> <a> mal speichern 

Rette Anzahl 

Rette Zieladresse 

Rette Füllzeichen 

Zeichen D speichern 

Hole Füllzeichen 

Offset für Attribut-RAM 

Zieladresse zurückholen 

und Offset addieren 

HL auf gültige Adresse abtesten 

wenn ok, dann hole Zähler 

und Attribut als Füllzeichen 
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************************************ <D> < A> an < H1 _> ,- m VDC-RAM 


086C: 

F5 



PUSH 

AF 

086D: 

CD 

53 

09 

CALL 

$0953 

0870: 

ED 

51 


OUT 

(C),D 

0872: 

Fl 



POP 

AF 

0873: 

3D 



DEC 

A 

0874: 

C8 



RET 

Z 

0875: 

F5 



PUSH 

AF 

0876: 

3E 

18 


LD 

A,$18 

0878: 

CD 

45 

09 

CALL 

$0945 

087B: 

ED 

78 


IN 

A, (C) 

087D: 

E6 

7F 


AND 

$7F 

087F: 

ED 

79 


OUT 

(C), A 

0881: 

3E 

IE 


LD 

A, $1E 

0883: 

CD 

45 

09 

CALL 

$0945 

0886: 

Fl 



POP 

AF 

0887: 

ED 

79 


OUT 

(C), A 

0889: 

06 

00 


LD 

B,$00 

088B: 

4F 



LD 

C,A 

088C: 

03 



INC 

BC 

088D: 

09 



ADD 

HL,BC 

088E: 

D5 



PUSH 

DE 

088 F: 

E5 



PUSH 

HL 

0890: 

3E 

12 


LD 

A,$12 

0892: 

CD 

45 

09 

CALL 

$0945 

0895: 

ED 

60 


IN 

H, (C) 

0897: 

3E 

13 


LD 

A,$13 

0899: 

CD 

45 

09 

CALL 

$0945 

089C: 

ED 

68 


IN 

L, (C) 

089E: 

Dl 



POP 

DE 

089 F: 

CI 



POP 

BC 

08A0: 

CD 

FA 

00 

CALL 

$00FA 

08A3: 

DO 



RET 

NC 

08A4: 

C5 



PUSH 

BC 

08A5: 

CD 

53 

09 

CALL 

$0953 

08A8: 

CI 



POP 

BC 

08A9: 

ED 

41 


OUT 

(C), B 

08AB: 

23 



INC 

HL 

08AC: 

18 

F2 


JR 

$08AO 

08AE: 

El 



POP 

HL 

08AF: 

E3 



EX 

(SP),HL 


************************************ 


08B0: 

78 

LD 

A, B 

08B1: 

A 7 

AND 

A 

08B2: 

28 0E 

JR 

Z,$08C2 


Rette Zähler auf Stack 
HL als Update anmelden 
und Füllzeichen übergeben 
hole Anzahl von Stack 
erniedrige den Zähler 
und beende, wenn genug gefüllt 
sonst rette Zähler 
Register 24 (Copy-Bit) 
anmelden 

Registerinhalt holen 

und Copy-Bit ausmaksieren 

wieder in VDC-Speicher 

Reg. 31 (Wordcount) auswählen 

und anmelden 

hole Anzahl von Stack 

und Restanzahl an VDC übergeben 

Hi-Byte von BC Null setzen 

und Lo-Byte mit Restanzahl 

addiere eins 

addiere Startadresse 

rette Startadresse 

rette errechnete Schlußadresse 

Update Hi-Byte-Register 

anmelden 

und Wert aus lesen 
Update Lo-Byte-Register 
anmelden 

und Wert aus lesen 
hole errechnete Schlußadresse 
hole Startadresse 
Vergleiche HL mit DE 
Alles klar, kein Fehler! 

Anzahl auf Stack 
HL als Update anmclden 
hole Restanzahl 
und Fehlerkorrektur 
falls errechnete Schlußadresse 
und tatsächliche Schlußadresse 
ungleich Rücksprungadresse holen 
und um eins tiefer auf Stack 

(HL) -> (DE) im VDC-RAM <BC> mal 

Hole Hi-Byte von Anzahl 
uns teste Hi-Byte auf null 
Wenn null, dann Anzahl<256 
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08B4 

E5 



PUSH 

HL 

08B5 

D5 



PUSH 

DE 

08B6 

C5 



PUSH 

BC 

08B7 

AF 



XOR 

A 

08B8 

CD 

C5 

08 

CALL 

$08C5 

08BB 

CI 



POP 

BC 

08BC 

Dl 



POP 

DE 

08BD 

El 



POP 

HL 

08BE 

24 



INC 

H 

08BF 

14 



INC 

D 

08C0 

10 

F2 


DJNZ 

$08B4 

08C2 

79 



LD 

A, C 

08C3 

A 7 



AND 

A 

08C4 

C8 



RET 

Z 

08C5 

EB 



EX 

DE,HL 

08C6 

F5 



PUSH 

AF 

08C7 

E5 



PUSH 

HL 

08C8 

D5 



PUSH 

DE 

08C9 

CD 

D8 

08 

CALL 

$08D8 

08CC 

01 

00 

08 

LD 

BC,$0800 

08CF 

El 



POP 

HL 

08D0 

09 



ADD 

HL,BC 

08D1 

EB 



EX 

DE,HL 

08D2 

El 



POP 

HL 

08D3 

09 



ADD 

HL,BC 

08D4 

CD 

FE 

08 

CALL 

$08FE 

08D7 

Fl 



POP 

AF 

************************************ 

08D8 

F5 



PUSH 

AF 

08D9 

CD 

53 

09 

CALL 

$0953 

08DC 

3E 

18 


LD 

A,$18 

08DE 

CD 

45 

09 

CALL 

$0945 

08E1 

ED 

m 


IN 

A, (C) 

08E3 

F6 

80 


OR 

$80 

08E5 

ED 

79 


OUT 

(C), A 

08E7 

3E 

20 


LD 

A,$20 

08E9 

CD 

45 

09 

CALL 

$0945 

08EC 

ED 

51 


OUT 

(C),D 

08EE 

3E 

21 


LD 

A,$21 

08FO 

CD 

45 

09 

CALL 

$0945 

08F3 

ED 

59 


OUT 

(C),E 

08F5 

3E 

IE 


LD 

A, $1E 

08F7 

CD 

45 

09 

CALL 

$0945 

08FA 

Fl 



POP 

AF 

08FB 

ED 

79 


OUT 

(C),A 


rette Quelladresse 

Rette Zieladresse 

Rette Anzahl auf Stack 

Lösche Akku für 256 Zeichen 

(HL)->(DE) <A> mal 

Hole Anzahl 

Hole Zieladresse 

Hole Quelladresse 

Hi-Byte der Quelladresse erhöhen 

Hi-Byte der Zeiladresse erhöhen 

> 256 Zeichen, dann weiter 

Hole Lo-Anzahl 

teste auf null 

und Schluß, wenn null 

sonst vertausche Quell- und Ziel 

Rette Anzahl auf Stack 

Rette Zieladresse 

Rette Quelladresse 

(DE)->(HL) im VDC-RAM <A> mal 

Offset für Attribut-RAM 

Hole Quelladresse 

addiere Offset 

Quelladresse+Offset nach DE 

Hole Zieladresse 

addiere Offset 

Teste auf Speichergrenzen 

Hole Anzahl 

(DE) -> (HL) im VDC <A> mal 

Rette Anzahl auf Stack 
Melde HL als Updateadresse an 
Register 24 (Copy-Bit) 
anmelden 

Hole Registerinhalt 
und setze das Copybit 
Register an VDC mitteilen 
Register 32 (Block-Start-Hi) 
im VDC anmelden 
Hi-Adresse Quelle übergeben 
Register 33 (Block-Start-Lo) 
in VDC anmelden 

und Lo-Adresse Quelle übergeben 
Register 31 (Wordcount) 
anmelden 

und Anzahl von Stack holen 
Anzahl VDC mitteilen 
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08FD: C9 RET Ende der Routine 


************************************ j 0 st 6 t # ob nach Addiarung das 

Offset <HL> auf 
Attribut-RAM zeigt. 


08FE 

7C 



LD 

A, H 

Hi-Byte nach Akku holen 

08FF 

FE 

20 


CP 

$20 

und auf Grenze checken 

0901 

D8 



RET 

C 

Wenn Carry gesetzt, ist <HL> ok 

0902 

Fl 



POP 

AF 

Hole AF von Stack 

0903 

Fl 



POP 

AF 

Hole Rücksprungadresse von Stack 

0904 

C9 



RET 


Rücksprung nach CALL $085B 

******************* 

***************** 

Leerzeichen an (HL) ausgeben (VDC) 

0905 

16 

20 


ID 

D,$20 

ASCII-Wert für <Space> 

0907 

3A 

15 

24 

LD 

A,($2415) 

Attribut holen 

************************************ 

<D> mit Attr. <A> an (HL) ausgeben 

090A 

E5 



PUSH 

HL 

Rette Zieladresse 

090B 

D5 



PUSH 

DE 

Rette Zeichen/Attribut 

090C 

11 

00 

08 

LD 

DE,$0800 

Offset für Attribut-RAM 

090F 

19 



ADD 

HL,DE 

auf Zieladresse addieren 

0910 

57 



LD 

D, A 

Attribut als Füllzeichen 

0911 

CD 

16 

09 

CALL 

$0916 

<D> an (HL) ausgeben 

0914 

Dl 



POP 

DE 

Hole Zeichen 

0915 

El 



POP 

HL 

Hole Zieladresse 

0916 

CD 

53 

09 

CALL 

$0953 

HL als Update anmelden 

0919 

ED 

51 


OUT 

<C),D 

und Zeichen an (HL) ausgeben 

091B 

C9 



RET 


Ende der Routine 

************************************ 

Hole <C>:Attribut, <B>:Zeichen, an 







Cursorpos. <DE> 

091C 

CD 

AB 

06 

CALL 

$06AB 

Cursorposition <DE> setzen 

091F 

2A 

11 

24 

LD 

HL,($2411 

) Hole Cursoradresse 

0922 

CD 

33 

09 

CALL 

$0933 

Hole Zeichen/Attribut 

0925 

4F 



LD 

C, A 

<C> ist Attribut 

0926 

C9 



RET 


Ende der Routine 

************************************ 

<B>:Zeichen, <C>:Attribut, an <DE> 

0927 

C5 



PUSH 

BC 

Rette Zeichen/Attribut 

0928 

CD 

AB 

06 

CALL 

$06 AB 

Cursorposition <DE> setzen 

092B 

2A 

11 

24 

LD 

HL,($2411) Hole Cursoradresse 

092E 

CI 



POP 

BC 

Hole Zeichen/Atrribut 

092 F 

50 



LD 

D,B 

<D> ist Zeichen 
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0930: 79 LD A,C 

0931: 18 D7 JR $090A 

★★★★★★★★★★★■fr************************ 


0933 

E5 



PUSH 

HL 

0934 

11 

00 

08 

LD 

DE,$0800 

0937 

19 



ADD 

HL,DE 

0938 

CD 

3D 

09 

CALL 

$093D 

093B 

78 



LD 

A,B 

093C 

El 



POP 

HL 

093D 

F5 



PUSH 

AF 

093E 

CD 

53 

09 

CALL 

$0953 

0941 

Fl 



POP 

AF 

0942 

ED 

40 


IN 

B, (C) 

0944 

C9 



RET 





0945 

F5 



PUSH 

AF 

0946 

01 

00 

D6 

LD 

BC,$D600 

0949 

ED 

78 


IN 

A, (C) 

094B 

17 



RLA 


094 C 

30 

FB 


JR 

NC,$0949 

094 E 

Fl 



POP 

AF 

094 F 

ED 

79 


OUT 

(C),A 

0951 

OC 



INC 

C 

0952 

C9 



RET 



0953 

3E 

12 


LD 

A, $12 

0955 

CD 

45 

09 

CALL 

$0945 

0958 

ED 

61 


OUT 

(C), H 

095A 

3E 

13 


LD 

A,$13 

095C 

CD 

45 

09 

CALL 

$0945 

095 F 

ED 

69 


OUT 

(C),L 

0961 

3E 

1 F 


LD 

A,$1F 

0963 

CD 

45 

09 

CALL 

$0945 

0966 

0D 



DEC 

C 

0967 

ED 

78 


IN 

A, (C) 

0969 

17 



RLA 


096A 

30 

FB 


JR 

NC,$0967 

096C 

OC 



INC 

C 

096D 

C9 



RET 



<A> ist Attribut 

Zeichen und Attribut ausgeben 

<A>:Attribut, <B>:Zeichen von (HL) 

Rette Adresse 

Offset für Attributadresse 
addieren 

Hole Wert an VDC-Adresse (HL) 
Attribut nach <A> 

Hole Textadresse 

Rette Attribut 

(HL) als Update anmelden 

Hole Attribut 

Hole Wert an Adresse (HL) 

Ende der Routine 

VDC-Status abwarten und anw. 

Rette auszugebendes Register 
Startadresse VDC-Chip 
Hole Status 

Shifte Status-Bit ins Carry 
Noch nicht fertig -> Sprung 
Hole Register wieder von Stack 
und Register anwählen 
Zeige auf $0601 
und RETurn aus Routine 

HL als Update-Adresse 

Update-Adresse Hi 
anmelden 

Hi-Byte übergeben 
Update-Adresse Lo 
anmelden 

Lo-Byte übergeben 
Wordcount-Register 
anmelden 

Zeiger wieder auf $0600 
Hole Status 

Rolle Status ins Carry 
Noch nicht fertig 
Jetzt ja, Zeiger auf $D601 
RETurn aus Unterroutine 
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************************************ Zeichen <d> auf 40*ZGichen*Schi rrn 


096E 

42 



LD 

B,D 

096F 

CD 

7F 

oc 

CALL 

$0C7F 

0972 

2A 

09 

24 

LD 

HL,($2409) 

0975 

47 



LD 

B, A 

0976 

3A 

10 

24 

LD 

A,($2410) 

0979 

B0 



OR 

B 

097A 

77 



LD 

(HL),A 

097B 

23 



INC 

HL 

097C 

22 

09 

24 

LD 

($2409),HL 

097F 

11 

FF 

07 

LD 

DE,$07FF 

0982 

19 



ADD 

HL,DE 

0983 

3A 

0D 

24 

LD 

A,($2400) 

0986 

77 



LD 

(HL),A 

0987 

3A 

OB 

24 

LD 

A,($240B) 

098A 

FE 

4F 


CP 

$4F 

098C 

28 

5F 


JR 

Z,$09ED 

098E 

3C 



INC 

A 

098 F 

32 

OB 

24 

LD 

($240B),A 

0992 

C3 

4A 

OC 

JP 

$0C4A 


************************************ 


0995 

CD 

CI 

09 

CALL 

$09C1 

0998 

2A 

09 

24 

LD 

HL,($2409) 

099B 

46 



LD 

B,(HL) 

099C 

11 

00 

08 

LD 

DE,$0800 

099F 

19 



ADD 

HL,DE 

09A0 

4E 



LD 

C,(HL) 

09A1 

C9 



RET 



************************************ 


09A2 

C5 



PUSH 

BC 

09A3 

CD 

CI 

09 

CALL 

$09C1 

09A6 

Ci 



POP 

BC 

09A7 

2A 

09 

24 

LD 

HL,($2409) 

09AA 

78 



LD 

A,B 

09AB 

E6 

7F 


AND 

$7F 

09AD 

CB 

71 


BIT 

6,C 

09AF 

28 

02 


JR 

Z,$09B3 

09B1 

C6 

80 


ADD 

A,$80 

09B3 

77 



LD 

(HL),A 

09B4 

11 

00 

08 

LD 

DE,$0800 

09B7 

19 



ADD 

HL,DE 

09B8 

71 



LD 

( HL ), C 


Zeichen nach <B> 

ASCII-Codeumwandlung VIC 
80-Zeichen-Adresse 
Zeichen nach <B> 

Zeichenoffset holen (Bit 7 1/0) 

mit Zeichen verknüpfen 

und ins RAM schreiben 

Zeiger erhöhen 

und merken 

Offset für Farbram 

hinzuaddieren 

Hole Zeichenfarbe 

und Zeichenfarbe setzen 

Hole Cursorposition 

Letzte Spalte? 

Ja, dann Zeilensprung 
sonst erhöhe den Spaltenzeiger 
und merke neue Position 
Zeile darstellen 

Hole Zeichen <B> und Farbe <C> von 
Cursorpos (DE) 

Zeile/Spalte definieren (DE) 
Cursoradr. 80-Zeichen-Simulator 
Hole Zeichen an Cursorposition 
Offset für Attribut-RAM 
addieren 

Hole Attribut an Cursorposition 
Ende der Routine 

<B>:Zeichen, <C>:Attribut an (DE) 

Rette Zeichen/Attribut 
Setze Cursorposition 
Hole Zeichen/Attribut 
80-Zeichen-Simulator-Adresse 
Zeichen in <Akku> 

Bit 7 löschen 
Bit 6 testen 
Ist ungesetzt 

Bit 7 setzen (reverses Zeichen) 
und Zeichen setzen 
Offset für Attribut-RAM 
addieren 

Attribut ebenfalls definieren 
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09B9: C3 4A OC JP $0C4A Zeile darstellen 


************************************ Dcf ZcilG/SpsltG 


09BC 

21 04 24 

LD 

HL,$2404 

Adresse 40-Zeichen-Anpassung 

09BF 

CB F6 

SET 

6,(HL) 

40-Zeichen-Bit setzen 

09C1 

7A 

LD 

A.D 

Hole Zeile 

09C2 

FE 19 

CP 

$19 

Größer als 24? 

09C4 

DO 

RET 

NC 

Ja, dann Ende (Fehler) 

09C5 

7B 

LD 

A,E 

Hole Spalte 

09C6 

FE 50 

CP 

$50 

Spalte 80 erreicht? 

09C8 

DO 

RET 

NC 

Ja, dann Ende (Fehler) 

09C9 

EB 

EX 

DE,HL 

Zeile/Spalte nach HL 

09CA 

22 OB 24 

LD 

($240B),HL 

Setze Zeile/Spalte 

************************************ 

Neue Cursorposition 

09CD 

2A OB 24 

LD 

HL,($240B) 

Hole Zeile/Spalte 

09D0 

CD CE OC 

CALL 

$OCCE 

Neue Cursoradresse berechnen 

09D3 

11 00 14 

LD 

DE,$1400 

Offset für 80-Zeichen-Simulator 

09D6 

19 

ADD 

HL,DE 

hinzuaddieren 

09D7 

22 09 24 

LD 

($2409),HL 

und angepaßte Adresse merken 

09DA 

C3 4A OC 

JP 

$0C4A 

Zeile darstellen 

************************************ 

Zeile erniedrigen 

09DD 

3A OC 24 

LD 

A, ($2400 

Hole Cursorzeile 

09E0 

87 

OR 

A 

Setze Flags 

09E1 

C8 

RET 

Z 

Zeile 0! Davor geht nicht 

09E2 

3D 

DEC 

A 

sonst erniedrige Zeilenzeiger 

09E3 

32 OC 24 

LD 

($240C),A 

und merke Zeile 

09E6 

21 04 24 

LD 

HL,$2404 

Setze Bit 6 an $2404 

09E9 

CB F6 

SET 

6,(HL) 

als OK-Zeichen 

09EB 

18 EO 

JR 

$09CD 

Neue Cursorposition berechnen 

************************************ 

Spalte=0 bzw. Spalte definieren 

09ED 

AF 

XOR 

A 

Akku=0 für erste Spalte 

09EE 

32 OB 24 

LD 

($240B),A 

und Spalte definieren 

09F1 

3A OC 24 

LD 

A,($240C) 

Hole Zeile 

09F4 

FE 17 

CP 

$17 

letzte Zeile? 

09F6 

28 OA 

JR 

Z,$0A02 

Ja, dann Sprung 

09F8 

30 03 

JR 

NC,$09FD 

Fehler korrigieren 

09FA 

3C 

INC 

A 

Zeile ums eins erhöhen 

09FB 

18 E6 

JR 

$09E3 

und merken 

09FD 

3E 17 

LD 

A,$17 

Zeile 23 (letzte Zeile) 

09FF 

32 OC 24 

LD 

($2400,A 

merken 
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0A02 

21 

50 

14 

LD 

HL,$1450 

0A05 

11 

00 

14 

LD 

DE,$1400 

0A08 

01 

30 

07 

LD 

BC,$0730 

0A0B 

EO 

B0 


LDIR 


0A0D 

EB 



EX 

DE,HL 

0A0E 

11 

31 

1B 

LD 

DE,$1B31 

0A11 

01 

4F 

00 

LD 

BC,$004F 

0A14 

CD 

24 

OB 

CALL 

$0B24 

0A17 

21 

50 

IC 

LD 

HL,$1C50 

0A1A 

11 

00 

IC 

LD 

DE,$1C00 

0A1D 

01 

30 

07 

LD 

BC,$0730 

OA20 

ED 

B0 


LDIR 


0A22 

EB 



EX 

DE,HL 

0A23 

11 

31 

23 

LD 

DE,$2331 

0A26 

01 

4F 

00 

LD 

BC,$004F 

0A29 

3A 

0D 

24 

LD 

A,($240D) 

0A2C 

77 



LD 

(HL),A 

0A2D 

ED 

B0 


LDIR 


0A2F 

18 

B5 


JR 

$09E6 

************************************ 

0A31 

3A 

OB 

24 

LD 

A,($240B) 

0A34 

B7 



OR 

A 

0A35 

C8 



RET 

Z 

0A36 

3D 



DEC 

A 

0A37 

32 

OB 

24 

LD 

($240B),A 

0A3A 

18 

91 


JR 

$09CD 

**** 

»r* *** 

Ir** 

Ir***** 



0A3C 

3A 

OB 

24 

LD 

A,($240B) 

0A3F 

3C 



INC 

A 

0A40 

FE 

50 


CP 

$50 

0A42 

20 

F3 


JR 

NZ,$0A37 

0A44 

C9 



RET 



************************************ 

0A45: AF XOR A 

0A46: 18 EF JR $0A37 

************************************ 

0A48: 21 CF OB LD HL,$0BCF 


Zweite Zeile Anfangsadresse 
Erste Zeile Anfangsadresse 
22 Zeilen zu kopieren 
Scrolling 

Zieladresse als Quelle 
Zweites Zeichen letzte Zeile 
79 Zeichen sind zu füllen 
Fülle letzte Zeile mit Füllz. 
Anfangsadresse zweite Zeile 
(Attribut) 

Anfangsadresse erste Zeile 
(Attribut) 

22 Zeilen sind zu scrollen 
Scrollen im Farbram durchführen 

1. Zeichen letzte Zeile nach HL 

2. Zeichen letzte Zeile 
(Farbram) 

79 Zeichen sind zu füllen 
Farbe für Farbram holen 
setzen 

und restliche Zeile auch füllen 
OK setzen 

Cursor um eine Stelle nach links 

Hole Spaltenposition 
Setze Flags 

Erste Spalte, dann Ende 
sonst Cursor nach links 
Abspeichern der neuen Spalte 
Cursoradresse berechnen 

Cursor um eine Stelle nach rechts 

Hole Spalte 

und um eine Stelle nach rechts 
80. Spalte erreicht? 

Abspei ehern neue Position 
keine Cursorbewegung erfolgt 

Spalte = 0 setzen 

Akku löschen und 

als Spaltenwert abspeichern 

Cursorpos. bis Zeilenende löschen 

Return nach 
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0A4B 

E5 



PUSH 

HL 

0A4C 

CD 

C2 

OC 

CALL 

S0CC2 

0A4F 

11 

00 

14 

LD 

DE,$1400 

0A52 

19 



ADD 

HL,DE 

0A53 

CD 

B3 

0A 

CALL 

$0AB3 

0A56 

79 



LD 

A,C 

0A57 

A 7 



AND 

A 

0A58 

C8 



RET 

Z 

0A59 

C5 



PUSH 

BC 

0A5A 

E5 



PUSH 

HL 

0A5B 

54 



LD 

D,H 

0A5C 

5D 



LD 

E,L 

0A5D 

13 



INC 

DE 

0A5E 

ED 

B0 


LDIR 


0A60 

18 

IC 


JR 

S0A7E 

************************************ 

0A62 

21 

oc 

OC 

LD 

HL,$0C0C 

0A65 

E5 



PUSH 

HL 

0A66 

11 

7F 

1B 

LD 

DE,$1B7F 

0A69 

2A 

09 

24 

LD 

HL,($2409) 

0A6C 

EB 



EX 

DE, HL 

0A6D 

AF 



XOR 

A 

0A6E 

ED 

52 


SBC 

HL,DE 

0A70 

F8 



RET 

M 

0A71 

EB 



EX 

DE,HL 

0A72 

28 

3F 


JR 

Z,$0AB3 

0A74 

42 



LD 

B,D 

0A75 

4B 



LD 

C,E 

0A76 

54 



LD 

D,H 

0A77 

5D 



LD 

E.L 

0A78 

13 



INC 

DE 

0A79 

C5 



PUSH 

BC 

0A7A 

E5 



PUSH 

HL 

0A7B 

CD 

24 

OB 

CALL 

$0624 

0A7E 

01 

00 

08 

LD 

BC,$0800 

0A81 

El 



POP 

HL 

0A82 

09 



ADD 

HL,BC 

0A83 

CI 



POP 

BC 

0A84 

54 



LD 

D,H 

0A85 

5D 



LD 

E.L 

0A86 

13 



INC 

DE 

0A87 

3A 

0D 

24 

LD 

A,($240D) 

0A8A 

77 



LD 

(HL),A 

0A8B 

ED 

B0 


LDIR 



$0BCF simulieren 

Cursorpos. ermitteln und 

Restzeichen/Zeile 

Offset für 80-Zeichen-Simulator 

addieren 

Füllzeichen setzen 
Restzeichen/Zei le 
Setze Flags 
Keine weiteren Zeichen 
Rette Anzahl 
Rette Quelladresse 
Registerpaar DE 
gleich HL 
plus 1 

Rest bis Zeilenende löschen 
Attribut ebenfalls löschen 

Cursorpos. bis Bildende löschen 

$0C0C als Rücksprungadresse 

auf Stack simulieren 

letzte Spalte in letzter Zeile 

Cursoradr. 80-Zeichen-Simulator 

nach DE, $1B7F nach HL 

Carry für Subtraktion löschen 

Ermittle Anzahl bis Bildende 

wenn negativ, dann Fehler 

sonst Ergebnis nach DE 

nur ein Zeichen, dann füllen 

sonst Anzahl 

ins Registerpaar BC 

und Registerpaar DE (Ziel) 

gleich Registerpaar HL 

plus eins 

Anzahl auf Stack 

Quelle auf Stack 

Fülle Textzeile mit Attribut 

Offset für Farbram 

Quelladresse zurückholen 

und Offset addieren 

Hole Anzahl Zeichen 

Zieladresse gleich 

Quelladresse 

plus eins 

Hole Farbe für Farbram VIC 

und Farbe setzen 

Rest bis Bildende füllen 
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0A8D: C9 RET Ende der Routine 


************************************ 


0A8E 

21 

CF 

OB 

LD 

HL,$0BCF 

0A91 

E5 



PUSH 

HL 

0A92 

CD 

C2 

0C 

CALL 

$0CC2 

0A95 

21 

4F 

14 

LD 

HL,$144F 

0A98 

19 



ADD 

HL,DE 

0A99 

3D 



DEC 

A 

0A9A 

28 

17 


JR 

Z,$0AB3 

0A9C 

54 



LD 

D,H 

0A9D 

5D 



LD 

E.L 

0A9E 

2B 



DEC 

HL 

0A9F 

C5 



PUSH 

BC 

0AA0 

D5 



PUSH 

DE 

0AA1 

ED 

B8 


LDDR 


0AA3 

EB 



EX 

DE,HL 

0AA4 

CD 

B3 

0A 

CALL 

$0AB3 

0AA7 

El 



POP 

HL 

0AA8 

01 

00 

08 

LD 

BC,$0800 

OAAB 

09 



ADD 

HL,BC 

OAAC 

CI 



POP 

BC 

OAAD 

54 



LD 

D,H 

OAAE 

5D 



LD 

E.L 

OAAF 

2B 



DEC 

HL 

0AB0 

ED 

B8 


LDDR 


0AB2 

C9 



RET 



************************************ 


0AB3: 

3A 10 24 

LD 

A,($2410) 

0AB6: 

C6 20 

ADD 

A,$20 

0AB8: 

77 

LD 

(HL),A 

0AB9: 

C9 

RET 



************************************ ] 


0ABA: 

21 

CF 

OB 

LD 

HL,$08CF 

0ABD: 

E5 



PUSH 

HL 

0ABE: 

CD 

C2 

OC 

CALL 

S0CC2 

0AC1: 

11 

00 

14 

LD 

DE,$1400 

0AC4: 

19 



ADD 

HL,DE 

0AC5: 

3D 



DEC 

A 

0AC6: 

28 

EB 


JR 

Z,$0AB3 


an Cursorpos. 1 Stelle einfügen 

aus RAM in Bildschirm kopieren 
als Rücksprungadresse auf Stack 
Cursorpos. und Restzeichen 
Letztes Zeichen erste Zeile 
zur Cursoradresse addieren 
letzte Spalte? 

Ja, dann überspringe 
Sonst Zieladresse gleich 
Quelladresse 
minus eins 

Rette Anzahl auf Stack 

Rette Zieladresse auf Stack 

Zeichen hinter Cursor nach 

rechts verschieben 

HL:=Cursorpos 

Hole Füllzeichen 

Hole Zieladresse zurück 

Offset für Farbram 

zur Quelladresse hinzuaddieren 

Anzahl zurückholen 

Zieladresse gleich 

Quelladresse 

minus eins 

Farbram ebenfalls verschieben 
Ende der Routine 

($2410) + $20 -> (HL); 

Füllzeichen setzen 

Adresse $2410 auslesen 
(FülIzeichen) 

$20=32 hinzuaddieren 
und in (HL) ablegen 
RETurn aus Routine 

Zeichen an Cursorpos. löschen 

$0BCF als Rücksprung auf Stack 
zusätzlich einfügen 
Hole Cursoradresse/Restzeichen 
Offset für 80-Zeichen-Simulator 
zur Cursoradresse hinzuaddieren 
Teste Anzahl/Zeichen 
Wenn null, dann überspringe 





772 


128 Intern 


0AC8: 

54 



LD 

D.H 

0AC9: 

5D 



LD 

E.L 

OACA: 

C5 



PUSH 

BC 

OACB: 

E5 



PUSH 

HL 

OACC: 

23 



INC 

HL 

OACD: 

ED 

BO 


LD1R 


OACF: 

EB 



EX 

DE,HL 

OADO: 

CD 

B3 

0A 

CALL 

S0AB3 

0AD3: 

El 



POP 

HL 

0AD4: 

01 

01 

08 

LD 

BC,$0801 

0AD7: 

09 



ADD 

HL, BC 

0AD8: 

CI 



POP 

BC 

0AD9: 

54 



LD 

D,H 

OADA: 

5D 



LD 

E,L 

OADB: 

23 



INC 

HL 

OADC: 

ED 

BO 


LDIR 


OADE: 

C9 



RET 



************************************ 


OADF 

21 

OC 

OC 

LD 

HL,$0C0C 

0AE2 

E5 



PUSH 

HL 

0AE3 

3A 

OC 

24 

LD 

A, ($2400 

0AE6 

FE 

17 


CP 

$17 

0AE8 

28 

31 


JR 

Z,$0B1B 

OAEA 

DO 



RET 

NC 

OAEB 

CD 

C2 

OC 

CALL 

$0CC2 

OAEE 

21 

00 

14 

LD 

HL,$1400 

0AF1 

19 



ADD 

HL,DE 

0AF2 

E5 



PUSH 

HL 

0AF3 

11 

50 

00 

LD 

DE,$0050 

0AF6 

19 



ADD 

HL,DE 

0AF7 

EB 



EX 

DE,HL 

0AF8 

21 

80 

1B 

LD 

HL,$1B80 

OAFB 

AF 



XOR 

A 

OAFC 

ED 

52 


SBC 

HL,DE 

OAFE 

44 



LD 

B, H 

OAFF 

4D 



LD 

C,L 

0B00 

21 

2F 

1B 

LD 

HL,$1B2F 

0B03 

11 

7F 

1B 

LD 

DE,$1B7F 

0B06 

C5 



PUSH 

BC 

0B07 

ED 

B8 


LDDR 


0B09 

CI 



POP 

BC 

0B0A 

21 

2F 

23 

LD 

HL,$232F 

0B0D 

11 

7F 

23 

LD 

DE,$237F 

OB 10 

ED 

B8 


LDDR 


0B12 

El 



POP 

HL 

OB 13 

54 



LD 

D,H 


sonst Zieladresse gleich 

Quelladresse 

Rette Anzahl 

Rette Quelladresse 

Quelladresse=Quelladresse+1 

Zeichen an Cursorpos. löschen 

Cursoradresse nach HL 

Füllzeichen setzen 

Hole Quelladresse 

Offset für FarbranH-1 

addieren 

Hole Zeichenzahl von Stack 
Zieladresse gleich 
Quelladresse 
plus eins 

Farbram ebenfalls verschieben 
Ende der Routine 

An Cursorpos. 1 Zeile einfügen 

Rücksprungsadresse $0C0C 
auf Stapel einfügen 
Hole Cursorzeile 
Zeile 23 (letzte)? 

Ja, dann nur löschen 

Fehler, dann Ende 

Hole Cursoradresse/Restzeichen 

Offset für 80-Zeichen-Simulator 

hinzuaddieren 

Rette Quelladresse auf Stapel 
Offset für Anfang nächste Zeile 
zur Quelladresse hibzuaddieren 
Ergebnis nach (DE) 

Adresse letzte Zeile 
Carry löschen für Subtraktion 
Anzahl Zeichen bis Bildende 
Anzahl kommt von 
HL nach BC 

letzte Spalte vorletzte Zeile 
letzte Spalte letzte Zeile 
Rette Anzahl auf Stapel 
Zeile an Cursorzeile einfügen 
Hole ANzahl zurück 
Adresse Farbram 
Adresse Farbram (s.o.) 
ebenfalls verschieben 
Hole Quelladresse 
DE gleich 
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0B14 

5D 



LD 

E,L 

OBI 5 

13 



INC 

DE 

0B16 

01 

4 F 

00 

LD 

BC,$004F 

0B19 

18 

09 


JR 

$0824 

0B1B 

21 

30 

1B 

LD 

HL,$1B30 

0B1E 

11 

31 

1B 

LD 

DE,$1B31 

0B21 

01 

4F 

00 

LD 

BC,$004F 

0B24 

3A 

10 

24 

LD 

A,($2410) 

0B27 

C6 

20 


ADD 

A,$20 

0B29 

77 



LD 

(HL),A 

0B2A 

ED 

B0 


LDIR 


0B2C 

C9 



RET 



Quelladresse 
plus eins 
79 Zeichen 
Lösche neue Zeile 

lediglich die letzte 
Zeile löschen, 

da Cursor in letzter Zeile ist 
Hole Füllzeichen 
addiere 32 (Leerzeichen) 
und Füllzeichen setzen 
Rest mit Füllzeichen füllen 
und Ende der Routine 


************************************ Lösche Cursorzeile inkl. 

BiIdschirmverschieben 


0B2D: 

21 

OC 

OC 

LD 

HL,$0C0C 

0B3O: 

E5 



PUSH 

HL 

0B31: 

3A 

OC 

24 

LD 

A,($240C) 

0B34: 

FE 

17 


CP 

$17 

0B36: 

28 

E3 


JR 

Z,$0B1B 

0B38: 

DO 



RET 

NC 

0B39: 

CD 

C2 

0C 

CALL 

$0CC2 

0B3C: 

21 

00 

14 

LD 

HL,$1400 

0B3F: 

19 



ADD 

HL,DE 

0B40: 

E5 



PUSH 

HL 

0B41: 

11 

50 

00 

LD 

DE,$0050 

0B44: 

19 



ADD 

HL,DE 

0B45: 

EB 



EX 

DE, HL 

0B46: 

21 

80 

1B 

LD 

HL,$1B80 

0B49: 

AF 



XOR 

A 

0B4A: 

ED 

52 


SBC 

HL,DE 

0B4C: 

44 



LD 

B, H 

0B4D: 

4D 



LD 

C.L 

0B4E: 

EB 



EX 

DE,HL 

0B4F: 

Dl 



POP 

DE 

0B5O: 

C5 



PUSH 

BC 

0B51: 

E5 



PUSH 

HL 

0B52: 

05 



PUSH 

DE 

0853: 

ED 

B0 


LDIR 


0B55: 

01 

00 

08 

LD 

BC,$0800 

0B58: 

El 



POP 

HL 

0B59: 

09 



ADD 

HL,BC 

0B5A: 

EB 



EX 

DE,HL 

0B5B: 

El 



POP 

HL 

0B5C: 

09 



ADD 

HL,BC 


Rücksprungsadresse $0C0C 
auf Stapel hinzufügen 
Hole Cursorzeile 
Letzte Zeile? 

lediglich letzte Zeile löschen 

Bei NC Fehler und Ende 

Cursoradresse/Restzei chen 

Offset für 80-Zeichen-Simulator 

zur Cursoradresse addieren 

Rette Quelladresse auf Stapel 

Offset für Start Folgezeile 

addieren 

Ergebnis nach DE 

Adresse Statuszeile 

Lösche Carry für Subtraktion 

Ermittelt Zeichen bis Bildende 

Anzahl 

nach BC 

Startadresse->HL 

Hole Startadresse Cursorzeile 

Rette Anzahl auf Stapel 

Rette Quelladresse auf Stapel 

Rette Zieladresse auf Stack 

Und Zeile löschen 

Offset für Farbram 

zur Quelladresse 

hinzuaddieren 

Ergebnis nach DE 

Hole Startadresse vorletzte 

Zeile Farbram 

ebenfalls Offset addieren 
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0B5D: 

CI 

POP 

BC 

Hole Anzahl 

0B5E: 

ED B0 

LDIR 


und Farbram auch verschieben 

0B60: 

18 B9 

JR 

$0B1 B 

letzte Zeile löschen 


************************************ <g>»3uszusch31tende 

<C>reinzuschaltende Bits 
bei Zeichenfarbe 


0B62 

78 


LD 

A.B 

0B63 

E6 

70 

AND 

$70 

0B65 

47 


LD 

B.A 

0B66 

79 


LD 

A,C 

0B67 

E6 

70 

AND 

$70 

0B69 

4F 


LD 

C,A 

0B6A 

3A 

OD 24 

LD 

A,($240D) 

0B6D 

2F 


CPL 


0B6E 

B0 


OR 

B 

0B6F 

2F 


CPL 


0B70 

Bl 


OR 

C 

0B71 

32 

OD 24 

LD 

($240D),A 

0B74 

17 


RLA 


OB 75 

E6 

80 

AND 

$80 

OB 77 

32 

10 24 

LD 

($2410),A 

0B7A 

C9 


RET 


******★**★***★★***★***************** 

0B7B 

78 


LD 

A.B 

0B7C 

D6 

20 

SUB 

$20 

0B7E 

FE 

30 

CP 

$30 

0B80 

04 

OO 

OE 

JR 

C,$0B90 

0B82 

0E 

30 

LD 

C,$30 

0B84 

CD 

E5 OC 

CALL 

$0CE5 

0B87 

D8 


RET 

C 

0B88 

7E 


LD 

A,(HL) 

0B89 

0F 


RRCA 


0B8A 

0F 


RRCA 


0B8B 

0F 


RRCA 


0B8C 

OF 


RRCA 


0B8D 

E6 

OF 

AND 

$0F 

0B8F 

80 


ADD 

A.B 

0B90 

FE 

10 

CP 

$10 

0B92 

38 

29 

JR 

C,$0BBD 

0B94 

FE 

20 

CP 

$20 

0B96 

U4 

00 

OB 

JR 

C,$0BA3 


auszuschaltende Bits nach <A> 

Bit 7 und Bits 0-3 löschen 
Ergebnis nach <B> 

Hole zu setzende Bits 
Bits 0,1,2,3,4,7 löschen 
Ergebnis nach C 
Hole Attribut 
komplementieren und 
zu löschende Attribute setzen 
erneut komplementieren und 
zu setzende Eigenschaften setzen 
neues Attribut merken 
6. Bit ins 7. shiften 
(Reverszeichen) und ausmaskieren 
$00 oder $80 als Füllzeichen 
Ende der Routine 


auszugebendes Zeichen <Akku> 
Minus ASCII 32 
kleiner als 48? 

Ja, dann Sprung 
sonst merke 48 als abgezogen 
weitere Dekodierung 
Alles klar 
Hole Farbe 
/2 

/2=/4 

/2=/8 

/2=/16 

Bits 4-7 ausmaskieren 
und <B> wieder hinzuaddieren 
Übertrag ins höherw. Nibble? 
Nein, neue Farbe definieren 
Rahmen- oder Hintergrundfarbe? 
Hintergrundfarbe definieren 
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************************************ Rahmenfarbe setzen 


0B98 

E6 OF 

AND 

$0F 

Bits 7-4 ausmaskieren 

0B9A 

32 OF 24 

LD 

($240F),A 

und Rahmenfarbe merken 

0B9D 

01 20 DO 

LD 

BC,$D020 

Adresse für Rahmenfarbe 

OBAO 

ED 79 

OUT 

<C),A 

Rahmenfarbe an VIC übergeben 

0BA2 

C9 

RET 


Ende der Routine 

************************************ 

Hintergrundfarbe 40-Zeichen setzen 

0BA3 

E6 OF 

AND 

$0F 

Bits 4-7 ausmaskieren 

0BA5 

32 OE 24 

LD 

($240E),A 

und Hintergrundfarbe merken 

0BA8 

01 21 DO 

LD 

BC,$D021 

Adresse für Hintergrundfarbe 

OBAB 

ED 79 

OUT 

(C),A 

Hintergrundfarbe an VIC 

OBAD 

C9 

RET 


Ende der Routine 

************************************ 

Hole: <B>:Hintergrund, <C>:Rahmen, 





<D>:Zeichenfarbe 

OBAE 

3A OE 24 

LD 

A,($240E) 

Hole Hintergrundfarbe 

OBB1 

47 

LD 

B,A 

in <B> merken 

0BB2 

3A OF 24 

LD 

A,($240F) 

Hole Rahm 

0BB5 

4F 

LD 

C, A 

in <C> merken 

OBB6 

3A OD 24 

LD 

A,($240D) 

Hole Zeichenfarbe 

0BB9 

57 

LD 

D,A 

in <D> merken 

OBBA 

E6 OF 

AND 

$0F 

unnötige Bits 7-4 ausmaskieren 

OBBC 

C9 

RET 


Ende der Routine 

************************************ 

neue Farbe definieren 

OBBD 

47 

LD 

B,A 

Code nach <B> 

OBBE 

3A OD 24 

LD 

A,($240D) 

Hole alte Farbe 

OBC1 

E6 FO 

AND 

$F0 

Bits 0 bis 3 ausmaskieren 

0BC3 

BO 

OR 

B 

und neue Farbe reinORen 

0BC4 

32 OD 24 

LD 

($240D),A 

Neue Farbe abspeichern 

0BC7 

2A 09 24 

LD 

HL,($2409) Hol« Cursoradresse 

OBCA 

11 00 08 

LD 

DE,$0800 

Offset für Attribut-RAM 

OBCD 

19 

ADD 

HL,DE 

addieren 

OBCE 

77 

LD 

(HL),A 

neue Farbe setzen 

************************************ 

Zeile aus RAM in Bildschirm 

OBCF 

3A 04 24 

LD 

A,($2404) 

Merker für Ausgabe 

0BD2 

47 

LD 

B, A 

nach <B> 

0BD3 

B7 

OR 

A 

Setze Flags 

0BD4 

FC 3C OC 

CALL 

M,$0C3C 

Bit 7 gesetzt, dann anpassen 

0BD7 

3A 02 24 

LD 

A,($2402) 

Hole angepaßte Spalte 

OBDA 

B8 

CP 

B 

gleich mit 80-Zeichen-Spalte? 







776 


128 Intern 


OBDB 

32 

04 

24 

LD 

($2404) ,A 

merke Spalte 

OBDE 

20 

2C 


JR 

NZ,$OCOC 

ungleich, dann Sprung 

OBEO 

CD 

C2 

OC 

CALL 

S0CC2 

Cursorposition berechnen 

0BE3 

21 

00 

14 

LD 

HL,$1400 

Offset $1400 

0BE6 

19 



ADD 

HL,DE 

addieren 

OBE7 

EB 



EX 

DE,HL 

und in DE merken 

OBE8 

2A 

02 

24 

LD 

HL,($2402) 

plus der angepaßten Spalte 

OBEB 

19 



ADD 

HL,DE 

ergibt Zieladresse 

OBEC 

E5 



PUSH 

HL 

auf Stack sichern 

OBED 

3A 

OC 

24 

LD 

A,($240C) 

Hole Zeile 

OBFO 

6F 



LD 

L,A 

und nach <L> 

OBF1 

CD 

70 

OC 

CALL 

$OC70 

Zeilenbeginn für 40-Zeichen 

0BF4 

EB 



EX 

DE,HL 

und in DE merken 

0BF5 

El 



POP 

HL 

angepaßte Adresse holen 

OBF6 

E5 



PUSH 

HL 

und wieder retten 

OBF7 

D5 



PUSH 

DE 

rette Zeilenbeginn 

OBF8 

3E 

01 


LD 

A,$01 

1 Zeile ist zu kopieren 

OBFA 

CD 

27 

OC 

CALL 

$0C27 

kopiere ($1400+SP) in Bildschirm 

OBFO 

El 



POP 

HL 

40-Zeichen-Adresse zurück 

OBFE 

01 

00 

E4 

LD 

BC,$E400 

Offset für Farbram 

OCOI 

09 



ADD 

HL,BC 

Offset addieren 

0C02 

EB 



EX 

DE, HL 

und in DE merken 

0C03 

El 



POP 

HL 

hole Quelladresse 

0C04 

01 

00 

08 

LD 

BC,$0800 

Offset für BiIdschirmfarbram 

0C07 

09 



ADD 

HL.BC 

zu Quelladresse addieren 

0C08 

3E 

01 


LD 

A,$01 

1 Zeile 

OCOA 

18 

1B 


JR 

$0C27 

und kopieren 

***★★★★★*★**★**★★*★************★***★ 

-Zeichen-Bildschirm kopieren 

ococ 

2A 

02 

24 

LD 

HL,($2402) 

Hole angepaßte Cursoradresse 

OCOF 

3A 

08 

24 

LD 

A,($2408) 

Anzahl darzustellender 







Zeichen/Zeile 

0C12 

E5 



PUSH 

HL 

Rette Cursoradresse 

0C13 

F5 



PUSH 

AF 

Rette Anzahl/Zeichen 

0C14 

11 

00 

14 

LD 

DE,$1400 

Offset für 80-Zeichen-Simulation 

0C17 

19 



ADD 

HL,DE 

addieren 

OC18 

11 

00 

2C 

LD 

DE,$2C00 

tats. Videoram 

OC1B 

CD 

27 

OC 

CALL 

$0C27 

Zeile kopieren 

OC1E 

Fl 



POP 

AF 

Hole Anzahl 

OC1F 

El 



POP 

HL 

Hole Quelladresse 

0C20 

11 

00 

IC 

LD 

DE,$1C00 

Offset für Farbram 

0C23 

19 



ADD 

HL,DE 

addieren 

0C24 

11 

00 

10 

LD 

DE,$1000 

Farbramadresse (angepaßt) 
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**★★★**★*★*★★★★★★***★*****★★**★★★★** (HL) -> (DE) 40 Zeichen in 

Bildschirm <A> Zeilen 


0C27 

32 

03 

FF 

LD 

($FF03),A 

0C2A 

01 

28 

00 

LD 

BC,$0028 

0C2D 

ED 

B0 


LDIR 


0C2F 

05 



PUSH 

DE 

0C30 

11 

28 

00 

LD 

DE,$0028 

0C33 

19 



ADD 

HL,DE 

0C34 

Dl 



POP 

DE 

0C35 

3D 



DEC 

A 

0C36 

20 

F2 


JR 

NZ,$0C2A 

0C38 

32 

01 

FF 

LD 

($FF01),A 

0C3B 

C9 



RET 





0C3C 

3A 

OB 

24 

LD 

A,($240B) 

0C3F 

D6 

20 


SUB 

$20 

0C41 

30 

01 


JR 

NC,$0C44 

0C43 

AF 



XOR 

A 

0C44 

E6 

F8 


AND 

$F8 

0C46 

32 

02 

24 

LD 

($2402),A 

0C49 

C9 



RET 



★ ★'fr*'******************************** 


0C4A: 

CD 

69 

OC 

CALL 

$0C69 

0C4D: 

CD 

er 

OB 

CALL 

$0BCF 

0C50: 

3A 

02 

24 

LD 

A,($2402) 

0C53: 

47 



LD 

B, A 

0C54: 

2A 

OB 

24 

LD 

HL,($240B) 

0C57: 

7D 



LD 

A,L 

0C58: 

90 



SUB 

B 

0C59: 

38 

0E 


JR 

C,$0C69 

0C5B: 

FE 

28 


CP 

$28 

0C5D: 

30 

0A 


JR 

NC,$0C69 

0C5F: 

4F 



LD 

C, A 

0C60: 

06 

00 


LD 

B,$00 

0C62: 

6C 



LD 

L,H 

0C63: 

CD 

70 

OC 

CALL 

$0C70 

0C66: 

09 



ADD 

HL, BC 

0C67: 

18 

03 


JR 

$0C6C 

0C69: 

21 

00 

00 

LD 

HL,$0000 

0C6C: 

22 

06 

24 

LD 

($2406),HL 

0C6F: 

C9 



RET 



PCRC als Konfigurationsbyte 

40 Zeichen sind zu kopieren 

(HL) -> (DE) 

rette Zieladresse 

40 Zeichen sind kopiert worden 

addiere zu Quelladresse 

hole Zieladresse 

erniedrige den Zähler 

noch eine Zeile zu kopieren 

sonst PCRA als Konfig.-Byte 

Ende der Routine 

alte anpassen 

Hole Spalte 
minus 32 

Kein Übertrag entstanden 
sonst lösche Akku (=0) 

Bits 0-2 ausmaskieren 
angepaßte Spalte merken 
Ende der Routine 

ile kopieren 

$2406 löschen 

Zeile kopieren 

Hole angepaßte Spalte 

in <B> merken 

Hole Zeile/Spalte 

Spalte nach <A> 

minus angepaßter Spalte 

zu klein, dann $2406 löschen 

zu groß • größer als 40? 

dann $2406 löschen 

Spalte nach <C> 

Hi-Byte von BC löschen 
<l>=Zeile 

Und Startadresse Zeile berechnen 

addiere Spalte 

und merken der Adresse 

Startadresse ist erste Position 

merken der Position 

Ende der Routine 
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************************************ zeile*40 + Offset 


0C70: 

26 00 

LD 

H,$00 

0C72: 

29 

ADD 

HL,HL 

0C73: 

29 

ADD 

HL,HL 

0C74: 

29 

ADD 

HL,HL 

0C75: 

54 

LD 

D,H 

0C76: 

5D 

LD 

E,L 

0C77: 

29 

ADD 

HL,HL 

0C78: 

29 

ADD 

HL,HL 

0C79: 

19 

ADD 

HL,DE 

0C7A: 

11 00 2C 

LD 

DE,$2C00 

0C7D: 

19 

ADD 

HL,DE 

0C7E: 

C9 

RET 



************************************ 


0C7F: 

78 

LD 

A,B 

0C80: 

FE 40 

CP 

$40 

0C82: 

28 3C 

JR 

Z,$0CC0 

0C84: 

D8 

RET 

C 

0C85: 

FE 5B 

CP 

$5B 

0C87: 

D8 

RET 

C 

0C88: 

D6 40 

SUB 

$40 

0C8A: 

FE 20 

CP 

$20 

0C8C: 

28 19 

JR 

Z,$0CA7 

0C8E: 

38 23 

JR 

C,$0C83 

0C90: 

D6 20 

SUB 

$20 

0C92: 

FE 1B 

CP 

$18 

0C94: 

D8 

RET 

C 

0C95: 

FE 1B 

CP 

$1B 

0C97: 

28 11 

JR 

Z,$0CAA 

0C99: 

FE IC 

CP 

SIC 

0C9B: 

28 10 

JR 

Z,$0CAD 

0C9D: 

FE ID 

CP 

$10 

0C9F: 

28 0F 

JR 

Z,$0CB0 

0CA1: 

FE IE 

CP 

SIE 

0CA3: 

CO 

RET 

NZ 

0CA4: 

3E 40 

LD 

A,$40 

0CA6: 

C9 

RET 



Hi-Byte löschen 
*2 
*2 

* 2=*8 
nach DE 
merken 
*2 

*2=*32 

*32+*8 ergibt *40 

Offset von $2C00 (Textanfang) 

addieren 

Ende der Routine 

ASCI1-Code-Anpassung für 40-Zeichen 

Zeichen nach <Akku> 

Ist es ASCII 64 (3) 

Ja, dann Poke-Code=0 
Bei kleiner, Ende 
kleiner als ASCII "Z"+1? 

Ja, dann Rückkehr 
64 abziehen 
Ist es Apostroph? 

Ja, dann Codiere 
Kleiner als Apostroph 
minus ASCII 32 
Grenze kleine Buchstaben 
Kleiner, dann Ende 
erneut vergleichen 
kleiner ASCII "ä"? 
kleines "ö“? 

Ja, dann codiere 
kleines "ü"? 

Ja, dann codiere 
Ist es "ß"? 

Nein, dann Rückkehr 
Sonst codiere 64 
und Ende der Routine 


************************************ ASCII"Code 126 generieren 


0CA7: 3E 7E 
0CA9: C9 


LD 

RET 


A,$7E 


126 

Ende der Routine 
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************************************ ASCII*Code 115 


OCAA: 

3E 73 

LD 

A,$73 

115 

OCAC: 

C9 

RET 


Ende der Routine 

************************************ 

ASCII-Code 93 

OCAD 

3E 5D 

LD 

A,$5D 

93 

OCAF 

C9 

RET 


Ende der Routine 

************************************ 

ASCII-Code 107 

OCBO 

3E 6B 

LD 

A,$6B 

107 

0CB2 

C9 

RET 


Ende der Routine 

************************************ 

ASCII-Code 28 

0CB3 

FE IC 

CP 

$1C 

ASCII 28? 

0CB5 

28 06 

JR 

Z.SOCBD 

Ja, dann zuordnen 

0CB7 

FE 1F 

CP 

$1F 

ASCII 31? 

0CB9 

CO 

RET 

NZ 

Nein, dann Ende mit 

OCBA 

3E 64 

LD 

A,$64 

Sonst ASCII 100 

OCBC 

C9 

RET 


Ende der Routine 

************************************ 

ASCII-Code 127 zuordnen 

OCBD 

3E 7F 

LD 

A,$7F 

127 

OCBF 

C9 

RET 


Ende der Routine 

************************************ 

<Akku> löschen 

occo 

AF 

XOR 

A 

<Akku> löschen 

0CC1 

C9 

RET 


Ende der Routine 


************************************ <c>;79■SpsltG und Cursorpos. 

berechnen 


0CC2: 

2A 

OB 

24 

LD 

HL,($240B) 

Hole Zeile/Spalte 

0CC5: 

18 

03 


JR 

SOCCA 

weitermachen 

0CC7: 

2A 

13 

24 

LD 

HL,($2413) 

Hole Zeite/Spalte 

0CCA: 

3E 

4F 


LD 

A,$4F 

dezimal 79 

OCCC: 

95 



SUB 

L 

minus Spalte 

OCCD: 

4F 



LD 

C, A 

in <C> merken (Restanzahl 

80) 
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************************************ Cursorposition berechnen 

<H>:Zeile, <L>:Spalte 


OCCE 

45 


LD 

B,L 

<B> gleich Spalte 

OCCF 

6C 


LD 

L.H 

<L> ist nun Zeile 

0CD0 

26 

00 

LD 

H,$00 

lösche Hi-Byte 

0CD2 

29 


ADD 

HL,HL 

*2 

0CD3 

29 


ADD 

HL,HL 

*2 

0CD4 

29 


ADD 

HL,HL 

*2 

0CD5 

29 


ADD 

HL,HL 

*2=*16 

0CD6 

54 


LD 

D.H 

<DE> wird nun mit 

0CD7 

5D 


LD 

E.L 

Zeile mal 16 belegt 

0CD8 

29 


ADD 

HL,HL 

*2 

0CD9 

29 


ADD 

HL,HL 

*2 ergibt *64 

OCDA 

19 


ADD 

HL,DE 

plus *16 ergibt *80 

OCDB 

EB 


EX 

DE,HL 

Zeile mal 80 nach <DE> 

OCDC 

68 


LD 

L,B 

Spalte nach <L> 

OCDD 

26 

00 

LD 

H,$00 

Hi-Byte löschen 

OCDF 

19 


ADD 

HL,DE 

und Zeile*80 addieren 

OCEO 

06 

00 

LD 

B,$00 

Lösche Hi-Byte von <BC> 

0CE2 

3C 


INC 

A 

<A>:=Anzahl möglicher Zeichen 

0CE3 

C9 


RET 


Ende der Routine 


ASCII-Dekodierung Cont'd 

0CE4 

78 


LD 

A,B 

Zeichen nach <Akku> 

0CE5 

2A 

00 FD 

LD 

HL,($FDOD) 

Tabellenzeiger 

0CE8 

D6 

30 

SUB 

$30 

Minus ASCII 48 "0" 

OCEA 

D8 


RET 

C 

Kleiner, dann Ende 

OCEB 

B9 


CP 

C 

Sonst vergleiche mit <C> 






(abgezogener Wert) 

OCEC 

3F 


CCF 


Carry-Flag negieren 

OCED 

D8 


RET 

C 

Und bei größer/gleich Ende 

OCEE 

47 


LD 

B, A 

Sonst Zeichen nach <B> 

OCEF 

E6 

OF 

AND 

$0F 

Bits 0-3 ausmaskieren 

0CF1 

5F 


LD 

E, A 

Lo-Byte gleich <Akku> 

0CF2 

16 

00 

LD 

D,$00 

und Hi-Byte löschen 

0CF4 

19 


ADD 

HL,DE 

zur Tabellenbasis addieren 

0CF5 

78 


LD 

A,B 

Zeichen wieder nach <Akku> 

0CF6 

E6 

30 

AND 

$30 

Bits 6,7 und 0-3 ausmaskieren 

0CF8 

47 


LD 

B, A 

Zeichen wieder nach <B> 

0CF9 

C9 


RET 


Ende der Routine 

**********^************************* 

Ton erklingen lassen 

OCFA 

01 

18 D4 

LD 

BC,$D418 

SID Register 24 

OCFD 

2A 

10 FD 

LD 

HL,($FD10) 

Hole Attack/Decay/Volume 

ODOO 

ED 

61 

OUT 

(C), H 

Gesamt lautstärke/FiIter 
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0D02 

0E 05 



LD 

C,$05 

0D04 

ED 69 



OUT 

(C),L 

OD06 

2A 12 

FD 


LD 

HL,($FD12) 

OD09 

OC 



INC 

C 

0D0A 

ED 61 



OUT 

(C),H 

0D0C 

0E 01 



LD 

C,$01 

0D0E 

ED 69 



OUT 

(C),L 

0D10 

2A 14 

FD 


LD 

HL,($FD14) 

0D13 

0E 04 



LD 

C,$04 

0D15 

ED 61 



OUT 

(C),H 

0D17 

ED 69 



OUT 

(C),L 

0D19 

C9 



RET 


************************************ 

0D1A 

1100: 

A9 

00 


LDA #$00 

0D1C 

1102: 

80 

00 

FF 

STA $FF00 

0D1F 

1105: 

6C 

FC 

FF 

JMP ($FFFC 


Register 5 des SID: Attack/Decay 
definieren 

Hole Sustain/Release/Frequenz 
Register 6 des SID 
Sustain/Release definieren 
Register 1 des SID: Frequenz 
Frequenz (HI) definieren 
Hole Ein/Ausschalten 
Register 4 des SID 
Einschalten des Tones 
Bit zum Sustain löschen 
Ende der Tonerklingungsroutine 

Wird nach $1100 kopiert 

Konfigurationsbyte 
setzen (alles ROM) 

) Reset des C128-Modus 


************************************ yjpcj nach $3000 kopiert 

Lesen eines Diskettenblockes 


0D22: 3000: A9 

00 


LDA 

o 

o 

£ 

0D24: 3002: 8D 

06 

FD 

STA 

$FD06 

0D27: 3005: 20 

11 

30 

JSR 

$3011 

0D2A: 3008: 78 



SEI 


0D2B: 3009: A9 

3E 


LDA 

#$3E 

0D2D: 300B: 8D 

00 

FF 

STA 

$FF00 

0D30: 300E: 4C 

DO 

FF 

JMP 

$FFD0 

0D33: 3011: D8 



CLD 


0D34: 3012: AD 

01 

FD 

LDA 

$FD01 

0D37: 3015: DO 

21 


BNE 

$3038 

0D39: 3017: A2 

00 


LDX 

#$00 

0D3B: 3019: 8E 

00 

FF 

STX 

$FF00 

0D3E: 301C: 8E 

1A 

DO 

STX 

$D01A 

0D41: 301F: A2 

63 


LDX 

#$63 

0D43: 3021: A0 

31 


LDY 

#$31 

0D44: 3023: 8E 

14 

03 

STX 

$0314 

0D48: 3026: 8C 

15 

03 

STY 

$0315 

0D4B: 3029: 8E 

16 

03 

STX 

$0316 

0D4E: 302C: 8C 

17 

03 

STY 

$0317 

0D51: 302F: 8E 

18 

03 

STX 

$0318 

0D54: 3032: 8C 

19 

03 

STY 

$0319 

0D57: 3035: 4C 

D7 

30 

JMP 

$30D7 


Noch ist kein 
Fehler aufgetreten 
Laden des Blockes 
Interrupt verhindern 
RAM und System I/O 
als Konfigurationsbyte 
und Z-80 einschalten 

Lösche Dezimalflag 

Flag für Vektoren setzen 

gelöscht? 

ROM und System I/O 
einschalten 

IMR im VIC-Chip löschen 
Lo-Byte anzuspringender Routine 
und Hi-Byte derselben 
Lo-Byte als IRQ-Routine 
Hi-Byte als IRQ-Routine 
Lo-Byte als BRK-Routine 
Hi-Byte als BRK-Routine 
Lo-Byte als NMI-Routine 
Hi-Byte als NMI-Routine 
Weitermachen bei $30D7 
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********************************* L esen von Block (Spur/Sektor) 

& Ablage im Speicher 

0D5A: 3038: AD 18 FD LDA $FD18 Lo-Byte Zieladresse 

0D5D: 303B: 85 20 STA $20 nach $20 

0D5F: 303D: AD 19 FD LDA $FD19 Hi-Byte Zieladresse 

0D62: 3040: 85 21 STA $21 nach $21 kopieren 

0D64: 3042: AD 03 FD LDA $FD03 Hole Spur 

0D67: 3045: 8D BF 31 STA $31BF in Diskettenkommando kopieren 

0D6A: 3048: 20 78 31 JSR $3178 macht aus <Akku> ASCII "xx" 

0D6D: 304B: 8E Bl 31 STX $31B1 Zehnerstelle Track und 

0D70: 304E: 8D B0 31 STA $31B0 Einerstelle in Kommandozeile 

0D73: 3051: AD 04 FD LDA $FD04 Hole Sektornummer 

0D76: 3054: 8D BE 31 STA $31BE Sektornummer für FSD übergeben 

0D79: 3057: 20 78 31 JSR $3178 und in ASCII wandeln 

0D7C: 305A: 8E AE 31 STX $31AE Zehnerstelle Sektor sowie 

0D7F: 305D: 8D AD 31 STA $31AD Einerstelle in Kommandozeile 

0D82: 3060: AD 08 FD LDA $FD08 Teste, ob Kanal eröffnet wurde 

0D85: 3063: DO 2B BNE $3090 Nein, dann Sprung nach $3090 

0D87: 3065: 8D 00 FF STA $FF00 Konfig.-Byte auf OF (ROM) setzen 

0D8A: 3068: A2 OB LDX #$0B Kanal 11 (#) als Eingabe- 

ODBC: 306A: 20 C6 FF JSR $FFC6 kanal definieren 

0D8F: 306D: B0 16 BCS $30A7 Bei Fehler nach $30A7 

0D91: 306F: 20 CC FF JSR $FFCC CLRCH; Ein/Ausgabe wieder normal 

0D94: 3072: 20 31 31 JSR $3131 Track/Sektor lesen 

0D97: 3075: 20 99 31 JSR $3199 Kanal 11 (#) als Eingabekonal 

0D9A: 3078: A0 00 LDY (K$00 Y-Index auf null 

0D9C: 307A: 20 CF FF JSR $FFCF BASIN; Zeichen von Floppy holen 

0D9F: 307D: 91 20 STA ($20),Y und Zeichen im RAM ablegen 

0DA1: 307F: C8 INY nächstes Byte 

0DA2: 3080: DO F8 BNE $307A Ende noch nicht erreicht 

0DA4: 3082: 4C CC FF JMP $FFCC CLRCH; Ein/Ausgabe wieder normal 

0DA7: 3085: A9 FF LDA #$FF Block konnte nicht geholt werden 

0DA9: 3087: 2C .Byte $2C Skip; überspringe Folgekommando 

0DAA: 3088: A9 0D LDA #$0D Kennzeichen für Fehler 

ODAC: 308A: 8D 06 FD STA $FD06 aufgetreten setzen 

0DAF: 308D: 4C 08 30 JMP $3008 wieder in Z-80-Teil 

********************************** gaten von Floppy lesen 


0DB2: 3090: A9 00 LDA #$00 ROM und System I/O als 

0DB4: 3092: 8D 00 FF STA $FF00 Konfigurationsbyte setzen 

0DB7: 3095: A2 0F LDX #$0F Logische Filenummer 15 

0DB9: 3097: 20 C9 FF JSR $FFC9 Befehlskanal als Ausgabekanal 

ODBC: 309A: B0 EC BCS $3088 bei Fehler anzuspringen 

0DBE: 309C: A0 06 LDY #$06 Sechs Zeichen auszugeben 

0DC0: 309E: B9 BC 31 LDA $31BC,Y Hole Zeichen aus Tabelle 
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0DC3: 30A1: 20 

D2 

FF 

JSR 

$FFD2 

0DC6: 30A4: 88 



DEY 


0DC7: 30A5: DO 

F7 


BNE 

$309E 

0DC9: 30A7: 20 

cc 

FF 

JSR 

*FFCC 

ODCC: 30AA: 2C 

OD 

DC 

BIT 

*DC0D 

ODCF: 30AD: AE 

BD 

31 

LDX 

*31 BD 

0DD2: 30B0: 20 

4F 

31 

JSR 

*314F 

0DD5: 30B3: 29 

0E 


AND 

#*0E 

0DD7: 30B5: DO 

Dl 


BNE 

*3088 

0DD9: 30B7: A0 

00 


LDY 

#*00 

ODDB: 30B9: 20 

4F 

31 

JSR 

*314 F 

ODDE: 30BC: 91 

20 


STA 

C *20), 

0DE0: 30BE: C8 



INY 


0DE1: 30BF: DO 

F8 


BNE 

*30B9 

0DE3: 30C1: E6 

21 


INC 

$21 

0DE5: 30C3: CA 



DEX 


0DE6: 30C4: DO 

EA 


BNE 

*30B0 

0DE8: 30C6: AD 

00 

DD 

LDA 

*DD00 

ODEB: 30C9: 29 

EF 


AND 

#*E F 

ODED: 30CB: 8D 

00 

DD 

STA 

$DD00 

0DF0: 30CE: 60 



RTS 


0DF1: 30CF: A9 

0F 


LDA 

#$0F 

0DF3: 30D1: 8D 

06 

FD 

STA 

*FD06 

0DF6: 30D4: 4C 

08 

30 

JMP 

*3008 

0DF9: 3007: A9 

0F 


LDA 

#$0F 

ODFB: 30D9: 18 



CLC 


0DFC: 30DA: 20 

C3 

FF 

JSR 

*FFC3 

0DFF: 30DD: A9 

0F 


LDA 

#*0F 

0E 01: 30DF: 80 

08 

FD 

STA 

SFD08 

0E03: 30E2: A2 

08 


LDX 

#*08 

0E06: 30E4: A8 



TAY 


0E07: 30E5: 20 

BA 

FF 

JSR 

*FFBA 

0E0A: 30E8: A9 

00 


LDA 

#*00 

0E0C: 30EA: 8D 

IC 

0A 

STA 

*0A1C 

0E0F: 30ED: AA 



TAX 


0E10: 30EE: 20 

68 

FF 

JSR 

*FF68 

0E13: 30F1: A9 

04 


LDA 

#*04 

0E15: 30F3: A2 

B8 


LDX 

#*B8 

OE 17: 30F5: A0 

31 


LDY 

#*31 

0E19: 30F7: 20 

BD 

FF 

JSR 

tFFBD 

0EIC: 30FA: 20 

CO 

FF 

JSR 

*FFC0 

0E1F: 30FD: B0 

DO 


8CS 

*30CF 

0E21: 30FF: 20 

B7 

FF 

JSR 

*FFB7 

0E24: 3102: 2A 



ROL 

A 

0E25: 3103: B0 

CA 


BCS 

*30CF 


Ausgabe Zeichen auf Befehlskanal 
Nächstes Zeichen 
Noch weitere Zeichen auszugeben 
CLRCH; Ein/Ausgabe wieder normal 
Teste ICR 

Anzahl der Datenblöcke 

Hole Datenbyte (Fast-Modus) 

Teste Bits 1-3 

Fehler aufgetreten 

Index auf Null 

Hole Datenbyte (Fast-Modus) 

Lege Zeichen im RAM ab 

erhöhe den Zeiger 

Noch nicht alle Zeichen 

Erhöhe Hi-Byte des Pointers 

Erniedrige den Blockzähler 

Ueitere Blocks 

PRA CIA2 holen 

CLK-Bit ausmaskieren 

und wieder zurück 

Ende der Routine 

Logische Filenummer 15 
in $FD06 ablegen 
Z-80 einschalten 

Logische Filenummer 
Lösche Carry als Flag 
Schließen des Kanals 
Logische Filenummer 
Logische Filenummer merken 
Geräteadresse 
15 als Sekundäradresse 
SETLFS; Setzen der log. 

Fileparameter 
Schnellmodus der 
Floppy ausschalten 
Beide Konfigurationsindize 
für SETBNK auf null setzen 
Länge Filename 
Adresse Lo des Filenamens 
Adresse Hi des Filenamens 
SETNAM; Filenamenparameter 
OPEN der Datei 

Fehler aufgetreten, dann Sprung 
Statusbyte I/O holen 
Bit 7 ins Carry shiften 
Fehler aufgetreten, dann Sprung 
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0E27: 3105: 2C 

IC 

0A 

BIT 

o 

> 

n 

0E2A: 3108: 70 

26 


BVS 

$3130 

0E2C: 310A: A9 

OB 


LDA 

#$0B 

0E2E: 310C: 18 



CLC 


0E2F: 310D: 20 

C3 

FF 

JSR 

$FFC3 

0E32: 3110: A9 

OB 


LDA 

#$0B 

0E34: 3112: A2 

08 


LDX 

#$08 

0E36: 3114: A0 

08 


LDY 

#$08 

0E38: 3116: 20 

BA 

FF 

JSR 

$FFBA 

0E3B: 3119: A9 

00 


LDA 

#$00 

0E3D: 311B: 8D 

08 

FD 

STA 

$FD08 

0E40: 311E: AA 



TAX 


0E41: 311F: 20 

68 

FF 

JSR 

$FF68 

0E44: 3122: A9 

01 


LDA 

#$01 

0E46: 3124: A2 

BC 


LDX 

#$BC 

0E48: 3126: A0 

31 


LDY 

#$31 

0E4A: 3128: 20 

BD 

FF 

JSR 

$FFBD 

0E4D: 312B: 20 

CO 

FF 

JSR 

$FFC0 

0E50: 312E: B0 

9F 


BCS 

$30CF 

0E52: 3130: 60 



RTS 



Teste das Fast-Serial-Bit 
ist gesetzt, dann Sprung 
Logische Filenummer 11 
Lösche Carry als Flag 
Schließe Datei 11 
Logische Filenummer 11 
Gerätenummer 8 
Sekundäradresse 8 
SETLFS; Filedaten speichern 
LFN als nicht geöffnet 
an $FD08 löschen 
Beide Konfigurationsindizes 
sind null; SETBNK 
Länge des Filenamens 
Lo-Byte des Filenamens 
Hi-Byte des Filenamens 
SETNAM; Adresse Filename setzen 
OPEN 11,8,8,"fl"; Öffne Datei 
Fehler aufgetreten 
sonst Ende der Routine 


************************************ Track/Sektor lesen 


0E53: 3131: 20 

A4 

31 

JSR 

$31 A4 

0E56: 3134: A0 

0D 


LDY 

#$0D 

0E58: 3136: B9 

AB 

31 

LDA 

$31AB,Y 

0E5B: 3139: 20 

D2 

FF 

JSR 

$FFD2 

0E5E: 313C: 88 



DEY 


0E5F: 313D: DO 

F7 


BNE 

$3136 

0E61: 313F: 20 

CC 

FF 

JSR 

$FFCC 

0E64: 3142: 20 

89 

31 

JSR 

$3189 

0E67: 3145: F0 

05 


BEQ 

$314C 

0E69: 3147: A9 

00 


LDA 

#$0D 

0E6B: 3149: 8D 

06 

FD 

STA 

$FD06 

0E6E: 314C: 4C 

CC 

FF 

JMP 

$FFCC 


************************************ 


0E71: 314F: 78 



SEI 


0E72: 3150: AD 

00 

DD 

LDA 

#$ddoo 

0E75: 3153: 49 

10 


EOR 

#$10 

0E77: 3155: 8D 

00 

DD 

STA 

$DD00 

0E7A: 3158: A9 

08 


LDA 

#$08 

0E7C: 315A: 2C 

0D 

DC 

BIT 

$DC0D 

0E7F: 315D: F0 

FB 


BEQ 

$315A 


Befehlskanal auf Ausgabe legen 
13 Zeichen sind auszugeben 
"U1:8 0 tt ss<CR>" 

Hole Zeichen aus der Tabelle 

und ausgeben 

Zähler erniedrigen 

und Sprung, wenn weitere Zeichen 

CLRCH; Ein/Ausgabe wieder normal 

Befehlskanal zum Lesen Öffnen 

kein Fehler aufgetreten 

Merker für Fehler 

setzen 

CLRCH; Ein/Ausgabe wieder normal 


Uarte, bis SDR (Serial Data 
Register) fertig und 
hole dann Datenbyte 


Interrupt verhindern 

Hole PRA CIA2 

Clock-Leitung negieren 

Negiert zurückliefern 

SDR voll/leer-Bit abtesten 

SDR ist noch nicht fertig 

Warte, bis Timer Unterlauf hat 
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0E81: 315F: AD 

0C DC 

LDA SDCOC 

Hole SDR Serial Data Register 

0E84: 3162: 60 



RTS 

Ende der Routine 


0E85: 3163: AD 

OD 

DC 

LDA SDCOD 

Lösche Interruptregister im 

CI AI 

0E88: 3166: AD 

OD 

DD 

LDA SDDOD 

Lösche Interruptregister im 

CIA2 

0E8B: 3169: A9 

OF 


LDA #$0F 

Lösche Interruptregister 


0E8D: 316B: 8D 

19 

DO 

STA $D019 

des VIC-Chip 


0E90: 316E: 68 



PLA 

Konfiguration 


0E91: 316F: 80 

00 

FF 

STA $FFOO 

wiederherstellen 


0E94: 3172: 68 



PLA 

Y-Register 


0E95: 3173: A8 



TAY 

wiederherstellen 


0E96: 3174: 68 



PLA 

X-Register 


0E97: 3175: AA 



TAX 

wiederherstellen 


0E98: 3176: 68 



PLA 

Akku wiederherstellen 


OE99: 3177: 40 



RTI 

Ende der Interrupt-Routine 



********************************** mac h t aus <Akku> zwei ASCII-Codes 


0E9A: 3178: D8 

CLD 

Lösche Dezimalflag 

0E9B: 3179: A2 30 

LDX #$30 

Zehnerstelle zunächst einmal "0" 

0E9D: 317B: 38 

SEC 

Setze Carry-Flag für Subtraktion 

0E9E: 317C: E9 OA 

SBC #$0A 

Zehn subtrahieren (probeweise) 

OEAO: 317E: 90 03 

BCC $3183 

Zuviel subtrahiert 

0EA2: 3180: E8 

INX 

sonst Zehnerstelle erhöhen 

0EA3: 3181: BO F9 

BCS S317C 

und weitermachen 

0EA5: 3183: 69 3A 

ADC #$3A 

Fehler korrigieren und ASCII - 



Basis addieren 

0EA7: 3185: 60 

RTS 

Ende der Routine 

************************************ 

Testet, ob auf Befehlskanal Fehler 



vor liegt 

0EA8: 3186: 20 D7 30 

JSR $3007 

Fehler bei Kanal 15 aufgetreten 

OEAB: 3189: A2 OF 

LDX #$0F 

Befehlskanal zum 

OEAD: 318B: 20 C6 FF 

JSR $FFC6 

Lesen öffnen; CHKIN 

OEBO: 318E: BO F6 

BCS $3186 

Fehler aufgetreten 

0EB2: 3190: 20 CF FF 

JSR $FFCF 

BASIN; Zeichen holen 

0EB5: 3193: C9 30 

CMP #$30 

Akku "0" vergleichen (dann OK) 

0EB7: 3195: 60 

RTS 

Ende der Routine 

************************************ 

Kanal 11 (#) zum Lesen vorbereiten 

0EB8: 3196: 20 OA 31 

JSR S310A 

Fehler bei Kanal 11 aufgetreten 

OEBB: 3199: A2 OB 

LDX #$0B 

Kanal 11 auf Eingabe 

OEBD: 319B: 20 C6 FF 

JSR SFFC6 

legen; CHKIN 

OECO: 319E: BO F6 

BCS $3196 

Fehler aufgetreten 

0EC2: 31A0: 60 

RTS 

Ende der Routine 
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************************************ 

Kanal 15 (Befehlskanal) auf Ausgabe 

0EC3 

31 AI: 20 D7 30 

JSR $30D7 


Fehler bei Kanal 15 aufgetreten 

0EC6 

31A4: A2 OF 

LDX #$0F 


Kanal 15 als Ausgabekanal 

0EC8 

31A6: 20 C9 FF 

JSR SFFC9 


durch CKOUT-Routine definieren 

OECB 

31A9: BO F6 

BCS S31A1 


Fehler aufgetreten 

OECD 

31AB: 60 

RTS 



Ende der Routine 

OECE 

31AC: OD 73 73 20 74 74 20 

30 


.ss tt 0 

0ED6 

31B4: 20 38 3A 31 55 30 4C 

00 


8:1U0L. 

OEDE 

31BC: 23 01 00 00 00 30 55 


#....0U 

************************************ 

Wird nach $FFDO kopiert (8502-Code) 

0EE5 

(SFFDO) 78 

SEI 



Interrupt verhindern 

0EE6 

<SFFD 1) A9 3E 

LDA 

#$3E 


Konfigurationsbyte $3E setzen 

0EE8 

($FFD3) 8D 00 FF 

STA 

$FFOO 


RAM und System I/O 

OEEB 

($FFD6) A9 BO 

LDA 

#$B0 


Z-80 einschalten 

OEED 

CSFFD8) 8D 05 D5 

STA 

$D505 


im MCR 

OEFO 

($FFDB) EA 

NOP 



Uartewirkung 

OE Fl 

($FFDC) 4C 00 30 

JMP 

$3000 


Sprung in nächsten Routinenteil 

0EF4 

($FFDF) EA 

NOP 



Buffer 

************************************ 

Wird nach $FFEO kopiert 

OEF5 

CtFFEO) F3 

DI 



Interrupts unterbinden 

0EF6 

C SF FE 1) 3E 3E 

LD 

A,$3E 

Konfigurationsbyte 

0EF8 

(SFFE3) 32 00 FF 

LD 

($FFOO),A setzen 

OEFB 

(SFFE6) 01 05 D5 

LD 

BC, 

$D505 Mode-Config.-Register 

OEFE 

($FFE9) 3E Bl 

LD 

A,$B1 

und 8502 einschalten 

OFOO 

($FFEB) ED 79 

OUT 

(C) 

,A 

durch Bit-O-setzen 

0F02 

($FFED) 00 

NOP 



Bufferwirkung 

0F03 

(SFFEE) CF 

RST 

$08 


Sprung in Z-80-Teil 

************************************ 

Allerlei Tabellen 

0F04 

9E FF BD 58 6F CE/00 OF 



ab / angepaßte Farbtabelle 

OFOC 

08 07 OB 04 02 OD 

OA OC 



für 40-Zeichen-Schirm 

0F14 

09 06 01 05 03 OE/OO 60 




OF1C 

30 18 OC 06 03 00 

18 3C 




OF24 

66 00 00 00 00 00 

00 00 




OF2C 

00 00 00 00 7F 00 

60 30 




0F34 

18 00 00 00 00 00 

IC 30 




0F3C 

30 60 30 30 IC 00 

18 18 




0F44 

18 18 18 18 18 00 

38 OC 




0F4C 

OC 06 OC OC 38 00 

00 18 




0F54 

2A 66 00 00 00 00 

00 00 




OF5D 

00 00 00 41 7F 00 

00 F2 
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0F64 

5B 

39 

01 

4E 

65 

37 

06 

03 

0F6C 

IE 

07 

OB 

68 

4B 

34 

17 

01 

0F74 

44 

62 

2D 

18 

12 

OB 

63 

59 

0F7C 

31 

17 

00 

OB 

59 

72 

2B 

18 

0F84 

OF 

63 

00 

4F 

2B 

05 

4C 

68 

0F8C 

2D 

17 

16 

69 

49 

25 

17 

13 

0F94 

45 

68 

29 

18 

17 

07 

OC 

68 

0F9C 

4B 

34 

13 

OF 

05 

4B 

70 

31 

0FA4 

31 

0D 

OD 

08 

08 

6C/0D 

3F 

OFAC 

7F 

3E 

7E 

BO 

OB 

00 

00 

01 

0FB4 

00/00 

05 

OA 

OF 

14 

04 

09 

OFBC 

OE 

13 

03 

08 

OD 

12 

02 

07 

0FC4 

OC 

11 

01 

06 

OB 

10 

00 

05 

OFCC 

0A 

OF 

01 

06 

OB 

10 

02 

07 

0FD4 

OC 

11 

03 

08 

OD 

12 

04 

09 

OFDC 

OE 

00 

05 

OA 

OF 

02 

07 

OC 

0FE4 

11 

04 

09 

OE 

01 

06 

OB 

10 

OFEC 

03 

08 

OD 

00 

05 

OA 

OF 

03 

0FF4 

08 

ÜD 

01 

06 

OB 

10 

04 

09 

OFFC 

0E 

02 

07 

OC 






ab / MMU-Registerbelegungen 

angepaßte Sektornummern nach 
verschiedenen 
Sektorgrößenbezi rken 
aufgeteiIt. 

Durch dieses Verfahren wird der 
Zugriff auf Diskette zeitlich 
noch optimiert 
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11, Tips und Tricks 


Dieses Kapitel kann natürlich nicht das gleichnamige Buch er¬ 
setzen, jedoch wollen wir Ihnen die wichtigsten bzw. nütz¬ 
lichsten Dinge erläutern, die wir herausgefunden haben. 

Sie können anhand der Beispiele auch ersehen wie man sich die 
vorliegende Zero-Page bzw. das dokumentierte ROM-Listing zu 
Nutze machen kann - denn dazu sind die Informationen ja 
schließlich da. 


11.1 STOP-Taste sperren 

Es kommt nicht selten vor, da will man dem Benutzer es nicht 
ermöglichen, durch Betätigen der STOP-Taste das Programm 
unterbrechen zu können - in manchen Situationen kann es ja gar 
gefährlich werden, wenn man aus Versehen einmal auf die 
STOP-Taste kommt. 

Will man ein solches Problem lösen, so sieht man in der Zero- 
Page nach. Hier befindet sich ab Adresse $0300 eine Tabelle mit 
Sprungkommandos für die wichtigsten Kernal-Routinen. Dieser 
Bereich stellt praktisch eine Schnittstelle für den Programmierer 
zum Betriebssystem dar, da er auf bestimmte Abläufe einwirken 
kann, indem er einfach die Sprungkommandos verbiegt (meistens 
dann auf eine eigene Routine). 

An Adresse $0328 befindet sich der Vektor für die Kernal- 
STOP-Routine - er zeigt auf $F66E. Genau an dieser Adresse 
$F66E wird der aktuelle Zustand der STOP-Taste aus der Zero- 
Page-Adresse $91 ermittelt. Diese Adresse $91 wiederum wird 
immer von der IRQ-Routine auf dem neuesten Stand gehalten. 
Überspringt man nun diese Abfrage, so erreicht man, daß ein 
eventuelles Betätigen der STOP-Taste von der STOP-Abfrage¬ 
routine nicht erkannt würde. Wir müssen also lediglich die 
Adresse $0328 korrigieren: Lassen Sie uns in diese Adresse ein¬ 
mal das Lo-Byte des Folgekommandos der STOP-Routine 
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hineinschreiben. Dies erreichen in BASIC wir durch folgenden 
POKE: 


POKE DEC("0328"),H2 : REM STOP-Taste sperren 

Der Vektor $0328/50329 zeigt nun nicht mehr auf $F66E son¬ 
dern auf $F670. Und siehe da: das Betriebssystem reagiert nicht 
mehr auf Betätigung der STOP-Taste, weder beim Programm¬ 
ablauf noch beim Listen o.ä. 

Damit hätten wir das erzielt, was wir uns Eingangs vorgenom¬ 
men haben. Jedoch trübt noch ein Fleck unser Wässerchen: Ist 
jemand so schlau, und betätigt die STOP-Taste und die Restore- 
Taste gleichzeitig, so wird unser Programm trotzdem unter¬ 
brochen! In der NMI-Routine wird zwar auch die STOP- 
Abfrage-Routine an der Adresse SF66E aufgerufen, allerdings 
wird nicht über den Vektor an Adresse $0328 gesprungen, so 
daß das Betätigen der STOP-Taste erkannt werden kann. 


11.2 STOP-RESTORE-Kombination sperren 

Wird diese Kombination auf der Tastatur betätigt, so wird die 
sogenannte NMI-Routine aufgerufen. NMI steht für Non- 
Maskable-Interrupt - es wird also ein Interrupt ausgelöst, den 
man nicht so einfach mittels dem SEI-Kommando ausschalten 
kann. 

Aber auch hierfür gibt es einen Vektor im Zero-Page-Bereich. 
Dieser für die NMI-Routine verantwortliche Vektor befindet 
sich an der Adresse $0318 und zeigt auf die NMI-Routine im 
Kernal an Adresse $FA40. 

Will man nun nicht, daß ein BASIC-Warmstart bei o.g. Tasten¬ 
kombination vollzogen wird, so muß man den NMI-Vektor auf 
das Ende der NMI-Routine legen. Es empfiehlt sich hier, den 
Vektor auf $FA62 umzulegen, da an dieser Stelle in die IRQ- 
Rücksprungroutine gesprungen wird, in der die Register wieder 
rückgesetzt werden und ein RTI ausgeführt wird. 



Tips und Tricks 


791 


Um nun aber die NMI-Routine zu verbiegen, ist folgendes 
BASIC-Kommando notwendig: 

POKE DEC("0318"),98 : NMI verbiegen 

Nachdem Sie dieses POKE-Kommando in Ihrem Programm 
integriert haben, zusammen mit dem Sperren der STOP-Taste, 
kommt niemand mehr aus Ihrem laufenden Programm heraus, es 
sei denn, er konstruiert einen RESET am User- oder Expansion- 
Port, den man aber auch abfangen kann... 


11.3 Der IRQ-Vektor 

Die IRQ-Routine im Kernal wird ca. jede 1/60-Sekunde auf¬ 
gerufen. Zuständig hierfür ist der CIA, der durch die Timer 
diesen Interrupt regelmäßig auslöst. 

Der Vektor für die IRQ-Routine befindet sich an der Adresse 
$0314 und zeigt normalerweise auf die Kernal-Adresse $FA65. 
Will man sich nun selbst in die IRQ-Routine einklinken, 
beispielsweise um eine eigene Sprite-Steuerung zu realisieren, 
oder weil man jede Sekunde die Rahmenfarbe wechseln will, so 
kann man dies auf diese Weise tun. 

Dazu sollte man den IRQ-Vektor auf seine eigene Routine ver¬ 
biegen und nach der Ausführung dieser Routine in die 
"restliche" Kernal-IRQ-Routine springen. Seien Sie aber vor¬ 
sichtig, wenn Sie den IRQ-Vektor verbiegen. Die Interrupts 
müssen unbedingt verboten werden, da sonst bei einem evtl, 
auftretenden Interrupt der Rechner in die Wüste gehen kann... 

Hier ist ein kleines Beispielprogramm, daß bei jedem 60. IRQ- 
Aufruf die Rahmenfarbe des 40-Zeichen-Bildschirmes um eins 
erhöht. 


;Einschalten der IRQ-Routine 


02000 

78 



SEI 


Interrupts verbieten 

02001 

A9 

oc 


LDA 

#$0C 

;lo-Byte der neuen IRQ-Routine 

02003 

80 

18 

03 

STA 

$0314 

;in Vektor speichern 

02006 

A9 

20 


LDA 

#$20 

;Hi-Byte der neuen IRQ-Routine 

02008 

o 

CC 

19 

03 

STA 

$0315 

;in Vektor speichern 
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0200B 

58 



CU 

.■Interrupts wieder zulassen 

0200C 

E6 

FD 


INC 

$FD ;Zähler erhöhen 

0200E 

A5 

FD 


LDA 

$FD ;Hole Zähler 

02010 

C9 60 


CMP 

#$3C ;Bereits 60? 

02012 

DO 

07 


BNE 

$201B ;Noch nicht erreicht 

02014 

EE 

20 

DO 

INC 

$D020 ;Rahmenfarbe erhöhen 

02017 

A9 

00 


LDA 

#$00 ;llnd Zähler wieder 

02019 

85 

FD 


STA 

$FD ;auf Null setzen 

0201B 

4C 

65 

FA 

JHP 

$FA65 ;Rest liehe IRQ-Routine 


Eingeschaltet wird diese IRQ-Routine, indem man die Ein¬ 
schaltroutine an Adresse $2000 aufruft. Dies geschieht durch: 

SYS DEC("2000") 

Ab diesem Zeitpunkt wird der Rahmen in regelmäßigen Ab¬ 
ständen die Farbe wechseln. Dies ist ein (wenn auch kleines) 
Beispiel, wie man sie die IRQ-Routine zu Nutze machen kann. 


11.4 Ausschalten des BASIC-Interrupts 

Wie bereits im Kapitel über den VIC-Chip erwähnt, kann es 
sehr ärgerlich sein, wenn der Interpreter einem immer 
"dazwischenfunkt". Aber auch hier gibt es Gegenmaßnahmen. 
Die Interrupts hören auf sich zu bewegen, wenn man dem Inter¬ 
preter mitteilt, daß er die BASIC-IRQ-Routine nicht anzu¬ 
springen hat. Dies kann man an der Adresse $0A04 tun. Ist das 
Bit 0 gesetzt, so werden die BASIC-IRQ-Routinen für Grafik 
und Ton angesprungen. Löscht man dieses Bit, so wird augen¬ 
blicklich damit aufgehört, die Sprites zu bewegen etc. 

Dies ist eine willkommene Möglichkeite für alle Maschinenpro¬ 
grammierer, die ihre Sprites selbst programmieren wollen. Aller¬ 
dings ist der Text/Grafik-Modus hiervon nicht betroffen, dieser 
wird weiterhin automatisch umgeschaltet. Das liegt daran, daß 
dieses Umschalten in der Kernal-IRQ-Routine geschieht. Will 
man beispielsweise den Grafikmodus einschalten, dazu aber 
nicht die BASIC-Kommandos benutzen, so muß man entweder 
die entsprechenden Änderungen in den Zero-Page-Adressen 



Tips und Tricks 


793 


vornehmen, oder man muß in die Kernal-IRQ-Routine 
pfuschen. 

Um nun den Effekt des Ausschaltens zu demonstrieren, defi¬ 
nieren Sie ein Sprite und schalten Sie es ein: 

SPRITE 1,1,2,0,1,1: REM Sprite 1 einschalten 
MOVSPR 1,90#9 : REM Bewege Sprite 1 

Wie auch immer Ihr Sprite aussehen mag - es bewegt sich jetzt 
auf jeden Fall über den Bildschirm. Versucht man nun in die 
VIC-Register zu schreiben, und Aussehen oder Position dieses 
Sprites zu ändern, so erkennt man lediglich ein kurzes 
Aufblitzen, und schon macht das Sprite wieder das, was es will, 
bzw. was das Betriebssystem will. 

Durch Löschen des Bit 0 an Adresse S0A04 kann man diesen 
nervösen Bewegungen des Sprites allerdings ein für allemal Ein¬ 
halt gebieten. Dies geschieht durch folgende Anweisung: 

POKE DEC("0A04"), PEEKtOECC'OAOA")) AND 254 

Und schon bleibt es auf der Stelle stehen und bewegt sich nicht. 
Ab sofort sind Manipulationen am VIC-Chip mit Erfolg 
gekrönt. Zweite Möglichkeit, den Interrupt auszuschalten, ist 
folgendes Kommando: 

POKE 216, 255 


11.5 Positionieren des Cursors 

Gerade von BASIC aus will man häufig den Cursor an eine 
beliebige Stelle im Bildschirm/Fenster positionieren. Leider 
existiert kein Kommando, daß das Positionieren des Cursors an 
eine beliebige Stelle ermöglicht. Lediglich den Grafik-Cursor 
können Sie mittels des Kommandos LOCATE an eine Position 
X,Y setzen. Durch Ausgabe von Cursor-Bewegungs-Codes ist 
die Positionierung zwar möglich, doch ist diese Methode 
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a) langsam, 

b) speicherplatzaufwendig und 

c) unelegant. 

Wir bieten Ihnen nun eine Positionierungmöglichkeit an, indem 
die Kernal-Routine zum Setzen der Cursor-Position aufgerufen 
wird. Normalerweise wird im X-Register die Zeile des Cursors 
und im Y-Register die Spalte des Cursors im Fenster übergeben. 
Diese Parameter können Sie aber auch im SYS-Kommando als 
(optionale) Parameter übergeben. 

Wie Sie dem Kernal-Listing entnehmen können, befindet sich 
die Routine zum Setzen der Cursor-Position ab Adresse $CC6A. 
Da wir die Cursor-Position setzen und nicht ermitteln wollen, 
können wir die Abfrage auf das Carry-Flag direkt am Anfang 
der Routine überspringen. Wir nehmen als Einsprungadresse 
SCC6C. 

Die Syntax zum Positionieren des Cursores sieht wie folgt aus: 

SYS DEC("CC6C")„<Zeile>,<Spalte> 

Die erste Zeile und die erste Spalte im Fenster ist jeweils die 
Zeile/Spalte Null. 

Als Beispiel, wie Sie sich diese Positionierungroutine zunutze 
machen können, soll folgendes kleines Programm dienen: 

10 REM **** DEMOPROGRAMM FÜR CURSOR-POSITIONIERUNG **** 

20 : 

30 SP=40 - 40*(PEEK(DEC("D7")): REM SPALTENZAHL 40 ODER 80? 

40 PRINT CHR$(147);: REM BILDSCHIRM LÖSCHEN 

50 X=INT(RND(TI)*24): REM ZEILE 

60 Y=INT(RNDCTI)*SP): REM SPALTE 

70 SYS DEC("CC6C"),,X,Y 

80 GET G$: IF G$="" THEN 50 

90 END 
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11.6 Bootsektor und -routine 

Wer von Ihnen schon einmal mit einem PC gearbeitet hat, weiß 
sicherlich den Vorteil eines BOOT-Sektors zu schätzen. Ein 
BOOT-Sektor (BOOT bedeutet im Englischen soviel wie 
"Stiefel".) Was hat aber ein Stiefel mit meinem hochmodernen 
Commodore 128 oder einem Rechner aus der PC-Serie zu tun, 
werden Sie sicherlich jetzt fragen. Die Antwort ist aber gar 
nicht so schwer. Der Stiefel als Fußbekleidung ist sozusagen der 
"unterste Teil" des Menschen. Er hat den eigenlichen Kontakt zu 
der Erde, auf der wir gehen und stehen. Nicht viel anders ver¬ 
hält es sich mit dem Bootsektor bei Ihrem Computer. Auch er ist 
der unterste Teil eines Programmes, die Verbindung zwischen 
dem Comuterprogramm und der Maschine selbst. 

Wenn Sie Ihren Commodore einschalten, dann werden Sie 
sicherlich schon bemerkt haben - vorausgesetzt Sie haben ein 
Diskettenlaufwerk - daß dieses kurz nach dem Einschalten 
losläuft, ein paar maschinengewehrartige Geräusche von sich 
gibt, um dann anschließend zur Ruhe zu kommt. Auch wenn Sie 
eine Diskette eingelegt haben, immer läuft erst das Disketten¬ 
laufwerk an, bevor sich der Rechner für seine eigentliche Arbeit 
zur Stelle meldet. 

Die Ursache für dieses rechnergesteuerte Verhalten der Floppy 
ist der Versuch, den Bootsektor zu laden. Mit diesem Sektor läßt 
sich beispielsweise ein beliebiges Programm von der Diskette 
laden und starten, ohne daß Sie auch nur eine Taste an Ihrem 
Computer drücken müssen. Sie kennen dies sicherlich schon vom 
Booten des CP/M. Die Einsatzmöglichkeiten dieses "Stiefels" sind 
sehr vielfältig, um Sie aber voll nutzen zu können, ist es wich¬ 
tig, den internen Aufbau des Sektors und den Ablauf der Boot¬ 
routine etwas näher zu beleuchten. 

Da die vom Betriebssystem gesteuerte Bootroutine natürlich 
nicht die ganze Diskette nach einem solchen Sektor absuchen 
kann, gibt es nur eine fest definierte Stelle auf der Diskette, die 
als Bootsektor genutzt werden kann. Hierbei handelt es sich um: 


Seite 0, Spur 01, Sektor 00 
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Doch Vorsicht: Auch wenn dieser Sektor physikalisch der aller¬ 
erste Datenblock auf einer Diskette ist, so kann es doch Vor¬ 
kommen, daß dieser Platz schon von anderen Dateien belegt ist. 
Sie sollten, bevor Sie einen Bootsektor auf einer Diskette instal¬ 
lieren, immer erst nachprüfen, ob dieser bestimmte Sektor nicht 
schon belegt ist. 

Um den Aufbau des Bootsektors verstehen zu können, sollten Sie 
den schematischen Ablauf der Bootroutine vor Augen haben. 
Diese im Kernal verankerte Routine läuft in den folgenden 
Schritten ab: 

1. ) Im DOS-Puffer der erweiterten Zeropage wird ein 

Block-Read Befehl auf die Spur 1, Sektor 0, aufge¬ 
baut. 

2. ) Der Befehl wird ausgeführt und der gelesene Block, 

sofern sich eine formatierte Diskette im Floppylauf- 
werk befindet, in den Kassettenpuffer des Rechners 
geladen. 

3. ) Die ersten drei Byte des gelesenen Blockes werden 

geprüft, ob sie den erforderlichen Identi¬ 
fizierungscode für einen Bootsektor enthalten. Dieser 
Identifizierungscode lautet: CBM. Ist dieser Code 
nicht vorhanden, so wird die Bootroutine abgebro¬ 
chen. 

4. ) Die auf den CBM-Code folgenden vier Byte werden 

in vier Zeropagezeiger geladen. Normalerweise sind 
diese vier Byte auf den Wert $00 gesetzt. Die ersten 
beiden Byte können eine Startadresse enthalten, die 
jedoch nichts mit der Adresse zu tun hat, an die 
etwa das geswünschte Programm geladen werden soll. 
Das 3. Byte ist der entsprechende Konfigu¬ 
rationsindex zu der genannten Startadresse. Doch alle 
Einträge in den ersten drei Byte sind ohne Interesse, 
wenn das vierte Byte den Wert $00 aufweist. Dieses 
Byte enthält die Zahl an Blöcken, die außer dem 
eigentlichen Bootsektor noch von der Diskette nach¬ 
geladen werden sollen. 
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5. ) Unabhängig davon, ob der Blockzähler im BOOT- 

Block gesetzt ist oder nicht, werden erst einmal die 
auf diese vier Adreß- und Steuerbytes folgenden 
Bytes gelesen und über die BSOUT Routine auf dem 
Bildschirm ausgegeben. Hiermit läßt sich der Bild¬ 
schirm löschen oder eine beliebige Einschaltmeldung 
auf dem Bildschirm ausgeben. Diese Zeichenausgabe 
auf den Bildschirm erfolgt so lange, bis der Code 
$00 gefunden wird. 

6. ) Jetzt bekommen die unter Punkt 4 gelesenen Steuer¬ 

bytes eine Bedeutung. Ist der Blockzähler auf Null 
gesetzt, so wird diese Routine übersprungen. Ist das 
aber nicht der Fall, dann wird im DOS-Befehlspuf- 
fer ein neuer Befehlsstring gebildet, der dann einen 
weiteren BOOT-Block von der Diskette nachladen 
soll. Die Bestimmung des Folgebootblocks fällt dabei 
denkbar einfach aus: Die Sektornummer wird um 
den Faktor 1 erhöht. Ist die Sektornummer größer 20 
(es gibt nur maximal 21 Sektoren pro Spur mit den 
Nummern 0 -20), so wird die Spurnummer um 1 er¬ 
höht und die Sektornummer wieder auf $00 herun¬ 
tergesetzt. Dieser gebildete Block-Read Befehl wird 
nun ausgeführt, wobei der gelesene Block an die 
durch die ersten drei Byte gebidete Adresse und 
Konfiguration gespeichert wird. Die Speicheradresse 
für die Folgebootblöcke wird erhöht und der Block¬ 
zähler wird um 1 vermindert. Das geschieht so lange, 
bis dieser Blockzähler auf Null heruntergezählt ist. 

7. ) Anschließend setzt die Bootroutine wieder hinter der 

(wenn vorhanden) Textkonstanten des ursprünglichen 
BOOT-Blocks im Kassettenpuffer auf. Hier kann 
nun ein Dateiname, wie er auch im Directory der 
Diskette verzeichnet ist, stehen. Mit Ausnahme der 
Tatsache, daß die den Dateinamen bildenden Zeichen 
nicht auf dem Bildschirm ausgeben werden, werden 
auch hier alle Bytes gelesen, bis die Bootroutine 
abermals auf das Endezeichen $00 stößt. Die Länge 
des Dateinamens wird dabei in einem Zähler festge¬ 
halten. 
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8. ) Jetzt kommt wieder eine Entscheidungsmöglichkeit. 

Ist die Länge des Dateinamens im Zähler mit einem 
Wert ungleich Null festgehalten, so werden dem 
Dateinamen die beiden Zeichen: "0:” vorangestellt, 
der Dateinamenzähler um diese beiden Zeichen 
erhöht und es wird in die Kernal LOAD-Routine 
verzweigt, um das so gekennzeichnete Programm in 
den Speicher des Rechners zu laden. Wenn das 
geschehen ist, oder wenn die Länge des Dateinamnes 
mit Null festgehalten wurde, so setzt die Bootroutine 
wieder hinter dem $00 Trenncode auf, der das Ende 
des Dateinamens kennzeichnet. 

9. ) Die auf den Dateinamen folgenden Bytes werden 

nun als ein Maschinenprogramm des Bootsektors an¬ 
gesehen und die Bootroutine übergibt die Steuerung 
an diese Maschinenprogramm. Von dieser Stelle an 
sind Sie selbst verantwortlich dafür, ob das nach¬ 
geladene Programm gestartet werden soll oder ob ein 
weiteres Programm über eine eigene Routine nach¬ 
geladen werden soll oder ob in einen der eventuell 
nachgeladenen Folgebootblöcke verzweigt werden 
soll. 

Wenn Sie bei der Erstellung eigener Bootsektoren die oben 
genannten Schritte des Betriebssystems beachten, so werden Sie 
sehr schnell feststellen, daß es gar nicht so schwer ist, eigene 
Bootsektoren zu erzeugen, wenn man nur weiß, was man dabei 
beachten muß. Hier noch einaml die wichtigsten Merkmale und 
Anordnungen: 


Byte 0, 1, 2: 
Byte 3, 4 : 
Byte 5: 

Byte 6: 

Byte 7: 
Dann: 

Dann: 


CBM Identifikationscode. 

Speicheradresse für Folgebootsektoren. 
Konfigurationsindex für Folgebootsektoren. 
Blockzähler für die Anzahl der Folgebootsektoren. 

Bis zum 1.Trenncode ($00) eigene Bootnachricht. 
Name des nachzuladenden Pogramma gefolgt von $00. 
Eigener Maschinenenprogrammeinsprung. 


Adresse des Bootsektors: Seite 0, Spur I, Sektor 0 




Anhang 


799 


Anhang 


Die Zeichensätze 

Durch Betätigen der ASCII/DIN-Taste können Sie zwischen den 
beiden Zeichensätzen hin- und herschalten. Sie sehen die 
Auswirkungen sofort auf dem Monitor. Diese Taste wird per 
Interrupt abgefragt, d.h. daß bei Betätigen der Taste sofort in 
die entsprechende Maschinenroutine verzweigt wird. Sie merken 
dies daran, daß auf dem 40-Zeichen-Bildschirm der Zeichen¬ 
wechsel sofort stattfindet und der Rechner für ca. 1 Sekunde 
gesperrt ist. Das liegt daran, daß der Rechner den neu defin¬ 
ierten Zeichensatz in den Speicher des VDC (80-Zeichen- 
ßildschirm, siehe auch entsprechendes Kapitel) erst einmal 
kopieren muß, da dieser seine Zeichen nicht aus den ROM 
bezieht. 

Physikalisch liegen die beiden Zeichensätze ASCII und DIN an 
derselben Adresse, nämlich an $D000. Wenn die ASCII/DIN- 
Taste betätigt wird, so werden die beiden Zeichensätze für den 
VIC hardwaremäßig umgeschaltet. 

Auf den nun folgenden Seiten finden Sie die beiden Zeichen¬ 
sätze vor. Sie erhalten Informationen über die Adresse, ab der 
die Matrix der ausgedruckten Zeichens abgelegt ist, sowie in 
Klammern den POKE-Code. 

Um nicht unnötigen Platz zu vergeuden, haben wir auf den 
Ausdruck der ebenfalls definierten reversen Zeichen verzichtet. 
Die Adresse dieser Zeichen erhalten Sie, indem Sie auf die 
angegebene Adresse des entsprechenden Zeichens $0400 
addieren. 

Den Zeichensatz für den 80-Zeichen-Controller können Sie sehr 
leicht ändern, indem Sie die entsprechenden Adressen im VDC- 
RAM direkt manipulieren. Hierzu weitere Informationen im 
Kapitel 5 (Für den VIC-Chip siehe Kapitel 2). 
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DOOO (OOO) 

3C 

66 riMuuUU 

6t oaaoaBBG 

6E QBBOBBBD 

60 □■■□□□□□ 
62 

3C ÜGBBBBOO 
00 □□□□□□□□ 


D020 (004) 

78 

6C 

66 üHDOHa 
66 

66 OBBOOBBO 
6C OBBOBBOG 
78 

00 □□□□□□□□ 


D040 (008) 

66 obboobbc 

66 uBBOOBBG 
66 raBOGBBD 

7E ■■■BBB> 

66 uBBOOBBQ 
66 LjBBUuBBG 
66 OBBOOBBO 
00 00000000 


D060 (012) 

60 OBBOGQGÜ 
60 uBBGUUOU 
60 ulBÜÜÜGU 
60 ljBBQOQUD 
60 uMQÜOGG 
60 GBBGUUOLJ 
■■■■■■ 
00 OaGGOOGO 


0080 (016) 

7C uHBBBGu 
66 GBBGGBBG 
66 GBBÜGBBG 

7C I BBBBB i 

60 OBBGGOOG 
60 ÜBBODOQO 
60 QBBGOODG 
oo GaGaaGOG 


DOAO (020) 

7E QBBBSBBG 

Hl u i; ■■ n 
18 OGOBBOGG 
18 GGGBBOGO 
18 GGOBBOGU 
18 UUUBBGUG 
18 ÜQGBBGGG 
00 GGGGOOOO 


0008 (OOl) 

18 QüOBBOOa 
3C GGBBBBQG 
66 OBBOOBBO 

7E jBUBBBLj 

66 GBaGGaBG 
66 naaoQBBQ 
66 UBBüGBaG 
00 GGGDGGCD 


D028 (005) 

7E oaaaaaao 

60 OBBOGDDG 
60 OBBOQOGO 

78 GaaaaauG 

60 GBBGOGQG 
60 üBBDQQOa 

7E OBBBBBBG 

00 OuOOOOQG 


D048 (009) 

3C GOBBBBC.ii 1 
18 QGGBBGGO 
18 OÜGBBOGG 
18 OGOBBOGG 
18 OGOBBOGG 
18 QQOBBGOO 
3C GGBBBBGO 
00 uODDDOOO 


D068 (013) 

63 OBBÜGCIBB 

77 ÜBBBi IBBB 
7F ijflaBBBBB 
68 ullüBUBB 

63 OBBQGGBB 
6 3 UBBGUGBB 
63 QBBOGGBB 
00 GGOQOQOG 


D0B8 (017) 

3l ggbbbboo 

66 uBBOOBBu 
66 QBBOQBaG 
66 OBBOOBBO 
66 uBBOOBBu 

3c oobbbboo 

0E OOOGBBBC 5 
00 GQGOQGOQ 


D0AB (021) 

66 OBBGGBBO 
66 oaaooaaoi 
66 GBBGGBBG 
66 OBBOOBBO 
66 jBBGGBBu 
66 ciBBüuaao 
3C i; BBBBOj 
00 GOGDGGGQ 


D010 (002) 

7C uBBBflBGO 

66 ÜBBOOBBÜ 
66 OBBOOBBO 

7C OBBBBBOO 

66 OBBOOBBO 
66 UBBÜUBBU 

7C ÜBBBBBQO 

00 OOGGOGOG 


D030 (006) 

7E BBBBBB 

60 OBBOOOOa 
60 QBBQOGDG 
78 GBBBBOGO 
60 GBBGOGOO 
60 GBBOQOOQ 
60 GBBGOOGD 
00 GQDOOOGO 


D050 (010) 

IE ÜÜOBBBBO 
0C GGOGBBDO 
0C OOOOBBGO 

oc ogoobboo 

oc ÜGGGBBGG 
6C OBBQBBGO 
38 QOBBBOOÜ 
oo QaQGaOOG 


D070 (014) 

66 GBBGGBBG 
76 BBBi iBBL' 

7t aaBaaa i 
71 BBBBBBO 

6E : iBBOBBBI i 
66 i OBBOOBBO 
66 GBBGljBBi 

oo Gooaoooo 


D090 (018) 

7C | jBBBBBÜÜ 
66 GaBGUBBi i 
66 uaaoaaai i 

7C BBBBBUU 

7h i iaaaauuu 

61. üBBÜBBULi 
66 OBBOOBBO 

oo ooaoaaao 


D0B0 (022) 

66 OBBOOBBO 
66 OBBOOBBO 
66 UBBOOBBU 
66 oaaogBBO 
66 QBBGUBBu 
3C OGBBBBOG 
m , I, ■■ 

00 uQQGGQDG 


DO18 (003) 

3C GGBBBBOOi 
66 OBBOOBBO 
60 GBBOGOGG 
60 GBBOOOGO 
60 UBBOOGGO 
66 UBBGOBBD 
3C GGBBBBGO 
00 00000000 


D03B (007) 

3C OGBBBBOC 
66 OBBOOBBO 
60 QBBOOGOQ 

6E oBaoaaaG 

66 OBBOOBBO 
66 OBBOOBBO 
3C □( iBBBBUO 
00 00000000 


D058 (011) 

66 ÜBBOOBBO 
6C OBBOBBOG 
78 OBBBBDOO 
70 OBBBOQOG 
78 OBBBBuGG 
6C OBBGBBGG 
66 OBBOOBBO 
00 OOOOOOOG 


D078 (015) 

66 i iBBOOBBG 

66 i Bai ii aao 

66 GBBUOBBi 
00 GOOOOOOO 


D09B (019) 

3C OOBBBBOO 

BBi mm 

60 OBBGGOOG 
3C GQBBBBOG 
06 QOGOOBBO 
66 OBBOUBBO 
3C GGBBBBGO 

oo aaaooooo 


DOBB (023) 

63 OBBOGOBB 
63 uBBUUOBB 
63 OBBOOOBB 

6B riBBUBÜBB 

BBBBBBB 
77 i BBB BBB 

63 OBBuOOBB 
00 QGGODOOD 
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DOCO (024) 

66 
66 
3C 
18 
3C 
6 b 
66 

00 □OCDODOCO 


DOEO <02B) 

OC 

12 

30 

7C □■■■■■GO 

30 □□■■□□□□ 
62 □■■□□□■□ 

FC ■■■■■■OG 

00 □□□□□□□o 


D100 (032) 

00 □□□□□□oo 
00 □□□□OOQO 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


Dl20 (036) 

1B □□□■■□OO 

3E □□■■■■■□ 

60 !«■□□□□□ 
3C □□■■■■□□ 
06 □□□□□■■□ 
7C UNIMÜLl 
18 □□□■■□□□ 
00 □□□□□□□□ 


Dl 40 (040) 

OC □□□□■■□□ 
18 □□□■■□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 
18 □□□■■□□□ 
OC □□□□■■□□ 
00 □□□□□□□□ 


D160 (044) 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
oo □□□□□□□□ 
00 □□□□□□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
30 □□■■□□□□ 


D0C8 (025) 

66 □■■□□■■□ 
66 □■■□□■■□ 
66 □■■□□■■□ 
3C □□■■■■QO 
18 □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
00 □□□□□□□□ 


D0E8 (029) 

3C □□■■■■□□ 
OC □□□□■■□□ 
OC □□□□■■□□ 
OC □□□□■■□□ 

OC □□□□•■oo 

OC □□□□■■□□ 
3C □□■■■■□□ 
OO □□□□□□□□ 


Dl 08 (033) 

18 □□□■■□OO 
18 □□□■■□OO 
1B □□□■■□OO 

18 □□□■■□QU 

00 □□□□□□□O 
00 □□□□□□OO 
18 □□□■■□□□ 
00 □□□□□□□□ 


D128 (037) 

62 □■■□□□•O 
66 □■■□□■■□ 
OC □□□□■■QO 
18 □□□■■□□□ 
30 □□■■□□□□ 
66 □■■□□■■□ 
46 □■□□□■■□ 
00 □□□□□□□□ 


Dl 48 (041) 

30 □□■■□□□□ 
18 □□□■■□OO 
OC □□□□■■□□ 
OC □□□□■■OO 
OC □□□□■■OO 
1B □□□■■OOO 
30 □□■■□□□□ 
00 □□□□□□□□ 


Dl 68 (045) 

00 □□□□□□□□ 
00 □□□□□OOO 
00 □□□□□□OO 

7E □■■■■■■□ 

00 □□□□□□oo 

00 □□□□□□OO 
00 □□□□□□OO 

00 □□□□□□oo 


DODO (026) 

7E □■■■■■■□ 

06 □□□□□■■□ 
OC □□□□■«OO 
18 □□□■■□OO 
30 □□■■□□□□ 
60 □■■□□□□□ 
7E □■■■■■■□ 
00 □□□□□□□□ 


DOFO (030) 

00 □□□□□□□□ 
18 □□□■■□□□ 
3C uuUMOO 

7E ■■■■■■ 

18 □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■OOO 
18 □□□■■□□□ 


D110 (034) 

66 □■■□□■■□ 
66 □■■□□■■u 
66 □■■□□■■□ 
00 □□□□□□OO 

00 □□□□□□oo 
oo cnaocnoo 
oo □□□□□□oo 
oo □ooooooo 


Dl 30 (038) 

3C □□■■■■OO 
66 □■■□□■■□ 
3C □□■■■■OO 
38 □□■■■□OO 

67 □■■□□■■■ 

66 □■■□□■■□ 

3F □□■■■■■■ 

00 □□□□□OOO 


Dl50 (042) 

OO □□□□□OOO 
66 □■■□□■■U 
3C □□■■■■□U 

FF ■■■■■■■■ 

3C □□■■■■□□ 
66 □■■□□■■U 
00 □□□□□OOO 
00 □□□□□□OO 


Dl 70 (046) 

00 □□□□□□OO 
oo □□□□□□oo 
oo □□□□oaoo 
oo □□□□□□□□ 
oo □□□□□□oo 
18 □□□■■□□o 

18 □□□■■OOO 
OO □□□□□OOO 


D0D8 (027) 

3C □□■■■■□□ 
30 □□■■□□□□ 
30 □□■■□OOO 
30 □□■■□□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 
3C □□■■■■□□ 
00 □□□□□□□□ 


DOFB (031) 

00 □□□□□□OO 
10 □□□■□□□□ 
30 □□■■□OOO 

7F □■■■■■■■ 
7F □■■■■■■■ 

30 □□■■□□□□ 

10 □□□■OOOO 

00 □□□□□□□□ 


Dl 18 (035) 

66 □■■□□■■□ 

66 □■■□□■■□ 

FF ■■■■■■■■ 

66 □■■□□■■□ 

FF ■■■■■■■■ 

66 □■■□□■■□ 
66 □■■□□■■□ 

oo □□□□or jo 


Dl 38 (039) 

06 □□□□□■■□ 
oc □□□□■■or ■ 
18 □□□■■□□□ 
00 □OOOOOOO 
oo □□□□□□□□ 
oo □□□□□OOO 
00 □□□□□□OO 
00 □□□OOOOO 


D15B (043) 

00 □□□□□OOO 
18 □□□■■OOO 
18 □□□■■□□□ 

7E I ■■■■■■□ 

18 □□□■■□OO 
18 □□□■■□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


Dl78 (047) 

00 □□□□□□□□ 
03 □□□□□□■■ 
06 □□□□□■■□ 
OC □□□□■■□□ 
18 □□□■■□□□ 
30 □□■■□□□□ 
60 □■■□□□□□ 
00 □□□□□□□□ 
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Dl80 (04B) 

3C 

66 □■■□□■■□ 
6E 

76 □■■■□■■□ 

66 

66 □■■□□■■□ 
3C 

00 □□□□ODÜO 


Dl AO (052) 

06 □□□□□■■□ 
OE 
IE 
66 

7F □■■■■■■■ 

06 □□□□□■■□ 
06 aaoodMc 
00 □□□□□□□□ 


Dl CO (056) 

3C OüHMCO 

66□■■□□■■□ 
66 

3C 

66 □■■□□■■□ 

66 unuuna 

3C 

oo uauaoDDG 


D1E0 (060) 

0E □□□□■■■□ 
18 

30 □□■■□□□□ 
60 UMCJOCOD 
30 □□■■□□DO 

18 

0E 

00 □□□□□ODD 


D200 (064) 

00 □□OOOOQQ 
00 □□□□□□□□ 
00 □OOOOOQO 

FF ■■■■■■■■ 
Ff ■■■■■■■■ 

00 □□□□oooo 
oo oaacoooo 
oo □□□□□□□□ 


D220 (068) 

00 □□□□□□□□ 

00 QQQDOODD 

FF ■■■■■■■■ 
FF ■■■■■■■■ 

00 □□ODOODD 
00 □□□□□□□□ 
00□□□□□□□□ 
00 □□□□□□□□ 


Dl88 (049) 

18 □□□■■□OO 
18 □□□■■□□□ 
38 □□■■■□□□ 

18 OOOMOOO 
18 □□□■■□□□ 
18 □□□■■□□□ 

7E □■■■■■■□ 

00 □□□□□□□□ 


D1AB (053) 

7E □■■■■■■□ 

60 □■■□□□□□ 

7C □■■■■■□□ 

06 □□□□□■■□ 
06 □□□□□■■□ 
66 □■■□□■■□ 
3C □□■■■■□□ 
00 □□□□□□OD 


D1C8 (057) 

3C □□■■■■□□ 
66 □■■□□■■□ 
66 □■■□□■■□ 

3E ■■■■■ 

06 □□□□□■■□ 
66 □■■□□■■Ci 
3C □□■■■■QU 
00 □□□□□□□□ 


DIEB (061) 

00 □□□□□□□□ 

00 OODOOOOO 

7E ■■■■■■' 

00 □□□□□□OO 

7E ■■■■■■< 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D208 (065) 

OB □□□□■□□□ 
IC □□□■■■□□ 

3E □□■■■■■□ 
7F □■■■■■■■ 
7F ■■■■■■■ 

IC □□□■■■□□ 

3E ■■■■■ 

00 □□□□□□□□ 


D228 (069) 

00 □□□□□□□□ 

FF ■■■■■■■■ 
FF ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


Dl 90 (050) 

3C □□■■■■OO 
66 □■■□□■■□ 
06 □□□□□•■□ 
OC □□□□■■□□ 
30 □□■■□□□□ 
60 □■■□□□□□ 
7E □■■■■■■□ 
OO □□□□□□□□ 


Dl80 (054) 

3C □□■■■■□□ 
66 □■■□□■■□ 
60 □■■□□□□□ 

7C □■■■■■□□ 

66 □■■□□■■□ 
66 □■■□□■■□ 
3C □□■■■■□□ 
OO □□□□□□□□ 


DIDO (058) 

00 OODOOOOO 

oo aooooooo 

18 DOOMÜOÜ 
oo □□ooooao 
oo ooooaooo 

18 □□□■■□OO 
00 □OOOOOOO 

00 □□□□□□oo 


D1F0 (062) 

70 □■■■□□□□ 
18 □□□■■□□□ 
OC □□□□■■□□ 
06 □□□□□■■□ 
OC □□□□■■□□ 
18 □□□■■□□□ 
70 □■■■□□□□ 
00 □□□□□□□□ 


D210 (066) 

18 □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
1B □□□■■□CO 
18 □□□■■□□□ 
18 □□□■■□□□ 
18 OOOMOOO 


D230 (070) 

oo □□□□□□□□ 

oo IJUUULJLJLUJ 
00 □□□□□□□□ 
00 □□□□□□□□ 

FF ■■■■■■■■ 

1 I ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 


D19B (051) 

3C □□■■■■□□ 
66 □■■□□■■□ 
06 □□□□□■■□ 
IC □□□■■■□□ 
06 □□□□□■■□ 
66 □■■□□■■□ 
3C □□■■■■□□ 
00 □□□□□□□□ 


Dl88 (055) 

7E □■■■■■■□ 

66 □■■□□■■□ 
OC □□□□■■□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
1B □□□■■□□□ 
00 □□□□□□□□ 


DlDB (059) 

00 OOOOOOOD 
00 UOQOOQOO 
18 □□□■■□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 
30 □□■■□□□□ 


D1FB (063) 

3C □□■■■■□□ 
66 □■■□□■■□ 
06 □□□□□■■□ 
OC □□□□■■□□ 
18 □□□■■□□□ 
00 □□□□□□□□ 
1B □□□■■□□□ 
00 □□□□□□□□ 


D218 (067) 

00 □OQOQODO 
00 □□□□□□□□ 
00 ÜQGÜQQOQ 

> I ■■■■■■■■ 

FF ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D23B (071) 

30 □□■■□□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 
30 □□■•□□□□ 
30 □□■■□□□□ 
30 □□■■□□□□ 



















D24Ü <072) D248 <073) 

OC 00 □□□CODCO 

OC 00 □□□□□□DU 

0C □□□□■■□□ 00 □□□□□□□□ 

OC □□□□■■□□ EO ■■■□□□□□ 

OC □□□□■■□□ FO ■■■■□□□□ 

OC □□□□■■□□ 38 □□■■■□□□ 

OC □□□□■■□□ 18 □□□■■□□□ 

OC □□□□■■□□ 18 □□□■■□□□ 


D260 <076) 0268 <077) 

CO ■■□□□□□□ CO ■■□□□□□□ 

CO ■■□□□□□□ EO ■■■□□□□□ 

CO ■■□□□□□□ 70 □■■■□□□□ 

CO ■■□□□□□□ 38 □□■■■□□□ 

CO ■■□□□□□□ IC □□□■■■□□ 

CO ■■□□□□□□ OE □□□□■■■□ 

FF ■■■■■■■■ 07 □□□□□■■■ 

FF ■■■■■■■■ 03 □□□□□□■■ 


D280 <080) D2BB <081) 

FF ■■■■■■■■ OO □□□□□□□□ 

Ff ■■■■■■■■ 3C □□■■■■□□ 

03 □□□□□□■■ 7E l ■■■■■■( 

03 □□□□□□■■ 7E ■■■■■■. 

03 □□□□□□■■ 7E ■■■■■■! 

03 □□□□□□■■ 7E □■■■■■■□ 

03 □□□□□□■■ 3C )□■■■■□□ 

03. uooaoDi* oo □□□□□□□□ 


D2A0 <0B4) D2AB <085) 

60 □■■□□□□□ 00 □□□□□□□□ 

60 □■■□□□□□ 00 □□□□□□OO 

60 □■■□□□□□ 00 □□□□□□□□ 

60 □■■□□□□□ 07 □□□□□■■■ 

60 □■■□OOOO OF □□□□■■■■ 

60 □■■□□□□□ IC DOaUMXI 

60 □■■OOOOO 18 □□□■■□□□ 

60 □■■□□OüO 1B aOOMDOO 


D2C0 <OBB) D2C8 <OB9) 

1B □□□■■□□□ 06 OOOODBBO 

1B □□□■■□□□ 06 □□□□□■■□ 

66 □■■□□■■□ 06 □□□□□■■□ 

66 □■■□□■■□ 06 □□□□□■■O 

1B □□□■■□□□ 06 □□□□□■•□ 

18 □□□■■□□□ 06 □□□□□■■□ 

3C □□■■■■□□ 06 □□□□□■■□ 

00 □□□□□□□□ 06 □□□□□■■□ 


D2E0 <092) D2E8 <093) 

co ■■□□oDaa ib □□□■■□□□ 

CO ■■□□□□□□ 18 □□□■■□□□ 

30 □□■■□□□□ 18 □□□■■□□□ 

30 □□■■□□□□ 18 □□□■■□□□ 

CO ■■□ODOÜG 18 □□□■■□□□ 

CO ■■□□□□□□ 1B □□□■■□□□ 

30 □□■■□□□□ 1B □□□■■□OO 

30 □□■■□□□□ 18 □□□■■□□□ 


D250 <074) D258 <075) 

18 □□□■■□□□ 18 □□□■■□□□ 

18 □□□■■□□□ 18 □□□■■□□□ 

IC □□□■■■□□ 38 □□■■■□□□ 

OF □□□□■■■■ FO ■■■■□□□□ 

07 □□□□□■■■ EO ■■■□□□□□ 

00 □□□□□□□□ 00 □□□□□□□□ 

00 □□□□□□□□ 00 □□□□□□□□ 

00 □□□□□□□□ 00 □□□□□□□□ 


D270 <078) D27B <079) 

03 □□□□□□■■ FF ■■■■■■■■ 


07 

□□□□□■■■ 

FF 


Ob 

□□□□■■■□ 

CO 

■■□□□□□□ 

IC 

□□□•■■oo 

CO 

■■;» jnnt ;» i 

38 

□□■■■□□□ 

CO 

■■□□□□□□ 

70 

□■■■□□□□ 

CO 

■■□□□□□□ 

EO 

■■■□□□□□ 

CO 

■BGGGGOO 

CO 

■■aouoau 

CO 

■■□□□□□□ 

D290 (082) 

D29B (083) 

00 

□□□□□□□□ 

36 

□□■■□■■□ 

00 

oooooaao 

7F 


00 

□□□□□□□□ 

7F 


00 

□□□□□□□□ 

7F 


00 

□□□□□□□□ 

3E 

□□■■■■■u 

FF 


IC 

□□□■■■□□ 

FF 


08 

□□□□■□□□ 

00 

o 

L 

D 

L 

r 

c 

L 

□ 

00 

□ODQDL□□ 

D2B0 (086) 

D2B8 (087) 

C3 

BBOOOOBB 

OO 

ü 

I 

I 

; 

: 

: 

□ 

G 

E7 

■■■ DC 

3C 

)□ 

7 E 

>■■■■■■□ 

7E 


3C 

□□■■■■□□ 

66 

■■ » ■■ i 

3C 

!□■■■■! )□ 

66 

1 ■■□□■■! 1 

7E 


7E 


E7 

■■■ ■■■ 

3C 

i >■■■■! in 

C3 

■■üUIJI 

00 

□□□□□□□□ 

02D0 (090) 

D20B (091) 

08 

□□□□■□□□ 

1B 

□□□■■□□□ 

IC 

□□□■■■au 

1B 

□□□■■□□□ 

3E 

□□■■■■■□ 

1B 

□□□■■□□□ 

/ F 

■■■■■■■ 

FF 


3E 

□□■■■■■! 1 

FF 


IC 

□o •■■□□ 

1B 

□□□■■□□□ 

OB 

□□□□■□□□ 

18 

□□□■■□□□ 

00 

□□□□□□□□ 

1B 

□□□■■□□□ 

D2F0 (094) 

D2F8 (095) 

00 

□□□□□□□□ 

FF 


00 

□□□□□□□□ 

7F 


03 

□□□□□□■■ 

3F 

□□■■■■■■ 

3E 

)l ■■■■■. 

1F 

□□□■■■■■ 

76 

1 «Hl )■• J 

OF 

Ul II !□■■■■ 

36 

□□■■□■■□ 

07 

□□□□□■■■ 

'•6 

□□■■r■■ 

03 

□□□□□□■■ 

00 

□□□□□□□□ 

01 

□□□□□□□■ 
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D300 <09 6) 

00 □□□□□□□□ 
00 □□□□□□□□ 
oo □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 ÜOOCOOOO 
00 OOOQuOOO 
00 □□□□□□□□ 


D320 (100) 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□o 
oo □□□oaooa 

00 GODOOOQO 

Ff ■■■■■■■■ 


D340 < 104) 

00 □□□□□□□□ 
00 ODDOODQQ 
00 ClOOOGOOO 
00 □□□□□□□□ 
CC ■■□□■•□□ 
CC 

33 □□■■üuM 
33 


D360 (108) 

00 □□□□□□□□ 
00 OODOOOOD 
00 QOOOOGDD 
00 □□□□□□□□ 
0F 
OF 

OF UL'L'i ■■■■ 
OF □□□□■■■■ 


D380 (112) 

00 □□□OOOOO 
00 QCICOOOOO 
00 □□□OOOOO 

1F ■■■■■ 

1F □□□■■■■■ 

18 QDQMlOD 

is □□□■■□□□ 

1B 


D3A0 (116) 

co ■■coooco 
co ■■□□□□□□ 
co ■■OOLJÜOO 
co■■□□□□□□ 
co ■■oaoooo 
co ■■coaaoa 
co ■■□□□ooa 
co ■■□□□□□□ 


D308 < 097) 

FO 

FO 

FO 

fo mmmmoooo 
fo 

fo ■■■■□□ca 

FO 

FO 


D328 (101) 

CO ■■□□□□□□ 
CO ■■□□□□□□ 
CO HUÜUQUU 

co ■■cocooa 
CO ■■□□□□oo 
co ■■uODuuu 

CO ■■□□□□□□ 

co ■■□□□□□□ 


D348 (105) 

Ff ■■■■■■■■ 
FE ■■■■■■■□ 
FC ■■■■■■ul: 

Fil ■■■■■□□□ 
FO ■■■■□□□□ 
EO ■■■□□□□□ 
CO ■■□□□□□□ 
80 ■□□□□□□□ 


D368 (109) 

18 □□□■■□□□ 
18 □□□■■□□□ 
1B □□□■■□□□ 

1F UL ■ ■■■■ 
1F □□□■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


0388 (113) 

18 □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 

Ff ■■■■■■■■ 
Ff ■■■■■■■■ 

oo □□□□ooao 
oo □□□□□□oo 
oo □□□□□□□□ 


D3AB (117) 

Eo ■■■□□□□□ 
Eo ■■■□□□□□ 
l " ■■■ hjOlO 
EO ■■■□□□□□ 
EO ■MOOQÜO 
EO ■■■□□□□Ci 
EO ■■■□□□□□ 
EO ■■■□□□□□ 


D310 (098) 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 

FF ■■■■■■■■ 
F F ■■■■■■■■ 
FF ■■■■■■■■ 
FF ■■■■■■■■ 


D330 (102) 

CC ■■□□■■□□ 
CC ■■□□■■□□ 
33 □□■■□□■■ 
33 □□■■□□■■ 
CC ■■□□■■OO 
CC ■■□□■■OO 
33 □□■■□□■a 

33 □□■■□□■■ 


D350 (106) 

03 □□□□□□■■ 
03 □□□□□□■■ 
03 □□□□□□■■ 

03 oooDooaa 

03 □□□□□□■■ 
03 □□□□□□■■ 
03 □□□□□□■■ 

■■ 


D370 (110) 

00 □□□□□□□□ 
00 oaoooooo 
00 QUODOOOO 

F8 ■■■■■ 

F8 ■■■■■ 

1B □□□■■□□□ 
1B □□□■■□□□ 
18 □□□■■□□□ 


D390 (114) 

OO □□□□□□□ü 

00 OQOOOOOO 

00 □□□□□□□O 

FF ■■■■■■■■ 
FF ■■■■■■■■ 

1B GOOMOOO 
18 □□□■■□□□ 
18 □□□■■□□□ 


0380 (118) 

07 □□□□□■■■ 
07 □□□□□■■■ 
07 □□□□□■■■ 
07 □□□□□■■■ 
07 □□□□□■■■ 
07 □□□□□■■■ 
07 □□□□□■■■ 
07 □□□□□■■■ 


D31B (099) 

FF ■■■■■■■■ 

00 □□□□□□□□ 
oo □OOUOOOD 
oo □□□□□□□□ 
oo □□□□□□□□ 
oo □□□□□□□□ 
oo □□□□□□□□ 
oo □□□□□□□□ 


D33B (103) 

03 □□□□□□■■ 
03 ÜUOUUUM 
03 □□□□□□■■ 
03 □□□□□□■■ 
03 uouuuuaa 
03 □□□□□□■■ 

03 oaoooamm 

03 □□□□□□■■ 


D358 (107) 

18 □□□■■□□□ 
1B □□□■■□□□ 
18 □□□■■□□□ 

1F □□□■■■■■ 
1F ■■■■■ 

1B □□□■■□□□ 
18 □□□■■□□□ 
18 □□□■■□□□ 


D37B (111) 

00 □□□□□□□□ 
00 UUUOOODO 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
I F ■■■■■■■■ 
FF ■■■■■■■■ 


D398 (115) 

18 COOMDGO 
18 □□□■■□□□ 
18 □□□■■□□□ 

FH ■ ■■■■)□□ 

II ■■■■■! I! 

1 B ODOMDuu 

1B □□□■■□□□ 

18 □□□■■□□□ 


D3BB (119) 

I F ■■■■■■■■ 
FF ■■■■■■■■ 

00 □□OOOODO 
00 □□□OOOOÜ 
00 □□□□□□OO 
00 □□□□□□OO 
00 □□□OOOOO 
00 □□□□□□□□ 
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D3C0 (120) 

FF ■■■■■■■■ 
FF ■■■■■■■■ 
FF ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 OÜQQDQDD 


D3E0 (124) 

OF OClOOMM 

OF 

OF 

OF 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
oo acooaoco 


D3C8 (121) 

00 □□□□□□□D 
00 □□□□□□□D 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□Qj 
FF ■■■■■■■■ 
FF ■■■■■■■■ 
FF ■■■■■■■■ 


D3E8 (125) 

18 □□□■■□DO 
18 □□□■■□□□ 
18 □□□■■□□□ 

FB ■■■■■ 

F8 ■■■■■□□□ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D3D0 (122) 

03 □□□□□□■■ 
03 □□□□□□■■ 
03 □□□□□□■■ 
03 □□□□□□■■ 
03 □□□□□□■■ 
03 □□□□□□■■ 
FF ■■■■■■■■ 
FF ■■■■■■■■ 


D3F0 (126) 

FO ■■■■□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□OO 


D3D8 (123) 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 


D3F8 (127) 

FO ■■■■□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 
FO ■■■■□□□□ 
OF □□□□■■■■ 
OF □□□□■■■■ 
OF □□□□■■■■ 
OF □□□□■■■■ 
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DOOO (OOO) 

3C 

42 

38 □□■■■□□□ 
24 □□■□□■□Q 
IC 

42 □■□□□□■□ 
3C □□■■■■□□ 

00 □ooococo 


D020 (004) 

7B 

24 

22 □□■DOOBO 

22 

22 

24 

78 □■■■■OOO 
00 □□□□□□□□ 


D040 ( 008) 

42 □■OOOOBO 

42 

42 □■OOOOBO 

7E □■■■■■■□ 

42 □■OOOOBO 

42 

42 □■OOOOBO 
00 □□□□□DOQ 


D060 (012) 

40 □■□□OQOQ 
40 □■□□□□OD 
40 □■OOOOOO 
40 □■OOOOOO 
40 □■OOOOOO 
40 □■□□OODO 
7E ■■■■■■ 
00 □□□□□□□□ 


D080 (016) 

7C □■■■■■□□ 

42 OBODDÖBD 
42 □■□□□□■□ 

7C □■■■■■□□ 

40 □■OCOCIOD 
40 □■OOOOOO 
40 □■OOOOOO 
00 □□OOOOOO 


D0A0 (020) 

3E ■■■■■ 

08 

08 □□□□■OOO 
08 OClüDlOOD 
08 ÜDODBÜDD 
OB 
08 

00 □□□□□□□□ 


D008 (OOl) 

18 

24 OOBOOBOO 

42 

7E ■■■■■■ 

42 

42 

42 

00 □□□□□□DO 


D02B (005) 

7E ■■■■■■ 

40 □■OOOOOO 
40 □■OOOOOO 
78 

40 □■OOOOOO 
40 □■□□□□□□ 

7E ■■■■■■> 

00 OOOOOOOO 


DÜ48 (009) 

IC 

ob □oooaoco 

08 OGOOBGOG 

08 OuuOiOuu 
08 OOOOBOOO 
OB OCiQQBODO 
IC □□□■■■OG 
00 □□□□□□□□ 


D068 (013) 

42 □■OOOOBO 
66 □■■□□■■□ 
5A □■□■■□■O 

5A oBusauau 

42 oboooobo 

42 OBOQÜOIO 
42 □■□□□□■□ 

oo oaacaaoD 


D08B (017) 

18 □□□■■□□O 
24 □□■□□■□□ 
42 ÜBDOOD» 

42 □■oooobo 

4A □■□□■□■□ 
24 □□■□□■□□ 

• ■ ■ 

00 □□□□□!_)□□ 


D0A8 (021) 

42 OBÜDOOBÜ 
42 □■□□□□■□ 
42 OiQGüaBO 
42 UiaOÜÜBD 
42 □■□□OOBO 
42 □■□□OOBD 
3C □□■■■■□□ 
00 □QQOOOOD 


D010 (002) 

7C _■■■■■□□ 

22 □□■□□□■O 
22 □□■□□□■□ 
3C □□■■■■□□ 

22 UOBOOOBO 
22 □□■□□□■□ 

7C ■■■■■ 

00 □□□□□□□□ 


D030 (006) 

7E □■■■■■■□ 

40 □■□□□□□□ 
40 □■□□□ODO 
78 ■■■■GOCl 
40 □■□□□□□□ 
40 □■□□□□□□ 
40 □■OOOOOO 
oo □Doaooao 


D050 (01O) 

0E ODOCBBBO 
04 UÜÜUÜBÜG 

04 oaoaoBoo 
04 OOOOOBQQ 
04 DDOGOBOQ 
44 OBOGOBOO 
38 □□■■■□□□ 
00 □□□□□□□□ 


D070 (014) 

42 □■□ÜQÜBÜ 
62 □■■□□□■□ 
52 □■□■GOBO 
4A □■□□■□■□ 
46 □■□□□■■□ 
42 □■DOOGBO 
42 QBDGGGBO 
00 OQOOGOCIO 


D090 (018) 

7 C C ■■■■■□□ 

42 □■UÜGUBtJ 
42 UlUUUÜtj 

7C □■■■■■□□ 

48 □■□□■□□□ 
44 □■OOOBOO 
42 □■□□□□■□ 

00 ÜGDGDDGO 


D0BU (022) 

42 □■GOGGBG 
42 ÜBQOGUBÜ 
42 □■□OGOBCi 
24 □□■□□■□□ 
24 QOICQIOD 
1B OGOBBOQO 

18 □ODBBDOO 
00 üDOGOGOa 


DO18 (003) 

IC □□□■■■OG 
22 □□■□OOBD 
40 □■OOOOOO 
40 □■OOOOOO 
40 □■OOOOOO 
22 □□■OOOBD 
IC □□□■■■OO 
00 □□OOOOOO 


D038 (007) 

IC □□□■■■□□ 
22 □□■□□□■□ 
40 □■OOOOOO 
4E □■□□■■■□ 

42 □■oooo«o 

22 O □■OOGBO 
IC UULWUOU 
00 □□□□□OOO 


D058 (011) 

42 □■OOOOBQ 
44 jIQOjIDu 
48 □■□□■OOO 
7<> □■■■OOOO 
48 UIOOIOUU 
4 4 GBDOCBOG 
42 □■OOOOBQ 
I JUUUUI JOU 


D078 (015) 

18 □□□■■DUO 
24 □□•□□■□□ 
42 DBOOOOBD 

42 □■oooobo 

42 □■OOOOBO 
24 □□■□□■□□ 

III „ 'i ■■ ii 

00 □□OOOOOO 


D098 (019) 

3C □□■■■■□□ 
42 □■OOOOBO 
40 □■OOOOOC 
3C □□■■■■□□ 
02 □□OOOOBO 
42 UBOGÜGBD 
3C i li ■■■■rC: 
00 OOOOOOOD 


DOB8 (023) 

42 □■OOOOBO 
42 □■OOOOBO 
42 □■OCOOBO 
5A □■□■■□■□ 
5A □■□■■( ■□ 
66 □■■□□■■i i 
42 □■□□□□■LJ 
00 □□OOOOOO 





Anhang 


807 


DOCO (024) 

42GBOOGGBG 

42 

24 GGBOGBOD 
18 GGGBBOGG 
24 GOBOGBGG 
42 
42 

00 GGOGOGGG 


DOEO (028) 

00 GGGGGGuO 
40 □■□□□□□□ 
20 □□■□□□□□ 
10 □□□■□□DD 
08 UGGOBGOG 
04 juüuuluu 
02 □□□□□□■□ 
00 aGOGOGOO 


D100 (032) 

00 □□□□□□□□ 
00 uOUÜOOGÜ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


0120 (036) 

08 □□□□■□□□ 
IE ;GGC '■■■■□ 
28 □□■□■□□□ 
IC □□□■■■□□ 
0A □□□□■□•U 
3C □□■■■■□□ 
08 uOOOiOOO 
00 □□□□□□□□ 


Dl 40 (040) 

04 □□□□□■□□ 
08 UCODBUUU 

lü gGOBOOGO 
10 □□□■□□□□ 
10 □□□■ÜOOC 
OB OOOOBOGC 
04 uGGGOBGG 
00 □□□□□□□□ 


Dl60 (044) 

00 □□□□□□□□ 
00 UUUUUUUU 
00 üOODDOGD 
00 UQDUQQUU 
00 QuuuQDuO 
08 uOOQBOQQ 
08 uuuuiuGG 
10 □□□■□□□□ 


D0C8 (025) 

22 GGBGGGBQ 
22 OOBGGOBO 
22 □□■□□□■□ 
IC □□□■■■DG 
OB □GGOBODO 
08 uOGOBQJU 
08 GGOGBOOO 
00 OGQOOOOO 


D0E8 (029) 

3C □□■■■■□D 
04 GOGGGBOG 
04 □□□□□■□□ 
04 GGGGGBOO 
04 UUUGQBUU 
04 GOGGGBOG 
3C ■■■■□□ 
00 uuGGGOOO 


Dl08 (033) 

OB QGGGBQOG 
OB jOGOBODU 
08 GGÜGBGOD 
08 □GOGBOOG 
00 □□□□□□□□ 
00 UGGGGGUU 

"0 n ■ 

00 lUODOOQO 


Dl28 (037) 

"" _ .i_njl JL IL LI 
62 i ■■UlJUBG 
64 uBBuuBOu 
OB uüQGBGOG 
10 UUUBOUUG 
26 GOBGOBBu 

46 DBÜjOBBi 
00 l-IUQGGOOG' 


Dl 48 (041) 

20 OOBOOOOÜ 
10 lLOBÜGQu 
OB GOGOBGOG 
OB GGGGBOOG 
08 GDGGBOOO 
10 GGGBGGOG 
20 aOBGOOOQ 
00 GOGGGOGO 


Dl68 (045) 

00 □□□□□□□□ 
00 GGOGGOGG 
00 GGQQODOO 

7E ÜBBBBBBG 

00 UÜGGODGG 
00 GGOGGOGG 
00 uuuGGuOu 
00 uOQOGGUG 


D0D0 (026) 

7E ■■■■■■ 

02 GOGGGDBU 
04 □GGGGBOD 
18 GQQBBOOO 
20 GOBGGGGG 
40 □■□□□□□□ 
7E GBBBBBBG 
00 □□□□□□□□ 


DOFO (030) 

10 GGGBGOGO 
38 uuBBBGOU 
54 GBGBOBOO 
10 QOGBOGOO 
10 GDGBGGDG 
10 □□□■□□□□ 
10 GGOBOOGO 
00 GOGGGOGO 


DUO (034) 

24 OOBOuBQO 
24 □GBOGBGG 
24 QuBGOBGG 
00 GGOGOGGG 
00 GGOGGOGG 
00 QOQOGQGO 
00 GOGGGGGa 
00 GGGGDaGO 


Dl 30 (038) 

30 GÜBBGOGG 
48 UBÜUBUOU 
48 □■□□■□□□ 
30 GGBBOGGG 
4A OBOGBGBG 
44 uBGGOBOu 
3A GGBBBGBG 
00 GOGGGOGO 


Dl50 (042) 

08 GGGGBOOG 
2A GOBGBOBO 
IC GGOBBBOD 
3E □□■■■■■( i 
IC GOGBBBOO 
2 A uGBuBGBu 
08 QGuGBGGG 
00 GOOGGGGu 


D170 (046) 

00 □□□□□□□□ 
00 OOOQOGGG 
00 GGOGOGGG 
00 GGOGGOGG 
00 GOOGOOGO 
1B OOQBBODD 
18 GOOBBGOO 
00 GuOGODOO 


D0DB (027) 

3C □□■■■■□□ 
20 QGBOGOOO 
20 □GBOOGOG 
20 □□■□□□□□ 
20 GGBGGGGO 
20 GGBOGGÜG 

3C COBBBBÜG 

00 GGOGGOGG 


D0FB (031) 

00 GDGGGQGG 
00 GOGOGGOG 
00 GGOGOOOO 
oo OGGDDDGO 
00 OGOGOODa 
00 GGOGGOGG 
00 GGOGGOGG 
FF ■■■■■■■■ 


Dl 18 (035) 

24 □□■□□■□□ 
24 □□■□□■□□ 

7E ; ■■■■■■> 

24 GGBOGBGG 

7E ■■■■■■ i 

24 □□■□□■□□ 
24 □□■□□■□□ 

00 GOGGOGGG 


D138 < 039) 

OB GOOQBGGG 
OB OOGOBDGG 
OB QGGGBGGG 
00 GGOGGOGG 
00 QOUGUGGU 
00 GGOGGOGG 
00 OQUGUUGU 
00 GOGGGOGO 


Dl58 (043) 

00 □□□□□□□□ 
08 GOGGBGGG 
08 GOGGBGGG 

3E GGBBBBBG 

08 GOGGBGGO 
OB GOGOBGOG 
00 GOOOOGOG 
00 GOGOOOGG 


Dl 78 (047) 

00 GGGOOQDG 
02 OGGGGOBG 
04 QGOOGBGG 
08 DQGOBOGO 
10 GGGBOGGG 
20 GGBGOGGO 
40 GBOGGOGG 
00 GOGOGGOG 




808 


128 Intern 


D180 (048) 

3C ■■■■ 

42 

46 □■□□□■■□ 
5A 
62 

42 

3C UUIIIIOU 
00 ÜQuOQODD 


D1A0 (052) 

04 □□□□□■□□ 

oc □□□□■■an 

14 □□□■□■□□ 
24 □□■□□■□□ 

7E ■■■■■■: 

04 □□□□□■□□ 
04 □□□□□■□□ 
00 □□□□□□□□ 


DlCO (056) 

3C □□■■■■□□ 
42 □■□□□□■□ 
42 □■□□□□■□ 
3C □□■■■■□□ 
42 □■□□□□■□ 
42 □■□□□□■□ 
3C □□■■■■QD 
00 □□□□□□□□ 


D1E0 (060) 

OE □□□□■■■□ 
1B □□□■■□□□ 
30 □□■■□□□□ 
60 □■■□□□□□ 
30 UQMauuO 
18 □□□■■□□□ 
OE □□□□■■■□ 
00 □□□□□□□□ 


D200 (064) 

10 □□□■□□□□ 
OB □□□□■□□□ 
04 □□□□□■□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D220 (068) 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
OF □□□□■■■■ 
OF □□□□■■■■ 
OF □□□□■■■■ 
OF □□□□■■■■ 


Dl88 (049) 

08 □□□□■□□□ 
18 □□□■■□□□ 
2B □□■□■□□□ 
08 □□□□■□□□ 
08 □□□□■□□□ 
08 üuODBOQD 
3E □□■■■■■□ 
00 □□□□□□□□ 


DIAS (053) 

7E □■■■■■■□ 

40 UluDaCUO 
78 □■■■■□GO 
04 □□□□□■□□ 
02 □□□□□□■□ 
44 □■□□□■□□ 
38 □□■■■□CIL 
00 UUUDOUIDO 


D1C8 (057) 

3C □□■■■■□□ 
42 □■□□□□■□ 
42 □■□□□□■□ 

3E □□■■■■■□ 

02 □□□□□□■□ 
04 □□□□□■□□ 
38 □□■■■□□□ 
00 □□□□□□□□ 


DIEB (061) 

00 □□□□□□□□ 

00 □□□□□□□□ 

7E □■■■■■■□ 

00 □□□□□□□□ 

7E □■■■■■■□ 

00 □□□□□□□□ 
00 □□□□□□□□ 
oo □□□□□□□□ 


D208 (065) 

FE ■■■■■■■■ 
7E i ■■■■■■■ 
3F □□■■■■■■ 
1F □□□■■■■■ 

of □□□□■■■■ 

07 □□□□□■■■ 
03 □□□□□□■■ 
01 □□□□□□□■ 


D228 (069) 

OF □□□□■■■■ 
OF □□□□■■■■ 
OF □□□□■■■■ 
OF □□□□■■■■ 

oo □□□□aoaci 
oo □□□□□□□□ 
oo □□□□□□□□ 
00 □□□□□□□□ 


D190 (050) 

3C □□■■■■□□ 
42 □■□□□□■□ 
02 □□□□□□■□ 
OC □□□□■■□□ 
30 □□■■□□□□ 
40 □■□□□UOU 
7E ■■■■■■ 
00 □□□□□□□□ 


DlBO (054) 

IC □□□■■■□□ 
20 □□■□□□DU 
40 □■□□□□□□ 

7E □■■■■■□□ 

42 □■□□□□■□ 
42 □■□□□□■□ 
3E □□■■■■□□ 
00 □□□□□□□□ 


DIDO (058) 

00 □□□□□□□□ 
00 □□□□□□□□ 
08 □□□□■□□□ 
00 □□□□□□OO 
00 □□□□□□□□ 
OB □□□□■□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D1F0 (062) 

70 □■■■□□□□ 
18 □□□■■□□□ 
OC □□□□■■□□ 
06 □□□□□■■□ 
OC □□□□■■□□ 
iB □□□■■□ao 
70 □■■■□□□□ 
00 □□□□□□□□ 


D210 (066) 

Fl ■■■■■■■■ 

i l ■■■■■■■■ 

oo □□□□□□□□ 
oo aaaaaaao 
oo □□□□□□□□ 
oo □□□□□□□□ 
oo □□□□□□□□ 
oo □□□□□□□□ 


D230 (070) 

OB □□□□■□□□ 
08 □□□□■□□□ 
OB □□□□■□□□ 
04 □□□□□■□□ 
03 □□□□□□■■ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


Dl98 (051) 

3C □□■■■■□□ 
42 □■□□□□■□ 
02 □□□□□□■□ 
IC □□□■■■□□ 
02 □□□□□□■□ 
42 □■□□□□■□ 
3C □□■■■■□□ 
00 □□□□□□□□ 


D1BB (055) 

7E □■■■■■■□ 

42 □■□□□□■□ 
04 □□□□□■□□ 
08 □□□□■□□□ 
io □□□■uuao 
10 □□□■□□□□ 
10 □□□■□□□□ 
00 □□□□□□□□ 


Dl DB (059) 

00 □□□□□□□□ 
00 □□□□□□□□ 
ÜB □□□□■□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
10 □□□■□□□□ 


D1FB (063) 

3C _)□■■■■□□ 
42 □■□□□□■□ 
02 □□□□□□■□ 
OC □□□□■■□□ 
10 □□□■□□□□ 
00 □□□□□□□□ 
10 □□□■□□□□ 
00 □□□□□□□□ 


D21B (067) 

00 □□□□□□□□ 
'XI □□□□□□□□ 
00 □□□□□□□□ 
oo □□□□□□□□ 

Fl ■■■■■■■■ 
Fl ■■■■■■■■ 
Fl ■■■■■■■■ 
Fl ■■■■■■■■ 


D238 (071) 

OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
10 □□□■□□□□ 
EO ■■■□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 













Anhang 


809 


D240 (072) 

07 □□□□□■■■ 
07 OOOOOBBB 
07 OOOOOBBB 
07 □□□□□■■■ 
07 OOOOOBBB 
07 □□□□□■■■ 
07 UOOOOBBB 
07 □□□□□■■■ 


0260 (076) 

BO BOOOOOOO 
80 «0000000 
BO «OOOOClOO 
BO BOOOOOOO 
BO BOOOOOOO 
BO BOOOOOOO 
BO ■□□□□□□□ 
FF ■■■■■■■■ 


D280 (080) 

FF ■■■■■■■■ 

01 QOOOOOOB 
01 uDODuCOi 
01 OOOOOOOB 
01 GQDOOOOB 
01 □□□□□□□■ 
01 □□□□□□□■ 
01 OOOOOOOB 


D2A0 (084) 

00 OOOOOOQO 
00 OOOOOOOO 

oo ooooooaa 

oo 00000000 

! n ■ ■■ i: ii 

10 OOOBOOOO 
OB uuOOBOOO 
08 OOOQBOOO 


D2C0 (088) 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 OOOOOOOO 
00 OOOOOOOO 

"oi inüixiüün 

( F ■■■■■■■■ 
I F ■■■■■■■■ 
Fl ■■■■■■■■ 


D2E0 (092) 

01 OOOOOOOB 

M| .. , ,1 1, ■ 

01 OOOOOOOB 
01 OOOOOOOB 
01 OOOOOQOB 
01 OOOOOOOB 

oi ooooooob 

Fl ■■■■■■■■ 


D248 (073) 

co «»000000 
co ■■□□□□□□ 
co ■■□□□□□□ 
co ■■□□□□□□ 
co ■■□□□□□□ 
co ■■□□□□□□ 
co ■■□□□□OO 
co ■■□□□□□□ 


D26B (077) 

01 COODOODB 
02 □□□□□□■□ 
04 □□□□□■□□ 
08 OOOOBOOO 
10 □□□■OOOD 
20 □□■□□□□□ 
40 □■□□□□□□ 
80 ■□□□□□□□ 


D288 (081) 

FF ■■■■■■■■ 
Ft ■■■■■■■□ 
Fl. ■■■■■■□□ 
F8 ■■■■■□□□ 

FO ■■■■□um i 
EO ■■■□□□□□ 
Co ■•□□□□OO 
80 BOOOOOOO 


D2AB (085) 

EO ■■■□□□□□ 
EO ■■■□□□□□ 
EO ■■■DLiLOO 
CO ■■■□□□□□ 
EO ■■«DOUOO 
EU ■MOOQOO 
EO ■■■□□□□□ 
EO ■■■DlUjO 


D2CB (089) 

00 □□□□□□□□ 
oo aoooaoaa 
00 □□□□□□□□ 
00 OODODOOO 
00 ODOOODaO 
00 OOOOOOOO 
FF ■■■■■■■■ 
FF ■■■■■■■■ 


D2EB (093) 

AA ■□■□■□■□ 
55 OBOBOBl <■ 
AA ■□■□■□■□ 
55 □■□■□■□■ 
AA BOBOBOBO 
55 OBOBOBOB 
AA «L !■□■□■□ 

55 □■□■oana 


D250 (074) 

03 □□□□□□■■ 
03 OOOOOOBB 
03 □□□□□□■■ 
03 □□□□□□■■ 

03 ououoobb 

03 □□□□□□■■ 
03 □□□□□□•■ 
03 □□□□□□■■ 


D270 (078) 

FF ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 
00 00000000 


D290 (082) 

00 OOOODOuO 
oo ooooooao 
00 OODODOOD 
00 OOOCOOOO 
03 □□□□□□■■ 

o4 oooooboo 

08 OOOOBDi JO 
OB OOOOBOOD 


D2B0 (086) 

FF ■■■■■■■■ 
FF ■■■■■■■■ 
FF ■■■■■■■■ 

00 OOOOOODO 
oo oooDooao 
00 ODQDDDOO 
00 OOOOOCOO 
00 □□□□□□□□ 


D2D0 (090) 

Fe mmmm )□□□ 

i ■ ■ ■■■■□□□□ 
FO MMi ii OO 
FO ■■■■! II. OO 
FO ■■■■! II OO 
FO ■■■■UUUO 
FO ■■■■□□UO 
FO ■■■■ULiUO 


D2F0 (094) 

00 OOOOOOOO 

00 OOOOOOOO 

oi oooooooa 

3E ■■■■■' 

54 oBoaoaoo 
14 oooaoaoü 
14 OOOBOIOO 
00 OOOOOOOO 


D258 (075) 

80 BOODOODO 
40 □■oooooo 
20 QOBODOOO 
10 OQQBOODO 
08 DOOOBOOD 
04 OOOOOBOO 
02 OOOOOOBG 
01 OOOOOOOB 


D27B (079) 

FF ■■■■■■■■ 

80 ■OOOOOOO 
80 ■OOOOOOO 
80 «0000000 
80 ■OOOOOOO 
BO »0000000 
80 »0000000 
80 «0000000 


D298 (083) 

00 OOOOOOOO 
00 OOOOOOOO 
ou OOOOOOOO 
00 OOOOOCOO 

FO ■■■■□□□□ 
FO ■■■■DOOO 
FO ■■■■! ODO 
Fo ■■■■! ii OO 


D2BB (087) 

FO ■■■■! JOOO 
FO ■■■■OCOCi 

Fo 

I " miÜDULi 
00 OOOOOOOO 
oo OOOOOOOO 
00 OOOOOOOO 
00 OOOOOOOO 


D2D8 (091) 

00 OOOOOOOO 
oo OOOOOOOO 
00 OOOOOOOO 

oo ooooooao 

AA ■□■□■□■□ 
55 CiBOBOBOa 
AA BOBOBOBO 
55 □■□■OBOB 


D2F8 (095) 

oo ooooooao 

00 OOOOOOOO 
00 OOOOOOOO 

oo ooooooao 

ou OOOOOOOO 
00 OOOOOOOO 
00 OOOOOOOO 

FF ■■■■■■■■ 
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D300 <096) 

00 □DOOQODO 
00 □OuDOOUD 
00 □□□□□□□□ 
00 L)!_)□□□□□□ 
00 □□□□□□□□ 
00 □□□□□DDO 
00 □□□□□□□□ 
00 □□□□□□□□ 


D320 (lOO) 

08 □□□□■□□□ 
08 □□□□■□□□ 
08 □□□□■□□□ 
OB □□□□■□□□ 

FB ■■■■■□□□ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D340 (104) 

00 □□□□□□□□ 
00 □□□□□□□□ 
oo OODOCOOO 
oo □□□□□□□□ 

OF □□□□■■■■ 
OB □□□□■□□□' 
OB □□□□*□□□ 
08 □□□□■□□□ 


D360 <108) 

OB □□□□■□□□ 
10 □□□■□□□□ 
3C □□■■■■□□ 
42□■□□□□■□ 

7E □■■■■■■□ 

40 □■□□□□□□ 
3C □□■■■■□□ 
00 □□□□□□□□ 


D3B0 <112) 

IC □□□■■■□□ 
22 □□■□□□■□ 
40 □■□□■□■□ 
56 □■□■□■■□ 
4C □■□□■■□□ 
20 □□■□□□□□ 
IE □□□■■■■□ 
00 □□□□□□□□ 


D3A0 <116) 

10 □□□■□□□□ 
28 □□■□■□□□ 
3B □□■■■□□□ 
04 □□□□□■□□ 
3C □□■■■•OO 
44 □■□□□■□□ 
3A □□■■■□■□ 
00 □□□□□□□□ 


D308 < 097) 

OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
08 □□□□■□□O 
OB □□□□■□QO 


D328 <101) 

OB □□□□■□□□ 
OB □□□□■ODO 
OB □□□□■□OO 
OB □□□□■OOO 
of Goonam 
OB □□□□■□oo 
08 □□□□■□□□ 
OB □□□□■□□□ 


D34B <105) 

oo oooooooo 
00 □□□□□OOO 
00 □□□□□OOO 
00 □□□□□□□□ 

FF ■■■■■■■■ 

ob ooooaoou 

OB □□□□•□□n 
OB □□□□■□□□ 


D368 <109) 

18 □□□■■□□□ 
24 □□■□□■OC l 
20 □□■□□□□□ 
70 □■■■□□□□ 

20 □□■□□OOO 

21 □□■□□□□■ 
5E □■□■■■■□ 
00 □□□□□OOO 


0388 <113) 

00 □OOOOOOD 
00 □□□□□□□□ 
42 □■□□□□■□ 
42 □■□□□□■□ 
42 □■□□□□■□ 
46 □■□□□■■□ 
BA ■□■■■□■□ 
BO ■□□□□□OO 


D3A8 <117) 

OB □□□□■□□□ 
14 □□□■□■□□ 

3c □□■■■■an 

42 □■□□□□■□ 

7E ■■■■■■ i 

40 □■□□□□□□ 
3C □□■■■■□□ 
00 □□□□□□□□ 


D310 <09B) 

08 □□□□■□□□ 
OB □□□□■□□□ 
08 □□□□■□□□ 
08 □□□□■□□□ 
OF □□□□■■■■ 
00 □□□□□OOO 
00 □□□□□□□□ 
00 □OOOOOOO 


D330 <102) 

00 □□□□□□□□ 
00 OOOOQDDD 
00 □□□□□□□□ 
00 □□□□□□□□ 

FF ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D350 <106) 

00 □□□□□□□□ 
oo □□oooaoo 
oo □□□ooooo 
oo □□□□□□□□ 

FS ■■■■■□□□ 

OB □□□□■□□□ 
08 □□□□■□□□ 
OB □□□□■□□□ 


D370 <110) 

1" □□□■□□□□ 
08 □□□□■□□□ 
3C i i. ■■■■mm 
42 □■□□□□■□ 

71 > ■■■■■■ J 

40 □■OOOOUU 
3C □□■■■■□□ 
00 □□□□□□□□ 


D390 <114) 

20 □□■□□□□□ 
10 □□□■□□□□ 
3B □□■■■□□□ 
04 □□□□□■□□ 
3C □□■■■■□□ 

44 □■oooboo 

ZA □□■■■□■□ 
00 □□□□□□□□ 


D3B0 <118) 

08 □□□□■□□□ 
14 □□□■□■□□ 
08 □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□QO 
IC □□□■■■□□ 
00 □□□□□□□□ 


D31B <099) 

08 □□□□■□□□ 
OB □□□□■□□□ 
08 □□□□■□□□ 
OB □□□□■□□□ 

FF ■■■■■■■■ 

00 □□□□□□□□ 
00 □□□□□□□□ 
00 □□□□□□□□ 


D338 <103) 

08 □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 

FB ■■■■■□□□ 

OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 


0358 <107) 

08 □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 
OB □□□□■□□□ 

> I ■■■■■■■■ 

OB □□□□■□□□ 
OB □□□□■□□□ 
08 □□□□■□□□ 


D378 <111) 

08 □□□□■□□□ 
10 □□□■□□□□ 
20 □□■□□□□□ 
Oo □□□□□□□□ 
00 ÜOOOQOOO 
00 □□□□□□□□ 
00 □□□□□□□□ 
oo oooaoooo 


D39B <115) 

10 □□□■□□□□ 
08 □□□□■□□□ 
42 □■□□□□■□ 
42 □■□□□□■□ 
42 □■□□□□■□ 
46 □■□□□■■□ 
l! ■■ ■ ■ 

00 □□□□□□□□ 


D3B8 <119) 

08 □□□□■□□□ 
14 □□□■□■□□ 
3C □□■■■■□□ 
42 □■□□□□■□ 
42 □■OOOOBO 
42 □■□□□□■□ 
3L □□■■■■□□ 

oo □□□□□□□□ 
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D3C0 (120) 

OB 

14 

42 08000080 
42 08000080 
42 08000080 
46 08000880 
3A 

00 □□□□□□□□ 


J3E0 (124) 

5A 

24 

42 

42 08000080 
42 OBOOOOBO 
24 UQiUUiUU 
1B 00088000 
00 OOOOOOQQ 


D3C8 (121) 

1F □□□■■■■■ 

10 

10 00080000 
10 00080000 
DO 

30 00880000 
10 

00 OQOOOOOO 


D3EB (125) 

1B 

42 OBOOOOBO 
42 OBOOOOBO 
42 □■□□□□■D 
42 OBOOOOBO 
42 ÜBOOOOBD 
3C OOBBBBOO 
00 ClOOOOOOO 


D3D0 (122) 

7F ~ BBBBBBB 

21 □□BODOOB 
10 aOOBDDDD 
08 □□□OBDDD 
10 DDOBODaa 
21 DOBaDDaB 

7F 08888888 

00 □□□□□□□□ 


D3F0 (126) 

3C 00888800 
42 08000080 
42 08000080 
5C 08088800 
42 08000080 
42 08000080 
5G 08088800 
40 08000000 


D3DB (123) 

5A 08088080! 
24 00800800 
42 08000080 

7E 088888801 

42 08000080 
42 08000080 
42 08000080 

oo oooDoooa 


D3FB (127) 

OB 00008000 
14 00080800 

oo aooooooo 
00 UOODDOOO 
oo oaaoaoao 
oo aooooooo 
oo oooaoooo 
oo oooooooo 


/ 
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Die Tastaturmatrix 

Die Tastatur Ihres Rechner ist in Form einer Matrix aufgebaut. 
Diese müssen Sie sich als ein Netz von Leitungen vorstellen: in 
der waagerechten Ebene haben Sie 11 Leitungen und in der 
senkrechten 8 Leitungen. Wenn Sie nun eine Taste betätigen, 
schließen Sie somit den normalerweise offenen Kontakt zwischen 
einer waagerechten und einer senkrechten Leitung. Daraus kann 
der Rechner erkennen, welche Taste gedrückt wurde. 

Soweit das Prinzip der Tastaturmatrix. In Wirklichkeit geht es 
doch eine ganze Ecke komplizierter zu, da nicht für jede der 11 
waagerechten und 8 senkrechten Leitungen ein eigener Anschluß 
an einem Ein-/Ausgabebaustein zur Verfügung steht. Im 
Commodore 128 gibt es 2 Bausteine mit insgesamt drei Ports, die 
diese Aufgabe der Tastatur-Matrixabfrage bewältigen müssen. 
Am Cia 1 stehen dafür die Leitungen PAO - PA7 und die 
Leitungen PBO - PB7 zur Verfügung. Diese 16 Leitungen 
können wahlweise auf Ein- oder Ausgabe programmiert werden. 
Theoretisch ist es also möglich, auch 16 Bit Wert über diese 
Leitung zu übertragen. Die Leitungen PAO bis PA7 sind 
verantwortlich für die ersten 8 Matrixzeilen der 
Tastaturverdrahtung. Die fehlenden 3 Leitungen sind. Sie 
werden es nicht glauben, am VIC-Chip angeschlossen. 

Der in Ihrem Commodore eingebaute VIC-Chip hat gegenüber 
dem im Commodore 64 benutzten Baustein 2 zusätzliche 
Register. Das ist einerseits das Register mit der Adresse $D030, 
welches beispielsweise für die Taktfrequenz, mit der der 
Rechner arbeiten soll (1 oder 2 Megaherz), verantwortlich ist. 
Dieses Register soll uns aber hier nicht interessieren. Das 
andere, neu hinzugekommene Register, hat die Adresse $D02F. 
Über dieses Register werden die zusätzlichen drei 
Tastaturmatrixzeilen abgefragt. Das Register stellt uns dafür die 
Bits 0-3 zur Verfügung, benutzt werden aber nur die Bits 0 - 
2, da nur drei zusätzliche Matrixzeilen abgefragt werden müssen. 
Die 8 Matrixspalten werden über die Leitungen PBO - PB7 des 
CIA 1 über den Port B angesprochen. 

Die eigentliche Tastaturabfrage verläuft nach folgendem Muster: 
Der Port A des CIA 1 (Leitungen PAO - PA7) werden auf Lo- 
Value Wert gelegt, d.h., das Register wird mit dem Hexwert 00 
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geladen. Des weiteren wird, um auch die restlichen drei 
Matrixzeilen abzuprüfen, das zuständige VIC-Register ebenfalls 
mit einem Lo-Value Wert vorgeladen. Anschließend wird der 
auf Eingang geschaltete Port B des CIA 1 (Leitungen PBO - 
PB7) abgefragt. Wenn an irgendeiner Stelle eine Taste gedrückt 
ist, so wir damit auch eine der Eingangsleitungen am Port B auf 
den Lo-Pegel geschaltet, welches sich dadurch bemerkbar macht, 
daß der am Port B ausgelesene Wert ungleich High-Value ($FF) 
ist. Zu diesem Zeitpunkt kann nur erkannt werden, ob eine 
Taste gedrückt wurde. Welche das ist, das kann noch nicht 
bestimmt werden. 

Die genaue Position innerhalb der Tastaturmatrix wird dann, 
wenn ein Tastendruck registriert wurde, in der Art ermittelt, 
daß jede der 11 Matrixzeilen einmal kurz auf den Lo-Value Pe¬ 
gel gelegt wird und anschließend sofort der immer noch auf 
Eingang geschaltete Port B ausgelesen wird. Nun kann erkannt 
werden, in welcher Zeile und in welcher Spalte der Matrix eine 
Taste gedrückt wurde. Bei jeder Überprüfung, sowohl der Zei¬ 
len, als auch der Spalten läuft ein Zählregister mit, in welchem 
hinterher die physikalische Anordnungsnummer der gedrückten 
Taste mitgezählt wird. Acuh die Abfrage der Joy-stickport er¬ 
folgt auf die gleiche Weise, wie die normale Tastaturabfrage, da 
die Anschlüsse der Joystickports mit einigen Tasten des 
Keyboards parallel geschaltet sind. 

Auf dem Schaubild der nächsten Seite können sie die physikali¬ 
sche Anordnung der Tasten und ihre Anschlüsse an die drei 
Ports erkennen. Intersessant ist hier sicherlich noch die Tatsache, 
daß die Tasten des Zehnerblocks zwar hinterher auf dem Bild¬ 
schirm das gleiche Ergebnis liefern, dennoch aber eindeutig von 
den normalen Zifferntasten unter-schieden werden können. Das 
gilt ebenso für die Cursorsteu-ertasten und die weiteren Tasten, 
die an Ihrem Rechner scheinbar doppelt vorhanden sind. 




$DCOO PORT A CIA 
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JDCOI Port B CIA I 




Doppelt vorhandene 
Tasten (Zehnerblock) 


Doppelt Yorhondene Tosten 
(Cur cor Steuer block ) 
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Die verschiedenen Rechner-Modi 

Ihnen ist sicherlich auch schon bekannt, daß der Commodore 
128 drei verschiedene Rechner-Modi hat, die sich nicht nur 
durch verschiedene Programmierungsarten auszeichnen, sondern 
auch dadurch, daß in einigen Modi verschiedene Bausteine nicht 
benötigt werden. 

Sie können einen der drei folgenden Modi auswählen: 

- CP/M Plus 

- Commodore 128 

- Commodore 64 

Um Ihnen nun möglichst übersichtlich zu demonstrieren, welche 
Bausteine wann ein- und wann ausgeschaltet sind, haben wir 
drei Grafiken angefertigt. Dabei ist jeder Baustein Bezeichnet 
und Grau hinterlegt, sollte er in Aktion sein. Ausgeschaltet heißt 
natürlich lediglich, daß die MMU den Zugriff zu diesen Bau¬ 
stein sperrt. Die Z-80 ist auch nur angehalten, nicht ausgeschal¬ 
tet. 

Übrigens ist der CP/M-Modus interessanter als Sie vielleicht 
denken mögen. Die 1571 wird im CP/M-Modus noch eine Idee 
schneller und Sie haben die Möglichkeit CP/M-Programme 
laufen zu lassen oder CP/M zu erlernen, was auch nicht zu 
unterschätzen ist. Die 1571 ist auch in der Lage, verschiedene 
Fremdformate zu lesen, wie beispielsweise original OSBORNE- 
Disketten - dies macht einen Programmaustausch sehr interessant 
und einfach. 

Bezüglich CP/M gibt es genügend Literatur - auch in unserem 
Haus. Die Programmierung der Z-80 unter dem CP/M- 
Assembler ist sicherlich recht reizvoll! 
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User Port RGB-Ausgang Audio/Video Kassetten-Port 



Zeichensatz Farbspeicher PLA Prozessor Prozessor 
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Die verschiedenen Einschaltmodi 


Auf den vorangegangenen Seiten finden Sie die drei Rechner¬ 
modi grafisch aufbereitet dargestellt. Es gibt neben des GO 64 
aber noch eine andere Möglichkeit, den C64-Modus zu betreten. 
Auch beim Einschalten! 

Grundsätzlich kann man sagen, daß der Rechner beim Einschal¬ 
ten vorzugsweise den C128-Modus initialisiert (logischerweise). 
Das wird schon anders, befindet sich eine CP/M-Diskette im 
Laufwerk. Sie haben ja bereits gelesen, daß der C128 beim 
Einschalten zunächst einmal eine Diskette im Laufwerk zu boo¬ 
ten versucht. Befindet sich hier eine CP/M-Diskette, so wird 
halt die Z-80 eingeschaltet und die Kontrolle an dieselbe 
abgegeben (siehe auch Z-80-ROM). Aber auch über den BOOT- 
Befehl ist dies möglich. 

Den C64-Modus erreichen Sie durch GO 64. Nach einer ent¬ 
sprechenden Sicherheitsabfrage wird der C64-Modus einge¬ 
schaltet. Weitere Möglichkeit: Sie haben eine Cartridge im ent¬ 
sprechenden Cartridge-Slot. Auch dann wird in den C64-Modus 
verzweigt. 

Aber auch softwaremäßig gelangen Sie in den C64-Modus - 
ohne Sicherheitsabfrage. Dazu bedarf es eigentlich nur des fol¬ 
genden Kommandos: 

SYS 57931 

Natürlich gibt es auch hier keine Rückkehr. Auch ist die 
Zehnertastatur im C64-Modus vollkommen blockiert, es gibt 
keine Möglichkeit, die zusätzlichen Tasten abzufragen. 

Aber schon beim Einschalten können Sie auswählen, ob Sie nicht 
lieber in den C64-Modus wollen. Dies können Sie erreichen, 
indem Sie direkt beim Einschalten die Commodore-Taste 
drücken und gedrückt halten. Der Rechner versucht erst gar- 
nicht, einen Bootdurchgang durchzuführen. Übrigens funktio¬ 
niert dies auch beim Betätigen der RESET-Taste. 
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Halten Sie entsprechend beim RESET die RUN/STOP-Taste 
gedrückt, so springt der Rechner zwar in den C128-Modus, aber 
sofort in den Maschinensprachemonitor. Für Maschinenpro¬ 
grammierer also sehr interessant. Verlassen Sie den Maschinen¬ 
sprachemonitor mit dem X-Befehl, so wird erst dann der Boot¬ 
vorgang durchgeführt. 

Wir haben diese Möglichkeiten des Modusauswahl beim 
Einschalten zu schätzen gelernt - speziell, will man 64er-Pro- 
gramme fahren oder in Maschinensprache etwas programmieren. 
Will man beispielsweise ein Programm debuggen, daß direkt 
gebootet wird, so ist die Möglichkeit mit der RUN/STOP-Taste 
sogar die einzige bekannte, um vorher Werte im Speicher zu 
manipulieren. 

Diese Abfragen können Sie übrigens besonders gut im doku¬ 
mentierten Z-80-ROM-Listing nachverfolgen - auch wir sind 
erst beim Dokumentieren desselben auf die genannten 
Möglichkeiten gestoßen. 



Register des VIC-Chip 
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Kapitel 10: Tabellen und Stichwortverzeichnis 








































































001 3 _ 53267 _ 19 Light Pen Horizontol Position 

DPI 4 53268 _ 20 Light Pen Vertical Position 
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m 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

LU 

F 

0 

BRK 

B PL 

JSR 

BMI 

RTI 

B VC 

RTS 

B VS 

ILL 

BCC 

LDY 

# 

BCS 

CPY 

# 

BNE 

CPX 

# 

BEQ 

i 

ORA 

(.X) 

ORA 

<)Y 

AND 

(.X) 

AND 

O.Y 

EOR 

(.X) 

EOR 

O.Y 

ADC 

(.X) 

ADC 

O.Y 

STA 

(.X) 

STA 

O.Y 

LDA 

(.X) 

LDA 

O.Y 

C MP 
(.X) 

C MP 

O.Y 

SBC 

(.X) 

SBC 

O.Y 

2 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

,LL 

ILL 

LDX 

# 

ILL 

ILL 

ILL 

ILL 

ILL 

3 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

/ 

ILL 

/ 

ILL 

ILL 

ILL 

ILL 

4 

ILL 

ILL 

BIT 

2P 

ILL 

ILL 

ILL 

ILL 

ILL 

STY 

2 P 

STY 

2P.X 

LDY 

2P 

LDY 

2P,X 

CPY 
2 P 

ILL 

CPX 
2 P 

ILL 

5 

ORA 
2 P 

ORA 

2P.X 

AND 

2P 

AND 

2P.X 

EOR 

2P 

EOR 

2P.X 

ADC 
2 P 

ADC 

2P.X 

STA 

2 P 

STA 

2P.X 

LDA 

2 P 

LDA 

2P.X 

C MP 
2P 

C MP 
2P.X 

SBC 
2 P 

SBC 

2P.X 

6 

ASL 

2 P 

ASL 

2P.X 

ROL 
2 P 

ROL 

2P.X 

LSR 

2 P 

LSR 

2P.X 

ROR 
2 P 

ROR 

2P.X 

STX 

2 P 

STX 

2P.Y 

LDX 
2 P 

LDX 

2P,Y 

DEC 
2 P 

DEC 

2P.X 

INC 

2 P 

INC 

2P.X 

7 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

/ 

ILL 

ILL 

ILL 

ILL 

8 

PHP 

CLC 

PLP 

SEC 

PHA 

CLI 

PLA 

SEI 

DEY 

TYA 

TAY 

CLV 

INY 

CLO 

1 NX 

SED 

9 

ORA 

# 

ORA 

,Y 

AND 

# 

AND 

,Y 

EOR 

# 

EOR 

,Y 

ADC 

# 

ADC 

,Y 

ILL 

STA 

,Y 

LDA 

0 

LDA 

,Y 

C MP 

# 

C MP 
, Y 

SBC 

# 

SBC 

,Y 

A 

ASL 

AKKL 

ILL 

ROL 

AKKL 

ILL 

LSR 

AKKU 

ILL 

ROR 

AKKU 

ILL 

TXA 

TXS 

TAX 

TSX 

DEX 

ILL 

NOP 

ILL 

B 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

t 

ILL 

/ 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

C 

ILL 

ILL 

BIT 

ILL 

JMP 

ILL 

JMP 

O.Y 

ILL 

STY 

ILL 

LDY 

LDY 

.X 

CPY 

ILL 

CPX 

ILL 

D 

ORA 

ORA 

.X 

AND 

AND 

.x 

EOR 

EOR 

.X 

ADC 

ADC 

.X 

STA 

STA 

.X 

LDA 

LDA 

.X 

C MP 

C MP 

.x 

SBC 

SBC 

.X 

E 

ASL 

ASL 

,x 

ROL 

ROL 

.x 

LSR 

LSR 

,x 

ROR 

ROR 

.X 

STX 

ILL 

LDX 

LDX 

,Y 

DEC 

DEC 

.X 

INC 

INC 

.X 

F 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

/ 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 

ILL 
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IMM ABS ABS ABS 

.X , Y 



A9 2 

AD 4 

BD 4* 

' 

B9 4* 

A5 3 

B5 4 

A2 2 

AE 4 


B E4 * 

A 6 3 


AO 2 

AC 4 

BC 4 

; 

A4 3 

B 4 4 • 


8 D 4 

9 D S 

9 9 S 

85 3 

95 4 


8E 4 



8 6 3 



8C 4 



8 4 3 

94 4 


AI 6 B15* 


81 6 91 6 


PHP 




-:- 









08 3 

ADC 

69 2 

6 D 4 

7 D 4* 

7 9 4 " 

8 5 3 

75 4 


6 1 6 

71 5* 





SBC 

E9 2 

ED 4 

FD 4* 

F 9 4 * 

ES 3 

F 5 4 


E 1 6 

Fl 5* 





INC 


EE 6 

FE 7 


E 6 5 

F 8 6 








DEC 


CE 6 

DE 7 

_ 

C 6 5 

D 0 6 









1 NX 







* 


--- 




E8 2 

DEX 













CA 2 

1 NY 













C8 2 

DEY 













88 2 

AND 

29 2 

2D 4 

3D 4* 

3 9 4 * 

25 3 

35 4 


2 1 6 

3 15* 





ORA 

09 2 

0D 4 

ID 4* 

19 4* 

0 5 3 

1 5 4 


0 1 6 

1 1 5* 





EOR 

49 2 

4D 4 

5D 4* 

5 9 4* 

4 6 3 

6 5 4 


4 1 6 

6 16* 





CMP 

C9 2 

CD 4 

)D 4 * 

D 9 4* 

C 6 3 

D 5 4 


C 1 6 

D 1 5* 






1 Zahl Op codi 

2 Zahl = Taktzyklan pro Bafahl 


(• bal Baralchaubarachrallung 1 Taklzyklua mahr ) 
( All# BRANCH Bafahl# ♦ 1 Taklzyklua, wann 
Badlngung zulrlffl ) 
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Dezi 

Hex 

Binär 

Dezi 

Hex 

Binär 

#000 

$00 

%00000000 

#001 

$01 

X00000001 

#002 

$02 

%00000010 

#003 

$03 

X00000011 

#004 

$04 

%00000100 

#005 

$05 

X00000101 

#006 

$06 

%00000110 

#007 

$07 

X00000111 

#008 

$08 

%00001000 

#009 

$09 

X00001001 

#010 

$0A 

X00001010 

#011 

$0B 

X00001011 

#012 

$OC 

%00001100 

#013 

$0D 

X00001101 

#014 

$OE 

%00001110 

#015 

$0F 

5400001111 

#016 

$10 

%00010000 

#017 

$11 

X00010001 

#018 

$12 

X00010010 

#019 

$13 

X00010011 

#020 

$14 

%00010100 

#021 

$15 

X00010101 

#022 

$16 

X00010110 


$17 

5400010111 

#024 

$18 

X00011000 


$19 

XOOO11001 

#026 

$1A 

X00011010 


$1B 

X00011011 

#028 

$1C 

X00011100 


$1D 

X00011101 

#030 

$1E 

%00011110 


$1F 

5400011 1 11 

#032 

$20 

X00100000 


$21 

X00100001 

#034 

$22 

XOOI00010 


$23 

X00100011 

#036 

$24 

%00100100 


$25 

X00100101 

#038 

$26 

%00100110 


$27 

X00100111 

#040 

$28 

X00101000 

#041 

$29 

X00101001 

#042 

$2A 

%00101010 

#043 

$2B 

X00101011 

#044 

$2C 

X00101100 

#045 

$2D 

X00101101 

#046 

$2E 

X00101110 

#047 

$2F 

5400101 111 

#048 

$30 

X00110000 

#049 

$31 

X00110001 

#050 

$32 

%00110010 

#051 

$33 

XOOI10011 

#052 

$34 

%00110100 

#053 

$35 

X00110101 

#054 

$36 

XOOI10110 

#055 

$37 

XOOI10111 

#056 

$38 

X00111000 

#057 

$39 

X00111001 

#058 

$3A 

X00111010 

#059 

$3B 

5400111011 

#060 

$3C 

X00111100 

#061 

$3D 

XOOI11101 

#062 

$3E 

X00111110 

#063 

$3F 

XOOI11111 

#064 

$40 

X01000000 

#065 

$41 

X01000001 

#066 

$42 

XO1000010 

#067 

$43 

X01000011 

#068 

$44 

X01000100 

#069 

$45 

X01000101 

#070 

$46 

X01000110 

#071 

$47 

X01000111 

#072 

$48 

X01001000 

#073 

$49 

X01001001 

#074 

$4A 

X01001010 

#075 

$4B 

X01001011 

#076 

$4C 

X01001100 

#077 

$4D 

X01001101 

#078 

$4E 

X01001110 

#079 

$4F 

5401001111 

#080 

$50 

X01010000 

#081 

$51 

X01010001 

#082 

$52 

X01010010 

#083 

$53 

X01010011 

#084 

$54 

X01010100 

#085 

$55 

X01010101 
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Dezi 

Hex 

Binar 

Dezi 

Hex 

Binär 

#086 

*56 

X01010110 

#087 

*57 

X01010111 

#088 

*58 

X01011000 

#089 

*59 

*01011001 

#090 

*5A 

*01011010 

#091 

X5B 

*01011011 

#092 

S5C 

*01011100 

#093 

*5D 

*01011101 

#094 

*5E 

*01011110 

#095 

*5F 

*01011111 

#096 

*60 

*01100000 

#097 

*61 

*01100001 

#098 

*62 

*01100010 

#099 

*63 

*01100011 

#100 

*64 

*01100100 

#101 

*65 

*01100101 

#102 

*66 

*01100110 

#103 

*67 

*01100111 

#104 

*68 

*01101000 

#105 

*69 

*01101001 

#106 

*6A 

X01101010 

#107 

S6B 

*01101011 

#108 

X6C 

*01101100 

#109 

*60 

*01101101 

#110 

X6E 

*01101110 

#111 

*6F 

*01101111 

#112 

*70 

*01110000 

#113 

*71 

*01110001 

#114 

*72 

*01110010 

#115 

*73 

*01110011 

#116 

*74 

*01110100 

#117 

*75 

*01110101 

#118 

*76 

*01110110 

#119 

*77 

*01110111 

#120 

*78 

*01111000 

#121 

*79 

*01111001 

#122 

*7A 

*01111010 

#123 

*7B 

*01111011 

#124 

*7C 

*01111100 

#125 

*7D 

X01111101 

#126 

*7E 

*01111110 

#127 

*7F 

*01111111 

#128 

*80 

*10000000 

#129 

*81 

*10000001 

#130 

*82 

*10000010 

#131 

*83 

XI0000011 

#132 

*84 

XI0000100 

#133 

*85 

X10000101 

#134 

*86 

XI0000110 

#135 

*87 

X10000111 

#136 

*88 

*10001000 

#137 

*89 

*10001001 

#138 

*8A 

X10001010 

#139 

X8B 

*10001011 

#140 

X8C 

*10001100 

#141 

*80 

*10001101 

#142 

*8E 

*10001110 

#143 

*8F 

*10001111 

#144 

*90 

XI0010000 

#145 

*91 

*10010001 

#146 

*92 

*10010010 

#147 

*93 

*10010011 

#148 

*94 

*10010100 

#149 

*95 

*10010101 

#150 

*96 

*10010110 

#151 

*97 

X10010111 

#152 

*98 

*10011000 

#153 

*99 

X10011001 

#154 

*9A 

*10011010 

#155 

X9B 

*10011011 

#156 

*9C 

*10011100 

#157 

*90 

*10011101 

#158 

*9E 

*10011110 

#159 

*9F 

X10011111 

#160 

*A0 

XI0100000 

#161 

*A1 

*10100001 

#162 

*A2 

*10100010 

#163 

*A3 

*10100011 

#164 

*A4 

*10100100 

#165 

XA5 

*10100101 

#166 

*A6 

*10100110 

#167 

*A7 

*10100111 

#168 

XA8 

X10101000 

#169 

*A9 

X10101001 

#170 

*AA 

*10101010 

#171 

SAB 

*10101011 

#172 

IAC 

*10101100 

#173 

SAD 

*10101101 
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Dezi 

Hex 

Binär 

Dezi 

Hex 

Binär 

#174 

SAE 

X10101110 

#175 

SAF 

*10101111 

#176 

$B0 

%10110000 

#177 

SB1 

*10110001 

#178 

SB2 

*10110010 

#179 

SB3 

*10110011 

#180 

$64 

%10110100 

#181 

SB5 

*10110101 

#182 

$B6 

X10110110 

#183 

SB7 

*10110111 

#184 

$B8 

*10111000 

#185 

SB9 

*10111001 

#186 

$BA 

*10111010 

#187 

SBB 

*10111011 

#188 

SBC 

*10111100 

#189 

SBD 

*10111101 

#190 

$BE 

*10111110 

#191 

SBF 

*10111111 

#192 

$C0 

*11000000 

#193 

SCI 

*11000001 

#194 

$C2 

XI1000010 

#195 

SC3 

*11000011 

#196 

$C4 

*11000100 

#197 

SC5 

*11000101 

#198 

$C6 

*11000110 

#199 

SC7 

*11000111 

#200 

$C8 

*11001000 

#201 

SC9 

*11001001 

#202 

$CA 

*11001010 

#203 

SCB 

*11001011 

#204 

$CC 

*11001100 

#205 

SCO 

*11001101 

#206 

$CE 

X11001110 

#207 

SCF 

*11001111 

#208 

$D0 

*11010000 

#209 

$01 

*11010001 

#210 

$D2 

*11010010 

#211 

$03 

X11010011 

#212 

$D4 

*11010100 

#213 

SD 5 

*11010101 

#214 

SD 6 

*11010110 

#215 

$07 

*11010111 

#216 

$08 

*11011000 

#217 

$09 

*11011001 

#218 

$DA 

*11011010 

#219 

SOB 

*11011011 

#220 

$DC 

*11011100 

#221 

SDD 

*11011101 

#222 

$DE 

*11011110 

#223 

SDF 

*11011111 

#224 

$E0 

*11100000 

#225 

SEI 

*11100001 

#226 

$E2 

*11100010 

#227 

SE3 

X11100011 

#228 

$E4 

*11100100 

#229 

$E5 

*11100101 

#230 

$E6 

*11100110 

#231 

SE7 

*11100111 

#232 

$E8 

*11101000 

#233 

SE9 

*11101001 

#234 

$EA 

*11101010 

#235 

SEB 

*11101011 

#236 

SEC 

*11101100 

#237 

SED 

*11101101 

#238 

SEE 

*11101110 

#239 

SEF 

*11101111 

#240 

$F0 

*11110000 

#241 

SF1 

*11110001 

#242 

SF2 

*11110010 

#243 

SF3 

*11110011 

#244 

SF4 

*11110100 

#245 

SF5 

XI1110101 

#246 

SF6 

*11110110 

#247 

SF7 

*11110111 

#248 

SF8 

*11111000 

#249 

SF9 

*11111001 

#250 

SFA 

*11111010 

#251 

SFB 

*11111011 

#252 

SFC 

*11111100 

#253 

SFO 

*11111101 

#254 

SFE 

*11111110 

#255 

SFF 

*11111111 
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222120191817161514131211109 8765432 1 

ZY XWVUTSRPNML KJ HFEDCBA 


Pin 

Signal 

1 

GND 

2 

+ 5 V 

3 

+ 5 V 

4 

tmr 

5 

CR/W" 

6 

DOT CLOCK 

7 

I/O 1 

8 

G amE 

9 

E X R 0 M 

1 0 

I/O 2 

1 1 

R O ML 

1 2 

BA 

1 3 

b MA 

1 4 

D 7 

1 6 

D 6 

1 6 

D 5 

1 7 

D 4 

1 8 

D 3 

1 9 

D 2 

2 0 

D 1 

2 1 

D 0 

2 2 

GND 

A 

GND 

B 

ROMH 

C 

RESET 

D 

NMI 

E 

cj> 2 

F 

A 1 5 

H 

A1 4 

J 

A1 3 

K 

A 1 2 

L 

All 

M 

A1 0 

N 

A 9 

P 

A 8 

R 

A 7 

S 

A6 

T 

A 6 

U 

A4 

V 

A3 

w 

A 2 

X 

AI 

Y 

A0 

2 

GND 
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Stichwortverzeichnis 

A 

ACPTR . 184 

ADSR-Kontrolle . 97 ff 

Alarmregister . 74 

Amplitudenmodulator . 90 

Analog/Digitalwandler . 94 ff 

Assembler-Programmierung . 161 ff 

Attribut-RAM . 723 / 

Ausgabesteuerung . 67 ff 


B 

BASIC 7.0 . 871 ff 

BASIC-Interrupt . 792 / 

BASIC-ROM-Listing . 371 ff. 404ff 

BAS/C-ROM-Routinen . 385ff 

BASIN . 190 

Baud raten, Programmierung eigener . 22 

Bausteine . 7 2 

Befehle, eigene einbinden . 719ff 

Bcfehlsmodul . 7 7 9ff 

Bildschirm . 25 f 

Bildschirm, mehr als 25 Zeilen . 131 

Bildschirmgestaltung . 31 ff 

Bitmuster . 59 

BOOTCALL . 777 

Booten von Disketten . 7 95ff 

Bootsektor . 795ff 

BSOUT . 190 

BSOUT SCRN . 197 
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c 

CI 28-Modus . 820 

C64MODE . 170 

C64-Modus . 819 

Cartridge-Port . 24 

Character-ROM . 47 

CHKIN . 188 

CIA . 76f, 812, 67ff 

CIA, Pinbelegung . 67 

CIA, Registerbeschreibung . 68ff 

CIN IT . 179 

CIOUT . 184 

CKOUT . 189 

CLALL . 194 

CLOSE . 188 

CLQIR . 197 

CLRC11 . 189 

CLRW1N . 196 

CM P ARE . 162. 165 

CP/M . 731 ff, 815 

CPU 8502 . 161ff 

CPU 8502, Pinbelegung . 161 f 

CURHOM . 196 

Cursor positionieren . 793 

Cursormodus . 129f 

D 

Datasetten-Anschluß . 13 

Daten f ormale . 374f 

Datenregister ( PR ) . 71 

Datenrichtungsregister (DDR) . 71 

DEEK . 724 
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Diskette booten .795// 

DLCHR .775 

DMA-CALL . 170 

DO KE . 724 


E 


E/A-Ports .77/ 

Echtzeit in BASIC .75 

Echtzeituhr . 74 

Einbinden von Befehlen . 719ff 

Eingabesteuerung .f.67// 

Einschaltmodus . 819 

Extended-Color-Modus .60/ 


F 


Färb-Programmierung . 18 

Farb-RAM . 45. 47f 

Farbmonitor . 25 

FETCH . 162f 

Floppy 1571 . 82, 815 

Format der Realvariablen .576 

Format der Variablennamen . 376 

Format von Feldern . 379 

Format von Funktionen . 377 

Format von Integervariablen . 378 

Format von Stringvariablen . 377 


G 


Garbage Collection . 379 

Geräteadressen . 83 

GETCONF .7 65, 175 

GETIN . 193 

GETLIN . 197 
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GO 64 . 819 

Grafikmodus . 137 

Grafikprogrammierung . 49 

H 

Handshake . 19 f 

HF-Anschluß . 25 

Hi-Res-Grafik . 137 f 

Hi-Res-Modus . 49 ff 

Hintergrund färbe . 129 

Hintergrund Priorität . 39 

HRF-Signal . 83 

Hüllkurvengenerator . 90 

I 

I EC-Bus . 80 ff 

INDCMP . 178 

INDFET . 176 

INDSTA . 177 

Ihteger zahlen-For mal . 375 

Interrupt . 43 ff 

Interrupt, BASIC . 381 

IOBASE . 195 

IOINIT . 179 

IRQ-Routine . 789 

IRQ-Vektor . 791 ff 

J 

JMPFAR . I66ff, 176 

Joystick . 78 f 

Joystickport . 78 f 

JSRFAR . 166ff, 175 
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K 

Kernal-ROM . 199ff 

Kernal-Routinen .762 

KEY . 183 

Kopieren, blockweise . 727/ 

L 

Lightpen . 43, 79 

L1STN . 185 

LKUPLA . 171 

LKUPSA . 172 

LOADSP . 191 

M 

Maus .79 

MEMBOT . 183 

MEMTOP . 182 

Mulli-Color-Modus, Grafik . 58f 

Multi-Color-Moclus, Text . 59 

N 

NMl . 789f 

o 

OPEN . 187 

Osborne-Format . 815 

Oszillator . 90 
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P 

Paddies . 95 

Parallelschnittstelle . 14 

PET . 699 

PF KEY . 174 

PHOENIX . 171 

PLOT . 195 

Poke-Routine . 120 

PRIMM . 179 

Programmzeilenformat . 374 


R 

RAM-Bank . 373 

RAMTAS . 180 

Rasterzeilen-Interrupt . 43 

RDTIM . 193 

READST . 186 

Real zahlen-Format . 375 

Rechnermodus . 815 

RESTOR . 180 

RESTORE-Taste . 790 

RGB-Ausgang . 107 

Ring-Modulation . 104 

ROM-Lisling . 199 

ROM-Modul . 24 

RS232-Schnittstelle . 18 ff 

RS232-Steckmodul . 18 


s 

SAVESP . 191 

Sch wingungs f ormgenerator . 90 

Scrolling . 61 f. I26f 

SCRORG . 194 

SECND . 181 

Sekundäradressen . 84 
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serielle Datenübertragung . 18ff 

SETBNK . 174 

SETLFS . 186 

SETMSG . 181 

SETNAM . 186 

SETTM . 192 

SETTMO . 183 

S1D . 87 ff 

SID, Filter . 103f 

SID, Pinbelegung . 89 

SID, Programmierung . 97f 

SID, Registerbeschreibung . 91 f 

Sniooth-Scrolling . 61,126 

Soundchip (SID) . 87ff 

Sprite-Hintergrund-Kollision . 40, 43 

Sprite-Sprite-Kollision . 39, 43 

Sprites . 32 ff 

Sprites einschallen . 35 

Sprites, Farbe . 36 

Sprites, Hintergrund . 38 

Sprites, Mulli-Color-Modus . 32, 40 

Sprites, Position . 36 

Sprungmodul . 381 ff 

Sprungvektortabelle . 385 

Stack . 379 

STASH . 162, 164 

Status-Abfrage . 23 

Statusvariable . 23 

STOP . 193 

STOP-RESTORE-Taste . 790f 

STOP-Taste . 789 

SWAPPER . 173 

Synchronisation . 104 

Systemvariable . 699 

Systemvariable ST . 85f 

Systemvariablen . 699 
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T 

TALK . 185 

Tastaturmatrix . 812ff 

Textdarstellung . 44 

Textmodus . 52 

Timer . 73/ 

Tips . 789ff 

TKSA . 182 

u 

UDTIM . 194 

UNLSN . 184 

UNTLK . 184 

Userport . 14ff, 830 

V 

V24-Schniltstelle . 18 ff 

VDC-Chip . 107 ff 

VDC-Chip, Pinbelegung . I08f 

VDC-Chip , Register . 109ff, 125f 

VDC-RAM, Speicherbelegung . 123 

VECTOR . 180 

V IC-Chip . 25 ff 

VIC-Chip, Pinbelegung . 27 

VIC-Chip, Registerbelegung . 28 

VIC-II-Chip . 26 f 

Video-RAM verschieben . 45 

Vordergrund färbe . 129 
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z 

Z-80 . 731 

Z-80-ROM-Listing . 736ff 

Zeichenattribut . 123 

Zeichenbreite . 130 

Zeichengenerator verschieben . 47 

Zeichenlänge . 130 

Zeichenmatrix . 53 f 

Zeichensatz . 47, 122f, 799ff 

Zeiger . 699 

Zeropage . 699f 













Bücher zum Commodore 128 


Das große Floppybuch zur 1570/1571 gibt Ihnen das notwen¬ 
dige Wissen zur Programmierung Ihres neuen Diskettenlauf¬ 
werkes. Für Anfänger, Fortgeschrittene und Profis. Dieses 
Buch beschreibt wirklich alle Leistungsmerkmale dieser 
schnellen Floppy. 


Aus dem Inhalt: 

- Einführung für Einsteiger 

- Die Floppy und das COMMODORE- 
BASIC 

- Sequentielle und relative Dateien 

- Fremde Diskettenformate 
verarbeiten 

- Programmierung im DOS-Puffer 

- Die CP/M-Fähigkeiten der 1570/1571 

- Floppy intern: Schaltungsaufbau 
und Funktion 

- 1571 Fast-Load 

- Das DOS im Detail 

- Komplettes DOS-Listing (mit Cross- 
Reference) 


Ellinger 

Das große Floppybuch zur 1570/1571 
Hardcover, 554 Seiten, DM 49,- 
ISBN 3-89011-124-6 






Bücher zum Commodore 128 


Schlagen Sie dem Betriebssystem Ihres C128 ein Schnipp¬ 
chen. Wie? Mit PEEKS & POKES natürlich! Dieses Buch 
erklärt leichtverständlich den Umgang damit. Mit einer riesi¬ 
gen Anzahl wichtiger POKES und ihren Anwendungsmöglich¬ 
keiten. Nebenbei wird der interne Aufbau Ihres neuen C128 
prima erklärt. 



Aus dem Inhalt: 

- Die Arbeitsweise Ihres Rechners 

- Was ist ein Betriebssystem? 

- Wie arbeitet der Interpreter 

- RAM-Erweiterungsbetehle 

- Bankswitching 

- Die Zeropage 

- Pointer & Stacks 

- Speicherbelegungsplan 

- Massenspeicherung & Peripherie 

- Der40-/80-Zeichen-Bildschirm 

- Sprites 

- Grafik mit 640x200 Punkten 

- Die Tastatur 

- Der User-Port 

- BASIC und Betriebssystem 

- Grundlagen der Maschinensprache 

- 8502-/Z80-Maschinensprache 


Liesert, Linden 

Peeks & Pokes zum Commodore 128 
248 Seiten, DM 29,- 
ISBN 3-89011-138-6 





Bücher zum Commodore 128 


128 Tips & Tricks ist eine riesige Fundgrube für jeden 128er- 
Besitzer, der mehr mit seinem Rechner machen will. Dieses 
Buch enthält nicht nur viele Beispielprogramme, sondern 
erläutert auch leichtverständlich den Aufbau des Rechners 
und seine Programmierung. 



Aus dem Inhalt: 

- Grafik auf dem Commodore 128 

- Arbeiten mit mehreren Bildschirmen 

- EigenerZeichensatz 

- Sprite-Handling 

- Grafik mit den eingebauten Befehlen 

- Simulation mehrerer Windows 

- Listing-Konverter 

- Modifiziertes Input 

- Software-Schutz auf dem Commodore 128 

- Zeilen einfügen 

- Rund um die Tastatur 

- Befehlserweiterung - selbst gemacht 

- Banking 

- Weitere Möglichkeiten der MMU 

- Autostart 

- Der Speicher 

- Wechseln des Betriebssystems 

- Der64er-Modusauf dem C-128 

- Die lOer-Tastatur am C-64 
und vieles mehr 


Hornig, Weltner, Trapp 
Commodore 128 Tips & Tricks 
Hardcover, 327 Seiten, DM 49,- 
ISBN 3-89011 -097-5 





Bücher zum Commodore 128 


Endlich CP/M beherrschen! Von grundsätzlichen Erklärungen 
zur Speicherung von Zahlen, Schreibschutz oder ASCII über 
Anwendung von CP/M-Hilfsprogrammen bis zu CP/M intern 
für Fortgeschrittene findet hier jeder Commodore-128- 
Anwender schnell die notwendigen Hilfen und Informationen 
zur Arbeit mit CP/M. 



Aus dem Inhalt: 

- Die Aufgabe von CP/M 

- Die System-Diskette 

- Regeln für Dateinamen 

- Eingebaute Befehle 
USER, DIR, ERASE 

- Transiente Befehle 

SET, PROTECT, SHOW, SUBMIT 

- Alles über PIP 

- Mehrere Dateien hintereinander drucken 

- Alle 128er-spezifischen CP/M-Befehle 

- Kommentiertes Z80-ROM-Listing 


Schieb, Weiler 
Das CP/M-Buch zum C-128 
Hardcover, 340 Seiten, DM 49,- 
ISBN 3-89011-116-5 







